if schleife die usb abfragt.

[goara]

hallo
will eine if verzweigung haben, die abfragt ob eine bestimmte taste gedruckt wird und dann etwas macht...
habe mir das so vorgestellt:


Dim Eingabe As Byte
Wait 1
Print #4 , "USB- eingabe ( a links d rechts w auf s zu)"
Do
If Chr(eingabe) = "a" Then
M_6_v = 1
M_6_e = 1
M_6_r = 0
Waitms 100
M_6_v = 0
M_6_v = 0
M_6_v = 0
Endif
Loop
was is daran falsch??
kann bis jetz nich so wirklich basic :)) danke shcon mal

[goara]

opps ok, habs shcon gefunden... hab ja die iengabe gar nicht eingelesen :/ jetz gehts...