benötige ein wenig hilfe bei den Ansteuerung mit IR
wenn ich irgend ein Knopf auf meiner Fernbedienung drücke (egal welcher)
dann schaltet mein Relais an Port 0.0 ( schon mal gut )
somit weiss ich das meine Fernbedienung angenommen wird.
so und nun mochte ich gerne die daten auslesen welche die Fernbedienung
ausgibt.
habe folgendes probiert :
Code: Select all
Dim Res As Long
Dim data(2) As Byte
' Report ID auf $0C (bzw 12) setzen
data(0) = &HC
data(1) = &H0
data(2) = &H0
' zum IOW schreiben
Res = IowKitWrite(iowHandles(0), 1, data(0), 3)
Dim i As Integer
i = 0
'schleife bis 100 (100sek.)
Do While (i < 100)
Res = IowKitRead(iowHandles(0), 1, data(0), 3)
i = i + 1
'kurze Pause dazwischen
Call verzoegerung(0.9)
' Label setzen
lbl.Caption = data(1) & " ---- " & data(2) & " ---- " & i
Loop
Ich denke mal da ich mit der numpipe auf 1 und der Report-ID :$0C
richtig liege oder?
MFG Jörg