Я не понимаю - у меня есть массив в другом модуле, который содержит данные и инициализируется при запуске со стандартными значениями.
Когда я пытаюсь использовать daten.getWasserTemp (), он не доставляет массив каждый раз.Входящий массив всегда равен 5.
Строка с vWate (1) выбрасывает массив из-за ошибки 9 (строка 5)
РЕДАКТИРОВАТЬ: Данные сохраненыв модуле датан.Он инициализируется при первом открытии слайда (slide30) с помощью метода daten.reset ()
Спасибо!
Вы можете мне помочь?Я слепой .. Спасибо!
Модуль Logik:
Dim vTemp As Double
Dim vWate() As Double
ReDim vWate(5)
vWate = daten.getWasserTemp
If vWate(1) <= 0 Then vTemp = 0
Модуль Daten:
Dim vWasserTemp() As Double
....
Function getWasserTemp() As Double()
getWasserTemp = vWasserTemp
End Function
...
sub reset ()
vWasserTemp(1) = 15
vWasserTemp(2) = 14
vWasserTemp(3) = 5
vWasserTemp(4) = 4
end sub
Модуль Slide30:
Sub OnSlideShowPageChange()
daten.reset
End Sub