51單片機(jī)水溫控制LCD顯示加VB上位機(jī)溫度曲線繪制

ID:190881 · 發(fā)表于 2017-4-18 17:12

實(shí)現(xiàn)功能，1L水由1KW電爐加熱，要求水溫在一定范圍內(nèi)人工設(shè)定，并能隨著環(huán)境溫度改變自動(dòng)調(diào)節(jié)，以維持設(shè)定的溫度不變。
矩陣鍵盤(pán)輸入設(shè)定溫度，LCD1602顯示溫度值，VB上位機(jī)繪制溫度曲線

/*******************************************************************************
* 實(shí)驗(yàn)名 :溫度顯示實(shí)驗(yàn)
* 使用的IO :
* 實(shí)驗(yàn)效果 :1602顯示溫度
* 注意：
*******************************************************************************/
#include<reg51.h>
#include "uart.h"
#include"lcd.h"
#include "juzhen.h"
#include"temp.h"
void LcdDisplay(int);
void show_zi();
/*******************************************************************************
* 函數(shù)名 : main
* 函數(shù)功能 : 主函數(shù)
* 輸入 : 無(wú)
* 輸出 : 無(wú)
*******************************************************************************/
extern int key_value;
void main()
{
UsartConfiguration();
LcdInit(); //初始化LCD
show_zi();
while(1)
{
LcdDisplay(Ds18b20ReadTemp());
//Delay1ms(1000);//1s鐘刷一次
key_touch();
LcdDisplay_input();
compare_temp();
}
}
/*******************************************************************************
* 函數(shù)名 : LcdDisplay()
* 函數(shù)功能 : LCD顯示讀取到的溫度
* 輸入 : v
* 輸出 : 無(wú)
*******************************************************************************/
unsigned char dates[] = {0, 0, 0, 0, 0}; //定義數(shù)組
void LcdDisplay(int temp) //lcd顯示
{
float tp;
// if(temp< 0) //當(dāng)溫度值為負(fù)數(shù)
// {
// LcdWriteCom(0x80); //寫(xiě)地址 80表示初始地址
// LcdWriteData('-'); //顯示負(fù)
// //因?yàn)樽x取的溫度是實(shí)際溫度的補(bǔ)碼，所以減1，再取反求出原碼
// temp=temp-1;
// temp=~temp;
// tp=temp;
// temp=tp*0.0625*100+0.5;
// //留兩個(gè)小數(shù)點(diǎn)就*100，+0.5是四舍五入，因?yàn)镃語(yǔ)言浮點(diǎn)數(shù)轉(zhuǎn)換為整型的時(shí)候把小數(shù)點(diǎn)
// //后面的數(shù)自動(dòng)去掉，不管是否大于0.5，而+0.5之后大于0.5的就是進(jìn)1了，小于0.5的就
// //算加上0.5，還是在小數(shù)點(diǎn)后面。
//
// }
// else
//{
LcdWriteCom(0x85); //寫(xiě)地址 80表示初始地址
LcdWriteData('+'); //顯示正
tp=temp;//因?yàn)閿?shù)據(jù)處理有小數(shù)點(diǎn)所以將溫度賦給一個(gè)浮點(diǎn)型變量
//如果溫度是正的那么，那么正數(shù)的原碼就是補(bǔ)碼它本身
temp=tp*0.0625*100+0.5;
//留兩個(gè)小數(shù)點(diǎn)就*100，+0.5是四舍五入，因?yàn)镃語(yǔ)言浮點(diǎn)數(shù)轉(zhuǎn)換為整型的時(shí)候把小數(shù)點(diǎn)
//后面的數(shù)自動(dòng)去掉，不管是否大于0.5，而+0.5之后大于0.5的就是進(jìn)1了，小于0.5的就
//算加上0.5，還是在小數(shù)點(diǎn)后面。
//}
dates[0] = temp / 10000;
dates[1] = temp % 10000 / 1000;
dates[2] = temp % 1000 / 100;
dates[3] = temp % 100 / 10;
dates[4] = temp % 10;
LcdWriteCom(0x86); //寫(xiě)地址 80表示初始地址
LcdWriteData('0'+dates[0]); //百位
LcdWriteCom(0x87); //寫(xiě)地址 80表示初始地址
LcdWriteData('0'+dates[1]); //十位
SBUF = '0'+dates[1]; //將接收到的數(shù)據(jù)放入到發(fā)送寄存器
while (!TI); //等待發(fā)送數(shù)據(jù)完成
TI = 0;
LcdWriteCom(0x88); //寫(xiě)地址 80表示初始地址
LcdWriteData('0'+dates[2]); //個(gè)位
SBUF = '0'+dates[2]; //將接收到的數(shù)據(jù)放入到發(fā)送寄存器
while (!TI); //等待發(fā)送數(shù)據(jù)完成
TI = 0;
LcdWriteCom(0x89); //寫(xiě)地址 80表示初始地址
LcdWriteData('.'); //顯示 ‘.’
LcdWriteCom(0x8A); //寫(xiě)地址 80表示初始地址
LcdWriteData('0'+dates[3]); //顯示小數(shù)點(diǎn)
LcdWriteCom(0x8B); //寫(xiě)地址 80表示初始地址
LcdWriteData('0'+dates[4]); //顯示小數(shù)點(diǎn)
LcdWriteCom(0x8C); //寫(xiě)地址 80表示初始地址
LcdWriteData('C');
}
void show_zi()
{
char temp[6]={"Temp:"};
char temp2[6]={"Hope:"};
int i;
for(i=0;i<6;i++)
{
LcdWriteCom(0x80+i); //寫(xiě)地址 80表示初始地址
LcdWriteData(temp[i]);
}
for(i=0;i<6;i++)
{
LcdWriteCom(0xC0+i); //寫(xiě)地址 80表示初始地址
LcdWriteData(temp2[i]);
}
}

復(fù)制代碼

上位機(jī)源碼和下位機(jī)源碼：

DS18B20單片機(jī)程序.rar (68.87 KB, 下載次數(shù): 226)
vb6.0打開(kāi):

上位機(jī).rar (5.12 MB, 下載次數(shù): 310)

ID:219308 · 發(fā)表于 2017-7-13 09:28

多謝樓主分享

ID:165117 · 發(fā)表于 2017-7-13 11:43

多謝樓主分享

ID:195950 · 發(fā)表于 2017-7-30 15:42

學(xué)習(xí)了

ID:224161 · 發(fā)表于 2017-8-3 15:16

讓我拿來(lái)學(xué)學(xué)上位機(jī)

ID:241242 · 發(fā)表于 2017-12-8 09:11

非常棒啊，學(xué)習(xí)

ID:241772 · 發(fā)表于 2018-4-16 22:49

多謝樓主分享

ID:241772 · 發(fā)表于 2018-4-19 19:05

樓主，沒(méi)辦法下載上位機(jī)資料了~~可以再上傳一次嗎

ID:312223 · 發(fā)表于 2018-8-26 21:59

源碼里面并沒(méi)有看到與上位機(jī)通信部分啊即無(wú)串口部分程序

ID:387700 · 發(fā)表于 2018-8-28 23:09

看上去不錯(cuò)

ID:324759 · 發(fā)表于 2019-11-25 10:05

非常想學(xué)習(xí)，謝謝樓主分享。

ID:224370 · 發(fā)表于 2020-3-22 11:45

多謝樓主分享

ID:720209 · 發(fā)表于 2020-4-8 14:36

多謝樓主分享

ID:783123 · 發(fā)表于 2021-5-15 12:49

非常感謝樓主，求這部分VB資料有么，如何快速搞定vb這快

ID:249808 · 發(fā)表于 2021-8-11 19:14

哪來(lái)的上位機(jī)源碼呀！就一個(gè)51單片機(jī)的源碼！

ID:328014 · 發(fā)表于 2021-8-11 21:37

LGH850 發(fā)表于 2021-8-11 19:14
哪來(lái)的上位機(jī)源碼呀！就一個(gè)51單片機(jī)的源碼！

用vb6.0打開(kāi) 工程1.vbp

ID:1085081 · 發(fā)表于 2023-12-9 21:16

非常棒啊，學(xué)習(xí)了多謝

帳號(hào)		自動(dòng)登錄	找回密碼
密碼			立即注冊(cè)

久久久久久久999_99精品久久精品一区二区爱城_成人欧美一区二区三区在线播放_国产精品日本一区二区不卡视频_国产午夜视频_欧美精品在线观看免费

51單片機(jī)水溫控制LCD顯示加VB上位機(jī)溫度曲線繪制

評(píng)分