www.elektronik.si

[vilko]

[Pobesneli]

Ker mi program nadzoruje tudi touchscreen, ne bi rad uporabljal wait, ker potem ne morem nič klikat po njemu.

Verjetno sem si tudi kaj narobe predstavljal oziroma razlagal iz bascom publikacije.

Osnovna ideja je narediti termometer, ki bi preveril temperaturo vsakih 5 sekund, vmes pa bi delovale rutine za touchscreen.

Moram povedati da se na primerih učim, torej širim svoje znanje od prižiganja ledic naprej....

[mucek]

Če imaš timerje še neuporabljene (očitno ja ), potem je zadeva v osnovi preprosta. Timer interrupt pomeni, da ti v ozadju teče neka ura in vsakič, ko števec preseže neko vrednost, program skoči v preddefiniran podprogram.

V tvojem primeru bi moral narediti naslednje:
- Zdefiniraš timer, npr. na 1 s
- V podprogram, ki se bo nato izvedel vsako sekundo daš izpisovanje na LCD (in tega umakneš iz glavnega programa).

Tako bo, ne glede na izvajanje glavnega programa, vsako sekundo procesor skočil v podprogram in osvežil izpis na LCDju.
PAZI: to se ti lahko zgodi npr. tudi medtem, ko se ti računa temperatura in boš dobil lahko neko čudno vrednost (če računaš samo z eno spremenljivko).

Lp, g

[protoncek]

glede utripanja besedila -ali pred vsakim novim pisanjem uporabljaš ukaz CLS? Če ja je to vzrok...

[tiger]

Pozdravljen

Napisal sem en program, ki vsako sekundo prišteje stevec za 1, vpiše vrednost na LCD in prižiga in ugaša LEDico.
Upam, da boš razumel program, če ne, vprašaj.

LP


$regfile = "m162def.dat" ' specify the used micro
$crystal = 7372800 ' oscilator in Hz
'$crystal = 8000000
$hwstack = 42 ' default use 42 for the hardware stack
$swstack = 40 ' default use 40 for the SW stack
$framesize = 40 ' default use 40 for the frame space

Config Lcdpin = Pin , Db4 = Porta.0 , Db5 = Porta.1 , Db6 = Porta.2 , Db7 = Porta.3 , E = Porta.4 , Rs = Porta.5
Config Lcd = 20 * 4 '20 x 4 LCD display

Config Timer1 = Timer , Prescale = 1024

Led Alias Portc.0 'Led
Config Pinc.0 = Output

Cls
Lcd "Timer 1"

Dim Stevec As Byte
Dim Prehod As Bit
'/////////////////////////////////////////////////////////////////////
On Ovf1 Prek1
Enable Ovf1
Enable Interrupts
Timer1 = &HE3E0
Stevec = 0
'///////////////////////////////////////////////////////////////////////
Do
If Prehod = 1 Then 'če je prehod setiran vpiši vrednost spremenljivke stevec na LCD
Locate 2 , 1
Lcd "stevec=" ; Stevec ; " "
Reset Prehod
End If
Loop
'///////////////////////////////////////////////////////////////////////////
Prek1:
Timer1 = &HE3E0 'reload timer1
Incr Stevec
Toggle Led 'prižigaj in ugašaj LED
Set Prehod 'setiraj prehod
Return

[zmazek]

Zdravo

Tudi jaz sem se odločil, da bi začel malo programirati avr- je. Imam atmega16 ter programatorsko ploščo na kateri je displej in pa matrična tipkovnica 3*3. Naredil bi rad elektronsko ključavnico. Ampak ustavilo se mi je skoraj pri začetku. Za tipke sem se naučil kako naredit, da jih pravilno prebere.

Za začetek bi vas prosil če mi lahko kdo pove kako se naredi, da ti program shrani nekam številke, ki si jih prej s tipkami vtipkal, ko pa pritisneš drugo tipko se ti to zaporedje, ki si ga ti vpisal izpiše.

[vilko]

[zmazek]

Zdravo

Hvala vinko za nasvet in pa za spletno stran, ki je zelo zanimiva. Če pa še vedno ne bom razumel ali pa bom imel še kakšno vprašanje se bom pa spet oglasil.

Lep pozdrav

[zmazek]

zdravo

Vinko jaz sem tisto, kar si dal gledal samo mi ni še čisto jasno. Bi se ti dalo napisati program. Imel bi tri tipke prva tipka bi bila 1 druga 2 tretja pa izpis tipke. Ko bi pritisnil ketero koli tipko se pravi 1 ali 2 bi se to nekam shranilo in ko bi pritisnil tretjo tipko bi ti izpisalo na zadnje pritinjeno tipko.

Lep pozdrav

[rudiP]

zmazek !

Član foruma kateri ti je odgovoril je VILKO in ne vinko. Če ima rad vino pa ne vem.
Lahko bi si popravil kraj !

[protoncek]

Če ti bo nekdo drug napisal program se ne boš nikoli naučil. V Bascomu je za vsak ukaz v HELP meniju natančna razlaga, na netu je tudi dovolj razlag, tako da malce pobrskaj in bo. Le če boš razumel, bo to nekaj vredno in trajno.

[zmazek]

zdravo

Se opravičujem, ker sem se za tipkal.

lep dan še naprej.