www.elektronik.si

[protoncek]

Je, je...

en primer:
If K = 4 Or K = 5 Or K = 6 Then
Locate 4 , 1
itd...

[klemen88]

[protoncek]

Ja, vem...AND ali OR je itak podobno, torej so tudi ukazi enaki. Jaz sem samo prilepil primer.

[linel]

to zdaj dela... zdaj me še pa zanima kako bu naredil podmeni..
npr. v prvi vrstici bi hodil med različnimi besedilami, temperatura - vlažnost - ventilator.... to mi sicer dela, nevem pa kako bi potem prišel v podmeni da bi se ob pritisku na tipko potrditev še zraven v drugi v drugi vrstici pojavilo nekaj takšega seveda na lcd 2x16 :


<ventilator>
*vklop izklop

za glavni meni imam eno spremenljivko in glede na vrednost te spremenljivke se izpisujejo besedila.. to dela.. neven pa kako bi naredil za pod meni, kaj svetujete? in seveda npr ob pritisku tipke nazaj bi skočil v glavni meni, besedilo v drugi vrstici se izbriše. kako ste vi kaj izvedli menuje?

[robika]

Bascom pozna "and" in "or". Uporabi in prevedi, pa boš videl, da ne se ne bo pritožil, pa tudi upošteval bo. Res pa v helpu ni nikjer omenjeno.

[Collat3ral]

Da ne bom nove teme odpiru, bom kr semle napisal.

Torej zanima me, kako v Bascom AVR dobim čas, kako dolgo je bil kontakt na vhodu.

Torej če stisnem gumb in ga držim X sekund, kako dobim tist X v programu, da ga uporabljam za ostale funkcije.

LP

[fluffy111]

Vklopiš timer, šteješ kolikokrat prešteje do konca, izračunaš v kakšem času pride do konca in zadevo izpišeš. Teoretično.

V praksi bi bilo malo drugače. Recimo:

enable intterupts
enable timer0
config timer0=timer,prescale=1
on timer0 pritinsnjena_tipka

dim stevec as byte
dim cas as long
stevec=0
do
loop
pritisnjena_tipka:
if tipka=1 then incr stevec
if tipka=0 then
*
'tukaj napišeš ukaz ki ga želiš izvršiti
stevec=0
end if


*Preračun časa je odvisen od vrednosti oscilatorja. Če imaš 4MHz quartz kristal, čas, ki ga porabi program da prešteje en cikel, dobiš po formuli 1/4'000'000. Če imaš večji quartz pa vpišeš ustrezno večjo cifro. Ko izračunaš to (mislim da pride nekje 0,00025s), potem to pomnožiš z številko, ki jo imas pod števcem. Mislim da zapišeš tako:
cas=0,00025x(število v števcu)
Ko si to rešil, si dobil čas v katerem si držal tipko.
Lahko pa pri prescale vpišeš večjo cifro. Npr. 1024. Če narediš to, ti šteje le vsak 1024-i signal in se cikel posledično podalša in števec potrebuje več časa, da prešteje do konca. Namesto timer0 lahko tudi uporabiš timer1, ki je 16 bitni, med tem ko je timer0 8 bitni.

Saj si želel to?

[Collat3ral]

Torej dejansko vsakič ko bo šel program čez zanko, bo povečal vrednost števca. Pol pa sam glede na vrednost oscilatorja dobiš koliko časa potrebuje program, da gre čez zanko. In iz tega dobiš čas.
Mislim prav?

LP

[fluffy111]

Da. Dobiš kolikokrat je šel čez zanko in to pomnožiš s časom, ki ga potrebuje za eno zanko.

Lp

[fluffy111]

Aja. Pozabil sem. Dodaj še:

Do
if tipka=1 then
start timer0
else
stop timer0
reset timer0
end if

Za to bi prosil nekoga, da popravi če je potrebno, ker nisem prepričan ali je možno tako.

Lp

[LEDuser]

Trenutno se mučim in iščem kako se izpiše binarno vrednost na LCD. Težava je taka, ko preberem vrednost na neki napravi preko SPI in to vrednost izpišem na LCD, mi izpiše decimalno jaz pa bi rad binarno. Kdo ve kako to storiti?

[rudiP]

Lcd bin(XX(2))

če pa ne gre tako
pa:

a = XX(2)

lcd bin(a)

[LEDuser]

Hvala sedaj deluje!

Ko sem poizkusil mi izpiše vrednost 123 in 01111011 kar je pravilno me pa malo čudi zakaj napiše 48 (v drugi vrstici) če v kodo vstavim drugo spremenljivko B = Bin(A) in v drugi vrstici izpišem samo B?

[rudiP]

Ne vem zakaj si deklariral b=bin(a)?
b=a

[kotnikd3]

Pozdravljeni!
Učim se bascom osnove, pa me zanima, kako preverim če program dejansko deluje.
V simulatorju se mi ne prižge nobena ledica oz. lučka.
V programu naj bi ledica na portu utripala:

$regfile = "attiny26.dat"
$crystal = 4000000

Config Porta = Output

Do
Set Porta.0
Wait 1
Reset Porta.0
Wait 1
Loop