Bytes senden
Verfasst: 16.07.2020 16:20
Hallo, habe ein Problem und sehe vor lauter Bäume den Wald nicht mehr.
Folgender Code:
... ergibt im Terminal:
02 00 04 00 06 00 0A
...sind auch 7 Zeichen, nur hat sich ein 00 nach dem 06 eingeschlichen un das 03 fehlt.
Ich stehe im Moment auf dem Schlauch!
Reinhard
Folgender Code:
Code: Alles auswählen
*Puffer = AllocateMemory(1024) ;
Port$ = "COM5"
If OpenSerialPort(0, Port$, 19200, #PB_SerialPort_EvenParity, 8, 1, #PB_SerialPort_NoHandshake, 1024, 1024)
Puffer.s = Chr(2) + Chr(0) + Chr(4) + Chr(0) + Chr(6) + Chr(10) + Chr(3)
PokeA(*Puffer + 0, 2)
PokeA(*Puffer + 1, 0)
PokeA(*Puffer + 2, 4)
PokeA(*Puffer + 3, 0)
PokeA(*Puffer + 4, 6)
PokeA(*Puffer + 5, 10)
PokeA(*Puffer + 6, 3)
WriteSerialPortData(0, @Puffer, 7)
Debug PeekA(*Puffer + 0)
Debug PeekA(*Puffer + 1)
Debug PeekA(*Puffer + 2)
Debug PeekA(*Puffer + 3)
Debug PeekA(*Puffer + 4)
Debug PeekA(*Puffer + 5)
Debug PeekA(*Puffer + 6)
Delay(3000)
Else
MessageRequester("Error", "Can't open the serial port: " + Port$)
EndIf
CloseSerialPort(0)
02 00 04 00 06 00 0A
...sind auch 7 Zeichen, nur hat sich ein 00 nach dem 06 eingeschlichen un das 03 fehlt.
Ich stehe im Moment auf dem Schlauch!
Reinhard