|
Svet elektronike Revija za prave elektronike
|
|
Poglej prejšnjo temo :: Poglej naslednjo temo |
Avtor |
Sporočilo |
marko11 Profesionalec
Pridružen/-a: Ned Jan 2004 18:00 Prispevkov: 112 Kraj: Ponikve
|
Objavljeno: Čet Nov 01, 2007 6:28 pm Naslov sporočila: AVR v Bascom |
|
|
Pozdravljeni
Imam en program napisan za AVR za enkoder, pa sem ga prevedel v Bascom.
Zanima me, če sem to pravilno napravil in še nekaj ukazov mi ni jasno,
na levi je pisano za AVR na desni strani pa v Bascom
Koda: |
'Program pisan za AVR 'Program pisan za BASCOM
$regfile = "2313def.dat" 'AT89c2051
$crystal = 4000000 '$crystal =1200000
Config Pind.6 = Output 'LED Alias P1.1
Config Int0 = Falling
Config Int1 = Falling
Dim Wtime As Byte 'Dim Wtime As Byte
Dim Encounter As Integer 'Dim Encounter As Integer
Const Debouncetime = 5 'Const Debouncetime = 5
On Int0 Encoder_a 'On Int0 EncoderA
On Int1 Encoder_b 'On Int1 EncoderB
Cls 'CLS
Wtime = 100 'Wtime = 100
Encounter = 0 'Encounter = 0
Enable Interrupts 'Enable Interrupts
Enable Int0 'Enable Int0
Enable Int1 'Enable Int1
Do 'Do
Set Portd.6 'Set LED
Waitms Wtime 'Waitms Wtime
Upperline 'Upperline
Lcd "encounter: " ; Encounter ; " " 'Lcd "encounter: " ; Encounter ; " "
Reset Portd.6 'Reset LED
Waitms Wtime 'Waitms Wtime
Loop 'Loop
Encoder_a: 'EncoderA:
Waitms Debouncetime 'Waitms Debouncetime
Incr Encounter 'Incr Encounter
Gifr = 64
Return 'Return
Encoder_b: 'EncoderB:
Waitms Debouncetime 'Waitms Debouncetime
Decr Encounter 'Decr Encounter
Gifr = 128
Return 'Return
End 'End
|
Ne vem kaj pomeni in kako napisati v Bascom:
Koda: | Config Int0 = Falling
Gifr = 64
Gifr = 128
|
LP,marko _________________ Kdor visoko leta, daleč vidi. |
|
Nazaj na vrh |
|
|
marko11 Profesionalec
Pridružen/-a: Ned Jan 2004 18:00 Prispevkov: 112 Kraj: Ponikve
|
Objavljeno: Pon Nov 05, 2007 6:46 pm Naslov sporočila: |
|
|
Bom še enkrat vprašal:
spodaj je koda napisana v AVR jaz pa potrebujem ta del napisati v Bascom in kaj je ekvivalent teh ukazov v Bascom:
Koda: | Config Int0 = Falling
Gifr = 64
Gifr = 128
|
LP,marko _________________ Kdor visoko leta, daleč vidi. |
|
Nazaj na vrh |
|
|
Jure Urednik
Pridružen/-a: Pon Jan 2004 12:51 Prispevkov: 2132 Kraj: Ljubljana
|
Objavljeno: Pon Nov 05, 2007 7:20 pm Naslov sporočila: |
|
|
marko11 je napisal/a: |
Koda: | Config Int0 = Falling
Gifr = 64
Gifr = 128
|
|
Marko,
nisem preizkusil, ampak takole naj bi bilo:
SET TCON.0 '(Falling edge generates interrupt for INT0)
Gifr je očitno vezan na 90S2313 - torej bi bilo potrebno pogledat v data sheet od 90S2313, kaj pomenijo te nastavitve.
Lp
Jure |
|
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 You cannot attach files in this forum You cannot download files in this forum
|
Powered by phpBB © 2001, 2005 phpBB Group
|