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

 找回密码
 立即注册

QQ登录

只需一步，快速开始

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

搜索
»论坛 › 嵌入式/单片机论坛 › 51单片机 › 51单片机DS18B20温控步进电机Proteus仿真加源程序
返回列表 发新帖
查看: 2465|回复: 1
打印 上一主题 下一主题
收起左侧

51单片机DS18B20温控步进电机Proteus仿真加源程序

[复制链接]
跳转到指定楼层
楼主
ID:325326 发表于 2019-1-15 20:08 | 只看该作者 |只看大图 回帖奖励 |倒序浏览 |阅读模式
DS18B20温控步进电机仿真原理图如下（proteus仿真工程文件可到本帖附件中下载）


单片机源程序如下:
  1. #include<reg51.h>
  2. #define uchar unsigned char
  3. #define uint unsigned int
  4. uchar code zs[]={0x01,0x02,0x04,0x08};
  5. sbit DQ=P0^0;
  6. void delay(uint M)
  7. {
  8. uint i;
  9. for(i=0;i<M;i++)
  10. {
  11.   ;
  12. }
  13. }
  14. void run(uint N)
  15. {
  16. uchar k;
  17. for(k=0;k<=3;k++)
  18. {
  19.   P2=zs[k];
  20.   delay(N);
  21. }
  22. }

  24. void init()
  25. {
  26. uint m;
  27. DQ=1;
  28. delay(4);
  29. DQ=0;
  30. delay(45);
  31. DQ=1;
  32. while(DQ)
  33. {
  34.   m++;
  35.   if(m>=100)break;
  36. }
  37. }

  39. void write(uchar order)
  40. {
  41. uint j;
  42. DQ=1;
  43. delay(20);
  44. for (j=8; j>0; j--)
  45. {
  46.   DQ = 0;
  47.   DQ = order&0x01;
  48.   delay(5);
  49.   DQ = 1;
  50.   order>>=1;
  51.   delay(10);
  52. }
  53. delay(5);
  54. }
  55. uchar read()
  56. {
  57. unsigned char n=0;
  58. unsigned char dat = 0;
  59. DQ=1;
  60. delay(20);

  62. for (n=8;n>0;n--)
  63. {
  64.   DQ = 0;
  65.   dat>>=1;
  66.   DQ = 1;
  67.   if(DQ)
  68.    {dat|=0x80;}
  69.   delay(4);
  70. }
  71. return(dat);
  72. }
  73. void main()
  74. {

  76. while(1)
  77. {
  78. uchar Teml=0x00;
  79. uchar Temh=0x00;
  80. uchar Tem=0x00;
  81. init();
  82. write(0xcc);
  83. write(0x44);
  84. while(DQ==0)
  85. {
  86.   ;
  87. }
  88. init();
  89. write(0xcc);
  90. write(0xbe);
  91. Teml=read();
  92. Temh=read();
  93. Temh=Temh<<4;
  94. Teml=Teml>>4;
  95. Tem=Temh|Teml;
  96. P1=~Tem;
  97. if(Tem<=15)
  98. {
  99.   run(1000);
  100.   }
  101.   else if((Tem>15)&(Tem<=25))
  102.   {
  103.    run(3000);
  104.   }
  105. else if((Tem>25)&(Tem<=35))
  106.   {
  107.    run(6000);
  108.   }

  110. else if((Tem>35)&(Tem<=45))
  111.   {
  112.    run(4000);
  113.   }
  114. else if((Tem>45)&(Tem<=55))
  115.   {
  116.    run(3000);
  117.   }

  119. else if((Tem>55)&(Tem<=65))
  120.   {
  121.    run(2000);
  122.   }
  123. else if((Tem>65)&(Tem<=75))
  124.   {
  125.    run(1000);
  126.   }
  127. else
  128.   {
  129.    run(500);
  130.   }
  131. }
  132. }
复制代码

所有资料51hei提供下载:
ourdev_446260.rar (59.45 KB, 下载次数: 55)


评分

参与人数 1黑币 +50 收起 理由
admin + 50 共享资料的黑币奖励！

查看全部评分

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

使用道具 举报

沙发
ID:451441 发表于 2019-1-21 12:17 | 只看该作者
谢谢LZ分享，学习！
回复

使用道具 举报

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

本版积分规则

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

Powered by 单片机教程网

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