- Код: Выделить всё
Public Sub Calculate(Bars As cls_Bar, cont As ctl_Chart)
Dim ttt() As Double
ReZ = Bars.Get_Cl ' тут берем массив с данными
ReDim Ma_Fast(UBound(ReZ)) ' готовим массивы под результат
ReDim Ma_Slow(UBound(ReZ)) ' готовим массивы под результат
ReDim ttt(UBound(ReZ)) ' готовим промежуточный массив
L_Temp = NRMA(ReZ(0), ttt(0), Ma_Fast(0), Porog, Period_Fast, Bars.kolvo)
L_Temp = NRMA(ReZ(0), ttt(0), Ma_Slow(0), Porog, Period_Slow, Bars.kolvo)
Exit Sub
'err:
' MsgBox err.Description & " " & err.HelpContext
End Sub
Проверил 10 раз
если убрать комментаторские апострофы после Exit sub то результаты расчетов изменяются.
NRMA это моя внешняя функция из DLL написанной на С++
Метка err: осталась от стоявшего раньше onerror goto err:
Не понимаю почему на результат работы функции влияет наличие строк кода после exit sub
Помогите советом, чей это глюк. Результаты отличаются довольно прилично ( там массивы по 3-5 тыс элементов).
P.S. Может есть разница как мы выходим из функции Exit or End??? Но тогда какого .... это влияет на результаты расчетов которые кладутся в массивы??
P.S Или подскажите метод по которому можно определить в чем я неправ.