Jak zbudować odbiornik kodu RC-5 na Atmel 2051 z użyciem TSOP1736?
Re: Kod RC-5 i '51
From: Janusz_K <Janusz_k.anty_at_nospam_um.bielsko.pl>
Subject: Re: Kod RC-5 i '51
Date: Wed, 19 Jun 2002 11:17:00 +0200
Latocha Grzegorz wrote:
AVE!
Chcę zrobić odbiornik kodu RC-5 na Atmelku 2051.Szukałem opisu kodu RC-5,
ale jakoś nie mogę znaleźć, szukałem także w archiwum, ale jakoś żadnych
konkretów nie znalazłem. Może ktoś już robił coś takiego? I podzieli się
wrażeniami, chodzi mi głównie o to co mam za odbiornikiem TSOP1736 i jak to
interpretować w procku. Program wolałbym sobie sam napisać, gdyż więcej
wtedy zrozumiem.
Zasij sobie Bascoma demo na 2k z AVT i tutaj masz kawałek programu w
bascomie
chodzi od razu.2K to kupa kodu możesz r.óżne żeczy wyczyniać:
'----------------------------------------------------------------------------
' RC5.BAS (c) 2000 MCS Electronics
' connect SFH506-36 IR-receiver to PORT 3.2 (INT0)
' choose the correct port from the Compiler I2C TAB. Int0 should have
P3.2 pin
' On other chips it may be another pin!
'----------------------------------------------------------------------------
Dim New As Bit
Dim Command As Byte , Subaddress As Byte ' tutaj masz kod komendy i
adres urządzenia
Reset Tcon.0 'triggered
by rising edge
On Int0 Receiverc5
Enable Int0
Enable Interrupts
Do
If New = 1 Then 'received
new code
Disable Int0
Print Command ; " " ; Subaddress
New = 0 'reset new
bit
Enable Int0
' a tutaj wpisz swoją część obslugi odebranego kodu
End If
Loop
Receiverc5: 'interrupt
routine
'the getrc5 routine uses 30 bytes ! of the stack for measuring
'the interval between the bits
Getrc5(Subaddress,command)
New = 1 'set flag
Return
--
Pozdr.
Janusz
PS. Uwaga z adresu usuń '.ANTY'