基于单片机心率计程序

#include #include / 包含头文件#define uint unsigned int#define uchar unsigned char#define ulong unsigned long /宏定义#define LCD_DATA P0 /定义P0口为LCD_DATAsbit LCD_RS =P25;sbit LCD_RW =P26;sbit LCD_E =P27; /定义LCD控制引脚sbit Xintiao =P32 ; /脉搏检测输入端定义sbit speaker =P24; /蜂鸣器引脚定义void delay5ms(void); /误差 0usvoid LCD_WriteData(uchar LCD_1602_DATA); /*LCD1602数据写入*/void LCD_WriteCom(uchar LCD_1602_COM); /*LCD1602命令写入*/void lcd_1602_word(uchar Adress_Com,uchar Num_Adat,uchar *Adress_Data); /*1602字符显示函数，变量依次为字符显示首地址，显示字符长度，所显示的字符*/void InitLcd();/液晶初始化函数void Tim_Init();uchar Xintiao_Change=0; /uint Xintiao_Jishu;uchar stop;uchar View_Data3;uchar View_L3;uchar View_H3;uchar Xintiao_H=100;/脉搏上限uchar Xintiao_L=40;/脉搏下限uchar Key_Change;uchar Key_Value;/按键键值uchar View_Con;/设置的位（0正常工作，1设置上限，2设置下限）uchar View_Change;void main() /主函数InitLcd();Tim_Init();lcd_1602_word(0x80,16,Heart Rate: ); /初始化显示TR0=1;TR1=1; /打开定时器while(1) /进入循环if(Key_Change) /有按键按下并已经得出键值Key_Change=0; /将按键使能变量清零，等待下次按键按下View_Change=1;switch(Key_Value)/判断键值case 1:/设置键按下View_Con+;/设置的位加if(View_Con=3)/都设置好后将此变量清零View_Con=0;break;/跳出，下同case 2:/加键按下if(View_Con=2)/判断是设置上限if(Xintiao_H150)/上限数值小于150Xintiao_H+;/上限+if(View_Con=1)/如果是设置下限if(Xintiao_LXintiao_L+1)/上限数据大于下限+1（同样上限值不能小于下限）Xintiao_H-;/上限数据减if(View_Con=1)/设置下限if(Xintiao_L30)/下限数据大于30时Xintiao_L-;/下限数据减break; if(View_Change)/显示变量View_Change=0;/变量清零if(stop=0) /心率正常时if(View_Data0=0x30) /最高位为0时不显示View_Data0= ;else /心率不正常（计数超过5000，也就是两次信号时间超过5s）不显示数据View_Data0= ;View_Data1= ;View_Data2= ;switch(View_Con)case 0: /正常显示lcd_1602_word(0x80,16,Heart Rate: );/显示一行数据lcd_1602_word(0xc0,16, );/显示第二行数据lcd_1602_word(0xcd,3,View_Data); /第二行显示心率break;case 1: /设置下限时显示lcd_1602_word(0x80,16,Heart Rate: );/第一行显示心率lcd_1602_word(0x8d,3,View_Data);View_L0=Xintiao_L/100+0x30;/将下限数据拆字View_L1=Xintiao_L%100/10+0x30;View_L2=Xintiao_L%10+0x30;if(View_L0=0x30)/最高位为0时，不显示View_L0= ;lcd_1602_word(0xC0,16,Warning L : );/第二行显示下限数据lcd_1602_word(0xCd,3,View_L);break;case 2: /设置上限时显示（同上）lcd_1602_word(0x80,16,Heart Rate: );lcd_1602_word(0x8d,3,View_Data);View_H0=Xintiao_H/100+0x30;View_H1=Xintiao_H%100/10+0x30;View_H2=Xintiao_H%10+0x30;if(View_H0=0x30)View_H0= ;lcd_1602_word(0xC0,16,Warning H : );lcd_1602_word(0xCd,3,View_H);break;void Time1() interrupt 3/定时器1服务函数static uchar Key_Con,Xintiao_Con;TH1=0xd8; /10msTL1=0xf0; /重新赋初值switch(Key_Con) /无按键按下时此值为0case 0: /每10ms扫描此处if(P1&0x07)!=0x07)/扫描按键是否有按下Key_Con+; /有按下此值加1，值为1break;case 1: /10ms后二次进入中断后扫描此处（Key_Con为1）if(P1&0x07)!=0x07)/第二次进入中断时，按键仍然是按下（起到按键延时去抖的作用）Key_Con+; /变量加1，值为2switch(P1&0x07) /判断是哪个按键按下case 0x06:Key_Value=1;break; /判断好按键后将键值赋值给变量Key_Valuecase 0x05:Key_Value=2;break;case 0x03:Key_Value=3;break;else /如果10ms时没有检测到按键按下（按下时间过短）Key_Con=0; /变量清零，重新检测按键break;case 2: /20ms后检测按键if(P1&0x07)=0x07) /检测按键是否还是按下状态Key_Change=1; /有按键按下使能变量，（此变量为1时才会处理键值数据）Key_Con=0;/变量清零，等待下次有按键按下break;switch (Xintiao_Con)/此处与上面按键的检测类似case 0: /默认Xintiao_Con是为0的if(!Xintiao)/每10ms（上面的定时器）检测一次脉搏是否有信号Xintiao_Con+;/如果有信号，变量加一，程序就会往下走了break;case 1:if(!Xintiao) /每过10ms检测一下信号是否还存在Xintiao_Con+;/存在就加一elseXintiao_Con=0;/如果不存在了，检测时间很短，说明检测到的不是脉搏信号，可能是其他干扰，将变量清零，跳出此次检测 break;case 2:if(!Xintiao)Xintiao_Con+;/存在就加一elseXintiao_Con=0;/如果不存在了，检测时间很短，说明检测到的不是脉搏信号，可能是其他干扰，将变量清零，跳出此次检测 break;case 3:if(!Xintiao)Xintiao_Con+;/存在就加一elseXintiao_Con=0;/如果不存在了，检测时间很短，说明检测到的不是脉搏信号，可能是其他干扰，将变量清零，跳出此次检测 break;case 4:if(Xintiao)/超过30ms一直有信号，判定此次是脉搏信号，执行以下程序if(Xintiao_Change=1)/心率计原理为检测两次脉冲间隔时间计算心率，变量Xintiao_Change第一次脉冲时为0的，所有走下面的else，第二次走这里if(60000/Xintiao_Jishu200)View_Data0=-;View_Data1=-; View_Data2=-;speaker=1;/不响elseView_Data0=(60000/Xintiao_Jishu)/100+0x30; /计算心跳并拆字显示：心跳计时是以10ms为单位，两次心跳中间计数如果是100次，也就是100*10ms=1000ms=1sView_Data1=(60000/Xintiao_Jishu)%100/10+0x30; /那么计算出的一分钟（60s）心跳数就是：60*1000/（100*10ms）=60次 其中60是一分钟60s，1000是一秒有1000ms，100是计数值，10是一次计数对应 的时间是10msView_Data2=(60000/Xintiao_Jishu)%10+0x30; /计算出的心跳数/100得到心跳的百位，%100是取余的，就是除以100的余数，再除以10就得到十位了，以此类推 /0x30的目的是得到对应数字的液晶显示码，数字0对应的液晶显示码是0x30，1是0x30+1，以此类推if(60000/Xintiao_Jishu)=Xintiao_H)|(60000/Xintiao_Jishu)=Xintiao_L)/心率不在范围内报警speaker=0;/蜂鸣器响elsespeaker=1;/不响View_Change=1; /计算出心率后启动显示Xintiao_Jishu=0; /心跳计数清零Xintiao_Change=0; /计算出心率后该变量清零，准备下次检测心率stop=0; /计算出心率后stop邈else/第一次脉冲时Xintiao_Change为0Xintiao_Jishu=0;/脉冲计时变量清零，开始计时Xintiao_Change=1;/Xintiao_Change置1，准备第二次检测到脉冲时计算心率Xintiao_Con=0;/清零，准备检测下一次脉冲break;/*定时器T0工作函数*/void Time0() interrupt 1TH0=0xfc; /1msTL0=0x18; /重新赋初值Xintiao_Jishu+; /心跳计数加if(Xintiao_Jishu=5000)/心跳计数大于5000Xintiao_Jishu=0;/数据清零View_Change=1;/显示位置1Xintiao_Change=0;/置零，准备再次检测stop=1; /心跳计数超过5000后说明心率不正常或者没有测出，stop置1speaker=1; /关闭蜂鸣器/*定时器初始化函数*/void Tim_Init()EA=1; /打开中断总开关ET0=1; /打开T0中断允许开关ET1=1; /打开T1中断允许开关TMOD=0x11; /设定定时器状态TH0=0xfc; /1msTL0=0x18; /赋初值TH1=0xd8; /10