Odbiornik RC5


Zrobiłem odbiornik RC5 na attiny2313 z wykorzystaniem TSOP1736 podłączonego do pinu PD2. Odbiornik dokona jednego odbioru i później się zatnie nie wiem gdzie tkwi problem wrzucam kod i proszę o pomoc.

$regfile = "attiny2313.dat"
$crystal = 16000000
$lib "mcsbyte.lbx"
 
 
 
 
Config Portb.0 = Output
Config Portb.1 = Output
Config Portb.2 = Output
 
Config Portd.3 = Output
Config Portd.4 = Output
 
 
Config Rc5 = Pind.0
Config Portd.0 = Input
Dioda Alias Portd.3
Buzzer Alias Portd.4
 
Buzzer = 1
 
 
Enable Interrupts
 
 
Dim Komenda As Byte , Adres As Byte
 
 
Do
  Getrc5(adres , Komenda)
  Komenda = Komenda And &B01111111
 
  If Adres = 0 Then
 
     Reset Dioda
reset Buzzer
 
    Select Case Komenda
      Case 1:
         Toggle Portb.0
         Toggle Portb.1
        Toggle Portb.2
 
 
 
      Case 2:
          Toggle Portb.0
        Toggle Portb.1
        Toggle Portb.2
 
 
 
    End Select
 
     Wait 1
     Set Dioda
set Buzzer
     Waitms 100
 
  End If
 
Loop
End




Portret użytkownika mirley

Re: Pilot

W konfiguracji rc5 powinno być pind.2 a nie pind.0

-

UWAGA! Możliwy jest zakup zaprogramowanych uC i zestawów elementów itp. do niektórych projektów. O dostępność proszę pytać via email. Konkretne oferty pojawiają się w cenniku.