LED-Wechselblinker

Elektronik-Labor  Notizen  Projekte  Labortagebuch  Elexs-USB




Blink.exe starten

Das Programm BLINK steuert DTR und TXD gegenphasig an, d. h. immer, wenn DTR angeschaltet ist, ist TXD ausgeschaltet. Die Leitung RTS dagegen bleibt immer aus. Sie können daher einen Wechselblinker aufbauen, indem Sie die rote LED an TXD gegen DTR und die grüne an RTS (K) gegen DTR (A) anschließen.


 


 

Ein Wechselblinker lässt sich auch mit nur zwei Leitungen realisieren, indem beide LEDs antiparallel angeschlossen werden. Eine leuchtet während der positiven Phase, die andere während der negativen Phase.








Private Sub Start_Click()
  Timer1.Interval = HScroll1.Value + 10
  Ausgang1 = 0
  Ausgang2 = 0
  Timer1.Enabled = True
End Sub

Private Sub Stop_Click()
  Timer1.Enabled = False
  DTR 0
  RTS 0
  TXD 0
End Sub

Private Sub Timer1_Timer()
  Ausgang1 = (Ausgang1 + 1) And 1
  Ausgang2 = (Ausgang2 + 1) And 1
  If Ausgang1 = 1 Then TXD 0 Else TXD 1
  If Ausgang2 = 1 Then DTR 1 Else DTR 0
End Sub


zurück
weiter
zur Startseite