Wecker bauen

[for_ro]

Declare Sub Stunde
Declare Sub Minute
Declare Sub Menue
Declare Sub Stundew
Declare Sub Minutew
Declare Sub Onoff
Declare Sub Licht
Declare Sub Stellenmenue

Debounce erwartet Subs vom Label-Typ, keine richtige Sub.
Die Declares kannst du alle löschen.

Dies

Sub Stellenmenue
Incr Konfiguration
   If Konfiguration = 3 Then Konfiguration = 0
   Locate 2 , 11
   If Konfiguration = 0 Then
      Locate 2 , 11
      Wait 1
      Lcd "      "
   End If
   If Konfiguration = 1 Then
      Locate 2 , 11
      Wait 1
      Lcd "Wecker"
   End If
   If Konfiguration = 2 Then
      Locate 2 , 11
      Wait 1
      Lcd "   Uhr"
   End If
   End Sub
Return

sollte so aussehen

Stellenmenue:
Incr Konfiguration
   If Konfiguration = 3 Then Konfiguration = 0
   Locate 2 , 11
   If Konfiguration = 0 Then
      Locate 2 , 11
      Wait 1
      Lcd "      "
   End If
   If Konfiguration = 1 Then
      Locate 2 , 11
      Wait 1
      Lcd "Wecker"
   End If
   If Konfiguration = 2 Then
      Locate 2 , 11
      Wait 1
      Lcd "   Uhr"
   End If
Return

2. dann habe ich noch ein problem mit dem format. meine weckzeit wird mir immer als 0:0 ausgegeben ich will aber 00:00 haben wie mache ich das?

Z.B. so

If Stellenstunde<10 Then Lcd "0"
Lcd Stellenstunde ; ":"
If Stellenminute<10 Then Lcd "0"
Lcd Stellenminute