CNC Fórum

Kód: Vybrat vše

setfreq m32

start:
pwmout pwmdiv64, b.2,0,0        ;vypne motor
if pinc.3=0 then goto dolu      ;při stisknutí tlačítka T1 se provede odskok na smyčku chod dolů
goto start

dolu:                           ;smyčka pro chod dolů
if pinc.3=0 then dolu           ;pokud je stále stisknuto tlačítko T1 program se zacyklí a "čeká" na jeho uvolnění
high b.5                        ;nastaví směr otáčení motoru pro pohyb dolů
readadc c.0,b3                  ;načte rychlost otáčení z potenciometru
for b0= 150 to b3 step -1
let w2=b0*4 
pwmout pwmdiv64, b.2,b0,w2
pause 40 
if b0=b3 then pwmout pwmdiv64, b.2,b0,w2
endif
next
pokracuj:
if pinc.1=0 then goto nahoru      ;při najetí na spodní koncák K1 odskok na smyčku nahoru
if pinc.2=0 then goto start       ;při najetí na horní koncák K2 následuje odskok na začátek programu a tím jeho ukončení
if pinc.3=0 then goto pauza       ;při stisknutí tlačítka T1 se provede odskok na smyčku pauza
if pinc.4=0 then goto start       ;estop
goto pokracuj

nahoru:                           ;smyčka pro chod motoru nahoru
low b.5                           ;nastaví směr otáčení motoru pro pohyb nahoru
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 následuje odskok na začátek programu a tím jeho ukončení
if pinc.4=0 then goto start       ;estop
goto nahoru

pauza:           
pwmout pwmdiv64, b.2,0,0          ; zastavení posuvu motoru dolů
if pinc.3=0 then pauza            ;pokud je stále stisknuto tlačítko T1 program se zacyklí a "čeká" na jeho uvolnění
pauza1:
if pinc.3=1 then pauza1
pauza2:
if pinc.3=0 then nahoru           ;při opětovném stisknutí tlačítka T1 se provede odskok na smyčku pro posuv nahoru
goto pauza1

Kód: Vybrat vše

setfreq m32

start:
pwmout pwmdiv64, b.2,0,0     ;vypne motor
if pinc.3=0 then goto dolu    ;při stisknutí tlačítka T1 se provede odskok na smyčku chod dolů
goto start

dolu:                            ;smyčka pro chod dolů
if pinc.3=0 then dolu     ;pokud je stále stisknuto tlačítko T1 program se zaciklí a "čeká" na jeho uvolnění
high b.5                        ;nastaví směr otáčení motoru pro pohyb dolů
readadc c.0,b3              ;načte rychlost otáčení z potenciometru
for b0= 255 to b3 step -1
let w2=b0*4
pwmout pwmdiv64, b.2,b0,w2
pause 300
if pinc.1=0 then goto nahoru      ;při najetí na spodní koncák K1 odskok na smyčku nahoru
if pinc.3=0 then goto pauza  
next
dal:
if pinc.1=0 then goto nahoru      ;při najetí na spodní koncák K1 odskok na smyčku nahoru
if pinc.3=0 then goto pauza        ;při stisknutí tlačítka T1 se provede odskok na smyčku pauza
goto dal

nahoru:                     ;smyčka pro chod motoru nahoru
low b.5                     ;nastaví směr otáčení motoru pro pohyb nahoru
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 následuje odskok na začátek programu a tím jeho ukončení
goto nahoru

pauza:           
pwmout pwmdiv64, b.2,0,0       ; zastavení posuvu motoru dolů
if pinc.3=0 then pauza                ;pokud je stále stisknuto tlačítko T1 program se zaciklí a "čeká" na jeho uvolnění
pauza1:
if pinc.3=1 then pauza1
pauza2:
if pinc.3=0 then nahoru         ;při opětovném stisknutí tlačítka T1 se provede odskok na smyčku pro posuv nahoru
goto pauza1