elkokiller
04.12.2006, 19:37
Hallo,
ich sende Daten über RS485. Die Werte sind im hexformat.
Leider klappt die Auswertung der Daten beim Empfänger nicht immer reibungslos.
Mache ich einen Fehler bei den Formaten?
Sender:
Dim Daten As Byte
.
.
Daten = &H55
.
.
.
Print Chr(Daten) ' hier wird der Datensatz gesendet
Empfänger:
Dim Daten As Byte
Const Daten_ = &H54
.
.
If Daten<> Daten_ Then Goto ' und hier stelle ich fest dass das was ankommt nichtmehr dem entspricht was ich auf den Bus gegeben habe.
Ich habe auch schon versucht, Daten_ as Byte zu deklarieren.
Leider ohne Erfolg.
Was mus ich machen?
ich sende Daten über RS485. Die Werte sind im hexformat.
Leider klappt die Auswertung der Daten beim Empfänger nicht immer reibungslos.
Mache ich einen Fehler bei den Formaten?
Sender:
Dim Daten As Byte
.
.
Daten = &H55
.
.
.
Print Chr(Daten) ' hier wird der Datensatz gesendet
Empfänger:
Dim Daten As Byte
Const Daten_ = &H54
.
.
If Daten<> Daten_ Then Goto ' und hier stelle ich fest dass das was ankommt nichtmehr dem entspricht was ich auf den Bus gegeben habe.
Ich habe auch schon versucht, Daten_ as Byte zu deklarieren.
Leider ohne Erfolg.
Was mus ich machen?