标题: 51单片机DS18B20温控步进电机Proteus仿真加源程序 [打印本页]
作者: 花落沉香    时间: 2019-1-15 20:08
标题: 51单片机DS18B20温控步进电机Proteus仿真加源程序
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)


作者: ttaniscy    时间: 2019-1-21 12:17
谢谢LZ分享，学习！



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