單片機(jī)電子脈搏器Proteus仿真、電路原理圖、源程序

ID:113472 · 發(fā)表于 2016-4-12 04:06

51單片機(jī)電子脈搏器制作用lcd1602來(lái)顯示

脈搏器的傳感器采用的是光電紅外發(fā)射和接收的傳感器，檢測(cè)人體內(nèi)血流動(dòng)時(shí)對(duì)光的透過(guò)率或反射率不同而將其轉(zhuǎn)換成電信號(hào)，電信號(hào)經(jīng)過(guò)
LM358進(jìn)行信號(hào)放大，濾波電路，比較電路，后經(jīng)過(guò)單片機(jī)處理，再顯示出來(lái)，手指放在紅外傳感器處兩秒內(nèi)讀出脈搏，按鍵是設(shè)置脈搏最高警報(bào)值和最低警報(bào)值，電位器是用于靈敏度調(diào)節(jié)的，因?yàn)槊總€(gè)人的手指厚度都不同，所以檢測(cè)時(shí)需要調(diào)節(jié)到比較合適的靈敏度

電路原理圖：

仿真文件：

源程序：

#include
#include // 包含頭文件
#define uint unsigned int
#define uchar unsigned char
#define ulong unsigned long //宏定義
#define LCD_DATA P0 //定義P0口為L(zhǎng)CD_DATA
sbit LCD_RS =P2^5;
sbit LCD_RW =P2^6;
sbit LCD_E =P2^7; //定義LCD控制引腳
sbit Xintiao =P1^0 ; //脈搏檢測(cè)輸入端定義
sbit speaker =P2^4; //蜂鳴器引腳定義
void delay5ms(void); //誤差 0us
void LCD_WriteData(uchar LCD_1602_DATA); /********LCD1602數(shù)據(jù)寫入***********/
void LCD_WriteCom(uchar LCD_1602_COM); /********LCD1602命令寫入***********/
void lcd_1602_word(uchar Adress_Com,uchar Num_Adat,uchar *Adress_Data); /*1602字符顯示函數(shù)，變量依次為字符顯示首地址，顯示字符長(zhǎng)度，所顯示的字符*/
void InitLcd();//液晶初始化函數(shù)
void Tim_Init();
uchar Xintiao_Change=0; //
uint Xintiao_Jishu;
uchar stop;
uchar View_Data[3];
uchar View_L[3];
uchar View_H[3];
uchar Xintiao_H=100; //脈搏上限
uchar Xintiao_L=40; //脈搏下限
uchar Key_Change;
uchar Key_Value; //按鍵鍵值
uchar View_Con; //設(shè)置的位（0正常工作，1設(shè)置上限，2設(shè)置下限）
uchar View_Change;
void main() //主函數(shù)
{
InitLcd();
Tim_Init();
lcd_1602_word(0x80,16,"Heart Rate: "); //初始化顯示
TR0=1;
TR1=1; //打開定時(shí)器
while(1) //進(jìn)入循環(huán)
{
if(Key_Change) //有按鍵按下并已經(jīng)得出鍵值
{
Key_Change=0; //將按鍵使能變量清零，等待下次按鍵按下
View_Change=1;
switch(Key_Value) //判斷鍵值
{
case 1: //設(shè)置鍵按下
{
View_Con++; //設(shè)置的位加
if(View_Con==3) //都設(shè)置好后將此變量清零
View_Con=0;
break; //跳出，下同
}
case 2: //加鍵按下
{
if(View_Con==2) //判斷是設(shè)置上限
{
if(Xintiao_H<150) //上限數(shù)值小于150
Xintiao_H++; //上限+
}
if(View_Con==1) //如果是設(shè)置下限
{
if(Xintiao_L<xintiao_h-1) 下限值小于上限-1（下限值不能超過(guò)上限）
Xintiao_L++; //下限值加
}
break;
}
case 3: //減鍵按下
{
if(View_Con==2) //設(shè)置上限
{
if(Xintiao_H>Xintiao_L+1)//上限數(shù)據(jù)大于下限+1（同樣上限值不能小于下限）
Xintiao_H--; //上限數(shù)據(jù)減
}
if(View_Con==1) //設(shè)置下限
{
if(Xintiao_L>30) //下限數(shù)據(jù)大于30時(shí)
Xintiao_L--; //下限數(shù)據(jù)減
}
break;
}
}
}
if(View_Change)//開始顯示變量
{
View_Change=0;//變量清零
if(stop==0) //心率正常時(shí)
{
if(View_Data[0]==0x30) //最高位為0時(shí)不顯示
View_Data[0]=' ';
}
else //心率不正常（計(jì)數(shù)超過(guò)5000，也就是兩次信號(hào)時(shí)間超過(guò)5s）不顯示數(shù)據(jù)
{
View_Data[0]=' ';
View_Data[1]=' ';
View_Data[2]=' ';
}
switch(View_Con)
{
case 0: //正常顯示
{
lcd_1602_word(0x80,16,"Heart Rate: ");//顯示一行數(shù)據(jù)
lcd_1602_word(0xc0,16," ");//顯示第二行數(shù)據(jù)
lcd_1602_word(0xcd,3,View_Data); //第二行顯示心率
break;
}
case 1: //設(shè)置下限時(shí)顯示
{
lcd_1602_word(0x80,16,"Heart Rate: ");//第一行顯示心率
lcd_1602_word(0x8d,3,View_Data);
View_L[0]=Xintiao_L/100+0x30; //將下限數(shù)據(jù)拆字
View_L[1]=Xintiao_L%100/10+0x30;
View_L[2]=Xintiao_L%10+0x30;
if(View_L[0]==0x30) //最高位為0時(shí)，不顯示
View_L[0]=' ';
lcd_1602_word(0xC0,16,"Warning L : ");//第二行顯示下限數(shù)據(jù)
lcd_1602_word(0xCd,3,View_L);
break;
}
case 2: //設(shè)置上限時(shí)顯示（同上）
{
lcd_1602_word(0x80,16,"Heart Rate: ");
lcd_1602_word(0x8d,3,View_Data);
View_H[0]=Xintiao_H/100+0x30;
View_H[1]=Xintiao_H%100/10+0x30;
View_H[2]=Xintiao_H%10+0x30;
if(View_H[0]==0x30)
View_H[0]=' ';
lcd_1602_word(0xC0,16,"Warning H : ");
lcd_1602_word(0xCd,3,View_H);
break;
}
}
}
}
}
void Time1() interrupt 3 //定時(shí)器1服務(wù)函數(shù)
{
static uchar Key_Con,Xintiao_Con;
TH1=0xd8; //10ms
TL1=0xf0; //重新賦初值
switch(Key_Con) //無(wú)按鍵按下時(shí)此值為0
{
case 0: //每10ms掃描此處
{
if((P3&0x07)!=0x07)//掃描按鍵是否有按下
{
Key_Con++; //有按下此值加1，值為1
}
break;
}
case 1: //10ms后二次進(jìn)入中斷后掃描此處（Key_Con為1）
{
if((P3&0x07)!=0x07)//第二次進(jìn)入中斷時(shí)，按鍵仍然是按下（起到按鍵延時(shí)去抖的作用）
{
Key_Con++; //變量加1，值為2
switch(P3&0x07) //判斷是哪個(gè)按鍵按下
{
case 0x06:Key_Value=1;break; //判斷好按鍵后將鍵值賦值給變量Key_Value
case 0x05:Key_Value=2;break;
case 0x03:Key_Value=3;break;
}
}
else //如果10ms時(shí)沒(méi)有檢測(cè)到按鍵按下（按下時(shí)間過(guò)短）
{
Key_Con=0; //變量清零，重新檢測(cè)按鍵
}
break;
}
case 2: //20ms后檢測(cè)按鍵
{
if((P3&0x07)==0x07) //檢測(cè)按鍵是否還是按下狀態(tài)
{
Key_Change=1; //有按鍵按下使能變量，（此變量為1時(shí)才會(huì)處理鍵值數(shù)據(jù)）
Key_Con=0; //變量清零，等待下次有按鍵按下
}
break;
}
}
switch (Xintiao_Con)//此處與上面按鍵的檢測(cè)類似
{
case 0: //默認(rèn)Xintiao_Con是為0的
{
if(!Xintiao)//每10ms（上面的定時(shí)器）檢測(cè)一次脈搏是否有信號(hào)
{
Xintiao_Con++;//如果有信號(hào)，變量加一，程序就會(huì)往下走了
}
break;
}
case 1:
{
if(!Xintiao) //每過(guò)10ms檢測(cè)一下信號(hào)是否還存在
{
Xintiao_Con++;//存在就加一
}
else
{
Xintiao_Con=0;//如果不存在了，檢測(cè)時(shí)間很短，說(shuō)明檢測(cè)到的不是脈搏信號(hào)，可能是其他干擾，將變量清零，跳出此次檢測(cè)
}
break;
}
case 2:
{
if(!Xintiao)
{
Xintiao_Con++;//存在就加一
}
else
{
Xintiao_Con=0;//如果不存在了，檢測(cè)時(shí)間很短，說(shuō)明檢測(cè)到的不是脈搏信號(hào)，可能是其他干擾，將變量清零，跳出此次檢測(cè)
}
break;
}
case 3:
{
if(!Xintiao)
{
Xintiao_Con++;//存在就加一
}
else
{
Xintiao_Con=0;//如果不存在了，檢測(cè)時(shí)間很短，說(shuō)明檢測(cè)到的不是脈搏信號(hào)，可能是其他干擾，將變量清零，跳出此次檢測(cè)
}
break;
}
case 4:
{
if(Xintiao)//超過(guò)30ms一直有信號(hào)，判定此次是脈搏信號(hào)，執(zhí)行以下程序
{
if(Xintiao_Change==1)//心率計(jì)原理為檢測(cè)兩次脈沖間隔時(shí)間計(jì)算心率，變量Xintiao_Change第一次脈沖時(shí)為0的，所有走下面的else，第二次走這里
{
View_Data[0]=(60000/Xintiao_Jishu)/100+0x30;
View_Data[1]=(60000/Xintiao_Jishu)%100/10+0x30;
View_Data[2]=(60000/Xintiao_Jishu)%10+0x30;
if(((60000/Xintiao_Jishu)>=Xintiao_H)||((60000/Xintiao_Jishu)<=Xintiao_L))//心率不在范圍內(nèi)報(bào)警
speaker=0; //蜂鳴器響
else
speaker=1; //不響
View_Change=1; //計(jì)算出心率后啟動(dòng)顯示
Xintiao_Jishu=0; //心跳計(jì)數(shù)清零
Xintiao_Change=0; //計(jì)算出心率后該變量清零，準(zhǔn)備下次檢測(cè)心率
stop=0; //計(jì)算出心率后stop清零
}
else//第一次脈沖時(shí)Xintiao_Change為0
{
Xintiao_Jishu=0; //脈沖計(jì)時(shí)變量清零，開始計(jì)時(shí)
Xintiao_Change=1;//Xintiao_Change置1，準(zhǔn)備第二次檢測(cè)到脈沖時(shí)計(jì)算心率
}
Xintiao_Con=0; //清零，準(zhǔn)備檢測(cè)下一次脈沖
break;
}
}
}
}
/**定時(shí)器T0工作函數(shù)**/
void Time0() interrupt 1
{
TH0=0xfc; //1ms
TL0=0x18; //重新賦初值
Xintiao_Jishu++; //心跳計(jì)數(shù)加
if(Xintiao_Jishu==5000)//心跳計(jì)數(shù)大于5000
{
Xintiao_Jishu=0; //數(shù)據(jù)清零
View_Change=1; //顯示位置1
Xintiao_Change=0; //置零，準(zhǔn)備再次檢測(cè)
stop=1; //心跳計(jì)數(shù)超過(guò)5000后說(shuō)明心率不正常或者沒(méi)有測(cè)出，stop置1
speaker=1; //關(guān)閉蜂鳴器
}
}
/**定時(shí)器初始化函數(shù)**/
void Tim_Init()
{
EA=1; //打開中斷總開關(guān)
ET0=1; //打開T0中斷允許開關(guān)
ET1=1; //打開T1中斷允許開關(guān)
TMOD=0x11; //設(shè)定定時(shí)器狀態(tài)
TH0=0xfc; //1ms
TL0=0x18; //賦初值
TH1=0xd8; //10ms
TL1=0xf0; //賦初值
}
/**在指定地址顯示指定數(shù)量的指定字符**/
/**Adress_Com顯示地址，Num_Adat顯示字符數(shù)量，Adress_Data顯示字符串內(nèi)容**/
void lcd_1602_word(uchar Adress_Com,uchar Num_Adat,uchar *Adress_Data)
{
uchar a=0;
uchar Data_Word;
LCD_WriteCom(Adress_Com); //選中地址
for(a=0;a<num_adat;a++) for循環(huán)決定顯示字符個(gè)數(shù)
{
Data_Word=*Adress_Data; //讀取字符串?dāng)?shù)據(jù)
LCD_WriteData(Data_Word); //顯示字符串
Adress_Data++; //顯示地址加一
}
}
/***************1602函數(shù)*******************/
void LCD_WriteData(uchar LCD_1602_DATA) /********LCD1602數(shù)據(jù)寫入***********/
{
delay5ms(); //操作前短暫延時(shí)，保證信號(hào)穩(wěn)定
LCD_E=0;
LCD_RS=1;
LCD_RW=0;
_nop_();
LCD_E=1;
LCD_DATA=LCD_1602_DATA;
LCD_E=0;
LCD_RS=0;
}
/********LCD1602命令寫入***********/
void LCD_WriteCom(uchar LCD_1602_COM)
{
delay5ms();//操作前短暫延時(shí)，保證信號(hào)穩(wěn)定
LCD_E=0;
LCD_RS=0;
LCD_RW=0;
_nop_();
LCD_E=1;
LCD_DATA=LCD_1602_COM;
LCD_E=0;
LCD_RS=0;
}
void InitLcd() //初始化液晶函數(shù)
{
delay5ms();
delay5ms();
LCD_WriteCom(0x38); //display mode
LCD_WriteCom(0x38); //display mode
LCD_WriteCom(0x38); //display mode
LCD_WriteCom(0x06); //顯示光標(biāo)移動(dòng)位置
LCD_WriteCom(0x0c); //顯示開及光標(biāo)設(shè)置
LCD_WriteCom(0x01); //顯示清屏
delay5ms();
delay5ms();
}
void delay5ms(void) //5ms延時(shí)函數(shù)
{
unsigned char a,b;
for(b=185;b>0;b--)
for(a=12;a>0;a--);
}

復(fù)制代碼

電子脈搏計(jì)電路原理圖and仿真.rar (382.08 KB, 下載次數(shù): 330)

電子脈搏器程序.rar (31.65 KB, 下載次數(shù): 295)

ID:95113 · 發(fā)表于 2016-5-4 23:13

感謝樓主分享。。

ID:108499 · 發(fā)表于 2016-5-6 17:00

　感謝樓主分享。。

ID:108499 · 發(fā)表于 2016-5-6 17:00

感謝樓主分享。。

ID:95113 · 發(fā)表于 2016-5-12 15:43

KEYI D

ID:118644 · 發(fā)表于 2016-5-13 18:44

感謝樓主分享。。

ID:92231 · 發(fā)表于 2016-5-15 16:15

感謝樓主提供分

ID:122134 · 發(fā)表于 2016-5-21 11:23

樓主，我想請(qǐng)問(wèn)，stop表示的是什么？還有。。。為什么超過(guò)5秒沒(méi)有信號(hào)就是不正常，這個(gè)5秒對(duì)于心跳來(lái)說(shuō)，會(huì)不會(huì)太久了？

ID:123691 · 發(fā)表于 2016-5-28 15:34

感謝分享

非常感謝

ID:123691 · 發(fā)表于 2016-5-28 15:39

感謝分享

ID:123697 · 發(fā)表于 2016-5-28 16:40

感謝分享，就不知道這種紅外檢測(cè)脈搏靈敏度怎么樣；

ID:145061 · 發(fā)表于 2016-10-29 14:03

謝謝樓主分享

ID:153199 · 發(fā)表于 2017-1-24 16:50

不錯(cuò)的帖子，很值得收藏。

ID:89286 · 發(fā)表于 2017-1-26 11:53

thanks for sharing

ID:163259 · 發(fā)表于 2017-2-2 02:11

謝謝分享！

ID:163259 · 發(fā)表于 2017-2-2 02:11

謝謝分享~~~~！！

ID:163391 · 發(fā)表于 2017-2-3 22:36

感謝樓主分享。。

ID:166089 · 發(fā)表于 2017-2-23 14:06

感謝樓主分享，仿真成功了，學(xué)習(xí)學(xué)習(xí)

ID:168257 · 發(fā)表于 2017-3-5 10:34

感謝樓主分享很有用感謝樓主分享很有用

ID:155754 · 發(fā)表于 2017-3-5 10:54

正好需要，謝謝了

ID:168401 · 發(fā)表于 2017-3-7 21:25

感謝樓主分享

ID:175526 · 發(fā)表于 2017-3-20 19:55

想下載資源，還沒(méi)有黑幣，等有了再下載

ID:183285 · 發(fā)表于 2017-3-25 13:36

感謝樓主分享。。

ID:185650 · 發(fā)表于 2017-4-2 19:36

學(xué)習(xí)學(xué)習(xí)學(xué)習(xí)

ID:188615 · 發(fā)表于 2017-4-11 20:39

沒(méi)有積分

ID:187926 · 發(fā)表于 2017-4-11 22:29

樓主，這個(gè)電路正確嗎？能通過(guò)傳感器測(cè)試出實(shí)際心率嗎？我按照樓主給的原理圖焊了電路板為什么測(cè)不了呢？已檢查過(guò)很多遍，請(qǐng)問(wèn)樓主電路圖是否正確？？？？？？

ID:190498 · 發(fā)表于 2017-4-17 16:30

樓主我復(fù)制你的程序?yàn)槭裁从泻芏噱e(cuò)誤

ID:61946 · 發(fā)表于 2017-4-20 09:19

學(xué)習(xí)學(xué)習(xí)

ID:194844 · 發(fā)表于 2017-5-4 19:09

謝謝樓主分享

ID:197027 · 發(fā)表于 2017-5-5 18:57

感謝分享，正好需要用到這個(gè)！！

ID:164722 · 發(fā)表于 2017-5-6 08:41

謝謝樓主分享

ID:197712 · 發(fā)表于 2017-5-11 18:05

我想問(wèn)仿真里為什么沒(méi)有LM358

ID:194705 · 發(fā)表于 2017-5-18 18:03

沫小然發(fā)表于 2017-4-11 22:29
樓主，這個(gè)電路正確嗎？能通過(guò)傳感器測(cè)試出實(shí)際心率嗎？我按照樓主給的原理圖焊了電路板為什么測(cè)不了呢？已 ...

你那個(gè)調(diào)好了嗎我也照著焊接了一個(gè) 用不了

ID:159153 · 發(fā)表于 2017-5-19 22:40

紅外接收二極管的正極為什么要接地啊？？

ID:110128 · 發(fā)表于 2017-5-24 00:11

感謝樓主的分享

ID:193567 · 發(fā)表于 2017-7-23 16:19

呵呵，轉(zhuǎn)發(fā)別人的就算了，附件下載包里面的程序去哪了？好玩呢是吧？

ID:235588 · 發(fā)表于 2017-10-20 20:02

感謝樓主分享

ID:315399 · 發(fā)表于 2018-5-31 16:26

不錯(cuò)，謝謝樓主

ID:335277 · 發(fā)表于 2018-5-31 22:48

感覺非常有創(chuàng)意

ID:395286 · 發(fā)表于 2018-11-19 22:30

很詳細(xì)，適合學(xué)習(xí)，謝謝樓主。

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

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

單片機(jī)電子脈搏器Proteus仿真、電路原理圖、源程序

評(píng)分

相關(guān)帖子