Zeitgeber

Elektronik-Labor Notizen Projekte Labortagebuch Elexs-USB

Bauen Sie einen einfachen Zeitgeber. Nach dem Start können Sie die gewünschte Zeit eingeben und die Uhr starten. Mit dem Ablauf der eingestellten Zeit erlischt die angeschlossene LED.

Das Programm steuert die Ausgänge DTR und RTS. Im einfachsten Fall verwendet man TXD als Minusanschluss und schließt eine LED zwischen TXD (K) und DTR (A) an.

Private Sub Command1_Click()
  DTR 1
  RTS 1
  TIMEINIT
  Timer1.Enabled = True
End Sub

Private Sub Command2_Click()
  Timer1.Enabled = False
  DTR 0
  RTS 0
  Startzeit = Zeit
End Sub

Private Sub Command3_Click()
   Timer1.Enabled = False
   Startzeit = HScroll1.Value / 100
   Label1.Caption = Str$(Startzeit) + " s"
  TIMEINIT
End Sub

Private Sub Timer1_Timer()
  Zeit = Startzeit - TIMEREAD() / 1000
  If Zeit <= 0 Then Zeit = 0: Timer1.Enabled = False: 
     DTR 0: RTS 0
  Ausgabe = Int(Zeit * 100) / 100
  Label1.Caption = Str$(Ausgabe) + " s"
End Sub

zurück
weiter
zur Startseite