步进电机驱动程序c语言

《步进电机驱动程序c语言》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、/***************************************************************************************;步进电机驱动程序;步进电机型号：70BC340-D,步距角1.5/3*********************************************************************************************/#include#defineucharunsignedc

2、har#defineuintunsignedint#defineulongunsignedlongsbitdj_a=P1^0;sbitdj_b=P1^1;sbitdj_c=P1^2;sbitgd_s=P3^3;sbitkey_s=P3^4;sbitkey_j=P3^5;sbitdog=P3^0;ucharbdataflg;sbits_bit=flg^0;sbitj_bit=flg^1;uchardatabzjs=0;//计时单元uchardatadqdjbz=0;//当前电机步骤uchardatadjzt=0;

3、//电机状态01==升10==降00==保uchardatadqdjabc=0x06;uchardatakey=0x30;//键值//定时单元uchardatash=0;uchardatasl=0;//脉冲宽度ucharcodes_sj=5;//升时每拍时间为5毫秒ucharcodej_sj=7;//降时每拍时间为7毫秒//电机步骤代码ucharcodedj[6]={0x06,0x04,0x05,0x01,0x03,0x02};//========================================

4、===========voiddelay10ms(void){uchari,j;for(i=0;i<12;i++){for(j=0;j<200;j++){dog=~dog;}}}voidtimer0()interrupt1{TH0=sh;//TL0=sl;if(s_bit){bzjs++;if(bzjs>(s_sj-1)){bzjs=0;dqdjbz++;if(dqdjbz>5){dqdjbz=0;}djzt=0x01;dqdjabc=dj[dqdjbz];}}if(j_bit){bzjs++;if(bzjs>

5、(j_sj-1)){bzjs=0;if(dqdjbz>0){dqdjbz--;}else{dqdjbz=5;}djzt=0x10;dqdjabc=dj[dqdjbz];}}if((s_bit==0)&&(j_bit==0)){bzjs=0;if(djzt==0x01){switch(dqdjbz){case1:dqdjbz=2;break;case3:dqdjbz=4;break;case5:dqdjbz=0;break;}}if(djzt==0x10){switch(dqdjbz){case1:dqdjbz=

6、0;break;case3:dqdjbz=2;break;case5:dqdjbz=4;break;}}djzt=0;dqdjabc=dj[dqdjbz];djzt=0x00;}P1=dqdjabc;}voidmain(void){P1=0xff;P3=0xff;TMOD=0x11;TH0=0xfc;TL0=0x73;TR0=1;ET0=1;dqdjbz=0x00;P1=0x06;dqdjabc=0x06;flg=0;EA=1;while(1){key=P3&0x30;if(key!=0){delay10ms(

7、);key=P3&0x30;//key=0x20;}switch(key){case0x20:s_bit=1;j_bit=0;break;case0x10:j_bit=1;s_bit=0;break;case0x30:s_bit=0;j_bit=0;break;}if(gd_s){sh=0xfc;//1毫秒sl=0x7b;}else{sh=0xf8;//2毫秒sl=0xe0;}}}