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

wu68aq

基于51单片机的心率脉搏计仿真及源程序
; N/ |3 C( o* \% [$ @7 }) k% O* Y
% j+ O# u  @6 T, n9 u
: n7 H7 G2 S- `0 ]6 ]% x, d8 A心率脉搏计的仿真原理图：
/ L: n+ n3 {1 N3 f, V" i# i
" U6 l3 Q% e; Z: y' w3 l) G#include <reg52.h>
#include "lcd1602.h"
/ m* j  o% }" g* y5 z
#define uchar unsigned char
#define uint  unsigned int
. U' Y5 d; i" r9 r
unsigned char num=0,timecount=0,displayOK=0,rate=0;
unsigned int time[6]={0};

8 b3 e0 ~6 U& {3 `9 N3 ^% S; M/***********************1ms延时函数*****************************/
* F. e$ M+ @6 d* W8 g+ y: _# L, jvoid delay_1ms(uint q)
5 @2 A7 h" v! b* k{
; @: T/ p# _, ?- {& O        uint i,j;
        for(i=0;i<q;i++)
                for(j=0;j<110;j++);
}

; P. z  d, A. ?. Y! I
! G7 l9 J, u- d# U+ j; B$ ?void main()
' H$ d. _+ q$ f; _, r{        
3 _; m$ P! ^- k8 n        init_1602();
        TCON=0x01;//设置外部中断0
                EX0=1;
( {% O2 x; D  @" r: o9 g3 o                TMOD=0x01;//定时器0初始化
+ p, _/ {9 R$ I. H2 M4 i3 H                TH0=(65536-50650)/256;//实测每50ms中断的定时值
                TL0=(65536-50650)%256;
, M! }; N* n! x                ET0=1;//开定时器中断
                //显示基本文字
                write_string(1,0,"   Heart Rate   ");
                write_string(2,0,"        /min    ");
                TR0=0;//定时器停止
1 b1 o% S0 o2 N9 _# c$ D6 M% f                EA=1;//开总中断                    
6 V5 D* v% w% Q" t" N/ c* K$ _2 p           while(1)
5 x( Y% e0 c9 ?           {

                   if(displayOK==1)
9 w) i8 U6 u+ o                   {
( @0 x- d6 V% ]( c6 e' {                        rate=60000/(time[1]/5+time[2]/5+time[3]/5+time[4]/5+time[5]/5);
4 ?2 ?" C$ C9 ^9 u6 K3 u) u                        write_sfm3_18B20(2,5,rate);

                      }        
7 _8 G8 S5 e6 G, d/ p                        else
                        {
2 E$ T& Q0 G9 n- {                                     write_string(2,5,"   ");
3 Y( N; w& ^' R0 H6 e                        }
6 Y' B7 w# H# g                   delay_1ms(300);
& g3 m: Y5 B; M" {$ o( [
% F' G9 ]  A/ b5 `$ U. c
9 L9 ]4 q1 N6 e/ t3 A5 _7 n  d$ s- M        }
}
" e  h8 [$ \8 [5 P+ M/ j8 U
+ s: b/ r9 e3 ?$ \  q) Yvoid ex0() interrupt 0
0 d. l4 S9 ~3 Y& q' l- A9 j# R7 u{
  t& X  v" h: N. p' g1 t0 e                EX0=0;//暂时关外部中断
                if(timecount<8)   //当连续两次检测时间间隔小于8*50ms=400ms不处理
                {
                                TR0=1;//开定时器
                }
                else
+ m% n; o. J7 M4 W/ D4 g; E; \8 [                {
                                time[num]=timecount*50+TH0*0.256+TL0/1000;//算出间隔时间
- ~2 _1 w  @$ [: i$ a- @7 \0 b( ~                                TL0=(65536-50650)%256;//重新设置定时器
                                TH0=(65536-50650)/256;
: I, T6 I  V! ~$ I% X" S                                timecount=0;//50ms计数清零
                                num++;
2 R6 w. Y% S  I9 q: q                                if(num==6)//记录到超过等于6次时间
                                {
3 }* {, R" K1 X7 s8 y& c4 ^1 U! A                                                num=1;//计数从1开始
+ `6 h/ W6 k8 s, X" h4 u! u                                                displayOK=1;    //测得5次开始显示
                                }        

                }
                EX0=1;
0 H& X- Z! j" X0 F9 S6 Q0 ^' o' C}
) @0 @( F9 N+ G( x& J* x3 J) Xvoid et0() interrupt 1
" _5 y$ N( s$ I9 L  F7 Z- x! J- N{
                TL0=(65536-50650)%256;
                TH0=(65536-50650)/256;

, `2 t  T" ]# t' k9 S                timecount++;//每50ms一次计数
                if(timecount>25)     //当超过25*50ms=1.5s没有检测到信号停止显示
$ ]7 }: q' e' S) o3 c' l% p                {
                                num=0;//数据个数清零
8 [9 ~+ _6 N* ]  r- M
% C7 B" X% o, H! ?$ `
& z  u  {  g" p$ m" a- y…………限于本文篇幅 余下代码请从论坛下载附件…………

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

7 `9 z/ d  y2 I

Demyar

路过捧场,谢谢分享！

cj223356

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