P_II
06.06.2006, 22:44
Hallo
ich will folgendes erreichen:
der controller soll ständig kontrollieren ob er rc5 empfangen hat und auf tastendruck der auf int1 geht soll er rc5 senden. funktioniert auch fast alles ausser, dass er nach dem interrupt leider nicht mehr richtig empfängt. das lcd zeigt dann immer 32" an.
für hilfen wäre ich sehr dankbar
$regfile = "attiny2313.dat"
$crystal = 1000000
Config Lcd = 16 * 2
Config Lcdpin = Pin , Db4 = Portb.4 , Db5 = Portb.3 , Db6 = Portb.2 , Db7 = Portb.1 , E = Portd.1 , Rs = Portd.0
Config Lcdbus = 4
'init interrupts und deklaration der var
Enable Interrupts
Enable Int1
Config Int1 = Falling
Disable Int0
Cls
Config Rc5 = Portd.2
Config Portb.3 = Output
Config Pind.4 = Input
Portb.4 = 1
Dim T As Byte , A As Byte , C As Byte , Reload As Long , Asend As Byte , Csend As Byte
Asend = 10
Csend = 10
T = 0
Set Portb.3
On Int1 Send Nosave
Do
Getrc5(a , C)
If C <> 255 Then
Lcd C
Lcd " "
End If
Loop
Send:
Rc5send T , Asend , Csend
Return
ich will folgendes erreichen:
der controller soll ständig kontrollieren ob er rc5 empfangen hat und auf tastendruck der auf int1 geht soll er rc5 senden. funktioniert auch fast alles ausser, dass er nach dem interrupt leider nicht mehr richtig empfängt. das lcd zeigt dann immer 32" an.
für hilfen wäre ich sehr dankbar
$regfile = "attiny2313.dat"
$crystal = 1000000
Config Lcd = 16 * 2
Config Lcdpin = Pin , Db4 = Portb.4 , Db5 = Portb.3 , Db6 = Portb.2 , Db7 = Portb.1 , E = Portd.1 , Rs = Portd.0
Config Lcdbus = 4
'init interrupts und deklaration der var
Enable Interrupts
Enable Int1
Config Int1 = Falling
Disable Int0
Cls
Config Rc5 = Portd.2
Config Portb.3 = Output
Config Pind.4 = Input
Portb.4 = 1
Dim T As Byte , A As Byte , C As Byte , Reload As Long , Asend As Byte , Csend As Byte
Asend = 10
Csend = 10
T = 0
Set Portb.3
On Int1 Send Nosave
Do
Getrc5(a , C)
If C <> 255 Then
Lcd C
Lcd " "
End If
Loop
Send:
Rc5send T , Asend , Csend
Return