Ja ich hab ne 10€ Universalfernsteuerung vom Aldi.
Hab einfach mal ein paar Codes von Tevion getestet (ca. 40% ist RC5).
Aber ich möchte meiner Freundin ungern sone dicke Fernsteuerung mitgeben.
Sie hat so ein Metallgebilde neben dem Bett wo ein Teelicht drin sitzt, da soll dann der Sender rein.
Rein Theoretisch brauch ich also nur ein Sender der irgentwein RC5 kommt sendet, das beim emfänger ein interrup auslöst und dann das pogramm wechselt.
Man müsste eig. eine IR Diode + Widerstand an einen Ausgang des AVRs hängen können, leider weiß ich nicht wie ich dann Commands senden kann. bestimmt irgentwas mim Timer (hab leider keine Bascom Hilfe).
Mfg
PS hier ein Bascom beispiel für RC5, einfach TSOP Signalleitung an Pind.3, dann gibt er die Werte per Print aus:
Code:$regfile = "m16def.dat" $framesize = 32 $swstack = 32 $hwstack = 32 $crystal = 16000000 $baud = 9600 Config Rc5 = Pind.3 ' PD3 ist Eingang für Portd.3 = 1 ' PullUp aktiv Enable Interrupts ' Timer0 arbeitet im Hintergrund Dim Addresse As Byte , Kommando As Byte Dim Flag As Bit Flag = 1 Do Getrc5(addresse , Kommando) If Flag = 1 Then Print "Warte auf Kommando" Flag = 0 End If If Addresse <> 255 Then Reset Kommando.7 ' Togglebit zurücksetzen Cls Print "Addresse: " ; Addresse ; " Kommando: " ; Kommando Flag = 1 End If Loop End






Zitieren

Lesezeichen