mikro-VIIV
06.09.2008, 15:16
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.
$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.
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.
$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.