标题: 发个我用了很久的单片机PWM调节程序,0-9共10档调节。 [打印本页]
作者: 3760609865    时间: 2017-6-20 21:42
标题: 发个我用了很久的单片机PWM调节程序,0-9共10档调节。
是基于51单片机制作的，此pwm程序注释的很多，特别适合新手学习。本程序使用定时实现定时，使用开关语句实现档位调节。上电时档位0，停止时档位0，最大可加至档位9。 PWM-十档增减.rar (54.38 KB, 下载次数: 63)
仿真是新弄的Proteus 8 的文件。


单片机源程序如下:
  1. /*直流输出的脉宽调整，0-9共
  2. 10档9为最大输出，0-9的变
  3. 化规律为最小-最大，用两键实现增和减。
  4. 朱旭东  
  5. 2011年11月4日 使用STC15F104E时，无显示, 而且只有P3口 */

  7. #include <reg52.h>
  8. sbit KEY2 = P3^2;
  9. sbit KEY1 = P3^3;
  10. sbit KEY3 = P3^4;
  11. sbit PWM =P3^5;
  12. sbit PWM1 = P3^1;
  13. unsigned char CYCLE; //定义周期 如果是10 则周期是10 x 定时时间
  14. unsigned char PWM_ON ;//定义高电平时间
  15. void delay(unsigned int cnt)
  16. {
  17. while(--cnt);
  18. }

  20. main()
  21. {
  22. unsigned char PWM_Num=0;//定义档位

  24. P0=0x3f;
  25. P3=0xff;//因为104E上电时P3.3为低电平
  26. TMOD |=0x01;//定时器设置 1ms in 12M crystal
  27. TH0=(65536-1000)/256;
  28. TL0=(65536-1000)%256;//定时1mS

  30. IE= 0x82;  //打开中断
  31. TR0=1;

  33. CYCLE = 20;// 时间可以调整 这个是20步调整 周期20ms 如果闪烁可减小定时或周期
  34. while(1)
  35.   {
  36. if(!KEY1)//加
  37.   {
  38.    delay(60000);//104延时, 使用51时需要60000/12
  39.    if(!KEY1)
  40.      {
  41.       while(!KEY1);//松手检查
  42.       PWM_Num++;
  43.           if(PWM_Num==10)PWM_Num=9;
  44.        switch(PWM_Num){
  45.        case 0:P0=0x3f;PWM_ON=0;break;//高电平时长
  46.        case 1:P0=0x06;PWM_ON=2;break;
  47.        case 2:P0=0x5b;PWM_ON=4;break;
  48.        case 3:P0=0x4f;PWM_ON=6;break;
  49.        case 4:P0=0x66;PWM_ON=8;break;
  50.        case 5:P0=0x6d;PWM_ON=10;break;
  51.        case 6:P0=0x7d;PWM_ON=12;break;
  52.        case 7:P0=0x07;PWM_ON=16;break;
  53.        case 8:P0=0x7f;PWM_ON=18;break;
  54.        case 9:P0=0x6f;PWM_ON=20;break;
  55.        default:break;
  56.      }
  57.    }
  58.   }

  60. if(!KEY2)//减
  61.   {
  62.    delay(60000);//104延时, 使用51时需要60000/12
  63.    if(!KEY2)
  64.      {
  65.       while(!KEY2);//松手检查
  66.       PWM_Num--;
  67.           if(PWM_Num==-1)PWM_Num=0;
  68.        switch(PWM_Num){
  69.        case 0:P0=0x3f;PWM_ON=0;break;//高电平时长
  70.        case 1:P0=0x06;PWM_ON=2;break;
  71.        case 2:P0=0x5b;PWM_ON=4;break;
  72.        case 3:P0=0x4f;PWM_ON=6;break;
  73.        case 4:P0=0x66;PWM_ON=8;break;
  74.        case 5:P0=0x6d;PWM_ON=10;break;
  75.        case 6:P0=0x7d;PWM_ON=12;break;
  76.        case 7:P0=0x07;PWM_ON=16;break;
  77.        case 8:P0=0x7f;PWM_ON=18;break;
  78.        case 9:P0=0x6f;PWM_ON=20;break;
  79.        default:break;
  80.      }
  81.    }
  82.   }

  84.   if(!KEY3)  //停止
  85.   {
  86.    delay(60000);//104延时, 使用51时需要60000/12
  87.    if(!KEY3)
  88.      {
  89.       while(!KEY3);//松手检查
  90.       PWM_ON=0;
  91.       PWM_Num=0;
  92.       P0=0x3f;
  93.      }
  94.      }

  96. }
  97. }


  100. /********************************/
  101. /*      定时中断                */
  102. /********************************/
  103. void tim(void) interrupt 1 using 1
  104. {
  105. unsigned char count; //
  106. TH0=(65536-1000)/256;
  107. TL0=(65536-1000)%256;//定时1mS

  109. if (count==PWM_ON)//达到所设高电平次数
  110. ……………………

  112. …………限于本文篇幅 余下代码请从51黑下载附件…………
复制代码



作者: jxdianqi    时间: 2017-6-21 21:30
刚好想搞pwm，下载参考一下，谢谢
作者: zhao1524    时间: 2017-6-28 22:37
jxdianqi 发表于 2017-6-21 21:30
刚好想搞pwm，下载参考一下，谢谢

谢谢，好东西
作者: sundaykiller    时间: 2018-1-8 16:56
Proteus 8的原理图没有给出啊
作者: Xanthus    时间: 2018-1-13 16:56
MAKR 刚好想找相关的资料



欢迎光临 (http://www.51hei.com/bbs/) Powered by Discuz! X3.1