Timer v Bascomu

[denny_ul]

Funkce timer a counter jsou pro mě španělská vesnice, nějak jsem z helpů nepochopil jak to funguje.

potřeboval bych za pomoci timeru aby se "cas" zvýšil o 1 každých 0,1s

Kód: Vybrat vše

do
***?????***
cas = cas + 1
if cas = 1 or cas = 2 or cas = 5 or cas = 7 then
set led
else
reset led
end if
if cas = 10 then
cas = 0
end if
loop

co jsem pochopil z helpů, tak by se to asi řešilo tím, že by ten timer po 0,1s přetekl, ale nevím jak to udělat

poradí někdo co bude místo ***?????***

[nekmil]

zde si stáhni nějaké příklady, je to česky a je tam toho víc než jen čítače časovače.
A jelikož mám dobrou náladu tak tady jsou nějaké moje "experimenty"

[Ruprecht]

Nejdřív konfigurace:

Kód: Vybrat vše

CONFIG TIMER0 = TIMER , PRESCALE= 1|8|64|256|1024

např. pokud budeš mít 8MHz hlavní hodiny (xtal nebo vnitřní RC), prescale=8 vyrobí hodiny pro timer0 8MHz/8=1MHz.

Timer si s každým svým clockem (po vydělení prescalerem) přičte jedničku, přeteče když napočítá své maximum (Timer0 je 8bitový, tedy když doáhne 255). Pokud budeš mít povolena přerušení (a přerušení pro timer0), při přetečení timer0 vyvolá přerušení a skočí na zvolený label

Kód: Vybrat vše

ON timer0 co_se_ma_provest_pri_preruseni

Někam mimo hlavní smyčku dáš label

Kód: Vybrat vše

co_se_ma_provest_pri_preruseni:
  incr cas
return

Pokud by byl prescaler = 1024 a hlavní hodiny 1MHz, clocky pro timer budou mít frekvenci asi 976Hz. Když do timeru0 (osmibitový, počítá do 255) nahraju hodnotu třeba 100, počítá od 100 nahoru, tedy 100,101,102...255, takže do přetečení "udělá" svých 155 tiků a pak se skočí na "co_se_ma_provest_pri_preruseni". V tomto případě se tedy bude vyvolávat přerušení každých 1 000 000/1024/155=6,3Hz.
Pokud potřebuješ 0,1s (tedy 10Hz), timer musí napočítat 1 000 000/1024/10=97 tiků. Tedy 255-97=158, kteroužto hodnotu musíš při každém přerušení nastavit do timeru.

Takže někam nahoru:

Kód: Vybrat vše

CONFIG TIMER0 = TIMER , PRESCALE= 1024
enable interrupts
enable timer0
ON timer0 co_se_ma_provest_pri_preruseni

a dolů pod smyčku:

Kód: Vybrat vše

co_se_ma_provest_pri_preruseni:
  timer0 = 158
  incr cas
return

Při 8MHz krystalu s timerem0 nejde přímo udělat 10Hz (8000000/1024/255=30Hz je maximum), buď můžeš použít timer1 (16bit, pokud je v procesoru) nebo zpomalit krystal, nebo třeba přičítat v přerušení jedničku a v hlavní smyčce reagovat na každé třetí přerušení atd.

[frpr666]

Přejdi z Bascomu na C. Má to mj. jednu velikou výhodu. Program si můžeš odladit na mohutnějším MCU (Arduino) a jakmile bude šlapat na 100% tak jej překompiluješ např. na attiny13 nebo tiny24.

[denny_ul]

Díky všem a hlavně Ruprechtovi za radu, tak nějak jsem to potřeboval vysvětlit.

Na "C" se mi přecházet nechce, musel bych se učit vše od začátku, Bascom mi vzdáleně připomíná Basic v kterém jsem se učil programovat před cca. 25 léty

[Ruprecht]

Mě taky víc sedí Basic než jakýkoli závorkově orientovaný jazyk

Přejdi z Bascomu na C. Má to mj. jednu velikou výhodu. Program si můžeš odladit na mohutnějším MCU (Arduino) a jakmile bude šlapat na 100% tak jej překompiluješ např. na attiny13 nebo tiny24.

Úplně tu výhodu "Céčka" nevidím, v Bascomu to překompiluju pro jiný procesor změnou jednoho řádku, např.

Kód: Vybrat vše

$regfile = "attiny2313.dat" namísto 
$regfile = "m8adef.dat")

Problém nastane při chybějícím HW, třeba tiny13 nemá timer1, takže mi 100% funkční program na M8 nebude fungovat na tiny13, pokud ho napíšu s použitím timeru1... Nebo se mi ani nevejde do paměti tiny13

[scorpions-cz]

Taky jsem začínal na IQ 151 a proto dnes taky programuju v BASCOMu

[denny_ul]

I já se poprvé dostal k počítači v době, kdy nic jiného než IQ-151 (pak PMD85 a ZX spectrum) nebylo a člověk byl rád alespoň za ten Basic.

Teď dělám více letecké modelářství než elektroniku a občas po mě někdo něco chce na modely, tak jsem začal své konstrukce řešit na atmelech a ten Bascom mi docela vyhovuje a hlavně, že se může člověk obrátit někam, jako třeba sem, kde mu někdo zkušenější poradí.

[mtajovsky]

Mě taky víc sedí Basic než jakýkoli závorkově orientovaný jazyk

Co máte pořád s tím závorkovým jazykem? C++ je zkrátka přísně typově a blokově orientovaný a závoky určují co k sobě patří. Jedna z výrazných vlastností C/C++ je ta, že všude, kde se může vyskytovat proměnná, může se také vyskytovat libovolný výraz, který se vyhodnocuje do typu té proměnné. Takže jsou umožněny i komplexní konstrukce, kde se bez závorek neobejdeme. Nikde není řečeno, že v C nejde psát jednoduše.

[rnbw]

Presne tak. Zatvorkovy jazyk je LISP
A kto ma problem s kuceravymi zatvorkami {}, nech si namiesto nich predstavi slova "begin" a "end".