Das Bytearray sollst du auch nicht in einen String konvertieren.
Du musst die Bytes einzeln auswerten.
Beispiel:
Abfrage der 8 Relais-Zustände
1 Byte = 8 Bit
Byte(x) = 131dez = 83hex = 1000011bin
bedeutet (von rechts nach links) Rel. 1,2 und 8 gezogen.
Jetzt musst du die Relaiszustände abfragen.
Für Rel. 2: If byte(x) and 2 = 2 then TXT = "Rel2 an" else TXT "Rel2 aus"
Das letzte Byte scheint eine Prüfsummes zu sein.
Die genaue Bedeutung steht in der Beschreibung.
Außerdem gibt's ein Beispielprogramm für VB2008
Du musst die Bytes einzeln auswerten.
Beispiel:
Abfrage der 8 Relais-Zustände
1 Byte = 8 Bit
Byte(x) = 131dez = 83hex = 1000011bin
bedeutet (von rechts nach links) Rel. 1,2 und 8 gezogen.
Jetzt musst du die Relaiszustände abfragen.
Für Rel. 2: If byte(x) and 2 = 2 then TXT = "Rel2 an" else TXT "Rel2 aus"
Das letzte Byte scheint eine Prüfsummes zu sein.
Die genaue Bedeutung steht in der Beschreibung.
Außerdem gibt's ein Beispielprogramm für VB2008
Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Eierlein“ ()