標題: 單片機脈搏測量儀儀仿真加程序 [打印本頁]

作者: 18必勝    時間: 2017-3-25 13:44
標題: 單片機脈搏測量儀儀仿真加程序
51單片機座的脈搏測量儀proteus仿真加程序分享,帶工程文件

仿真原理圖:




源程序:


  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};//位驅(qū)動碼
  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為邊沿觸發(fā)方式
  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//外部中斷服務(wù)程序
  30. {
  31.         P3_0=0;          //點亮指示燈
  32.         if(n==0)
  33.         mb=0;
  34.         else
  35.         mb=12000/n;      //計算每分鐘脈搏數(shù)
  36.         DispBuf[2]=mb%10;//取個位數(shù)
  37.         mb=mb/10;
  38.         DispBuf[1]=mb%10;//取十位數(shù)
  39.         DispBuf[0]=mb/10;//取百位數(shù)
  40.         n=0;
  41. }
  42. Timer0() interrupt 1//定時中斷服務(wù)程序
  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];//取出待顯示的數(shù)
  50.         t=DispTab[t];//取字形碼
  51.         P1=t; //字型碼由P3輸出顯示
  52.         j++;  //j作為數(shù)碼管的計數(shù)器,取值0-2,顯示程序通過它確認顯示哪個數(shù)碼管
  53.         if(j==3)
  54.         j=0;
  55.         n++;
  56.         if(n==2000)//10秒鐘測不到心率,n復(fù)位
  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. }
復(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