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

wu68aq

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

, V* `/ }+ {/ C9 H  A8 D, H
: E; g" f  @9 N, h: n心率脉搏计的仿真原理图：

3 W) ]  X, c$ n  Q+ x* M3 I#include <reg52.h>
#include "lcd1602.h"
' l/ l& [: v% |& \# Q: V
) Z# L) i, v2 f; m2 I3 y6 e# Q#define uchar unsigned char
#define uint  unsigned int

unsigned char num=0,timecount=0,displayOK=0,rate=0;
+ C% q% s* s% e! F, eunsigned int time[6]={0};
  X/ i( S  M& Q; u5 j
" f* `! D% t! @2 W3 n/***********************1ms延时函数*****************************/
void delay_1ms(uint q)
{
/ I! m$ V) W$ b- p; M! ^5 W5 F$ y        uint i,j;
        for(i=0;i<q;i++)
5 b/ O( w) Y4 G" l% C                for(j=0;j<110;j++);
}
6 _! M0 V+ J! q6 O1 y5 P& R& }9 ^
- G: q+ Z6 |9 k3 |
- {, s3 ^2 o9 w4 x6 qvoid main()
0 R2 n( F* {% P/ Y9 X4 U' P3 F{        
        init_1602();
        TCON=0x01;//设置外部中断0
                EX0=1;
8 n4 A5 ^% g9 w9 \. H% |                TMOD=0x01;//定时器0初始化
# P0 b5 B$ @) H                TH0=(65536-50650)/256;//实测每50ms中断的定时值
5 \# Y5 w5 V$ B) U: ]- }; n                TL0=(65536-50650)%256;
* S5 {1 x: T& b, \( B                ET0=1;//开定时器中断
                //显示基本文字
                write_string(1,0,"   Heart Rate   ");
8 L7 P/ F; h4 Y/ e! U                write_string(2,0,"        /min    ");
4 I; I! j3 t1 Q9 ^0 k4 q                TR0=0;//定时器停止
- \7 c) ]& R/ l# k' L/ _. G! r/ U" `$ K                EA=1;//开总中断                    
           while(1)
* q: i1 V! r# T$ r2 L  j           {
: m% M5 X2 y5 l; v
" |1 a9 j8 C: ]; p; I                   if(displayOK==1)
                   {
                        rate=60000/(time[1]/5+time[2]/5+time[3]/5+time[4]/5+time[5]/5);
. ]: g, {) t4 o                        write_sfm3_18B20(2,5,rate);
* |, {% l7 L1 |# c6 |' X2 r
' b/ C& u! \0 Z, x4 w0 ?                      }        
                        else
                        {
                                     write_string(2,5,"   ");
6 }( x. g4 P0 x& |                        }
) V& [. W- A; D, ]                   delay_1ms(300);
# j* ~- r) {' Z1 z! }5 `1 s
- w$ t+ f' E5 c$ n8 l
        }
}

' u9 N! H8 ?9 y% a* Evoid ex0() interrupt 0
& [( j6 W: P# w: b$ T{
                EX0=0;//暂时关外部中断
. D( D3 L& \- v' E                if(timecount<8)   //当连续两次检测时间间隔小于8*50ms=400ms不处理
1 s+ j+ f; g1 X! }$ ?! b                {
                                TR0=1;//开定时器
- M8 F5 u$ P  L/ T: d' @4 Y% z                }
5 D8 u# j7 Z' V                else
                {
" E8 [! ^8 d7 O, a  b+ }                                time[num]=timecount*50+TH0*0.256+TL0/1000;//算出间隔时间
8 J9 U$ {: L; t& _+ X: F1 r                                TL0=(65536-50650)%256;//重新设置定时器
                                TH0=(65536-50650)/256;
3 F" Z- c' D& B; |" x* N* D% r$ T                                timecount=0;//50ms计数清零
9 g) v3 i3 s6 g1 A                                num++;
% z- C4 K; J# H0 j8 X, q! U) t$ C                                if(num==6)//记录到超过等于6次时间
2 D) g% e' M3 Y" u3 k                                {
                                                num=1;//计数从1开始
& G& P: \  i4 S/ V                                                displayOK=1;    //测得5次开始显示
                                }        

8 u, D. ?7 {* Y& T                }
                EX0=1;
}
' |; E# `- q8 O- Avoid et0() interrupt 1
{
                TL0=(65536-50650)%256;
                TH0=(65536-50650)/256;

# J$ M% X: H8 X8 c4 G! {9 I                timecount++;//每50ms一次计数
( M" G7 W: o9 Z                if(timecount>25)     //当超过25*50ms=1.5s没有检测到信号停止显示
/ F0 a* h! W  U7 w2 d                {
                                num=0;//数据个数清零
$ c% P) U# t. K1 ]% w0 r

…………限于本文篇幅 余下代码请从论坛下载附件…………
: J, }5 Y6 i: l; w+ X6 _

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

) F- A1 J# k" N3 {

Demyar

路过捧场,谢谢分享！

cj223356

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