找回密码
 立即注册

QQ登录

只需一步,快速开始

搜索
查看: 5779|回复: 2
收起左侧

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

[复制链接]
ID:183287 发表于 2017-3-25 13:44 | 显示全部楼层 |阅读模式
51单片机座的脉搏测量仪proteus仿真加程序分享,带工程文件

仿真原理图:
0.png

0.png

源程序:


  1. #include <reg51.h>
  2. unsigned char i,j,t,m,DelayTime,DispBuf[3];
  3. //单片机脉搏测量仪源程序
  4. //作者:吴汉清 ntwhq@tom.com
  5. unsigned int n,mb;
  6. unsigned char code
  7. BitTab[3]={0xf7,0xef,0xdf};//位驱动码
  8. unsigned char code
  9. DispTab[10]={0x81,0xcf,0x92,0x86,0xcc,0xa4,0xa0,0x8f,0x80,0x84};//字形码
  10. sbit P3_0=P3^0;
  11. void delay(DelayTime);
  12. main()         //主程序
  13. {        
  14.         TMOD=0x01;        //定时器T0工作于方式1
  15.         TH0=0xec;
  16.         TL0=0x78;        //T0定时时间为5ms
  17.         IE=0X83;         //开中断
  18.         IT0=1;           //外部中断0为边沿触发方式
  19.         TR0=1;           //开定时器T0
  20.         for(;;)          //脉搏指示灯控制
  21.         {        
  22.                 if(P3_0==0)
  23.                 {
  24.                         delay(200);
  25.                         P3_0=1;
  26.                 }
  27.         }
  28. }
  29. external0() interrupt 0//外部中断服务程序
  30. {
  31.         P3_0=0;          //点亮指示灯
  32.         if(n==0)
  33.         mb=0;
  34.         else
  35.         mb=12000/n;      //计算每分钟脉搏数
  36.         DispBuf[2]=mb%10;//取个位数
  37.         mb=mb/10;
  38.         DispBuf[1]=mb%10;//取十位数
  39.         DispBuf[0]=mb/10;//取百位数
  40.         n=0;
  41. }
  42. Timer0() interrupt 1//定时中断服务程序
  43. {        
  44.         TH0=0xec;
  45.         TL0=0x78;
  46.         t=BitTab[j];//取位值
  47.         P3=P3|0x38;//P3.3-P3.5送1
  48.         P3=P3&t;   //P3.3-P3.5输出取出的位值
  49.         t=DispBuf[j];//取出待显示的数
  50.         t=DispTab[t];//取字形码
  51.         P1=t; //字型码由P3输出显示
  52.         j++;  //j作为数码管的计数器,取值0-2,显示程序通过它确认显示哪个数码管
  53.         if(j==3)
  54.         j=0;
  55.         n++;
  56.         if(n==2000)//10秒钟测不到心率,n复位
  57.         n=0;
  58. }
  59. void delay(DelayTime)//延时子程序
  60. {
  61.         for(;DelayTime>0;DelayTime--)
  62.         {
  63.                 for(i=0;i<250;i++)
  64.                         ;
  65.         }
  66. }
复制代码

0.png

下载:
单片机脉搏测量仪.rar (76.26 KB, 下载次数: 64)
回复

使用道具 举报

ID:191114 发表于 2017-4-19 09:58 | 显示全部楼层
非常需要,很给力
回复

使用道具 举报

ID:354879 发表于 2018-6-20 15:44 | 显示全部楼层
楼主,给份资源好吗?
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

手机版|小黑屋|51黑电子论坛 |51黑电子论坛6群 QQ 管理员QQ:125739409;技术交流QQ群281945664

Powered by 单片机教程网

快速回复 返回顶部 返回列表