Kód: Vybrat vše
setfreq m32
start:
readadc10 c.0,w0 ;načtení hodnot z potenciometru a uložené do proměnné w0 0-1023
pause w0
toggle b.2 ; změna stavu na výstupu b.2
goto start
Kód: Vybrat vše
setfreq m32
start:
readadc10 c.0,w0 ;načtení hodnot z potenciometru a uložené do proměnné w0 0-1023
pause w0
toggle b.2 ; změna stavu na výstupu b.2
goto start
Kód: Vybrat vše
setfreq m32
start:
pwmout pwmdiv64, b.2,0,0
for b0= 255 to 11 step -1 ;zrychlení 11 je max rychlost podle použitého motoru
let w2=b0*2
pwmout pwmdiv64, b.2,b0,w2
pause 50 ;nastavení rychlosti zrychlování
next
pause 10000 ;doba trvání maximální rychlost
;zpomalení
for b0= b0 to 255
let w2=b0*2
pwmout pwmdiv64, b.2,b0,w2
if b0=255 then pwmout pwmdiv64, b.2,0,0 end if
pause 50 ;nastavení rychlosti zpomalování
next
pause 10000
goto start
Kód: Vybrat vše
setfreq m4
start:
;pause 100
readadc c.0,b0
if b0<127 then vpred
if b0>129 then vzad
pwmout pwmdiv16, b.2, 0, 0
goto start
vpred:
high b.5
let b1=b0*2
pwmout pwmdiv16,b.2,b0,b1
goto start
vzad:
low b.5
let b0=255-b0
let b1=b0*2
pwmout pwmdiv16,b.2,b0,b1
goto start
Kód: Vybrat vše
setfreq m32
start:
readadc b.4,b0
let w2=b0*4
pwmout pwmdiv64, b.2,b0,w2
goto start
No tak to balím a strkám hluboko do šuplíku .jova píše:Já? Ten musíš vymyslet ty
Tak ještě než to zbalíš, zkus tenhle program.expertdb píše: No tak to balím a strkám hluboko do šuplíku .
Kód: Vybrat vše
setfreq m32
start:
pwmout pwmdiv64, b.2,0,0 ;vypne motor
if pinc.3=0 then goto dolu ;tlačítko T1
goto start
dolu: ;smyčka pro chod dolů
high b.5 ;nastaví směr otáčení motoru
readadc c.0,b0 ;načte rychlost otáčení z potenciometru
let w2=b0*4
pwmout pwmdiv64, b.2,b0,w2
if pinc.1=0 then goto nahoru ;při najetí na spodní koncák K1 odskok na další smyčku
goto dolu
nahoru: ;smyčka pro chod nahoru
low b.5 ;nastaví směr otáčení motoru
readadc c.0,b0 ;načte rychlost otáčení z potenciometru
let w2=b0*4
pwmout pwmdiv64, b.2,b0,w2
if pinc.2=0 then goto start ;při najetí na horní koncák K2 odskok na začátek programu
goto nahoru