单片机脉搏测量仪仪仿真加程序

wu68aq

单片机脉搏测量仪仪仿真加程序
# j! j" @) B. S8 R" h$ Q& l) I
' C" Z! V: b4 C7 y, Z  B3 d" t
51单片机座的脉搏测量仪proteus仿真加程序分享，带工程文件

仿真原理图：
0 V6 z9 F! M; b/ n* S
1 C! j* W* y$ \  O

% x+ f2 E: M3 Z* N* Q8 Z源程序：



' V' y( e% d  e
#include <reg51.h>
# {" U7 E/ }! c' sunsigned char i,j,t,m,DelayTime,DispBuf[3];
//单片机脉搏测量仪源程序
//作者:吴汉清 ntwhq@tom.com
  E/ ]8 D/ `# Q% N" B; Lunsigned int n,mb;
unsigned char code
BitTab[3]={0xf7,0xef,0xdf};//位驱动码
2 I/ X/ z' I0 G1 t2 Z+ Ounsigned char code
DispTab[10]={0x81,0xcf,0x92,0x86,0xcc,0xa4,0xa0,0x8f,0x80,0x84};//字形码
. R4 T4 ?6 Y1 msbit P3_0=P3^0;
. s1 s5 M5 @! K: N  {' U* rvoid delay(DelayTime);
2 |" @9 \8 i4 ^' `/ B9 emain()         //主程序
{        
        TMOD=0x01;        //定时器T0工作于方式1
. T# M+ g3 `( ]: [, |$ I5 c        TH0=0xec;
* X% X3 c! X; q, a7 K        TL0=0x78;        //T0定时时间为5ms
        IE=0X83;         //开中断
        IT0=1;           //外部中断0为边沿触发方式
9 h0 |) ?5 P) w: E: C3 c6 j        TR0=1;           //开定时器T0
        for(;;)          //脉搏指示灯控制
( A; w% T  D) o8 [# X+ [        {        
                if(P3_0==0)
: |2 s6 I2 E) O                {
& g+ _7 K0 o7 y& S' y& Y, F5 S- y                        delay(200);
/ c. V2 |7 A# R: F3 d                        P3_0=1;
7 Q# V& ?" Q$ R/ R; [, |                }
        }
}
6 _. L" r/ Z7 O+ A  A4 _external0() interrupt 0//外部中断服务程序
3 o/ i0 a4 s3 I* a; B+ g" y{
: a8 a% ]" I! z* k9 S! v* T. j, }        P3_0=0;          //点亮指示灯
        if(n==0)
6 e6 s$ R1 e1 K        mb=0;
        else
* m9 B8 O3 N- V        mb=12000/n;      //计算每分钟脉搏数
" E3 `4 E, x2 D) E1 w2 s        DispBuf[2]=mb%10;//取个位数
        mb=mb/10;
        DispBuf[1]=mb%10;//取十位数
        DispBuf[0]=mb/10;//取百位数
' I% k" e7 T4 i7 E) v        n=0;
/ t/ \# ?7 f0 A- a}
Timer0() interrupt 1//定时中断服务程序
4 Y. N. ]/ v. x0 J7 m{        
        TH0=0xec;
( t& f' U3 P; P# X5 _        TL0=0x78;
        t=BitTab[j];//取位值
        P3=P3|0x38;//P3.3-P3.5送1
        P3=P3&t;   //P3.3-P3.5输出取出的位值
, n* a+ M0 J. }5 r. P7 n: q2 D        t=DispBuf[j];//取出待显示的数
/ K& {6 S- R; k7 [        t=DispTab[t];//取字形码
        P1=t; //字型码由P3输出显示
        j++;  //j作为数码管的计数器,取值0-2,显示程序通过它确认显示哪个数码管
6 h% D) i( s1 y; V        if(j==3)
        j=0;
        n++;
        if(n==2000)//10秒钟测不到心率,n复位
        n=0;
}
void delay(DelayTime)//延时子程序
{
; O$ V" M  K; I" |        for(;DelayTime>0;DelayTime--)
2 x' p; B! r9 M. t: A9 `        {
                for(i=0;i<250;i++)
                        ;
- D3 k+ \& ?% l/ X        }
5 t/ a/ U! k5 ~. H( E}

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

3 v6 y! O2 i7 F3 n; V* M9 V

sunygd

看看楼主的代码