www.elektronik.si

marko11 · Objavljeno: Tor Dec 21, 2004 5:06 pm Naslov sporočila: Waitms 10 - 3000 ?

Pozdrav

Z Baskom bi rad napisal pavzo, ki bi jo nastavil s Tipko T1, ta pavza naj bi bila 10-3000 mili sekund. Kako to napisati, ker v Waitms lahko vpises samo do 255.

LP,marko

vilko · Objavljeno: Tor Dec 21, 2004 5:25 pm Naslov sporočila: Morda tako:

Morda tako:

marko11 · Objavljeno: Tor Dec 21, 2004 5:33 pm Naslov sporočila:

Vilko, ni mi to vse jasno ali lahko malo Pokomentiras stavke!
Hvala

marko11 · Objavljeno: Tor Dec 21, 2004 8:04 pm Naslov sporočila:

Ali je se kaksna druga varianta za zgornje vprasanje? od Vilkota je ne razumem.

LP,marko

vilko · Objavljeno: Sre Dec 22, 2004 9:13 am Naslov sporočila: Hm,

Razlaga:

V do - loop zanki gremo v waitms za 255 ms in pri vsakem prehodu zanke zmanjšamo spremenljivki čas za 255 milisekund. Ko tako pridemo do časa, ki je manjši od 256 ms gremo v zanki v drugi del if ukaza, kjer gremo v wait še za toliko milisekund kot je ostalo od zadnjega odštevanja in z exit ukazom zapustimo zanko.

vilko

bom napisal še malo drugače:

robertos

[quote="vilko"]bom napisal še malo drugače:.....itd.

Vilko to je vse lepo in prav, ampak mu še vedno nisi odgovoril na konkretno zastavljeno vprašanje.
Kako s tipko nastavljati čas od 10-3000ms ?
Verjetno je vprašanje za Bascom 8051 in ne za Bascom Avr, ker namreč v slednjem ni omejitve na 255ms, pa tudi možno je uporabit ukaz Wait 0.5, kar pomeni pol sekunde, ali Wait 1 kar je ena sekunda, oziroma v zgornjem primeru
3000ms je enako Wait 3 (3 sekunde). Ne vem pa kako je z Wait ukazom v Basc. 8051. Trenutno nimam časa, da bi poskusil napisati program...

RGorazd · Objavljeno: Sre Dec 22, 2004 7:20 pm Naslov sporočila:

Živjo!
dim cas as word

tipka alias px.x

skok:
do
debounce tipka,0,povecaj ' preverjas stanje tipke, če je pritisnjena potem povecaj
loop

povecaj:
cas = cas+10 'inkrementiraš vrednost čas za 10ms
if cas > 3000 then 'če je čas večji od 3000ms
cas=0 'resetira vrednost
end if
goto skok: ' skoči nazaj na začetek

LP Gorazd

marko11 · Objavljeno: Sre Dec 22, 2004 8:12 pm Naslov sporočila:

Vilko, najlepsa hvala. Zadevo sem spravil v moj program in deluje super.
Hvala.

LP,marko

G-Lab · Objavljeno: Sre Dec 22, 2004 9:13 pm Naslov sporočila:

Robertos: utdi v Bascom 8051 delije ukaz
wait 0.5 počaka pol sekunde ali
wait 3 počaka 3 sekunde

LP
Rok

vilko · Objavljeno: Čet Dec 23, 2004 9:08 am Naslov sporočila: Ne.

Ne, ne moreš reči
wait 0.5 in s tem pričakovati, da bo čakal pol sekunde.
Bascom v ta namen uporablja spremenljivko veliko en bajt in noter daš lahko samo cela števila med 0 in 255.
Seveda pa lahko ukažeš
wait 3 in bo počakal 3 sekunde.

Bascom v ta namen izdela zakasnitveno zanko, ki si jo izračuna na osnovi frekvence kristala, ki mu jo poveš z
$crystal = 12000000
ukazom za 12 Mhz kristal. če mu tega ne poveš,. potem privzame neko vrednost, ki je definirana nekje med Compiler Options.