z.B. so
Dim Temperatur(200) As Byte
Dim Zähler AS Byte
Zähler=0
Do
If Minuten = 30 then
Temperatur(Zähler) = Analog_in0
Incr(Zähler)
End if
Loop
lg Gento
z.B. so
Dim Temperatur(200) As Byte
Dim Zähler AS Byte
Zähler=0
Do
If Minuten = 30 then
Temperatur(Zähler) = Analog_in0
Incr(Zähler)
End if
Loop
lg Gento
Lesezeichen