' NEUE Routinen noch anpassen !!!
 
Private Function INP(cport As Integer) As Integer
    ' Hier den Code programmieren für Daten-Empfangen (Inpout.dll)
'    If cport = 889 Then
'        INP = 128 ' <---- nur zum testen mal auf 128 gesetzt !!!
'    Else
'        INP = cport
'    End If
End Function
 
Private Sub OUT(cport As Integer, a_ibit_sbith As Integer)
    ' Hier den Code programmieren für Daten-Senden (Inpout.dll)
End Sub
 
Private Sub SLEEP(wartezeit As Integer)
    ' Hier eventl. die Wartezeit einbinden
    DoEvents
End Sub

Option Explicit
 
    Public Port  As Integer
    Public sport As Integer
    Public cport As Integer
    Public ibit  As Integer
    Public sbit  As Integer
    Public bbit  As Integer
    Public abit  As Integer
    Public sbith As Integer
    Public rbit  As Integer
 
    Public resp(64) As Long

*greetz*
Tim
.
http://www.DotNetWorld.de