Zitat:
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

Sub Command1_Click ()
RTS 1
Picture1.BackColor = &HFF00&
End Sub

Sub Command2_Click ()
RTS 0
Picture1.BackColor = &HC0C0C0
End Sub

Sub Command3_Click ()
DTR 1
Picture2.BackColor = &HFF00&
End Sub

Sub Command4_Click ()
DTR 0
Picture2.BackColor = &HC0C0C0
End Sub

Sub Command5_Click ()
TXD 1
Picture3.BackColor = &HFF00&
End Sub

Sub Command6_Click ()
TXD 0
Picture3.BackColor = &HC0C0C0
End Sub

Sub Form_Load ()
If App.PrevInstance Then
msg$ = App.EXEName & " wurde bereits gestartet "
MsgBox msg$, 48
End
End If
i = OPENCOM(2)
If i = 0 Then
i = OPENCOM(1)
Option1.Value = True
End If
If i = 0 Then MsgBox ("Schnittstelle nicht verfügbar")
TXD 0
Picture1.BackColor = &HC0C0C0
RTS 0
Picture2.BackColor = &HC0C0C0
DTR 0
Picture3.BackColor = &HC0C0C0
End Sub

Sub Option1_Click ()
i = OPENCOM(1)
If i = 0 Then MsgBox ("COM1 nicht verfügbar")
TXD 0
Picture1.BackColor = &HC0C0C0
RTS 0
Picture2.BackColor = &HC0C0C0
DTR 0
Picture3.BackColor = &HC0C0C0
End Sub

Sub Option2_Click ()
i = OPENCOM(2)
If i = 0 Then MsgBox ("COM2 nicht verfügbar")
TXD 0
Picture1.BackColor = &HC0C0C0
RTS 0
Picture2.BackColor = &HC0C0C0
DTR 0
Picture3.BackColor = &HC0C0C0
End Sub