控制步进电机正反转的实际应用程序

hasky · 发表于 2016-8-15 11:43

EDA365欢迎您登录！

您需要登录才可以下载或查看，没有帐号？注册

x

控制步进电机正反转的实际应用程序
/*这是一个控制步进电机正反转的实际应用程序*/
/*选用的是三相步进电机驱动器,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;
p14=0;
   call time(1);
p14=1;
   call time(1);
  end;
end run;

DISPLAY

ROCEDURE(L0,L10); /*显示子程序*/
DECLARE (L0,L10) BYTE; /*定义显示二位*/
n=L10;
  n=aco(n);          /*十位数BCD码译成段码*/
  sbuf=n;          /*十位数送164显示*/
  do while ti=0;    /*等待发送结束*/
   call dog;       /*看门狗定时器复位*/
  end;
n=L0;
n=aco(n);
sbuf=n;          /*个位数送164显示*/
do while ti=0;
call dog;
end;
end display;
outbyt:  procedure(da);    /*向看门狗存储器写入一字节*/
declare (i,da) byte;
j=da;                /*将要写入的字节赋给临时变量J */
do i=0 to 7;       /*左移8位，送到口线si */
sck=0;
j=scl(j,1);
si=cy;
sck=1;          /*每移一位数据，跟一个时钟信号*/
end;
end outbyt;

inbyt:  procedure; /* 从看门狗存储器读出一字节 */
declare (i,di) byte;
j=0;
do i=0 to 7;
sck=1;
sck=0;
cy=so;
j=scl(j,1);  /*从看门狗存储器读出一字节送入临时变量j*/
end;
dat=j;
end inbyt;

wrenable: procedure; /* 置看门狗写使能*/
sck=0;
cs=0;
;  /* write enable command */
call outbyt(06h); /* x25045 写使能指令06h */
cs=1;
sck=0;
end wrenable;

wrdisable: procedure;  /* 置看门狗写禁止 */
sck=0;
cs=0;
; /* write disable command */
call outbyt(04h);
sck=0;
cs=1;
end wrdisable;

wrregister: procedure; /* 写状态寄存器 */
sck=0;
cs=0;
dat=01h;    /* write register command */
call outbyt(dat);
;    /* 00h--1.4S, 20h--200MS, 10h--600MS, 30h--disable Wdog */
call outbyt(00h); /* 设定看门狗定时时间 */
;
sck=0;
cs=1;
call time(200); /* wait to complete writting cycle */
end wrregister;

rdregister:procedure;  /*  读看门狗状态寄存器 */
sck=0;
cs=0;
; /* register read command */
call outbyt(05h);
call inbyt; /* status register read in <DAT> */
sck=0;
cs=1;
end rdregister;

wbyte:procedure; /*  看门狗存储器字节写入子程序 */
  declare comm byte;
  sck=0;
  cs=0;
  comm=02h;  /*  写指令 02h */
  call outbyt(comm);
  call outbyt(addrl);
  call outbyt(dat);  /*  send one byte data to X25043 */
  cs=1;
  sck=0;
  call time(150);
end wbyte;

rbyte:procedure;  /*看门狗存储器字节读出子程序  */
  declare comm byte;
  sck=0;
  cs=0;
  comm=03h;    /* read command */
  call outbyt(comm);
  call outbyt(addrl);
  call inbyt; /* read one byte to <DAT>  */
  sck=0;
  cs=1;
end rbyte;

incdata: procedure;       /* 参数修改--"加"键处理子程序+ */
if p10=0 then       /* 如果K7键按下*/
do;
do while p10=0;    /* 等待键松开有效 */
  call dog;          /* 此处必需调用看门狗复位子程序（"喂狗"），否则程序将被看门狗复位*/
end;
data=data+1;       /* 设定值+1 */
if data>99 then data=1;  /* 规定设定值的上限*/
L(1)=data MOD 10;    /*将设定值的十位数拆出来送给十位数显示变量L(1) */
L(2)=data/10;          /*将设定值的个位数拆出来送给个位数显示变量L(2) */
call display(L(1),L(2)); /* 将改变后的设定值送164显示出来*/
call time(200);       /* 延时 */
call dog;
call time(200);
call dog;
call wrenable;          /* 置存储器写使能 */
addrl=00h;             /* 置存储器地址 */
dat=l(1);
call wbyte;             /* 将变量L(1)的值写入存储器00h位置 */
call wrenable;
addrl=01h;
dat=l(2);
call wbyte;             /* 将变量L(2)的值写入存储器01h位置 */
   end;
end incdata;
decdata: PROCEDURE;       /* 参数修改---"减"键处理子程序- */
IF p11=0 THEN       /* k8 键处理子程序 */
   do;
do while p11=0;
call dog;
end;
DATA=DATA-1;          /* 设定值-1 */
if data=0 then data=99;
L(1)=data MOD 10;
L(2)=data/10;
call display(l(1),l(2));
call dog;
call time(200);
call dog;
call time(200);
call dog;
call wrenable;
addrl=00h;
dat=l(1);
call wbyte;
call wrenable;
addrl=01h;
dat=l(2);
call wbyte;
end;
END decdata;

hasky · 发表于 2016-8-15 11:43

duzy · 发表于 2016-8-15 15:55

谢谢分享,必须赞一个～

abcde1234 · 发表于 2019-1-23 15:27

不错，谢谢分享

帐号		自动登录	找回密码
密码			注册

控制步进电机正反转的实际应用程序

EDA365欢迎您登录！

浏览过的版块

推荐内容 /1