Wyświetlanie adresu i komendy w RC5


Witam!
Gdy zaprogramuje procesor według programu poniżej za jego pomocą mogę sprawdzić jakim adresem i jakie komendy wysyła pilot w standardzie rc5??

'************* Konfiguracja uC *****************
'***********************************************
$regfile = "attiny2313.dat"
$crystal = 12000000
 
Config Portb = &B11111111 : Portb = &B11111111
Config Portd = &B11111011 : Portd = &B11111111
 
On Int0 Przzew0 Nosave
Config Int0 = Low Level                                     'Falling
Enable Int0
 
Config Rc5 = Pind.2
Dioda Alias Portd.6
 
Config Lcdpin = Pin , Db4 = Portb.4 , Db5 = Portb.5 , Db6 = Portb.6 , Db7 = Portb.7 , E = Portb.1 , Rs = Portb.0       
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
      Lcd 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

Czy ten program ma większe prawo aby zadziałało według moich oczekiwań?

$regfile = "attiny2313.dat"
$crystal = 12000000
 
Config Lcdpin = Pin , Db4 = Portb.4 , Db5 = Portb.5 , Db6 = Portb.6 , Db7 = Portb.7 , E = Portb.1 , Rs = Portb.0        
Config Lcd = 16 * 2
Config Rc5 = Pind.2
Dioda Alias Portd.6
 
Dim Address As Byte , Command As Byte
Enable Interrupts
 
Do
Getrc5(address , Command)
Command = Command And &B01111111
Cls
Lcd "adres: " ; Address
 
Lowerline
Lcd "komenda: " ; Command
 
Waitms 10
Set Dioda
Waitms 10
Loop
End

Z góry dziękuje za odpowiedź :)
Pozdrawiam!




Portret użytkownika matrix

Re: Wyświetlanie adresu i komendy w RC5

Ło mamo. zaprogramuj procesor to się dowiesz. Zaprogramowanie i sprawdzenie zajęło by ci mniej czasu niż napisanie tego tematu.

Portret użytkownika gosc

marcel

witam jestem początkujący w programowaniu
wpisałem w procka program podany jako pierwszy i na wyświetlaczu pojawia mi się cały czas adres: 255
i komenda: 127, a wciśnięcie przycisku na pilocie powoduje tylko mignięcie wyświetlacza
co można z tym zrobić
pomocy

Portret użytkownika kaktus

bez komentarza

Widzę doświadczony kolega pomógł jak umiał początkującemu ...

-

"Cierpliwym być musisz, by wiedzę zgłębiać tajemną, gdyż ciemna strona mocy niszczącą i silną jest.".

Portret użytkownika kaktus

Marcel

dzieje się tak dlatego że program wykonuje się bardzo szybko. Albo zwiększ opóźnienie (np na 3 sek abyś cokolwiek zobaczył) po wyświetleniu wyniku, albo wymyśl jakiś inny patent.

-

"Cierpliwym być musisz, by wiedzę zgłębiać tajemną, gdyż ciemna strona mocy niszczącą i silną jest.".