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
Lesezeichen