Alternative zu "Wait"-Befehl

[mohi]

Stimmt der folgende Code-Teil in deinen Augen?

Dim Alarmdauer As Word
Alarmdauer = 0

Config Portb.1 = Output                                     ' Wecker
Portb.1 = 1                                                 ' Wecker
Wecker Alias Portb.1  

Do
Loop
End 
Sectic:
If _hour = Alstd And _min = Almin Then Alarmdauer = 3
   If Alarmdauer >= 1 Then
      Decr Alarmdauer
      Set Wecker
   Else
      Reset Wecker
   End If
Return

Es funktioniert zwar, aber die Wecker-LED geht nach einer Sekunde wieder aus statt nach 3 Sekunden...

Ist es ok, when ich _hour = Alstd And _min = Almin schreibe?
Ich frag deswegen, weil in deinem Code _hour und _min in eine Variable stecken...

Aber wenigstens ist der Hinweiß, dass das ganze auch in Sectic zu realisieren ist, ziemlich cool! Vielen Dank...