Der universelle IR Fernbedienungs-Empfänger

**for_ro** · 03.10.2007, 20:02

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