Liste der Anhänge anzeigen (Anzahl: 1)
Der universelle IR Fernbedienungs-Empfänger
Hallo zusammen,
nachdem hier immer wieder wegen der Infrarot-Fernbedienung gefragt wird, stelle ich mal meinen universellen Empfänger vor.
Das Programm habe ich als Attachment beigefügt und hoffentlich ausreichend kommentiert.
Den Auswertungs-Code für Sony SIRCS habe ich hier auch eingefügt.
Erkannt werden folgende Codes:
Denon
Japan
JVC
NEC
NCR17
RC5
RC6
RCA
RECS80
Sharp
Sharp1
SIRCS
Unbekannt01
Unbekannt02
Ich hoffe, dass das Prinzip klar wird, sodass man sich auch eigene Routinen dazu schreiben kann.
Code:
If Flanken_index = 26 And Imp_array(2) < 26 And Imp_array(2) > 22 And Imp_array(3) > 4 And Imp_array(3) < 8 Then '----------------------------------------------------------------Sony
If Print_pc = 1 Then Print #1 , "SIRCS: Start "
I = 4
While I < Flanken_index
Shift Daten , Right
If Imp_array(i) > 4 And Imp_array(i) < 8 Then
nop
Elseif Imp_array(i) > 9 And Imp_array(i) < 14 Then
Daten.31 = 1
Else
Exit While
End If
Incr I
If Imp_array(i) < 5 Or Imp_array(i) > 7 Then
Exit While
End If
Incr I
Incr Bit_count
Wend
If I >= Flanken_index Then
If Imp_array(i) > 9 And Imp_array(i) < 14 Then
Shift Daten , Right
Daten.31 = 1
Incr Bit_count
End If
Shift Daten , Right , 20
Temp_daten = Daten
Befehl = Temp_daten And &B01111111
Shift Temp_daten , Right , 7
Geraet = Temp_daten And &B00011111
If Print_pc = 1 Then Print #1 , ": Gerät=" ; Geraet ; ", Befehl=" ; Befehl ; ", I=" ; I ; ", Flanken_index=" ; Flanken_index ; ", Daten=" ; Bin(daten)
Gosub Clear_scr
Locate 1 , 1 : Lcd "SIRCS "
Locate 2 , 1 : Lcd "Geraet=" ; Geraet ; ", Befehl=" ; Befehl
End If
End If
Hoffentlich können einige von euch etwas damit anfangen.
Gruß
Rolf