基于51单片机的心率脉搏计仿真及源程序

wu68aq

基于51单片机的心率脉搏计仿真及源程序
) K; ^. w/ i3 l4 J

心率脉搏计的仿真原理图：
' n% T; J+ C, m+ `
1 h  U% s* U! M! E; q#include <reg52.h>
+ W) q) p8 X. c  v3 X#include "lcd1602.h"
! r; h9 G; G, [. t. a& h; w
#define uchar unsigned char
#define uint  unsigned int

0 R/ V' x4 {  ^3 Q! V- u* @unsigned char num=0,timecount=0,displayOK=0,rate=0;
# X+ b4 W/ S$ a, xunsigned int time[6]={0};
% D* I4 Y# Z; @" c6 R! Z
& y( d1 F" |5 g- _8 Q3 _' {" H0 B/***********************1ms延时函数*****************************/
void delay_1ms(uint q)
{
! }# }9 v& ]9 j; X' i# z        uint i,j;
: s) s! J0 p( }& {$ @1 _/ Z        for(i=0;i<q;i++)
                for(j=0;j<110;j++);
}

  S5 u! K4 E1 m( m6 ~$ v
void main()
4 A3 N- h7 Z/ \+ e5 O3 I3 K( d2 E{        
        init_1602();
) L. g3 C" s9 u) i: y        TCON=0x01;//设置外部中断0
                EX0=1;
                TMOD=0x01;//定时器0初始化
: Z8 ^; l6 B; e2 t- w& F8 ^& }1 Y( b6 |                TH0=(65536-50650)/256;//实测每50ms中断的定时值
                TL0=(65536-50650)%256;
                ET0=1;//开定时器中断
' @7 K! O; l4 c) ]. i7 k* E' N                //显示基本文字
                write_string(1,0,"   Heart Rate   ");
: v; L$ {" ]4 n. L                write_string(2,0,"        /min    ");
                TR0=0;//定时器停止
/ b* `6 b$ p: _- X9 C; y$ D: d                EA=1;//开总中断                    
           while(1)
           {
# v: F7 I0 F! N7 A, M& |- U- I% P4 g  z
                   if(displayOK==1)
* x! I4 Q7 {) z& q                   {
                        rate=60000/(time[1]/5+time[2]/5+time[3]/5+time[4]/5+time[5]/5);
: {8 y" ?( h1 Z/ u# m6 S. e1 |                        write_sfm3_18B20(2,5,rate);

                      }        
                        else
, M! Z% a1 |1 V, \                        {
' N: ]$ i5 z3 }4 f- a                                     write_string(2,5,"   ");
% M) Q7 Q) {. x. j2 [/ b                        }
                   delay_1ms(300);
% D8 C5 c$ W) B/ Y

% N5 W, E1 \- e" `+ @* c        }
}

void ex0() interrupt 0
{
                EX0=0;//暂时关外部中断
& V' n: f( J" W1 J" h1 d                if(timecount<8)   //当连续两次检测时间间隔小于8*50ms=400ms不处理
                {
6 O. P1 G7 }' u( Q                                TR0=1;//开定时器
- ^; v8 z3 a  C, h$ p5 g: c8 t) v                }
: q3 j  X4 e+ u/ n) @                else
                {
                                time[num]=timecount*50+TH0*0.256+TL0/1000;//算出间隔时间
                                TL0=(65536-50650)%256;//重新设置定时器
                                TH0=(65536-50650)/256;
: V" y, z4 K; p3 f% E1 e                                timecount=0;//50ms计数清零
0 Y( {/ f- v! Z4 ~# Z6 V8 M- q3 p                                num++;
6 U# _6 `/ F  [( a; P                                if(num==6)//记录到超过等于6次时间
                                {
, F% Z3 _3 o8 i" T) Y                                                num=1;//计数从1开始
7 R# n) P- h/ s                                                displayOK=1;    //测得5次开始显示
                                }        
5 q" X' D- ]: \3 ^( e0 p
8 |6 p- F. H1 t3 \. [                }
1 \* N' @2 U; C4 V2 t: _                EX0=1;
4 |3 v# E% V6 g4 [}
void et0() interrupt 1
8 `2 c- Y0 N9 ?  _& |{
0 O3 W4 q3 {, b5 D                TL0=(65536-50650)%256;
% p3 R2 d( u+ E0 o0 C+ x- f                TH0=(65536-50650)/256;
) _1 O8 k+ L( y8 ?2 k
9 E5 |" \. q9 V# m( D( e                timecount++;//每50ms一次计数
" \5 w7 l, Z" L$ N& t; d6 d                if(timecount>25)     //当超过25*50ms=1.5s没有检测到信号停止显示
9 e; J4 g7 a! h3 o) }                {
                                num=0;//数据个数清零

5 W; j8 L7 Q6 Q9 v  a; C  J9 Q# a
…………限于本文篇幅 余下代码请从论坛下载附件…………
1 m9 D* I7 [/ q3 B' ^" Y

游客，如果您要查看本帖隐藏内容请回复

4 s1 e5 I) c8 {

Demyar

路过捧场,谢谢分享！

cj223356

看看楼主的代码，谢谢分享