RN-Controll und RC5 Empfang

[jar_]

1. kennt sich jemand damit RICHTIG wirklich aus?
also nicht nur
2. beispielcode aus der bascom-hilfe posten. der geht nämlich nicht.

1 bin absoluter Anfänger, aber
2 ist bei mir fast sofort gelaufen

ABER

von 4 getesteten FB sind nur 2 Stück RC5 sprechend
pinnacle (vom diversitiy stick und Hauppauge wintTV pci, die DVD und TV FB sind nicht RC5 !


4 MHz AT90s2313

'this is like always, define the kind of LCD
Config Lcd = 20 * 4
'other options are 16 * 2 , 16 * 4 and 20 * 4, 20 * 2 , 16 * 1a

Dim A As Byte , Count As Long

'and here some simple lcd code
Cursor Off Noblink
Cls
Locate 1 , 1 : Lcd "7tes Programm"                          'display this at the top line
Wait 1
Locate 2 , 1 : Lcd "im LOOP LED blinkt once "
A = Portd
Portd = 1
Waitms 500
Portd = 0
Waitms 500
'Loop
Locate 2 , 1 : Lcd "Waiting for RC5..."

'Call Dimm_down

Do

   Getrc5(address , Command)
   Locate 3 , 1 : Lcd "Address=" ;
   Locate 4 , 1 : Lcd "Command=" ;
   If Address < 255 Then
      Locate 3 , 9 : Lcd Address
      If Command.7 = 1 Then
         Portd = 1 : Command.7 = 0
      Else
         Portd = 0
      End If
      Locate 4 , 9 : Lcd Command
      If Command <> Oldcommand Or Address <> Oldaddress Then
         Oldcommand = Command
         Oldaddress = Address
         Locate 2 , 1 : Lcd "                   "
         Locate 2 , 1 : Lcd "Old..."
         Locate 2 , 7 : Lcd Oldaddress ; "   ..."
         Locate 2 , 11 : Lcd Oldcommand ; "   ..."
         Locate 2 , 15 : Lcd "Wait"
         Count = 0
      Else
         Count = Count + 1
      End If
   Else
         Locate 3 , 9 : Lcd "   "
         Locate 4 , 9 : Lcd "   "
   End If
Loop
End