Also wenn du es GANZ GÜNSTIG haben willst musst du nur ne
IR-Fernbedienung nehmen und dann so was in deinen Code einbauen:
Code:
=============================================
'     Infrartot - Fernbedinung - LCD Adress and Comand
'=============================================

$regfile = "m8def.dat"
$crystal = 8000000

Config Pinb.0 = Input
Config Rc5 = Pinb.0              'Einfach ne Fotodiode zwischen Masse und PinB.0

Portb.0 = 1                                                 'Pullup aktivieren

Enable Interrupts

Dim Address As Byte , Command As Byte , Dispon As Bit

Initlcd
Cls
Initlcd
Cls
Home Upper
Lcd "Waiting for RC5"

Dispon = 1

Do
  Getrc5(address , Command)
  Home Lower
  Lcd "---No Command---"
  If Address <> 255 Then
     'clear the toggle bit
     'the toggle bit toggles on each new received command
     'toggle bit is bit 7. Extended RC5 bit is in bit 6
     Command = Command And &B01111111
     Home Lower
     Lcd "-- " ; Address ; " -- " ; Command ; " --"

     If Command = 12 Then
       Dispon = Not Dispon
       If Dispon = 1 Then
         Display On
       Else
         Display Off
       End If
     End If

     Wait 1
  End If
  Waitms 10
Loop
End
Dieses Programm würde dir z.B. an nem Display anzeigen, welche taste du gedrückt hast.

Kannst nun einfach ne Fernbedienung von nem DVD Player u.A. nehmen, weil da schon schön Pfeiltasten sind und FERTIG!