Inhaltsverzeichnis
Werbung
W&T
Public Type Strukt_Counter
send_sequenz As Integer
rec_sequenz As Integer
struct_typ As Integer
length As Integer
counter_index As Integer
counter_value As Long
End Type
Public ReadCounter As Strukt_ReadCounter
Public Counter As Strukt_Counter
Public Str_ReadCounter As String * 10
Public Str_Counter As String * 14
Die folgende Routine öffnet die TCP-Verbindung zum Web-
IO.
Private Sub ButtonConnect_Click()
'// TCP-Verbindung herstellen
Winsock1.RemotePort = 49153
Winsock1.RemoteHost = "172.16.232.17"
Winsock1.Connect
End Sub
Durch Aufruf der nächsten Prozedur wird die Struktur Read
Counter in einenen String geschrieben und dann ans Web-IO
versendet.
Private Sub ButtonCounterRead_Click()
'// Füllen der Struktur ReadCounter
ReadCounter.send_sequenz = 0
ReadCounter.rec_sequenz = 0
ReadCounter.struct_typ = &HB0
ReadCounter.length = 10
ReadCounter.counter_index = 11
'// Übergabe der einzelnen Bytes der Struktur ReadCount
'// in den String Str_ReadCounter
'// immer beginnend mit dem Low-Byte der einzelnen INTEGER-Variablen
'// gefolgt vom High-Byte
'// bzw. den höherwertigen Bytes bei LONG Variablen
Str_ReadCounter = Chr(ReadCounter.send_sequenz And &HFF) _
Irrtum und Änderung vorbehalten
TCP / UDP - Binary
'// Input-Counter 11
129
Werbung
Inhaltsverzeichnis
