Ereigniszähler

---

Mit Hilfe einer Eingangsleitung lässt sich ein digitaler Zähler aufbauen. Verbinden Sie einen Tastschalter oder einen anderen Kontakt mit RTS und RI. Das Programm ZAEHLER erkennt den Zustand der Eingangsleitung und zählt alle Betätigungen des Tasters.

.

 

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

zurück