Hexdezimal einlesen über serielle Schnittstelle?

[dataskip]

Hallo!

Ich versuche schon seit einiger Zeit folgendes Problem zu lösen:
Eine CmuCam und ein Mega8 sind über die serielle Schnittstelle verbunden. Die CMUcam sendet hexdezimale Werte an den Mega8.

Inkey dürfte da eigentlich nicht funktionieren, oder? Derzeit versuche ich mit folgendem Snippet zu arbeiten:



Dim A As String * 120
Dim Myhex As String * 300
Dim I As Word
For I = 1 To 600
If Ucsra.rxc = 1 Then
A = A + ":" + Str(hexval(udr))
Myhex = Myhex + "+" + Str(udr)
End If
Next

Print A
Print Myhex


Diesen Code habe ich in einem Beispiel gefunden. Leider scheint er aber nicht die gewünschte Wirkung zu haben, da die ausgegebenen Werte eigentlich irgendwann ein 0xFE enthalten sollten, dies aber nicht tun. Sowohl bei google als auch hier im Forum habe ich trotz intensiver Suche nichts zu diesem Thema gefunden.

Für Hinweise wäre ich extrem dankbar. :)

Viele Grüße,
C.

[PicNick]

Ich würd' mal folgendes probieren, bin aber kein CMU Cam Guru



DIM buf(164) as byte
DIM rxchar as byte
DIM ix as byte
DIM tmp as byte

do
If Ischarwaiting() = 1 Then ' if data-> workout
Rxchar = Inkey()
Select Case Rxchar
Case &HFE:
' start frame
ix = 0
Case &HFD:
' end frame
EXIT DO
Case Else:
incr ix
buf(ix) = rxchar
End Select
End If
Loop
for tmp = 1 to ix
rxchar = buf(tmp)
print hex(rxchar);" ";
next
print
END

[dataskip]

Hi!

Vielen Dank für Deinen Rat - wie Du siehst, habe ich einige Zeit mit dem Herumprobieren verbracht. Leider scheint es so zu sein, daß inkey zwar Werte einliest, diese aber eigentlich keinen Bezug zur Realität haben.

Kann es angehen, daß es Probleme gibt, weil die hexadezimal angeliefert werden und inkey das nicht richtig übernimmt? Ich bin inzwischen mit meinem Latein ziemlich am Ende, über Ideen irgendwelcher Art würde ich mich sehr freuen. :)

Vielleicht gibt es noch eine Alternative zu inkey?

Viele Grüße,
ds

[dataskip]

Hi!

So, ich habe noch weiter gestöbert. Eines der Probleme wird sicherlich von ischarwaiting ausgelöst. Laut Handbuch gilt: "This makes it unusable to work with binary data that might contain the value 0". D.h. hier kann man damit nicht arbeiten.

Es gibt anscheinend keine Lösung für mein Problem in Bascom. :/

CU,
ds