標(biāo)題: 單片機脈搏測量儀儀仿真加程序 [打印本頁]
作者: 18必勝    時間: 2017-3-25 13:44
標(biāo)題: 單片機脈搏測量儀儀仿真加程序
51單片機座的脈搏測量儀proteus仿真加程序分享，帶工程文件

仿真原理圖：




源程序：


  3. #include <reg51.h>
  4. unsigned char i,j,t,m,DelayTime,DispBuf[3];
  5. //單片機脈搏測量儀源程序
  6. //作者:吳漢清 ntwhq@tom.com
  7. unsigned int n,mb;
  8. unsigned char code
  9. BitTab[3]={0xf7,0xef,0xdf};//位驅(qū)動碼
  10. unsigned char code
  11. DispTab[10]={0x81,0xcf,0x92,0x86,0xcc,0xa4,0xa0,0x8f,0x80,0x84};//字形碼
  12. sbit P3_0=P3^0;
  13. void delay(DelayTime);
  14. main()         //主程序
  15. {        
  16.         TMOD=0x01;        //定時器T0工作于方式1
  17.         TH0=0xec;
  18.         TL0=0x78;        //T0定時時間為5ms
  19.         IE=0X83;         //開中斷
  20.         IT0=1;           //外部中斷0為邊沿觸發(fā)方式
  21.         TR0=1;           //開定時器T0
  22.         for(;;)          //脈搏指示燈控制
  23.         {        
  24.                 if(P3_0==0)
  25.                 {
  26.                         delay(200);
  27.                         P3_0=1;
  28.                 }
  29.         }
  30. }
  31. external0() interrupt 0//外部中斷服務(wù)程序
  32. {
  33.         P3_0=0;          //點亮指示燈
  34.         if(n==0)
  35.         mb=0;
  36.         else
  37.         mb=12000/n;      //計算每分鐘脈搏數(shù)
  38.         DispBuf[2]=mb%10;//取個位數(shù)
  39.         mb=mb/10;
  40.         DispBuf[1]=mb%10;//取十位數(shù)
  41.         DispBuf[0]=mb/10;//取百位數(shù)
  42.         n=0;
  43. }
  44. Timer0() interrupt 1//定時中斷服務(wù)程序
  45. {        
  46.         TH0=0xec;
  47.         TL0=0x78;
  48.         t=BitTab[j];//取位值
  49.         P3=P3|0x38;//P3.3-P3.5送1
  50.         P3=P3&t;   //P3.3-P3.5輸出取出的位值
  51.         t=DispBuf[j];//取出待顯示的數(shù)
  52.         t=DispTab[t];//取字形碼
  53.         P1=t; //字型碼由P3輸出顯示
  54.         j++;  //j作為數(shù)碼管的計數(shù)器,取值0-2,顯示程序通過它確認(rèn)顯示哪個數(shù)碼管
  55.         if(j==3)
  56.         j=0;
  57.         n++;
  58.         if(n==2000)//10秒鐘測不到心率,n復(fù)位
  59.         n=0;
  60. }
  61. void delay(DelayTime)//延時子程序
  62. {
  63.         for(;DelayTime>0;DelayTime--)
  64.         {
  65.                 for(i=0;i<250;i++)
  66.                         ;
  67.         }
  68. }
復(fù)制代碼



下載：
單片機脈搏測量儀.rar (76.26 KB, 下載次數(shù): 64)

作者: liu375413212    時間: 2017-4-19 09:58
非常需要，很給力
作者: Hi荒島先生    時間: 2018-6-20 15:44
樓主，給份資源好嗎？



歡迎光臨 (http://www.torrancerestoration.com/bbs/) Powered by Discuz! X3.1