單片機+VB上位機溫濕度檢測制作附源程序

ID:416896 · 發表于 2020-9-21 14:09

休息時間嘗試用VB作為上位機與單片機進行通信，自己動手做了板子，效果還行，分享下。

實物

仿真圖附上

未上電

檢測

調試

代碼因為是上位機和下位機的，直接壓縮放上來了。
單片機源程序如下:

#include <reg52.h> // 頭文件包含
#include <intrins.h>
#define uchar unsigned char // 以后unsigned char就可以用uchar代替
#define uint unsigned int // 以后unsigned int 就可以用uint 代替
sbit Buzzer_P = P1^0; // 蜂鳴器
sbit DHT11_P = P1^1; // 溫濕度傳感器DHT11數據接入
sbit LcdRs_P = P2^7; // 1602液晶的RS管腳
sbit LcdRw_P = P2^6; // 1602液晶的RW管腳
sbit LcdEn_P = P2^5; // 1602液晶的EN管腳
uchar temp; // 保存溫度
uchar humi; // 保存濕度
/*********************************************************/
// 毫秒級的延時函數，time是要延時的毫秒數
/*********************************************************/
void DelayMs(uint time)
{
uint i,j;
for(i=0;i<time;i++)
for(j=0;j<112;j++);
}
/*********************************************************/
// 1602液晶寫命令函數，cmd就是要寫入的命令
/*********************************************************/
void LcdWriteCmd(uchar cmd)
{
LcdRs_P = 0;
LcdRw_P = 0;
LcdEn_P = 0;
P0=cmd;
DelayMs(2);
LcdEn_P = 1;
DelayMs(2);
LcdEn_P = 0;
}
/*********************************************************/
// 1602液晶寫數據函數，dat就是要寫入的數據
/*********************************************************/
void LcdWriteData(uchar dat)
{
LcdRs_P = 1;
LcdRw_P = 0;
LcdEn_P = 0;
P0=dat;
DelayMs(2);
LcdEn_P = 1;
DelayMs(2);
LcdEn_P = 0;
}
/*********************************************************/
// 1602液晶初始化函數
/*********************************************************/
void LcdInit()
{
LcdWriteCmd(0x38); // 16*2顯示，5*7點陣，8位數據口
LcdWriteCmd(0x0C); // 開顯示，不顯示光標
LcdWriteCmd(0x06); // 地址加1，當寫入數據后光標右移
LcdWriteCmd(0x01); // 清屏
}
/*********************************************************/
// 液晶光標定位函數
/*********************************************************/
void LcdGotoXY(uchar line,uchar column)
{
// 第一行
if(line==0)
LcdWriteCmd(0x80+column);
// 第二行
if(line==1)
LcdWriteCmd(0x80+0x40+column);
}
/*********************************************************/
// 液晶輸出字符串函數
/*********************************************************/
void LcdPrintStr(uchar *str)
{
while(*str!='\0') // 判斷是否到字符串的盡頭了
LcdWriteData(*str++);
}
/*********************************************************/
// 液晶輸出數字
/*********************************************************/
void LcdPrintNum(uchar num)
{
LcdWriteData(num/10+48); // 十位
LcdWriteData(num%10+48); // 個位
}
/*********************************************************/
// 液晶顯示內容的初始化
/*********************************************************/
void LcdShowInit()
{
LcdGotoXY(0,0); // 光標定位
LcdPrintStr(" DHT11 System "); // 第0行顯示的內容
LcdGotoXY(1,0); // 光標定位
LcdPrintStr("T: C H: %RH"); // 第1行顯示的內容
LcdGotoXY(1,4); // 溫度單位攝氏度上面的圓圈符號
LcdWriteData(0xdf);
}
/*********************************************************/
// 10us級延時程序
/*********************************************************/
void Delay10us()
{
_nop_(); // 執行一條指令，延時1微秒
_nop_();
_nop_();
_nop_();
_nop_();
_nop_();
_nop_();
_nop_();
_nop_();
_nop_();
}
/*********************************************************/
// 讀取DHT11單總線上的一個字節
/*********************************************************/
uchar DhtReadByte(void)
{
bit bit_i;
uchar j;
uchar dat=0;
for(j=0;j<8;j++)
{
while(!DHT11_P); // 等待低電平結束
Delay10us(); // 延時
Delay10us();
Delay10us();
if(DHT11_P==1) // 判斷數據線是高電平還是低電平
{
bit_i=1;
while(DHT11_P);
}
else
{
bit_i=0;
}
dat<<=1; // 將該位移位保存到dat變量中
dat|=bit_i;
}
return(dat);
}
/*********************************************************/
// 讀取DHT11的一幀數據，濕高、濕低(0)、溫高、溫低(0)、校驗碼
/*********************************************************/
void ReadDhtData()
{
uchar HumiHig; // 濕度高檢測值
uchar HumiLow; // 濕度低檢測值
uchar TemHig; // 溫度高檢測值
uchar TemLow; // 溫度低檢測值
uchar check; // 校驗字節
DHT11_P=0; // 主機拉低20ms
DelayMs(20);
DHT11_P=1; // DATA總線由上拉電阻拉高主機延時40us
Delay10us(); // 延時等待30us
Delay10us();
Delay10us();
while(!DHT11_P); // 等待DHT的低電平結束
while(DHT11_P); // 等待DHT的高電平結束
//進入數據接收狀態
HumiHig = DhtReadByte(); // 濕度高8位
HumiLow = DhtReadByte(); // 濕度低8為，總為0
TemHig = DhtReadByte(); // 溫度高8位
TemLow = DhtReadByte(); // 溫度低8為，總為0
check = DhtReadByte(); // 8位校驗碼，其值等于讀出的四個字節相加之和的低8位
while(!DHT11_P);
DHT11_P=1; // 拉高總線
if(check==HumiHig + HumiLow + TemHig + TemLow) // 如果收到的數據無誤
{
temp=TemHig; // 將溫度的檢測結果賦值給全局變量temp
humi=HumiHig; // 將濕度的檢測結果賦值給全局變量humi
}
}
/*********************************************************/
// 串口初始化
/*********************************************************/
void UartInit()
{
SCON = 0x50; // 配置串口寄存器
TMOD = 0x20; // 配置定時器寄存器
TH1 = 0xfd; // 計算波特率的值為9600
TL1 = 0xfd; // 計算波特率的值為9600
EA = 1; // 打開總中斷
ES = 1; // 打開串口中斷
TR1 = 1; // 啟動定時器
}
/*********************************************************/
// 串口發送數據函數
/*********************************************************/
void UartSendNum(uchar num)
{
ES=0; // 發送過程關閉串口中斷
SBUF=num/10+48; // 十位
while(!TI);
TI=0;
SBUF=num%10+48; // 個位
while(!TI);
TI=0;
ES=1; // 發送結束打開串口中斷
}
/*********************************************************/
// 主函數
/*********************************************************/
void main(void)
{
UartInit(); // 串口初始化
LcdInit(); // 液晶功能的初始化
LcdShowInit(); // 液晶顯示的初始化
DelayMs(1200); // 上電后等一下再開始讀取
while(1)
{
EA=0; // 讀取溫濕度數值前，關閉總中斷
ReadDhtData(); // 讀取溫濕度數據
EA=1; // 讀取溫濕度數值后，開啟總中斷
LcdGotoXY(1,2); // 定位到要顯示溫度的地方
LcdPrintNum(temp); // 顯示溫度值
LcdGotoXY(1,11); // 定位到要顯示濕度的地方
LcdPrintNum(humi); // 顯示濕度值
UartSendNum(temp); // 串口發送溫度
UartSendNum(humi); // 串口發送濕度
DelayMs(2200); // 進行延時，可實現不同的采集頻率
}
}
/*********************************************************/
// 串口中斷服務程序
/*********************************************************/
void UartInt(void) interrupt 4
{
uchar dat;
if(RI==1) // 是否收到串口數據
{
RI=0;
dat=SBUF; // 把串口收到的數據保存在dat變量里
if(dat==0x01) // 如果串口收到的值是0x01
Buzzer_P=0; // 那么打開蜂鳴器
if(dat==0x02) // 如果串口收到的值是0x02
Buzzer_P=1; // 那么關閉蜂鳴器
}
}

復制代碼

上位機VB代碼：

上位機程序.rar (69.67 KB, 下載次數: 179)
下位機單片機代碼：

下位機程序.rar (33.02 KB, 下載次數: 137)

ID:824799 · 發表于 2020-11-5 12:31

有仿真圖嗎proteus的

ID:468240 · 發表于 2020-11-10 21:49

樓主，有原理圖嗎？PDF也可以

ID:900757 · 發表于 2021-4-5 12:17

樓主你好，我再調試的時候遇到找不到串口，這個是什么原因呢？能幫忙解答一下嗎

ID:900757 · 發表于 2021-4-5 17:45

我按照你的思路和方法做好的仿真，但是VB上數據接收不了單片機傳過來的數據，不知道那一步錯了，我用串口發送是可以到VB是沒問題的

ID:915955 · 發表于 2021-5-17 22:48

兄弟你現在這個弄好了嗎，VB上可以接收到單片機的數據了嗎

ID:915955 · 發表于 2021-5-17 22:55

老李家呀發表于 2021-4-5 17:45
我按照你的思路和方法做好的仿真，但是VB上數據接收不了單片機傳過來的數據，不知道那一步錯了，我用串口發 ...

兄弟現在搞定了嗎

ID:320250 · 發表于 2022-5-15 21:53

老李家呀發表于 2021-4-5 12:17
樓主你好，我再調試的時候遇到找不到串口，這個是什么原因呢？能幫忙解答一下嗎

要安裝好控件

ID:1029268 · 發表于 2022-5-24 15:58

你好，請問可以幫我看看程序嗎？

帳號		自動登錄	找回密碼
密碼			立即注冊

欧美极品高清xxxxhd,国产日产欧美最新,无码AV国产东京热AV无码,国产精品人与动性XXX,国产传媒亚洲综合一区二区,四库影院永久国产精品,毛片免费免费高清视频,福利所导航夜趣136

單片機+VB上位機溫濕度檢測制作附源程序

評分

	地板無效樓層，該帖已經被刪除

	5^# 無效樓層，該帖已經被刪除

	10^# 無效樓層，該帖已經被刪除

	11^# 無效樓層，該帖已經被刪除

欧美极品高清xxxxhd,国产日产欧美最新,无码AV国产东京热AV无码,国产精品人与动性XXX,国产传媒亚洲综合一区二区,四库影院永久国产精品,毛片免费免费高清视频,福利所导航夜趣136

單片機+VB上位機溫濕度檢測制作 附源程序

評分

單片機+VB上位機溫濕度檢測制作附源程序