Douser182
08.03.2008, 15:35
Hey Leute,
Ich will eine Philips Ferbedienung auslesen, verwende dazu einen ATtiny2313 und einen TSOP1736 IF Empfänger. Die ausgelesen Daten sollen dann am Display erscheinen, damit ich sie in ein anderes Projekt einprogrammieren kann. Leider erscheint nur am Anfang "Waiting for RC5." und dann ändert sich nichts mehr.
Was habe ich falsch gemacht
$regfile = "attiny2313.dat"
$crystal = 8000000
$baud = 19200
$hwstack = 64
$swstack = 30
$framesize = 120
Config Lcdpin = Pin , Db4 = Portb.4 , Db5 = Portb.3 , Db6 = Portb.2 , Db7 = Portb.1 , E = Portd.5 , Rs = Portd.4
Config Lcd = 16 * 2
Initlcd
Cursor Off
Cls
$lib "mcsbyte.lbx"
Config Rc5 = Pind.2
Enable Interrupts
Dim Address As Byte , Command As Byte
Lcd "Waiting for RC5."
Do
'Config Pind.2 = Input
Getrc5(address , Command)
If Address = 0 Then
Cls
Locate 1 , 1
Lcd Command
Locate 2 , 1
Lcd Address
End If
Loop
End
Ich will eine Philips Ferbedienung auslesen, verwende dazu einen ATtiny2313 und einen TSOP1736 IF Empfänger. Die ausgelesen Daten sollen dann am Display erscheinen, damit ich sie in ein anderes Projekt einprogrammieren kann. Leider erscheint nur am Anfang "Waiting for RC5." und dann ändert sich nichts mehr.
Was habe ich falsch gemacht
$regfile = "attiny2313.dat"
$crystal = 8000000
$baud = 19200
$hwstack = 64
$swstack = 30
$framesize = 120
Config Lcdpin = Pin , Db4 = Portb.4 , Db5 = Portb.3 , Db6 = Portb.2 , Db7 = Portb.1 , E = Portd.5 , Rs = Portd.4
Config Lcd = 16 * 2
Initlcd
Cursor Off
Cls
$lib "mcsbyte.lbx"
Config Rc5 = Pind.2
Enable Interrupts
Dim Address As Byte , Command As Byte
Lcd "Waiting for RC5."
Do
'Config Pind.2 = Input
Getrc5(address , Command)
If Address = 0 Then
Cls
Locate 1 , 1
Lcd Command
Locate 2 , 1
Lcd Address
End If
Loop
End