Cały czas funkcja Getrc5(adres , Komenda)
podaje 255 i 127
Co robię nie tak ? Odbiornik IR TS0P4836 podpięty do Pind.2
[syntax]'************* Konfiguracja uC *****************
'***********************************************
$regfile = "m8def.dat"
$crystal = 8000000
$baud = 9600
Config Portb = &B00000000 : Portb = &B00000000
Config Portb = Output
Config Portd = Input
'Config Portd = &B11111011 : Portd = &B11111111
Config Portd = &B00000000 : Portd = &B00000000
On Int0 Przzew0 Nosave
Config Int0 = Low Level 'Falling
Enable Int0
Config Rc5 = Pind.2 , Timer = 2
Dioda Alias Portb.1
Config Lcdpin = Pin , Db7 = Pc.0 , Db6 = Pc.1 , Db5 = Pc.2 , Db4 = Pc.3 , E = Pc.4 , Rs = Pc.5
Config Lcd = 16 * 2
Cls
Cursor Off Noblink
Enable Interrupts
'********** Konfiguracja uC Koniec ************
'****************** Zmienne *******************
'***********************************************
Dim Komenda As Byte , Adres As Byte
Dim Odebrano As Bit
'************* Zmienne Koniec ****************
'************** Petla glowna ******************
'***********************************************
Do
If Odebrano = 1 Then
If Adres <> 0 Then 'pilot o adresie 0
Reset Dioda
Cls
Print Komenda
Waitms 10
Set Dioda
Waitms 10
End If
Odebrano = 0
Enable Int0
End If
Loop
End
'************ Petla glowna Koniec **************
Przzew0:
Disable Int0
Enable Interrupts
Getrc5(adres , Komenda)
Komenda = Komenda And &B01111111
Odebrano = 1
Return[/syntax]Statystyki: Napisane przez robo1973 — 1 sty 2017, o 19:07
]]>