LED-Blinklicht

Das Programm schaltet abwechselnd die Leitungen TXD und DTR ein. Schalten Sie eine LED zwischen DTR und TXD. Starten Sie das Programm BLINK. Die LED blinkt nun mit einer einstellbaren Geschwindigkeit. Die Zeit einer Blinkphase (An oder Aus) in Millisekunden wird angezeigt. Sie können das Blinken abschalten und neu starten.

 

Für einen einfachen Anschluss an die Experimentierplatine wird die DTR-Leitung als Gegenpol statt GND verwendet. Falls die LED anders herum angeschlossen wird, blinkt sie ebenfalls, wobei sie jeweils in den Gegenphasen leuchtet, während der Ausgang DTR eingeschaltet ist.

 

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