找回密码
 立即注册

QQ登录

只需一步,快速开始

搜索
查看: 6044|回复: 0
打印 上一主题 下一主题
收起左侧

51单片机步进电机控制源程序

[复制链接]
跳转到指定楼层
楼主


单片机源程序如下:
  1. #include<reg52.h>
  2. sbit KEY0=P0^0;
  3. sbit KEY1=P0^1;
  4. sbit KEY2=P0^2;
  5. sbit KEY3=P0^3;
  6. sbit KEY4=P0^4;
  7. unsigned char a[]={0x01,0x02,0x04,0x08};
  8. unsigned char b[]={0x08,0x04,0x02,0x01};
  9. unsigned char c[]={0xc0,0xf9,0xa4,0xb0,0x99,0x92,0x82,0xf8}; //共阳数码管

  10. unsigned char i,s=0,f=0;
  11. unsigned char k=200;
  12. unsigned char l=4;

  13. void delay(unsigned int t)
  14. {
  15.         unsigned char j,b;
  16.         b=t;
  17.         while(b--)
  18.         {
  19.                 for (j=0;j<125;j++);
  20.         }
  21. }


  22. void key()
  23. {P0=0x1f;
  24.         if(P0!=0x1f)
  25.         {
  26.                 delay(30);
  27.                 if(P0!=0x1f)
  28.                 {delay(30);
  29.                 if(KEY0==0){s=1;}
  30.                 if(KEY1==0){f=1;}
  31.         if(KEY4==0){s=0;f=0;}
  32.             if(KEY2==0)
  33.                 {if(l>1)l--;}
  34.                 if(KEY3==0)
  35.                   {if(l<7)l++;}
  36.            }
  37.         }
  38. }


  39. void speed()
  40.          
  41.          {
  42.          switch(l)
  43.                         {   case 7:k=50;P1=c[l];break;
  44.                                 case 6:k=100;P1=c[l];break;
  45.                                 case 5:k=150;P1=c[l];break;
  46.                                 case 4:k=200;P1=c[l];break;
  47.                                 case 3:k=250;P1=c[l];break;
  48.                                 case 2:k=300;P1=c[l];break;
  49.                                 case 1:k=350;P1=c[l];break;
  50.                         }
  51.         }

  52. void main()
  53. {
  54.         while(1)
  55.    {
  56.         key();
  57.         while(s>0)
  58.           {speed();
  59.                         for(i=0;i<4;i++)
  60.                                 {
  61.                                         P2=b[i];
  62.                                         delay(k);
  63.                                         key();
  64.                                 }
  65.                                 delay(100);
  66.                                 key();
  67.           }
  68.          while(f>0)
  69.          {
  70.         speed();
  71.                         for(i=0;i<4;i++)
  72.                                 {
  73.                                         P2=a[i];
  74.                                         delay(k);
  75.                                         key();
  76.                                 }
  77.                                 delay(100);
  78.                                 key();               
  79.           }
  80.   }
  81. }
复制代码

所有资料51hei提供下载:
步进电机.zip (43.11 KB, 下载次数: 85)


分享到:  QQ好友和群QQ好友和群 QQ空间QQ空间 腾讯微博腾讯微博 腾讯朋友腾讯朋友
收藏收藏5 分享淘帖 顶 踩
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

手机版|小黑屋|51黑电子论坛 |51黑电子论坛6群 QQ 管理员QQ:125739409;技术交流QQ群281945664

Powered by 单片机教程网

快速回复 返回顶部 返回列表