Kazalo po Svet elektronike forumu Svet elektronike
Revija za prave elektronike
 
AlbumAlbum   Pomoč pogostih vprašanjPomoč pogostih vprašanj   IščiIšči   Seznam članovSeznam članov   Skupine uporabnikovSkupine uporabnikov   Registriraj seRegistriraj se 
 Tvoj profilTvoj profil   Prijava za pregled zasebnih sporočilPrijava za pregled zasebnih sporočil   PrijavaPrijava 

AVR v Bascom

 
Objavi novo temo   Odgovori na to temo    Kazalo po Svet elektronike forumu -> Za začetnike
Poglej prejšnjo temo :: Poglej naslednjo temo  
Avtor Sporočilo
marko11
Profesionalec


Pridružen/-a: Ned Jan 2004 18:00
Prispevkov: 112
Kraj: Ponikve

PrispevekObjavljeno: Čet Nov 01, 2007 6:28 pm    Naslov sporočila: AVR v Bascom Odgovori s citatom

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
Poglej uporabnikov profil Pošlji zasebno sporočilo Pošlji E-sporočilo
marko11
Profesionalec


Pridružen/-a: Ned Jan 2004 18:00
Prispevkov: 112
Kraj: Ponikve

PrispevekObjavljeno: Pon Nov 05, 2007 6:46 pm    Naslov sporočila: Odgovori s citatom

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
Poglej uporabnikov profil Pošlji zasebno sporočilo Pošlji E-sporočilo
Jure
Urednik


Pridružen/-a: Pon Jan 2004 12:51
Prispevkov: 2132
Kraj: Ljubljana

PrispevekObjavljeno: Pon Nov 05, 2007 7:20 pm    Naslov sporočila: Odgovori s citatom

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
Poglej uporabnikov profil Pošlji zasebno sporočilo Obišči avtorjevo spletno stran
Pokaži sporočila:   
Objavi novo temo   Odgovori na to temo    Kazalo po Svet elektronike forumu -> Za začetnike Časovni pas GMT + 1 ura, srednjeevropski - zimski čas
Stran 1 od 1

 
Pojdi na:  
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