Hallo
Meine Aufgabe ist eine RS485-Kommunikation mit 9bit zu realisieren. Für das 9-te Bit verwende ich das Parity-Bit.
Ich verwende die XOJO-Serial-Klasse.
Mein Problem:
Das Senden mit 9 Bit habe ich realisiert durch
dim i, p as integer
Ser_Usb.XmitWait
Ser_Usb.Reset
p=0
for i=0 to 7
p=p+bitwise.bitand(bitwise.shiftright(b,i),1)
next
if mode=0 then
Ser_Usb.Parity=2-bitwise.bitand(p,1)
else
Ser_Usb.Parity=1+bitwise.bitand(p,1)
end if
Ser_Usb.Reset
Ser_Usb.XmitWait
Ser_Usb.Write(ChrB(b))
Frage:
Wie kann ich beim Daten-Empfang das Parity-Bit lesen/auswerten ?
Gibt es eine Erweiterung zur seriellen Klasse ?
Dieter
Hello
My task is to implement a RS485 communication with 9 bits. For the 9th bit, I use the parity bit.
I use the xojo Serial Class.
My problem:
See code above
Question:
How can I read / evaluate the parity bit when receiving data?
Is there an extension for serial class?
Dieter