mh... als ich kann einfach eine Fernbedienung einen alten Fernsehers nehemen?... aber dann brauche ich doch einen IR Empfänger oder?... kann ich da jeden nehmen?...
gruß
ma-power
Druckbare Version
mh... als ich kann einfach eine Fernbedienung einen alten Fernsehers nehemen?... aber dann brauche ich doch einen IR Empfänger oder?... kann ich da jeden nehmen?...
gruß
ma-power
Hallo erstmal.Ich habe mir einen ASURO gebaut und C gelernt. ;)Ich habe eine DVD-Player Ferbedinung auf das IR-Modul gehalten und Hyperterminal geschaut.Sihe da es funktioniert!!!Leider kommen nur verwirrende zeichen.Ich wollte auch über Funk MEINEN ASURO unter die Arme greifen.Dann muss ich ihm nicht hinterherlaufen um ihn zurück zu holen.Kann jemand den Code in C übersetzen??
Das was du für verwirrende Zeichen gesehen hast kann aber der yc durch Bascom leicht umsetzen:
--> Config Rc5 = Pinb.0
--> Getrc5(address , Command)
Code:
Wie ich schon gesagt habe ist eigentlich ne ziemlich einfache Angelegenheit. zu Test hat bei mir im dunklen Raum sogar schon ein einfacher Fototransistor von Masse zu PinB.0 gereicht !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