Zeitmessung

---

Auch eine Stoppuhr lässt sich leicht programmieren. Verwenden Sie die gleiche Anschlussbelegung für den Schalter wie beim Ereigniszähler. Die Zeit läuft, solange der Schalter geschlossen ist.

.

 

Private Sub Timer1_Timer()
  Zustand_Neu = RI()
  If Zustand_Neu > Zustand Then Zaehler = Zaehler + 1: 
         Text2.Text = Str$(Zaehler)
  Zustand = Zustand_Neu
End Sub
 

Lösen Sie Schaltsignale mit Licht aus. Die folgende Schaltung mit dem Fototransistor dient als Lichtsensor. Sie können z.B. die Einschaltzeit einer Lampe bestimmen.

zurück