设为首页收藏本站
开启辅助访问 切换到宽版

 找回密码
 立即注册

QQ登录

只需一步，快速开始

热门： 51单片机 | 24小时必答区 | 单片机教程 | 单片机DIY制作 | STM32 | Cortex M3 | 模数电子 | 电子DIY制作 | 音响/功放 | 拆机乐园 | Arduino | 嵌入式OS | 程序设计

搜索
»论坛 › 嵌入式/单片机论坛 › 单片机DIY制作 › 单片机按键调节电热丝功率大小 已做出实物和程序
返回列表 发新帖
查看: 9102|回复: 8
打印 上一主题 下一主题
收起左侧

单片机按键调节电热丝功率大小 已做出实物和程序

  [复制链接]
跳转到指定楼层
楼主
ID:37147 发表于 2017-5-31 10:12 | 只看该作者 |只看大图 回帖奖励 |倒序浏览 |阅读模式
这是一个取暖功能，风扇是起给外壳降温作用的，还用了一个电子式倾倒开关，一旦倾倒，立即关闭取暖功能，起保护作用，以免发生火灾，并且在倾倒后，风扇继续延时散热，给外壳降温，我这里为了迅速看到效果，延时时间设置10S，经测试，良好，没有发现程序控制错乱问题，如果大家有发现，告知哈，一起学习~~

实物图：


电路原理图如下：


单片机源程序如下:
  1. #include <STC15F2K60S2.H>
  2. #define uchar unsigned char
  3. #define uint unsigned int
  4. sbit led1=P1^0;
  5. sbit led2=P3^7;
  6. sbit pwm=P1^1;
  7. sbit wind=P3^6;
  8. sbit k1=P5^5;
  9. sbit sw=P1^2;//倾倒开关
  10. uchar num=0,num2=0,scale=0;
  11. uint a=0,t=0,t1=0;
  12. bit flag1=0,flag2=0,flag3=0;
  13. bit flag4=0,flag5=1;
  14. void delay(uint xms)
  15. {
  16.         uint i,j;
  17.         for(i=xms;i>0;i--)
  18.                 for(j=110;j>0;j--);
  19. }

  21. void cloud()
  22. {
  23.         if(flag3==1)
  24.         {
  25.                 num2++;
  26.                 if(num2==200)
  27.                 {
  28.                         num2=0;
  29.                         a++;
  30.                         if(a==500)         //50一秒，500就是10秒
  31.                         {
  32.                                 TR0=0;               
  33.                                 a=0;
  34.                                 wind=0;
  35.                                 flag1=0;
  36.                                 flag2=0;       
  37.                         }
  38.                 }
  39.         }
  40. }

  42. void keyscan()
  43. {
  44.         if(flag4==0)
  45.                 {
  46.                 if(flag2==0)
  47.                         {       
  48.                                 if(flag1==0)
  49.                                         {
  50.                                                 if(k1==0)                //一档
  51.                                                 delay(10);
  52.                                                 if(k1==0)
  53.                                                 {
  54.                                                         while(!k1);        //松手检测
  55.                                                         EX0=1;                //开外部中断
  56.                                                         wind=1;                //开风扇
  57.                                                         scale=10;        //赋初值
  58.                                                         led1=0;                //点亮LED1
  59.                                                         led2=1;                //关闭LED2
  60.                                                         flag1=1;        //置1
  61.                                                         flag3=0;        //清零
  62.                                                 }
  63.                                         }
  64.                                 if(flag1==1)
  65.                                         {
  66.                                                 if(k1==0)                //二档
  67.                                                 delay(10);
  68.                                                 if(k1==0)
  69.                                                 {
  70.                                                         while(!k1);
  71.                                                         EX0=1;                //
  72.                                                         scale=60;
  73.                                                         led1=1;
  74.                                                         led2=0;
  75.                                                         flag1=0;
  76.                                                         flag2=1;
  77.                                                         flag3=0;
  78.                                                 }                                                                                               
  79.                                         }
  80.                          }
  81.                 if(flag2==1)
  82.                         {
  83.                                         if(k1==0)                   //三档
  84.                                         delay(10);
  85.                                         if(k1==0)
  86.                                         {
  87.                                                 while(!k1);
  88.                                                 EX0=0;                   //关外部中断
  89.                                                 led1=1;                   //关2个LED指示灯
  90.                                                 led2=1;
  91.                                                 num2=0;                   //清零
  92.                                                 a=0;
  93.                                                 flag2=0;           //
  94.                                                 flag3=1;           //调用风扇延时函数。
  95.                                         }               
  96.                         }
  97.                 }
  98.        
  99.                 if(sw==1)          //判断倾倒
  100.                 delay(10);
  101.                 if(sw==1)
  102.                         {
  103.                                 flag4=1; //一旦倾倒，调用倾倒程序
  104.                         }       
  105.                
  106.                 if(sw==0)         //倾倒复位
  107.                 delay(10);
  108.                 if(sw==0)
  109.                         {
  110.                                 flag4=0; //清零，不调用倾倒程序。
  111.                                 t=0;
  112.                         }               
  113. }

  115. void main()
  116. {
  117.         P3M0=0x40;
  118.         P3M1=0x00;
  119.         TMOD=0x01;
  120.         TH0=0xff;//定时0.1ms
  121.         TL0=0x9c;         
  122.         EA=1;
  123.         ET0=1;
  124.         IT0=0;//必须设外部中断触发方式为上升沿下降沿同时触发。STC最新15系列单片机外部中断INT0口有上下沿同时触发功能       
  125.         led1=1;
  126.         led2=1;
  127.         pwm=1;
  128.         wind=0;
  129.         k1=1;
  130.         while(1)
  131.         {
  132.                 keyscan();        //按键扫描程序                               
  133.         }
  134. }

  136. void ex0() interrupt 0
  137. {
  138.         IE0=0;
  139.         num=0;
  140.         TR0=1;          //交流过零点的时候，清楚标志、计数变量并启动定时器。
  141. }

  143. void t0() interrupt 1
  144. {
  145.         unsigned char i;
  146.         TH0=0xff;
  147.         TL0=0x9c;
  148.         if(flag3==0)
  149.         {
  150.                 num++;
  151.                 if(num==scale)                //改变num的值即可改变移相触发时间，即改变负载功率大小
  152.                         {
  153.                                 pwm=0;        //触发MOC3021导通，即触发可控硅导通
  154.                                 for(i=0;i<2;i++);//延时2us
  155.                                 pwm=1;        //延时2us之后，关掉脉冲输出，因为可控硅在非过零点情况下触发信号丢失，会继续保持导通。
  156. ……………………

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

所有资料51hei提供下载:
取暖设备控制.rar (253.62 KB, 下载次数: 80)


电热丝

评分

参与人数 2黑币 +108 收起 理由
zqy181818 + 8 赞一个！
admin + 100 共享资料的黑币奖励！

查看全部评分

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

使用道具 举报

沙发
ID:205314 发表于 2017-5-31 16:37 | 只看该作者
顶顶楼主用用心了，有点不懂的地方可控规的控制是怎么完成的？小白一个希望楼主给解答
回复

使用道具 举报

板凳
ID:37147 发表于 2017-6-1 08:21 | 只看该作者
shixijiang 发表于 2017-5-31 16:37
顶顶楼主用用心了，有点不懂的地方可控规的控制是怎么完成的？小白一个希望楼主给解答

你可以看我上个帖子，你参考下，我有说明。我也是花了几个礼拜才搞明白的，想搞明白，自己好好琢磨琢磨哈。
回复

使用道具 举报

地板
ID:105786 发表于 2017-7-25 16:45 | 只看该作者
正在寻找资料，收藏了，谢谢
回复

使用道具 举报

5#
ID:369516 发表于 2018-7-11 15:33 | 只看该作者
正在寻找资料
回复

使用道具 举报

6#
ID:119238 发表于 2018-7-11 16:02 | 只看该作者
交流直流共地会不会不太安全啊？过零检测应该可以光耦隔离吧
回复

使用道具 举报

7#
ID:380389 发表于 2018-7-29 09:39 来自手机 | 只看该作者
收藏了，谢谢提供资料
回复

使用道具 举报

8#
ID:377382 发表于 2018-7-31 09:30 | 只看该作者
非常的给力，谢谢了
回复

使用道具 举报

9#
ID:1129414 发表于 2024-8-14 14:22 | 只看该作者
收藏了，谢谢提供资料，对移相控制有很好帮助
回复

使用道具 举报

返回列表 发新帖
高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

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

Powered by 单片机教程网

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