Alternative zu "Wait"-Befehl

[mohi]

Sag mal, wie meinst du das mit Sekunde zwischenspeichern?
Wie funktioniert die Alarmdauer-Regelung in der HAuptschleife?

[peterfido]

Scheint, als ob irgendwas anderes passt nicht. Für eine bessere Aussage bräuchte ich mehr Code. Da du nur die Stunde und Minute vergleichst, müsste die ganze Minute über jede Sekunde Alarmdauer auf 3 gesetzt werden.

Die Sekunde zwischenspeichern geht ganz einfach:

dim sekalt as byte
...
...
do
if sekalt<>_sec then
   sekalt=_sec
   gosub sekuendlich
end if

loop
end

sekuendlich:
   'hier der Code rein, welcher nach jeder neuen Sekunde ausgeführt werden soll. z.B.
   gosub Uhranzeigen
   gosub Alarme
   gosub Menuetimer
   gosub beleuchtungstimer
   ...
   ...
   ...
return

[mohi]

Ja ich glaube dass das daran liegt, das in der Hauptschleife bereits der Wecker-Port (also die Weck-LED) genutzt wird...

Ich schick dir gleich mal ne PN.

[mohi]

Ist nicht mehr nötig. Ich habs hinbekommen und zwar hab ich in der Sectic folgendes geschrieben:

Dim Alarm_dauer As Word
Alarm_dauer = 0

Do 
.
.
.
Loop 
End

Sectic:
   If PortB.1 = 1 Then Alarm_dauer = Alarm_dauer + 1
   If Alarm_dauer = 5 Then                                            ' Alarm dauert 5 Sekunden
   Reset PortB.1
   End If
Return

Vielen Dank für deinen Tip und schönen Sonntag dir...