Timer hängt?

[Feuerring]

Mein Tipp an MrPower

schreibe mit Einrückungen und Absätzen, erleichtert das lesen ungemein

Beispiel:

Ms=0
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

bei jeder Schleife / Bedingung usw. Beginn um ein nach rechts einrücken und am jeweiligen Ende wieder ein zurück