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

ID:190881 · 發表于 2017-4-18 17:12

實現功能，1L水由1KW電爐加熱，要求水溫在一定范圍內人工設定，并能隨著環境溫度改變自動調節，以維持設定的溫度不變。
矩陣鍵盤輸入設定溫度，LCD1602顯示溫度值，VB上位機繪制溫度曲線

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

復制代碼

上位機源碼和下位機源碼：

DS18B20單片機程序.rar (68.87 KB, 下載次數: 226)
vb6.0打開:

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

ID:219308 · 發表于 2017-7-13 09:28

多謝樓主分享

ID:165117 · 發表于 2017-7-13 11:43

多謝樓主分享

ID:195950 · 發表于 2017-7-30 15:42

學習了

ID:224161 · 發表于 2017-8-3 15:16

讓我拿來學學上位機

ID:241242 · 發表于 2017-12-8 09:11

非常棒啊，學習

ID:241772 · 發表于 2018-4-16 22:49

多謝樓主分享

ID:241772 · 發表于 2018-4-19 19:05

樓主，沒辦法下載上位機資料了~~可以再上傳一次嗎

ID:312223 · 發表于 2018-8-26 21:59

源碼里面并沒有看到與上位機通信部分啊即無串口部分程序

ID:387700 · 發表于 2018-8-28 23:09

看上去不錯

ID:324759 · 發表于 2019-11-25 10:05

非常想學習，謝謝樓主分享。

ID:224370 · 發表于 2020-3-22 11:45

多謝樓主分享

ID:720209 · 發表于 2020-4-8 14:36

多謝樓主分享

ID:783123 · 發表于 2021-5-15 12:49

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

ID:249808 · 發表于 2021-8-11 19:14

哪來的上位機源碼呀！就一個51單片機的源碼！

ID:328014 · 發表于 2021-8-11 21:37

LGH850 發表于 2021-8-11 19:14
哪來的上位機源碼呀！就一個51單片機的源碼！

用vb6.0打開工程1.vbp

ID:1085081 · 發表于 2023-12-9 21:16

非常棒啊，學習了多謝

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

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

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

評分