Grundlagen der Programmierung mit VBA Visual Basic for

3.9 Zeitgesteuerte Auführung von Routinen
Mit der Methode OnTime() können Ereignisse zu einem bestimmten Zeitpunkt aktiviert werden. Während
der Wartezeit gibt das Programm die Kontrolle an den Anwender zurück, d.h. der Computer ist
freigegeben und man kann in der Zwischenzeit etwas anderes mit Excel machen.
Beispiel. Zeitgesteuerte Ampelschaltung. Vom Datenblatt wird die Dauer der verschiedenen Ampelphasen
in Sekunden eingelesen. Die Zeitsteuerung startet mit der Rot-Phase. Dabei wird das Rotlicht
angeschaltet und der "Timer" für die Gelb-Phase mit der Dauer der Rot-Phase gestartet. Die Gelb-
Phase startet den Timer für die Grün-Phase, usw. Das Vorgehen wird im Programm-Code am besten
erklärt.
Dim Zeitschaltung As Boolean ' Projektvar.: Indikator für Zeitschaltung
' die Timer werden nur gestartet wenn der
' Indikator gesetzt ist.
Dim Scheduled ' Name der nächsten Phase
Sub ZeitSchalt_Start() ' Zeitschaltung starten,
' mit Rot-Phase beginnen
Dim phs As Long
50
Zeitschaltung = True ' Indikator setzen
phs = Range("Rotphase").Value ' Länge der Rot-Phase lesen
Halt ' Ampel auf Rot schalten
' Name der nächsten Phase setzen
Scheduled = "ZeitSchalt_Achtung_Fahrt"
' Timer für nächste Phase starten
Application.OnTime _
earliesttime:=Now + TimeValue("00:00:" & phs), _
procedure:=Scheduled, _
schedule:=True
End Sub
Sub ZeitSchalt_Achtung_Fahrt() ' Rot-Gelb-Phase
Dim phs As Long
' Prozedur wird nur ausgeführt,
' wenn Indikator gesetzt
If Not Zeitschaltung Then Exit Sub
phs = Range("Gelbphase").Value ' Länge der Gelb-Phase lesen
AchtungFahrt ' Ampel auf Rot-Gelb schalten
' Name der nächsten Phase setzen
Scheduled = "ZeitSchalt_grün"
' Timer für nächste Phase starten
Application.OnTime _
earliesttime:=Now + TimeValue("00:00:" & phs), _
procedure:=Scheduled, _
schedule:=True
End Sub
Sub ZeitSchalt_grün() ' Grün-Phase
Dim phs As Long
Dim Richtung As Long
If Not Zeitschaltung Then Exit Sub ' Indikator ?
phs = Range("Grünphase").Value ' Länge der Grünphase
Richtung = Range("Richtung").Value ' Fahrtrichtung für Auto lesen