forum.mcontrollers.com - hlavní stránka forum.mcontrollers.com - fórum

 

.: fórum - hlavní stránka :.
Technology Stronghold by Rudolf Vesely
How to build Microsoft System Center hosted cloud series
FAQFAQ HledatHledat Seznam uživatelůSeznam uživatelů Uživatelské skupinyUživatelské skupiny RegistraceRegistrace
ProfilProfil StatistikaStatistika Soukromé zprávySoukromé zprávy PřihlášeníPřihlášení

 
BASCOM: Přerušení přetečením Timer0 začne fungovat při Int0

 
Přidat nové téma   Zaslat odpověď    Obsah fóra mcontrollers.com -> AVR
 
Kolbaba71
Profesionál
Profesionál


Založen: 28.10.2011
Příspěvky: 260
Bydliště: Praha
PříspěvekZaslal: 11 prosinec 2011, 9:45    Předmět: BASCOM: Přerušení přetečením Timer0 začne fungovat při Int0 Citovat
Zkusil jsem udělat jednoduchý program v bascomu, jenž využívá přerušení. Problém je v tom, že první část (kontrolní zablikání ledkami) proběhne, ale vlastní přerušení nefunguje. Díky přerušení by měl program vyskočit každých 3,5sekundy z hlavní smyčky a 3x bliknout červenou led na portu B.2. Přitom by neustále měla téměř neustále blikat zelená led dioda na portu B1. To se však neděje.

Napadají mě tyto příčiny:
a) Špatné definování a spuštění časovače
b) Špatný dělící poměr v podmínce v podprogramu
Podprogram musí být navštíven 27500x aby se vykompenzovalo přerušení, jenž je 7812,5x za sekundu

Sám si myslím, že by to takto mělo fugovat, avšak evidentně to tak není, jelikož to takto nedělá.

kód:

' Preuseni

$regfile = "m48def.dat"
$crystal = 8000000

Dim A As Byte
Dim B As Integer


Config Portb = Output
Config Timer0 = Timer , Prescale = 1024
On Ovf0 Prerus
Enable Timer0

Enable Interrupts
Start Timer0

B = 0

Portb.1 = 1                                                 ' Zelena led
Portb.2 = 1                                                 ' Cervena led


For A = 1 To 5                                              ' Zablikej Ledkami
   Portb.1 = 0
   Portb.2 = 1
      Waitms 300
   Portb.1 = 1
   Portb.2 = 0
      Waitms 300
Next

Portb.1 = 1
Portb.2 = 1

Do                                                          ' Hlavni cyklus
   Portb.1 = 0                                              ' Blikni zelenu led
      Waitms 150
   Portb.1 = 0
      Waitms 300                                            ' Konec hlavniho cyklu
Loop

' Podprogram

Prerus:                                                     ' Podprogram vzkonavany pri preruseni
                                                            ' Zvys B o jednu
   Incr B                                                   ' Pokud uplynuko cca 3.5 sek blikni cervenou led
                                                            ' 8000000/1024 = 7812.5Hz
                                                            ' Kmitocet zakladni / preddelicka               
                                                           ' = vysledny pocet preruseni za sekundu
                                                            ' 27500 / 7812.5 = 3.52 sek
      If B > 27500 Then
         For A = 1 To 3
         Portb.2 = 0
            Waitms 100
          Portb.2 = 1
            Waitms 300
         Next
      Else
         B = 0
   End If
Return


P.S. Doufám, že tento kód na přímé zveřejnění není ještě příliš dlouhý.

Arrow administrator: přejmenováno z "Přerušení nějak funguje, ač to mám špatně napsané"
_________________
Google ví skoro vše. Ale někdy je problém co tam napsat, aby to našlo to, co hledám.
Pokud se to nepovede, vypadne tuna nepoužitelných odkazů a nebo taky nic.

Naposledy upravil Kolbaba71 dne 11 prosinec 2011, 15:27, celkově upraveno 5 krát.
Návrat nahoru
Zobrazit informace o autorovi Odeslat soukromou zprávu Zobrazit autorovy WWW stránky
 

 
Kolbaba71
Profesionál
Profesionál


Založen: 28.10.2011
Příspěvky: 260
Bydliště: Praha
PříspěvekZaslal: 11 prosinec 2011, 9:56    Předmět: Citovat
kód:
     If B > 27500 Then
         For A = 1 To 3
         Portb.2 = 0
            Waitms 100
          Portb.2 = 1
            Waitms 300
         Next
      Else
         B = 0
   End If
Return


Tak jsem zjistil, že příkaz else je tam naprosto navíc a tak jsem ho smazal. Bohužel teď po proběhnutí kontrolního blikání na úvod svítí trvale červená dioda (portb.2) a zelená nereaguje.

Upravený kód podprogramu nyní vypadá takto:
kód:
     If B > 27500 Then
         For A = 1 To 3
         Portb.2 = 0
            Waitms 100
          Portb.2 = 1
            Waitms 300
         Next
      B = 0
   End If
Return


P.S. Překladač chybu nikde nehlásí. Z tohoto důvodu jsem přesvědčen, že se jedná o chybu spíše logickou, než chybu v příkazu.
_________________
Google ví skoro vše. Ale někdy je problém co tam napsat, aby to našlo to, co hledám.
Pokud se to nepovede, vypadne tuna nepoužitelných odkazů a nebo taky nic.
Návrat nahoru
Zobrazit informace o autorovi Odeslat soukromou zprávu Zobrazit autorovy WWW stránky
 

 
Kolbaba71
Profesionál
Profesionál


Založen: 28.10.2011
Příspěvky: 260
Bydliště: Praha
PříspěvekZaslal: 11 prosinec 2011, 10:19    Předmět: Citovat
Tak jsem to vyřešil. Opět jsem si naběhnul na nesprávný příklad v knize od BENu.

Začátek programu má být:

kód:
' Preuseni

$regfile = "m48def.dat"
$crystal = 8000000
Enable Interrupts
Enable Int0

Dim A As Byte
Dim B As Integer

Config Portb = Output
Config Timer0 = Timer , Prescale = 1024
On Int0 Prerus

_________________
Google ví skoro vše. Ale někdy je problém co tam napsat, aby to našlo to, co hledám.
Pokud se to nepovede, vypadne tuna nepoužitelných odkazů a nebo taky nic.
Návrat nahoru
Zobrazit informace o autorovi Odeslat soukromou zprávu Zobrazit autorovy WWW stránky
 

 
AB
Profesionál
Profesionál


Založen: 24.2.2010
Příspěvky: 423
PříspěvekZaslal: 11 prosinec 2011, 12:21    Předmět: Citovat
citace:
Tak jsem to vyřešil.
Nechápu co jsi vyřešil tím, že místo přerušení od přetečení čítače0 použiješ externí přerušení.
Podívej se do helpu ENABLE jaké jsou názvy přerušení.
Pro přetečení timer0 můžeš použít OVF0,TIMER0, COUNTER0.

Tvůj původní kód má tyto chyby:
kód:
Do                                                          ' Hlavni cyklus
   Portb.1 = 0                                              ' Blikni zelenu led
      Waitms 150
   Portb.1 = 0
      Waitms 300                                            ' Konec hlavniho cyklu
Loop

S tímto ledka blikat nebude.

kód:
If B > 27500 Then

To odpovídá intervalu asi 900 vteřin, ne 3,5.
Zkus hodnotu 100.

Edit:
A samozřejmě vynechat ELSE v obsluze přerušení.
Návrat nahoru
Zobrazit informace o autorovi Odeslat soukromou zprávu
 

 
Kolbaba71
Profesionál
Profesionál


Založen: 28.10.2011
Příspěvky: 260
Bydliště: Praha
PříspěvekZaslal: 11 prosinec 2011, 15:25    Předmět: Citovat
Přerušení jsem se pokusil použít poprvé a tak to podle toho vypadá. Sad

citace:
Nechápu co jsi vyřešil tím, že místo přerušení od přetečení čítače0 použiješ externí přerušení.

Když jsem zkoušel použít přetečení (viz původní kód), tak se nic nedělo. Proto jsem zkusil kód z příkladu z manuálu k bascomu a to fungovalo. Když se člověk zadívá, tak asi ne úplně správně. Spíš to tak na první pohled vypadá. I když, pokud je to externí přerušení, tak nevím, podle čeho funguje. Nejspíš díky neošetřenému pinu, kde se cosi indukuje.

citace:
S tímto ledka blikat nebude.

Aha, chyba se vloudila. Tak proto prvni zelena led sviti. Ale ta druhá (červená, ovládaná přerušením) kupodivu bliká.

citace:
To odpovídá intervalu asi 900 vteřin, ne 3,5.
Zkus hodnotu 100.

Aha já sice spočítal, že 8MHz/1024 je 7812.5, ale zapoměl jsem to vydělit 256.
_________________
Google ví skoro vše. Ale někdy je problém co tam napsat, aby to našlo to, co hledám.
Pokud se to nepovede, vypadne tuna nepoužitelných odkazů a nebo taky nic.
Návrat nahoru
Zobrazit informace o autorovi Odeslat soukromou zprávu Zobrazit autorovy WWW stránky
 

 
AB
Profesionál
Profesionál


Založen: 24.2.2010
Příspěvky: 423
PříspěvekZaslal: 12 prosinec 2011, 9:02    Předmět: Citovat
Vnější přerušení INT0 je vyvoláno hranou nebo nízkou úrovní na pinu INT0 (PD2).
Způsob spuštění se nastavuje příkazem CONFIG INT0.

Nezapojený vstupní pin bez pull-up má vysokou vstupní impedanci takže je velmi citlivý na rušení.
Projeví se to tak, že neustále náhodně mění stav.
Proto, pokud za tohoto stavu povolíš přerušení INT0, bude spouštěno neustále jedno za druhým.
Návrat nahoru
Zobrazit informace o autorovi Odeslat soukromou zprávu
 

 
Kolbaba71
Profesionál
Profesionál


Založen: 28.10.2011
Příspěvky: 260
Bydliště: Praha
PříspěvekZaslal: 13 prosinec 2011, 0:37    Předmět: Citovat
Tak jsem trochu poupravil časy původního programu, ale stále se to chová jinak, než bych chtěl. Na začátku má zablikat nastřídačku zelená led na portu B1 nastřídačku s červenou led na portu B.2 Poté má blikat zelená led a zhruba 1x za 3,5sekundy by měla 3x bliknout červená led. První fáze proběhne, ale pak bliká jen zelená led a červená led, jíž by mělo ovládat přerušení jen svítí. A vůbec nevím proč.

kód:
             ' Preuseni

$regfile = "m48def.dat"
$crystal = 8000000

Dim A As Byte
Dim B As Integer


Config Portb = Output
Config Timer0 = Timer , Prescale = 1024
On Ovf0 Prerus
Enable Timer0

Enable Interrupts
Start Timer0

B = 0

Portb.1 = 1                                                 ' Zelena led
Portb.2 = 1                                                 ' Cervena led


For A = 1 To 10                                             ' Zablikej Ledkami
   Portb.1 = 0
   Portb.2 = 1
      Waitms 15
   Portb.1 = 1
   Portb.2 = 0
      Waitms 15
Next

Portb.1 = 1
Portb.2 = 1

Do                                                          ' Hlavni cyklus
   Portb.1 = 0                                              ' Blikni zelenu led
      Waitms 20
   Portb.1 = 1
      Waitms 20                                             ' Konec hlavniho cyklu
Loop

' Podprogram

Prerus:                                                     ' Podprogram vzkonavany pri preruseni
                                                            ' Zvys B o jednu
   Incr B                                                   ' Pokud uplynuko cca 3.5 sek blikni cervenou led
                                                            ' 8000000/1024 = 7812.5Hz
                                                            ' Kmitocet zakladni / preddelicka
                                                           ' = vysledny pocet preruseni za sekundu
                                                            ' 27500 / 7812.5 = 3.52 sek
      If B > 50 Then
         For A = 1 To 3
         Portb.2 = 0
            Waitms 20
          Portb.2 = 1
            Waitms 30
         Next
      Else
         B = 0
   End If
Return

_________________
Google ví skoro vše. Ale někdy je problém co tam napsat, aby to našlo to, co hledám.
Pokud se to nepovede, vypadne tuna nepoužitelných odkazů a nebo taky nic.
Návrat nahoru
Zobrazit informace o autorovi Odeslat soukromou zprávu Zobrazit autorovy WWW stránky
 

 
AB
Profesionál
Profesionál


Založen: 24.2.2010
Příspěvky: 423
PříspěvekZaslal: 13 prosinec 2011, 7:28    Předmět: Citovat
citace:
A vůbec nevím proč.
Protože proměnná "B" v přerušení nebude nikdy větší než 50.

Měl bys laborovat trochu systematičtěji.
Tuto chybu už jsi jednou odstranil a teď je tam znovu.
Návrat nahoru
Zobrazit informace o autorovi Odeslat soukromou zprávu
 

 
Kolbaba71
Profesionál
Profesionál


Založen: 28.10.2011
Příspěvky: 260
Bydliště: Praha
PříspěvekZaslal: 13 prosinec 2011, 11:58    Předmět: Citovat
Je pravda, že jsem snížil čas na 1/2, takže místo 1x za 3,5sek by mělo blikání červené led proběhnout 2x. Celý cyklus blikání trvá 150ms a to by i při čase pro přerušení 612,5ms nemělo vadit. Nebo se pletu? Čemu vadí, že b bude maximálně 50? Kromě toho, že čas bude poloviční, než u hodnoty 100?

Asi si sedím na vedení, jelikož nevím, co jsem měl špatně, opravil jsem to na správně a pak zas opravil na špatně.
_________________
Google ví skoro vše. Ale někdy je problém co tam napsat, aby to našlo to, co hledám.
Pokud se to nepovede, vypadne tuna nepoužitelných odkazů a nebo taky nic.
Návrat nahoru
Zobrazit informace o autorovi Odeslat soukromou zprávu Zobrazit autorovy WWW stránky
 

 
AB
Profesionál
Profesionál


Založen: 24.2.2010
Příspěvky: 423
PříspěvekZaslal: 13 prosinec 2011, 20:18    Předmět: Citovat
citace:
Čemu vadí, že b bude maximálně 50?

Máš v kódu napsáno, že když B je větší než 50 tak ledka zabliká.
Tudíž když B bude maximálně 50, tak ledka nezabliká nikdy.
Ostatně v tvém kódu dokonce B nebude nikdy větší než 1.
Návrat nahoru
Zobrazit informace o autorovi Odeslat soukromou zprávu
 

 
AB
Profesionál
Profesionál


Založen: 24.2.2010
Příspěvky: 423
PříspěvekZaslal: 13 prosinec 2011, 20:53    Předmět: Citovat
Ještě polopatické vysvětlení, jestli pomůže

kód:
Prerus:                                                     ' Podprogram vzkonavany pri preruseni
   Incr B                                                                                       

      If B > 50 Then          'jestliže B je větší než 50, proveď smyčku "for-next" (tj. zablikej ledkou)
           For A = 1 To 3
              Portb.2 = 0
              Waitms 20
              Portb.2 = 1
              Waitms 30
           Next

     Else                      'jinak (tj. jestliže B není větší než 50)
         B = 0                 'vynuluj B (a smyčku for-next samozřejmě vynech)
   End If
Return
Návrat nahoru
Zobrazit informace o autorovi Odeslat soukromou zprávu
 

 
Kolbaba71
Profesionál
Profesionál


Založen: 28.10.2011
Příspěvky: 260
Bydliště: Praha
PříspěvekZaslal: 13 prosinec 2011, 22:53    Předmět: Citovat
Už to vidím. Zas jsem tam nacpal to else. Díky za trpělivost.
_________________
Google ví skoro vše. Ale někdy je problém co tam napsat, aby to našlo to, co hledám.
Pokud se to nepovede, vypadne tuna nepoužitelných odkazů a nebo taky nic.
Návrat nahoru
Zobrazit informace o autorovi Odeslat soukromou zprávu Zobrazit autorovy WWW stránky
 

Zobrazit příspěvky z předchozích:   
Zobrazit předchozí téma :: Zobrazit následující téma  
Přidat nové téma   Zaslat odpověď    Obsah fóra mcontrollers.com -> AVR Časy uváděny v GMT + 2 hodiny
 
Forum Info
Strana 1 z 1
Přejdi na:  
Můžete přidat nové téma do tohoto fóra.
Můžete odpovídat na témata v tomto fóru.
Nemůžete upravovat své příspěvky v tomto fóru.
Nemůžete mazat své příspěvky v tomto fóru.
Nemůžete hlasovat v tomto fóru.
Můžete k příspěvkům připojovat soubory
Můžete stahovat a prohlížet přiložené soubory
 



Num Lock Holder - app to hold Numlock
Copyright © 2019 Rudolf Veselý, mcontrollers.com.
Je zakázáno používat části tohoto webu bez souhlasu autora. || Powered by phpBB © 2001, 2002 phpBB Group - with RedSquare DoubleJ(Jan Jaap)