 |
www.elektronik.si Forum o elektrotehniki in računalništvu
|
Poglej prejšnjo temo :: Poglej naslednjo temo |
Avtor |
Sporočilo |
MaLi-X Član


Pridružen-a: Pet 04 Feb 2005 10:34 Prispevkov: 56 Aktiv.: 0.24
|
Objavljeno: Pet Feb 04, 2005 10:39 am Naslov sporočila: Bascom AVR in serijske prekinitve |
|
|
Za Bascom-om 8051 se veliko delal z serijskimi prekinitvami in Atmeli 2051
Sedaj pa sem si nabavil razvojno okolje za AVR-je pa mi tale serijska prekinitev ne gre in ne gre od rok.
Potreboval bi takšen program, ki bi v DO LOOP zanki nekaj delal.
Ko pa dobim nekaj preko serijskega RS232 porta na čip pa skoči program v neko prekinitveno rutino in samo sprejem to kar je dobil, in se vrne nazaj v DO LOOP zanko.
Za prekinitveno rutino more biti podprogram, ker bom še ta sprejem nekako obdelal in ga pol v DO LOOP zanki upošteval…
Mi lahko kdo napiše to v 5-tih vrsticah kako more biti skonfigurirana ta serijska prekinitev
Ker meni ne dela NIČ
Ima pa AVR 8535
Hvala, |
|
Nazaj na vrh |
|
 |
smatjaz Član


Pridružen-a: Pon 10 Nov 2003 16:33 Prispevkov: 850 Aktiv.: 3.58
|
Objavljeno: Pet Feb 04, 2005 4:48 pm Naslov sporočila: |
|
|
Tudi jaz imam podobne težave. Z Bascom-om 8051 sem to reševal s SCON registrom. Na simulatorju mi je zadeva delovala tako, kot sem želel. Ko pa sem zadevo prestavil v realno okolje pa nisem in nisem mogel rešiti tega s prekinitvijo. Zadeva je delovala samo z uporabo SCON registra.
Pri AVR-jih SCON registra ni. Sta pa tu dva registra, ki upravljata s serijskim portom. Mislim, da sta to :
ter registra UCSRA in UCSRB.
Moram pa priznati, da se tudi jaz mučim s tem.
LP Matjaž |
|
Nazaj na vrh |
|
 |
MaLi-X Član


Pridružen-a: Pet 04 Feb 2005 10:34 Prispevkov: 56 Aktiv.: 0.24
|
Objavljeno: Pet Feb 04, 2005 5:26 pm Naslov sporočila: To je to |
|
|
To je to dela zagotovo
Za Bascom 8051
------------------------------------
Koda: |
$baud = 2400
$crystal = 11059200
Enable Interrupts
Enable Serial
On Serial S_prekinitev
Do
wait 1 'nekaj dela
Loop
S_prekinitev:
Scon.1 = 0
sprejem = Inkey
Return
|
---------------------------------------
ZA AVR
---------------------------------------
Koda: |
Dim Name As String * 10 , I As Bit
Enable Urxc
On Urxc Recive
Enable Interrupts
Config Pinb.0 = Output
I = 1
Print "Start"
Do
Portb.0 = Not Portb.0 'UTRIPA
If I = 0 Then 'NA STRING JE SPREJET
I = 1 : Print Name
End If
Wait 1
Loop
End
Recive:
Input Name
I = 0
Return
|
|
|
Nazaj na vrh |
|
 |
|
|
Ne, ne moreš dodajati novih tem v tem forumu Ne, ne moreš odgovarjati na teme v tem forumu Ne, ne moreš urejati svojih prispevkov v tem forumu Ne, ne moreš brisati svojih prispevkov v tem forumu Ne ne moreš glasovati v anketi v tem forumu Ne, ne moreš pripeti datotek v tem forumu Ne, ne moreš povleči datotek v tem forumu
|
Uptime: 9 dni
Powered by phpBB © 2001, 2005 phpBB Group
|