D35troy3r
17.06.2012, 13:16
Hallo,
ich bin gerade dabei einen IR-Sender auf Rc5-Basis zu programmieren.
Senden funktioniert einwandfrei, lediglich das abschalten der IR-Diode findet nicht statt.
Die Bits werden bei Knopfdruck zwar gesendet, doch danach bleibt die IR-Led einfach an (mit Handykamera nachgeschaut).
Die Powerdownfunktion scheint ebenfalls zu funktionieren da sich die rote Status Led abschaltet.
Doch warum bleibt die IR-Led an?!
$regfile = "m88def.dat"
$crystal = 1000000
$baud = 19200
$hwstack = 32
$swstack = 10
$framesize = 40
Enable Int0
Config Int0 = Low Level
Enable Interrupts
Config Pind.2 = Input 'Drehimpulsgeber Taster
Portd.2 = 1
Config Pind.3 = Input 'Drehimpulsgeber A
Portd.3 = 1
Config Pind.4 = Input 'Drehimpulsgeber B
Portd.4 = 1
Config Portb.6 = Output 'Rote Led
Dim Togbit As Byte , Command As Byte , Address As Byte
Command = 0
Togbit = 0
Address = 9
Do
If Pind.2 = 0 Then
Portb.6 = 1
Rc5send Togbit , Address , Command
Waitms 500
Portb.6 = 0
Powerdown
End If
Loop
End
ich bin gerade dabei einen IR-Sender auf Rc5-Basis zu programmieren.
Senden funktioniert einwandfrei, lediglich das abschalten der IR-Diode findet nicht statt.
Die Bits werden bei Knopfdruck zwar gesendet, doch danach bleibt die IR-Led einfach an (mit Handykamera nachgeschaut).
Die Powerdownfunktion scheint ebenfalls zu funktionieren da sich die rote Status Led abschaltet.
Doch warum bleibt die IR-Led an?!
$regfile = "m88def.dat"
$crystal = 1000000
$baud = 19200
$hwstack = 32
$swstack = 10
$framesize = 40
Enable Int0
Config Int0 = Low Level
Enable Interrupts
Config Pind.2 = Input 'Drehimpulsgeber Taster
Portd.2 = 1
Config Pind.3 = Input 'Drehimpulsgeber A
Portd.3 = 1
Config Pind.4 = Input 'Drehimpulsgeber B
Portd.4 = 1
Config Portb.6 = Output 'Rote Led
Dim Togbit As Byte , Command As Byte , Address As Byte
Command = 0
Togbit = 0
Address = 9
Do
If Pind.2 = 0 Then
Portb.6 = 1
Rc5send Togbit , Address , Command
Waitms 500
Portb.6 = 0
Powerdown
End If
Loop
End