Dim Ausgang1 As Integer
Dim Ausgang2 As Integer

Private Sub Command2_Click()
Timer1.Enabled = False
End Sub

Private Sub Form_Load()
 If App.PrevInstance Then
    msg$ = App.EXEName & " wurde bereits gestartet "
    MsgBox msg$, 48
    End
 End If
 i = OPENCOM("COM1:")
 If i = 0 Then
    i = OPENCOM("COM2:")
    Option2.Value = True
 End If
 If i = 0 Then MsgBox ("Schnittstelle nicht verfgbar")
 Timer1.Enabled = False
 Ausgang1 = 1
 Ausgang2 = 1
 DTR 0
 RTS 0
 TXD 1
End Sub

Private Sub Form_Unload(Cancel As Integer)
  CLOSECOM
End Sub


Private Sub HScroll1_Change()
 Timer1.Interval = HScroll1.Value + 10
End Sub

Private Sub Option1_Click()
 i = OPENCOM("COM1:")
 If i = 0 Then MsgBox ("COM1 nicht verfgbar")
 DTR 0
 RTS 0
 TXD 1
End Sub

Private Sub Option2_Click()
 i = OPENCOM("COM2:")
 If i = 0 Then MsgBox ("COM2 nicht verfgbar")
 DTR 0
 RTS 0
 TXD 1
End Sub

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

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

