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

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

51單片機電子脈搏器制作用lcd1602來顯示

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

電路原理圖：

仿真文件：

源程序：

#include
#include // 包含頭文件
#define uint unsigned int
#define uchar unsigned char
#define ulong unsigned long //宏定義
#define LCD_DATA P0 //定義P0口為LCD_DATA
sbit LCD_RS =P2^5;
sbit LCD_RW =P2^6;
sbit LCD_E =P2^7; //定義LCD控制引腳
sbit Xintiao =P1^0 ; //脈搏檢測輸入端定義
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ù)，變量依次為字符顯示首地址，顯示字符長度，所顯示的字符*/
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; //打開定時器
while(1) //進入循環(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（下限值不能超過上限）
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時
Xintiao_L--; //下限數(shù)據(jù)減
}
break;
}
}
}
if(View_Change)//開始顯示變量
{
View_Change=0;//變量清零
if(stop==0) //心率正常時
{
if(View_Data[0]==0x30) //最高位為0時不顯示
View_Data[0]=' ';
}
else //心率不正常（計數(shù)超過5000，也就是兩次信號時間超過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è)置下限時顯示
{
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時，不顯示
View_L[0]=' ';
lcd_1602_word(0xC0,16,"Warning L : ");//第二行顯示下限數(shù)據(jù)
lcd_1602_word(0xCd,3,View_L);
break;
}
case 2: //設(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 //定時器1服務(wù)函數(shù)
{
static uchar Key_Con,Xintiao_Con;
TH1=0xd8; //10ms
TL1=0xf0; //重新賦初值
switch(Key_Con) //無按鍵按下時此值為0
{
case 0: //每10ms掃描此處
{
if((P3&0x07)!=0x07)//掃描按鍵是否有按下
{
Key_Con++; //有按下此值加1，值為1
}
break;
}
case 1: //10ms后二次進入中斷后掃描此處（Key_Con為1）
{
if((P3&0x07)!=0x07)//第二次進入中斷時，按鍵仍然是按下（起到按鍵延時去抖的作用）
{
Key_Con++; //變量加1，值為2
switch(P3&0x07) //判斷是哪個按鍵按下
{
case 0x06:Key_Value=1;break; //判斷好按鍵后將鍵值賦值給變量Key_Value
case 0x05:Key_Value=2;break;
case 0x03:Key_Value=3;break;
}
}
else //如果10ms時沒有檢測到按鍵按下（按下時間過短）
{
Key_Con=0; //變量清零，重新檢測按鍵
}
break;
}
case 2: //20ms后檢測按鍵
{
if((P3&0x07)==0x07) //檢測按鍵是否還是按下狀態(tài)
{
Key_Change=1; //有按鍵按下使能變量，（此變量為1時才會處理鍵值數(shù)據(jù)）
Key_Con=0; //變量清零，等待下次有按鍵按下
}
break;
}
}
switch (Xintiao_Con)//此處與上面按鍵的檢測類似
{
case 0: //默認Xintiao_Con是為0的
{
if(!Xintiao)//每10ms（上面的定時器）檢測一次脈搏是否有信號
{
Xintiao_Con++;//如果有信號，變量加一，程序就會往下走了
}
break;
}
case 1:
{
if(!Xintiao) //每過10ms檢測一下信號是否還存在
{
Xintiao_Con++;//存在就加一
}
else
{
Xintiao_Con=0;//如果不存在了，檢測時間很短，說明檢測到的不是脈搏信號，可能是其他干擾，將變量清零，跳出此次檢測
}
break;
}
case 2:
{
if(!Xintiao)
{
Xintiao_Con++;//存在就加一
}
else
{
Xintiao_Con=0;//如果不存在了，檢測時間很短，說明檢測到的不是脈搏信號，可能是其他干擾，將變量清零，跳出此次檢測
}
break;
}
case 3:
{
if(!Xintiao)
{
Xintiao_Con++;//存在就加一
}
else
{
Xintiao_Con=0;//如果不存在了，檢測時間很短，說明檢測到的不是脈搏信號，可能是其他干擾，將變量清零，跳出此次檢測
}
break;
}
case 4:
{
if(Xintiao)//超過30ms一直有信號，判定此次是脈搏信號，執(zhí)行以下程序
{
if(Xintiao_Change==1)//心率計原理為檢測兩次脈沖間隔時間計算心率，變量Xintiao_Change第一次脈沖時為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)報警
speaker=0; //蜂鳴器響
else
speaker=1; //不響
View_Change=1; //計算出心率后啟動顯示
Xintiao_Jishu=0; //心跳計數(shù)清零
Xintiao_Change=0; //計算出心率后該變量清零，準備下次檢測心率
stop=0; //計算出心率后stop清零
}
else//第一次脈沖時Xintiao_Change為0
{
Xintiao_Jishu=0; //脈沖計時變量清零，開始計時
Xintiao_Change=1;//Xintiao_Change置1，準備第二次檢測到脈沖時計算心率
}
Xintiao_Con=0; //清零，準備檢測下一次脈沖
break;
}
}
}
}
/**定時器T0工作函數(shù)**/
void Time0() interrupt 1
{
TH0=0xfc; //1ms
TL0=0x18; //重新賦初值
Xintiao_Jishu++; //心跳計數(shù)加
if(Xintiao_Jishu==5000)//心跳計數(shù)大于5000
{
Xintiao_Jishu=0; //數(shù)據(jù)清零
View_Change=1; //顯示位置1
Xintiao_Change=0; //置零，準備再次檢測
stop=1; //心跳計數(shù)超過5000后說明心率不正�；蛘邲]有測出，stop置1
speaker=1; //關(guān)閉蜂鳴器
}
}
/**定時器初始化函數(shù)**/
void Tim_Init()
{
EA=1; //打開中斷總開關(guān)
ET0=1; //打開T0中斷允許開關(guān)
ET1=1; //打開T1中斷允許開關(guān)
TMOD=0x11; //設(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)決定顯示字符個數(shù)
{
Data_Word=*Adress_Data; //讀取字符串數(shù)據(jù)
LCD_WriteData(Data_Word); //顯示字符串
Adress_Data++; //顯示地址加一
}
}
/***************1602函數(shù)*******************/
void LCD_WriteData(uchar LCD_1602_DATA) /********LCD1602數(shù)據(jù)寫入***********/
{
delay5ms(); //操作前短暫延時，保證信號穩(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();//操作前短暫延時，保證信號穩(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); //顯示光標移動位置
LCD_WriteCom(0x0c); //顯示開及光標設(shè)置
LCD_WriteCom(0x01); //顯示清屏
delay5ms();
delay5ms();
}
void delay5ms(void) //5ms延時函數(shù)
{
unsigned char a,b;
for(b=185;b>0;b--)
for(a=12;a>0;a--);
}

復(fù)制代碼

電子脈搏計電路原理圖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

樓主，我想請問，stop表示的是什么？還有。。。為什么超過5秒沒有信號就是不正常，這個5秒對于心跳來說，會不會太久了？

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

感謝分享

非常感謝

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

感謝分享

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

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

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

謝謝樓主分享

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

不錯的帖子，很值得收藏。

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

想下載資源，還沒有黑幣，等有了再下載

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

沒有積分

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

樓主，這個電路正確嗎？能通過傳感器測試出實際心率嗎？我按照樓主給的原理圖焊了電路板為什么測不了呢？已檢查過很多遍，請問樓主電路圖是否正確？？？？？？

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

樓主我復(fù)制你的程序為什么有很多錯誤

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

感謝分享，正好需要用到這個！！

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

謝謝樓主分享

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

我想問仿真里為什么沒有LM358

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

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

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

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

不錯，謝謝樓主

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

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

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

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

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

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

評分

相關(guān)帖子

瀏覽過的版塊

單片機電子脈搏器Proteus仿真、電路原理圖、源程序

評分

相關(guān)帖子

瀏覽過的版塊

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