控制步進電機正反轉的實際應用程序:/*這是一個控制步進電機正反轉的實際應用程序*/ /*選用的是三相步進電機驅動器,p14口線用做步進電機的脈沖控制*/ /*p13口線用做步進電機的方向控制。p15,p16,p17是光耦開關量輸入*/ /*信號端，p20,p21,p22,p23與x25045看門狗存儲器相連*/ /*k7,k8鍵是設定步進電機轉動速度參數的加減鍵*/ /*k9是啟動運行鍵，按一下k9，步進電機開始運行，直到p17口線有信號輸入才停止*/ /*k10是停止鍵，任何時候按下k10都將停止步進電機當前的運行*/ /*k11是步進運行鍵，按一下，步進電機動一下*/ /*k12鍵是反向運行鍵，按一下，步進電機開始反向運行，知道p15口線有信號才停止*/ /*如果p16口線有信號輸入，則只有k12鍵才起作用，其它鍵都沒反應。*/ START:do; $INCLUDE(REG51.DCL) DECLARE (addrl,n,I,j,ok,ds) byte; /*定義變量*/ declare l(5) byte; declare (dat,data) byte at (30h); declare delay word; DECLARE ACO(11) BYTE CONSTANT (05h,9fh,23h,0bh,99h,49h,/*定義LED段碼表*/ 41h,1fh,01h,09h,00h); declare si literally 'p21',sck literally 'p20'; /*X25045囗線定義*/ declare so literally 'p22',cs literally 'p23'; dog:procedure; /* 初始化看門狗x25045 */ cs=1; call time(1); cs=0; call time(1); cs=1; end dog;
run:procedure; /*步進電機運行脈沖輸出程序*/ if ok=1 then call dog; do;