
Zitat von
raptor_79
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
Code:
'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
Lesezeichen