Declare Function OPENCOM Lib "RSLINE.DLL" (ByVal A As Integer) As Integer
Declare Sub Delay Lib "RSLINE.DLL" (ByVal Zeit As Integer)
Declare Sub DTR Lib "RSLINE.DLL" (ByVal An As Integer)
Declare Sub RTS Lib "RSLINE.DLL" (ByVal An As Integer)
Declare Sub TXD Lib "RSLINE.DLL" (ByVal An As Integer)
Declare Function CTS Lib "RSLINE.DLL" () As Integer
Declare Function DCD Lib "RSLINE.DLL" () As Integer
Declare Function DSR Lib "RSLINE.DLL" () As Integer
Declare Function RI Lib "RSLINE.DLL" () As Integer
Declare Sub TimeINIT Lib "RSLINE.DLL" ()
Declare Function TIMEREAD Lib "RSLINE.DLL" () As Integer

Dim Ausgang1 As Integer
Dim Ausgang2 As Integer




Sub Command2_Click ()
Timer1.Enabled = False
End Sub

Sub Form_Load ()
 i = OPENCOM(2)
 If i = 0 Then
    i = OPENCOM(1)
    Option1.Value = True
 End If
 If i = 0 Then MsgBox ("Schnittstelle nicht verfügbar")

 Timer1.Enabled = False
 Ausgang1 = 1
 Ausgang2 = 1
 DTR 0
 RTS 0
 TXD 1
End Sub

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

Sub Option1_Click ()
 i = OPENCOM(1)
 If i = 0 Then MsgBox ("COM1 nicht verfügbar")
 DTR 0
 RTS 0
 TXD 1
End Sub

Sub Option2_Click ()
 i = OPENCOM(2)
 If i = 0 Then MsgBox ("COM2 nicht verfügbar")
 DTR 0
 RTS 0
 TXD 1
End Sub

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

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