51單片機(jī)+ST188光電傳感器心率脈搏檢測(cè)程序+電路圖

ID:514753 · 發(fā)表于 2019-4-17 16:57

使用時(shí)把右手食指指肚放在st188反射式紅外傳感器上，放置合適時(shí)會(huì)看到指示燈隨心跳同時(shí)閃動(dòng)，如果沒(méi)有閃爍請(qǐng)適當(dāng)調(diào)節(jié)手指壓力，調(diào)節(jié)完后在測(cè)試過(guò)程中手指壓力不要變，保持穩(wěn)定，當(dāng)指示燈有規(guī)律閃爍時(shí)表示信號(hào)正確。當(dāng)單片機(jī)檢測(cè)到大約第五次信號(hào)時(shí)開(kāi)始顯示這五次信號(hào)算出的平均心率。當(dāng)超過(guò)大約1.5秒沒(méi)有檢測(cè)到信號(hào)，清除心率。
如果手指抖動(dòng)或者不穩(wěn)定會(huì)看到指示燈亂閃，這樣測(cè)得的數(shù)據(jù)不準(zhǔn)，在測(cè)試過(guò)程中保持穩(wěn)定！

1：初始化液晶和定時(shí)器
2：檢測(cè)外部中斷，并記錄中斷時(shí)間間隔
3：當(dāng)有超過(guò)5個(gè)符合要求的時(shí)間記錄，算出5個(gè)時(shí)間的平均值和對(duì)應(yīng)的60s的心率并顯示
4：當(dāng)超過(guò)1.5s沒(méi)有檢測(cè)到中斷發(fā)生停止顯示
2-3-4循環(huán)

電路原理圖如下：

單片機(jī)源程序如下:

#include<reg52.h>
#define uint unsigned int
#define uchar unsigned char
sbit rs=P1^0; //數(shù)據(jù)與命令選擇控制引腳
sbit rw=P1^1; //讀與寫(xiě)選擇控制引腳
sbit en=P1^2; //使能擇控制引腳
sbit bf=P0^7; //忙標(biāo)志位
sbit P32=P3^2;
unsigned char i=0,timecount=0,displayOK=0,rate=0,aa=0;
unsigned int time[6]={0};
/************ 延時(shí)函數(shù) *****************/
void delay(uint z)
{
while(z--);
}
/************ 忙檢測(cè)函數(shù) *****************/
void jiance()
{
P0=0xff;
rs=0;rw=1;en=1;
while(bf); //如果BF==1表示液晶在忙
en=0;
}
/************ 寫(xiě)命令函數(shù) *****************/
void write_com(uchar com)
{
jiance();
P0=com;
rs=0;rw=0;en=1;
delay(2);
en=0;
}
/************ 寫(xiě)數(shù)據(jù)函數(shù) *****************/
void write_dat(uchar dat)
{
jiance();
P0=dat;
rs=1;rw=0;en=1;
delay(2);
en=0;
}
/************ 1602液晶初始化函數(shù) *****************/
void init_lcd()
{
write_com(0x38); // 設(shè)置16*2顯示，5*7點(diǎn)陣，8位數(shù)據(jù)接口
write_com(0x0c); // 開(kāi)顯示，不顯示光標(biāo)
write_com(0x06); // 地址加1，當(dāng)寫(xiě)入數(shù)據(jù)的時(shí)候光標(biāo)右移
write_com(0x01); //清屏
}
/******************************************************************/
/* 在指定位置寫(xiě)字符 */
/******************************************************************/
void LCD_write_char(unsigned char x,unsigned char y,unsigned char Data)
{
if (y == 0)
write_com(0x80 + x);
else
write_com(0xC0 + x);
write_dat(Data);
}
void DelayMs(unsigned int z)
{
unsigned int x;
for(;z>0;z--)
for(x=110;x>0;x--);
}
void main()
{
P32=1;
init_lcd();//lcd初始化
TCON=0x01;//設(shè)置外部中斷0
EX0=1;
TMOD=0x01;//定時(shí)器0初始化
TH0=(65536-50000)/256;//實(shí)測(cè)每50ms中斷的定時(shí)值
TL0=(65536-50000)%256;
ET0=1;//開(kāi)定時(shí)器中斷
//顯示基本文字
LCD_write_char(3,0,'H');
LCD_write_char(4,0,'e');
LCD_write_char(5,0,'a');
LCD_write_char(6,0,'r');
LCD_write_char(7,0,'t');
LCD_write_char(8,0,' ');
LCD_write_char(9,0,'R');
LCD_write_char(10,0,'a');
LCD_write_char(11,0,'t');
LCD_write_char(12,0,'e');
LCD_write_char(8,1,'/');
LCD_write_char(9,1,'m');
LCD_write_char(10,1,'i');
LCD_write_char(11,1,'n');
TR0=0;//定時(shí)器停止
EA=1;//開(kāi)總中斷
while(1)
{
if(displayOK==1)
{
rate=60000/(time[1]/5+time[2]/5+time[3]/5+time[4]/5+time[5]/5);
LCD_write_char(5,1,rate/100+48);
LCD_write_char(6,1,(rate%100)/10+48);
LCD_write_char(7,1,rate%10+48);
}
DelayMs(300);
}
}
void ex0() interrupt 0
{
EX0=0;//暫時(shí)關(guān)外部中斷
if(timecount<8) //當(dāng)連續(xù)兩次檢測(cè)時(shí)間間隔小于8*50ms=400ms不處理
{
TR0=1;//開(kāi)定時(shí)器
}
else
{
time[i]=timecount*50+TH0*0.256+TL0/1000;//算出間隔時(shí)間
TL0=(65536-50000)%256;//重新設(shè)置定時(shí)器
TH0=(65536-50000)/256;
timecount=0;//50ms計(jì)數(shù)清零
i++;
if(i==6)//記錄到超過(guò)等于6次時(shí)間
{
i=1;//計(jì)數(shù)從1開(kāi)始
displayOK=1; //測(cè)得5次開(kāi)始顯示
}
}
EX0=1;
}
void et0() interrupt 1
{
TL0=(65536-50000)%256;
TH0=(65536-50000)/256;
timecount++;//每50ms一次計(jì)數(shù)
if(timecount>25) //當(dāng)超過(guò)25*50ms=1.25s沒(méi)有檢測(cè)到信號(hào)停止顯示
{
i=0;//數(shù)據(jù)個(gè)數(shù)清零
timecount=0;//50ms計(jì)數(shù)清零
displayOK=0;//顯示關(guān)
TR0=0;//定時(shí)器關(guān)
TH0=(65536-50000)/256;
TL0=(65536-50000)%256;
}
}

復(fù)制代碼

所有資料51hei提供下載:

心率脈搏計(jì)源程序.rar (34.39 KB, 下載次數(shù): 400)

心率脈搏計(jì)-51-1602.pdf (192.9 KB, 下載次數(shù): 268)

ID:524107 · 發(fā)表于 2019-4-28 23:45

樓主，你好，按照你給的原理圖和程序，做出了實(shí)物，為什么沒(méi)有反應(yīng)啊？

ID:524107 · 發(fā)表于 2019-4-28 23:46

樓主，你好，按照你給的原理圖和程序，做出了實(shí)物，為什么沒(méi)有反應(yīng)？

ID:573032 · 發(fā)表于 2019-6-28 09:25

源程序不對(duì)啊，下載不行

ID:284488 · 發(fā)表于 2019-6-29 22:28

哇！下載后無(wú)法打開(kāi)

ID:328014 · 發(fā)表于 2019-6-30 01:18

lon7085 發(fā)表于 2019-6-29 22:28
哇！下載后無(wú)法打開(kāi)

您用的什么軟件解壓的?我用winrar最新版貌似沒(méi)問(wèn)題

ID:284488 · 發(fā)表于 2019-6-30 11:30

我用7-zip，了，用您說(shuō)的winrar試看看，謝謝您

ID:69115 · 發(fā)表于 2019-8-14 00:32

這個(gè)電路挺好,有實(shí)用價(jià)值.

ID:599701 · 發(fā)表于 2019-8-15 18:34

真好很有實(shí)用價(jià)值

ID:616026 · 發(fā)表于 2019-9-25 13:55

可以呀，謝謝啦

ID:571461 · 發(fā)表于 2019-12-24 08:45

if(displayOK==1)
                              {
                                             rate=60000/(time[1]/5+time[2]/5+time[3]/5+time[4]/5+time[5]/5);
                                             LCD_write_char(5,1,rate/100+48);
                                             LCD_write_char(6,1,(rate%100)/10+48);
                                             LCD_write_char(7,1,rate%10+48);
                              }我不太懂這一點(diǎn)的程序的運(yùn)算是怎么出來(lái)的

ID:651495 · 發(fā)表于 2019-12-27 10:02

你好，這大概測(cè)一次需要多久呢

ID:651495 · 發(fā)表于 2019-12-28 10:10

xiexugang 發(fā)表于 2019-8-14 00:32
這個(gè)電路挺好,有實(shí)用價(jià)值.

你好，請(qǐng)問(wèn)資料能分享一份么，上面的不能用了

ID:525137 · 發(fā)表于 2020-3-8 18:55

你好樓主st188不是非接觸嗎，為啥要接觸，檢測(cè)距離4-13mm

ID:705967 · 發(fā)表于 2020-3-21 21:13

非常詳細(xì)。適合學(xué)習(xí)

ID:705967 · 發(fā)表于 2020-4-5 20:37

您好，里面有仿真電路圖嗎

ID:891632 · 發(fā)表于 2021-3-25 14:59

你好，為什么心率計(jì)算的時(shí)候需要+48呢？

ID:891632 · 發(fā)表于 2021-3-25 14:59

你好，為什么心率計(jì)算要加48呢？

ID:905400 · 發(fā)表于 2021-4-14 10:10

這里面的電容是點(diǎn)解電容嗎

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

51單片機(jī)+ST188光電傳感器心率脈搏檢測(cè)程序+電路圖

評(píng)分