www.elektronik.si

[vilko]

Prišel sem do problema, ki bi ga najlepše rešil z infrardečim daljinskim upravljalnikom.
Predstavljam si, da v trgovini kupim nek daljinec, izdelam sprejemnik oziroma kupim čip, ki je že sprejemnik in mi daje direktno ttl signale, ki jih bo razvozljaval od mene programirani mikrokrmilnik in željeni ukaz izvršil. Pa sem začel malo guglat na to temo. In o joj! Koliko različnih protokolov:

ITT Protocol
JVC Protocol
NEC Protocol
Nokia NRC17
Sharp Protocol
Sony SIRC
Philips RC-5
Philips RC-6
Philips RC-MM
Philips RECS80
RCA Protocol
X-Sat

Do sedaj se nisem ubadal s tem, sedaj pa bi rad, če že moram, zaoral tja, kjer je najbolj mehko, izbral najbolj preprost in popularen protokol, morda celo našel kak že izdelan projekt, kjer bi lahko bistveno prekopiral.

Med vami vas je gotovo precej tudi s temi izkušnjami, in prosim, da mi jih posredujete.

Prisrčna hvala
VS

[vilko]

Ha!

Sem našel v Bascom Sample library primer in bascom avr ima celo makro ukaz
GETRC5( address, command )
Ki naredi vse, kar potrebujem.

Hvala, in brez zamere, ker sem brez potrebe se obračal na forum.

[eddie]

Pa le sporoči s katerim senzorjem si naredil in kako si zadovoljen z delovanjem, saj tudi sam že dolgo časa odlašam en projekt ki je v podobni smeri.
Lep pozdrav

[klemen88]

[digital]

Bascom HELP je help v pravem pomenu besede. Noben Microsoftov help mu ne seže do kolen.

[vilko]

[program_er]

Saj ni važno, kateri senzor imaš, glavno, da je način delovanja enak.

Če pa se ustavi na stavku in tam čaka, pa bo najbolje sprobati, (recimo daš za njim stavek Portx.y=1:Waitms 200:Portx.y=0 in potem gledaš, če LEDica na Portx.y utripa ali ne, ko nič ne pritisneš)

[Waldo]

[lado]

vilko jaz sem pred leti naredil takole:

Rc5volume.bas
' connect SFH506-36 IR-receiver to PORT 3.2 (INT0)
'
' lado zeleznik 02 2005
'----------------------------------------------------------------------------

$crystal = 14318180

Config Rc5 = P3.2

Dim New As Bit
Dim A As Byte
Dim Command As Byte , Address As Byte




P1.0 = 1 'motor levo
P1.1 = 1 'motor desno
P1.2 = 0 'ledica
P1.3 = 1 'Impulz Vklop
P1.4 = 1 'impuly izklop






Reset Tcon.0
On Int0 Receiverc5
Enable Int0
Enable Interrupts

Do

If New = 1 Then 'received new code
Disable Int0

New = 0 'reset new bit

End If
If Address = 7 Then Goto Glasnost 'ugotavljanje ce je
If Address = 39 Then Goto Glasnost
'prava adresa

Enable Int0
Loop

Receiverc5: 'interrupt routine


Getrc5(address , Command)


New = 1

Return



Glasnost:
P1.2 = 1 'valid signal
Waitms 15 'prizge malo ledico
P1.2 = 0
If Command = 16 Then Goto Volup
If Command = 17 Then Goto Voldwn
If Command = 12 Then Goto Vklop
If Command = 11 Then Goto Izklop
Return

Volup:
P1.1 = 0
Waitms 50
P1.1 = 1
Return

Voldwn:
P1.0 = 0
Waitms 50
P1.0 = 1
Return

Vklop:
P1.3 = 0
Wait 1
P1.3 = 1
Return

Izklop:
P1.4 = 0
Wait 1
P1.4 = 1
Return


Je eden mojih projektov z bascom-om (še 8051)
Vzel sem en philipsov daljinec,katerega sem predelal tako da sem neko prosto nogico vezal na maso in je bila potem naprava pač neka druga številka...

V kodo sem dodal še lcd comand.device ..in videl če dobivam pravilno......nato sem te vrednosti vpisal v program....

Največ sivih las pa sem dobil ker nisem vedel da moram uporabiti kristal take vrednosti kot se uporabljajo pri serijski komunikaciji da se baud rate izide...notranje deljenje...no v tem si ti bistveno boljši tako da boš to zmazal za šalo...

[klemen88]

[lojzek]

Vilko, v eni od zadnjih številk SE je bil opis in uporaba nekaterih protokolov.

[.]

Brisana vsebina odstranjenega uporabnika.