Hallo MrPower,
Zitat Zitat von MrPower Beitrag anzeigen
Code:
Do
 'Locate 1 , 1
 'Lcd "Bin im Do-Loop" ; S
 Print "Bin im Do-Loop"
 Print "Durchlauf Nr. " ; S
 Ms = 0
 If Ms = Wert3 Then
 Gosub Kamera_ein
 End If
 Wert34 = Wert3 + Wert4
 If Ms = Wert34 Then
 Gosub Kamera_aus
 End If
 If Ms = Wert5 Then
 Gosub Blitz_ein
 End If
 Wert56 = Wert5 + Wert6
 If Ms = Wert56 Then
 Gosub Blitz_aus
 End If
 If Ms = Wert7 Then
 Gosub Ventil_ein
 End If
 Wert78 = Wert7 + Wert8
 If Ms = Wert78 Then
 Gosub Ventil_aus
 End If
 If Ms = Wert9 Then
 Gosub Ventil_ein
 End If
 Wert91 = Wert9 + Wert10
 If Ms = Wert91 Then
 Gosub Ventil_aus
 End If


 Loop Until Ms = 2000
Ms ist immer 0!

Du solltest dich mal etwas mit dem Debugger befassen und das Programm im Einzelschritt-Modus ausführen!


MfG Peter(TOO)