Hallo zusammen.

Ich möchte gern mit einer IR-Fernbedienung mit meinem ATMega kommunizieren.
Ich habe versuchsweise mal den Code aus dem Buch "Programmieren der AVR RISC Mikrocontroller mit Basom-AVR" vo Claus Kühnel ausprobiert.
Code:
$regfile = "m16def.dat"
$crystal = 16000000
$baud = 19200

Config Rc5 = Pind.3
Portd.3 = 1

Enable Interrupts

Dim Address As Byte , Command As Byte
Dim Flag As Bit

Flag = 1

Do
   Getrc5(address , Command)
   If Flag = 1 Then
      Print "wait for command"
      Flag = 0
   End If
   If Address <> 255 Then
      Reset Command.7
      Cls
      'Print "Daten empfangen"
      Print "address: " ; Address ; " Command: " ; Command
      Flag = 1
   End If
Loop
Leider hatte ich damit bis jetzt überhaupt keinen Erfolg.

Zum testen habe ich eine Universalfernbedienung verwendet.

Kann mir bitte jemand von euch helfen. Ich bekomme das irgendwie nicht so recht hin. Ich habe bis jetzt keinen einzigen Code empfangen können und dabei habe ich schon alle Codes der Universalfernbedienung durchprobiert.

Hat jemand einen Tipp für mich?
Ich bin wirklich für jede Hilfe dankbar.