Leider klappt das nicht so ganz, vielleicht kann mir hier einer helfen und sagen was ich falsch mache.
Code: Alles auswählen
Dim Request.b(6)
Dim Response.b(14)
Request(0)=%000001
Request(1)=%111111
Request(2)=%111111
Request(3)=%111111
Request(4)=%111111
Request(5)=%111111
Request(6)=%111111
OpenSerialPort(6, "COM6", 57600, #PB_SerialPort_NoParity, 8, 1, #PB_SerialPort_NoHandshake, 1024, 1024)
Delay(70)
WriteSerialPortData(6, @Request(), 7)
ReadSerialPortData(6, @Response(), 15)
CloseSerialPort(6)
For i=0 To 14
Debug Response(i)
Next
63
63
61
3
-1
3
-1
3
-1
3
-1
3
-1
3
-1
Gruß, tinux