找回密碼
 立即注冊

QQ登錄

只需一步,快速開始

搜索
查看: 1288|回復: 0
打印 上一主題 下一主題
收起左側

單片機DS18B20溫度傳感器控制循環(huán)泵(電機)系統(tǒng)設計 程序仿真原理圖

[復制鏈接]
跳轉(zhuǎn)到指定樓層
樓主
ID:1114799 發(fā)表于 2024-3-30 17:54 | 只看該作者 |只看大圖 回帖獎勵 |倒序瀏覽 |閱讀模式
DS18B20溫度傳感器,可設置水泵電機啟動溫度的上下限
AT89c51單片機
LED共陽極顯示
循環(huán)泵控制仿真原理圖如下(proteus仿真工程文件可到本帖附件中下載)


單片機源程序如下:
#include <reg51.h>
#include <intrins.h>

#define uchar unsigned char
#define uint unsigned int

uchar num = 0;

uchar flang;  // 工作模式變量
uchar xianshi1[] = "H-80 C    L-0 C"; // 溫度上限改為80度
uchar xianshi2[] = "TEP:      25.0 C";
uint dingshi = 0;
uchar count;
uint wendu;
bit moshi;
bit xianshi;
uchar shangxian = 80; // 上限設置值改為80度
uchar xiaxian = 0;     // 下限設置值改為0度

sbit IN1 = P2 ^ 0;     // 風扇控制引腳

sbit DQ = P3 ^ 7;      // 定義DS18B20總線I/O

void Delay_DS18B20(int num);

/*****初始化DS18B20*****/
void Init_DS18B20()
{
  unsigned char x;
  DQ = 1;               // DQ復位
  Delay_DS18B20(8);     // 稍做延時
  DQ = 0;               // 單片機將DQ拉低
  Delay_DS18B20(80);    // 精確延時,大于480us
  DQ = 1;               // 拉高總線
  Delay_DS18B20(14);
  x = DQ;               // 稍做延時后,如果x=0則初始化成功,x=1則初始化失敗
  Delay_DS18B20(20);
}

/*****延時子程序*****/
void Delay_DS18B20(int num)
{
  while (num--)
    ;
}

/*****寫一個字節(jié)*****/
void WriteOneChar(unsigned char dat)
{
  unsigned char i = 0;
  EA = 0;
  for (i = 8; i > 0; i--)
  {
    DQ = 0;
    DQ = dat & 0x01;
    Delay_DS18B20(5);
    DQ = 1;
    dat >>= 1;
  }
  EA = 1;
}

/*****讀一個字節(jié)*****/
unsigned char ReadOneChar(void)
{
  unsigned char i = 0;
  unsigned char dat = 0;
  EA = 0;
  for (i = 8; i > 0; i--)
  {
    DQ = 0; // 給脈沖信號
    dat >>= 1;
    DQ = 1; // 給脈沖信號
    if (DQ)
      dat |= 0x80;
    Delay_DS18B20(4);
  }
  EA = 1;
  return (dat);
}

/*****讀取溫度*****/
unsigned int ReadTemperature(void) // 讀取溫度并轉(zhuǎn)換
{
  unsigned char a = 0;
  unsigned char b = 0;
  unsigned int t = 0;
  float tt = 0;
  Init_DS18B20();
  WriteOneChar(0xCC); // 跳過讀序號列號的操作
  WriteOneChar(0x44); // 啟動溫度轉(zhuǎn)換
  Init_DS18B20();
  WriteOneChar(0xCC); // 跳過讀序號列號的操作
  WriteOneChar(0xBE); // 讀取溫度寄存器
  a = ReadOneChar();  // 讀低8位
  b = ReadOneChar();  // 讀高8位
  t = b;
  t <<= 8;
  t = t | a;
  tt = t * 0.0625;
  t = tt * 10 + 0.5; // 放大10倍輸出并四舍五入
  return (t);
}

剩余部分請從附件中下載: 溫度傳感器.7z (68.09 KB, 下載次數(shù): 23)

評分

參與人數(shù) 1黑幣 +50 收起 理由
admin + 50 共享資料的黑幣獎勵!

查看全部評分

分享到:  QQ好友和群QQ好友和群 QQ空間QQ空間 騰訊微博騰訊微博 騰訊朋友騰訊朋友
收藏收藏1 分享淘帖 頂 踩
回復

使用道具 舉報

您需要登錄后才可以回帖 登錄 | 立即注冊

本版積分規(guī)則

手機版|小黑屋|51黑電子論壇 |51黑電子論壇6群 QQ 管理員QQ:125739409;技術交流QQ群281945664

Powered by 單片機教程網(wǎng)

快速回復 返回頂部 返回列表