51單片機半導(dǎo)體甲醛傳感器模塊顯示程序

ID:163099 · 發(fā)表于 2017-3-22 17:03

無意中某寶發(fā)現(xiàn)一款甲醛傳感器，資料顯示為每秒發(fā)送一組串口數(shù)據(jù)，其中包含甲醛值，使用的stc89c52rc,分享一下

半導(dǎo)體甲醛模塊單片機源程序：

#include<reg52.h>
#include "lcd.h"
#define uchar unsigned char
#define uint unsigned int
//可一次接收數(shù)據(jù)量
void rs232_init();
uchar flag,i,k,l;
uint num; //刪除無用變量
uchar table1[9];
uchar table2[6]={0x20,0x20,0x39,0x2e,0x39,0x39}; //接收緩存數(shù)組
uchar j=0; //接收計數(shù)器
void shujuchuli ()
{
if(flag==1)
{
ES=0;
for(j=0;j<9;j++)
{
SBUF=table1[j];
while(!TI);
TI=0;
}
num=table1[4]*256+table1[5];
table2[0]=num/10000;
table2[1]=num%10000/1000;
table2[2]=num%10000%1000/100+0x30;
table2[3]=0x2e;
table2[4]=num%10000%1000%100/10+0x30;
table2[5]=num%10000%1000%100%10+0x30;
j=0; //清零接收計數(shù)器
ES=1;
flag=0;
}
}
main()
{
rs232_init();
while(1)
{
LcdInit();
shujuchuli ();
LcdWriteData(0x43);
LcdWriteData(0x48);
LcdWriteData(0x32);
LcdWriteData(0x4f);
LcdWriteData(0x3a);
for(l=0;l<6;l++)
{
LcdWriteData(table2[l]);
}
LcdWriteData(0x6d);
LcdWriteData(0x67);
LcdWriteData(0x2f);
LcdWriteData(0x6d);
LcdWriteData(0x33);
Lcd1602_Delay1ms(300);
}
}
void rs232_init()
{
TMOD=0x20;
TH1=0xfa;
TL1=0xfa;
PCON=0x80;
TR1=1;
SCON=0x50;
//先設(shè)定號工作方式，在打開允許接收
EA=1;
ES=1;
}
void ser()interrupt 4
{
RI=0;
table1[j] = SBUF;
if(table1[j]==0xff&&j==0)
{
j=1;
}
else if(j==1&&table1[j]==0xff)
{
j=2;
}
else if (j==2&&table1[j] == 0x01)
{
j=3;
}
else if (j==3&&table1[j] == 0x27)
{
j=4;
}
else if(j>=4&&j<8)
{
j ++;
}
else if(j == 8)
{
flag=1;
j=0;
}
else
{
j=0;
}
}

復(fù)制代碼

全部代碼下載：

甲醛半導(dǎo)體模塊數(shù)據(jù)在1602.rar (29.24 KB, 下載次數(shù): 137)

ID:165415 · 發(fā)表于 2017-4-12 16:04

LcdInit();這個應(yīng)該放在while外面吧？有空試試看程序

ID:165415 · 發(fā)表于 2017-4-12 16:14

另外程序應(yīng)該有問題，這個傳感器的測量范圍是0-1mg，你這里竟然顯示了3.2mg

ID:163099 · 發(fā)表于 2017-4-15 06:30

方俱滅發(fā)表于 2017-4-12 16:04
LcdInit();這個應(yīng)該放在while外面吧？有空試試看程序

好像是，不過這樣也能用

ID:163099 · 發(fā)表于 2017-4-15 06:32

方俱滅發(fā)表于 2017-4-12 16:14
另外程序應(yīng)該有問題，這個傳感器的測量范圍是0-1mg，你這里竟然顯示了3.2mg

這是剛預(yù)熱成功，讀數(shù)還在下降中

ID:195937 · 發(fā)表于 2017-5-3 11:21

樓主，可以提供這個模塊的購買地址嗎，萬分感謝�。。�
505078640@qq.com

ID:29312 · 發(fā)表于 2017-5-11 22:13

本帖最后由 thatkey 于 2017-5-12 12:44 編輯

你好我的個位數(shù)之前兩個字符有亂碼

ID:183223 · 發(fā)表于 2017-5-15 19:29

傳感器選的什么�。�

ID:201967 · 發(fā)表于 2017-5-17 21:41

我的為什么總是顯示9.99呀

ID:201967 · 發(fā)表于 2017-5-17 21:42

大神，我的為什么總是顯示9.99呀？？

ID:198407 · 發(fā)表于 2017-5-18 22:10

大神我的為什么總顯示9.99啊

求解答啊

ID:188601 · 發(fā)表于 2017-5-19 15:48

想知道將輸出的電壓怎么轉(zhuǎn)換成濃度

ID:163099 · 發(fā)表于 2017-5-21 21:59

我們失戀在夏季發(fā)表于 2017-5-18 22:10
大神我的為什么總顯示9.99啊

求解答啊

顯示9.99說明沒有接收到串口信號，檢查一下接線，波特率，不行用usb串口監(jiān)測一下通信內(nèi)容有問題嗎

ID:163099 · 發(fā)表于 2017-5-21 22:01

smile123 發(fā)表于 2017-5-19 15:48
想知道將輸出的電壓怎么轉(zhuǎn)換成濃度

甲醛模塊干的事，模塊用的stm8模數(shù)轉(zhuǎn)換的

ID:212141 · 發(fā)表于 2017-6-17 21:58

謝謝大神，好好學(xué)習(xí)。

ID:175237 · 發(fā)表于 2017-6-27 09:57

mark學(xué)習(xí)

ID:221416 · 發(fā)表于 2017-7-21 17:15

多謝樓主，下載下來試試。

ID:223551 · 發(fā)表于 2017-7-31 15:16

哪位大神有甲醛測試儀的完整程序啊，急需啊，傳感器是和這個一樣的
希望有的大神可以給我一下

ID:223551 · 發(fā)表于 2017-8-1 16:08

為什么我直接將程序燒進去，1602也沒字顯示啊!

ID:223551 · 發(fā)表于 2017-8-3 15:40

怎么在這個程序里加入語音芯片呢！當(dāng)超過標(biāo)準(zhǔn)時·語音報警

ID:268536 · 發(fā)表于 2017-12-29 15:14

cell 發(fā)表于 2017-5-21 21:59
顯示9.99說明沒有接收到串口信號，檢查一下接線，波特率，不行用usb串口監(jiān)測一下通信內(nèi)容有問題嗎

我的也是，程序下進去后總是顯示9.99，都檢查了，也沒啥不對啊

ID:198608 · 發(fā)表于 2017-12-29 20:25

levyjersy 發(fā)表于 2017-5-17 21:41
**** 作者被禁止或刪除內(nèi)容自動屏蔽 ****

這個應(yīng)該是模擬了，得需要模數(shù)轉(zhuǎn)換

ID:146834 · 發(fā)表于 2017-12-29 22:25

仿真圖。沒有傳感器，

ID:146834 · 發(fā)表于 2018-1-8 18:56

thatkey 發(fā)表于 2017-5-11 22:13
你好我的個位數(shù)之前兩個字符有亂碼

你好，傳感器在哪里購買的，有地址嗎。

ID:295150 · 發(fā)表于 2018-3-21 18:18

你好，這個傳感器輸出是電壓還是數(shù)字信號？一直搞不明白，謝謝。

ID:163099 · 發(fā)表于 2018-3-22 13:48

米諾子發(fā)表于 2018-3-21 18:18
你好，這個傳感器輸出是電壓還是數(shù)字信號？一直搞不明白，謝謝。

傳感器輸出數(shù)字信號，串口輸出

ID:302353 · 發(fā)表于 2018-4-23 23:14

if(table1[j]==0xff&&j==0) { j=1; } else if(j==1&&table1[j]==0xff) { j=2; } else if (j==2&&table1[j] == 0x01) { j=3; } else if (j==3&&table1[j] == 0x27) { j=4; }為啥table【i】要等于0xff呢

ID:302353 · 發(fā)表于 2018-4-23 23:27

if(table1[j]==0xff&&j==0) { j=1; } else if(j==1&&table1[j]==0xff) { j=2; } else if (j==2&&table1[j] == 0x01) { j=3; } else if (j==3&&table1[j] == 0x27) { j=4; }為啥table【j】要等于0xff呢？j==1&&table1[j]==0xff，else if (j==2&&table1[j] ==0x01) else if (j==3&&table1[j] == 0x27) { j=4; }
大神這幾句能解釋下嗎

ID:163099 · 發(fā)表于 2018-6-10 09:27

飛科技發(fā)表于 2018-4-23 23:27
if(table1[j]==0xff&&j==0) { j=1; } else if(j==1&&table1[j]==0xff) { j=2; } else if (j==2&&table1[j] ...

傳感器發(fā)來的數(shù)據(jù)有固定格式，為FF FF 01 27...........,為確保數(shù)據(jù)從第一幀開始接收，所以這里做了一些判斷，以防甲醛值數(shù)據(jù)正確

ID:407111 · 發(fā)表于 2018-10-12 09:11

是什么傳感器啊，大神求回復(fù)

ID:386202 · 發(fā)表于 2019-2-5 16:42

這甲醛傳感器接STC89C52哪幾個端口啊？

ID:386202 · 發(fā)表于 2019-2-5 18:10

這甲醛傳感器接STC89C52哪幾個端口啊？

ID:386202 · 發(fā)表于 2019-4-14 12:31

51單片機甲醛傳感器測試濃度

ID:386202 · 發(fā)表于 2019-4-14 15:39

這甲醛傳感器接STC89C52哪幾個端口��？

ID:504436 · 發(fā)表于 2019-4-16 10:34

zhongmiaoyuan 發(fā)表于 2019-4-14 15:39
這甲醛傳感器接STC89C52哪幾個端口啊？

同問，我也發(fā)現(xiàn)代碼里面沒有定義端口，甲醛傳感器的端口

ID:504436 · 發(fā)表于 2019-4-16 11:31

請問用的是usb接口嗎，還是轉(zhuǎn)換了RS232，還有甲醛傳感器連51的 IO 口，我看程序里沒有定義這幾個接口呀，應(yīng)該就是P30和P31吧，希望解釋一下

ID:371423 · 發(fā)表于 2019-4-19 14:06

sjr02 發(fā)表于 2017-12-29 15:14
我的也是，程序下進去后總是顯示9.99，都檢查了，也沒啥不對啊

請問你后來解決了嗎

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

51單片機半導(dǎo)體甲醛傳感器模塊顯示程序

相關(guān)帖子