基于单片机的血压测量

血压测量

#include				 //头文件
#define uchar unsigned char		 //宏定义
#define uint unsigned int		 // 6T 工作模式
#define LCD1602_dat P0			 //9V供电



sbit LCD1602_rs=P1^0;					 //I/O 定义
//sbit LCD1602_rw=P2^6;					 //I/O 定义
sbit LCD1602_e=P1^1;

sbit led_1=P1^2;		  //指示灯IO口

sbit chuqi=P2^0;		  //出气电磁阀
sbit jinqi=P2^1;		  //气泵
sbit beep=P1^3;		  //蜂鸣器
sbit key_1=P3^2;		  //独立按键

uchar cs_1;  // 测试变量

uint data_1data_2ysmscsshuPDtime_1time_xl;

uchar AP_HAP_Ljc_1zc_1xlxl_1statepjs[10]pj_spj_ttimerzhi;
unsigned long shu1cc;
bit jcjc1wcPD1wc_1wc_2GOpj_1;

void delay（uint T）							   //延时程序
{
	while（T--）;
}


void LCD1602_write（uchar orderdat）				  //1602 一个字节  处理
{
    LCD1602_e=0;
    LCD1602_rs=order;
    LCD1602_dat=dat;
//    LCD1602_rw=0;
    LCD1602_e=1;
    delay（10）;
    LCD1602_e=0;																								     
}

void LCD1602_writebyte（uchar *prointer）				   //1602 字符串    处理
{
    while（*prointer!=‘\0‘）
    {
        LCD1602_write（1*prointer）;
        prointer++;
    }
}

void LCD1602_cls（）									 //1602 初始化
{
	LCD1602_write（00x01）;     //1602 清屏 指令
	delay（1500）;
	LCD1602_write（00x38）;     // 功能设置 8位、5*7点阵
	delay（1500）;
	LCD1602_write（00x0c）;     //设置 光标   不显示开关、不显示光标、字符不闪烁
	LCD1602_write（00x06）;
	LCD1602_write（00xd0）;
	delay（1500）;
}

void show（）	    //显示程序
{
	if（state==0）	    //初始化显示界面
	{
		LCD1602_write（00x80）;
		LCD1602_writebyte（“Begin:          “）;
		LCD1602_write（00xC0）;
		LCD1602_write（10x30+shu1/1000000%10）;	  //显示压力传感器模块频率
		LCD1602_write（10x30+shu1/100000%10）;
		LCD1602_write（10x30+shu1/10000%10）;
		LCD1602_write（10x30+shu1/1000%10）;
		LCD1602_write（10x30+shu1/100%10）;
		LCD1602_write（10x30+shu1/10%10）;
		LCD1602_write（10x30+shu1%10）;   
		LCD1602_writebyte（“  “）;   
		LCD1602_write（10x30+shu/100%10）;	//气压转换后的数据
		LCD1602_write（10x30+shu/10%10）;
		LCD1602_write（10x30+shu%10）;
		LCD1602_writebyte（“mmHg“）;
	}else if（state==1）		 //充气血压检测界面
	{
		LCD1602_write（00x80）;
		LCD1602_writebyte（“Inflating:      “）;
		LCD1602_write（00xC0）;
		LCD1602_write（10x30+shu1/1000000%10）;	 //显示压力传感器模块频率
		LCD1602_write（10x30+shu1/100000%10）;
		LCD1602_write（10x30+shu1/10000%10）;
		LCD1602_write（10x30+shu1/1000%10）;
		LCD1602_write（10x30+shu1/100%10）;
		LCD1602_write（10x30+shu1/10%10）;
		LCD1602_write（10x30+shu1%10）; 
		LCD1602_writebyte（“  “）; 
		LCD1602_write（10x30+shu/100%10）; //显示当前压力
		LCD1602_write（10x30+shu/10%10）;
		LCD1602_write（10x30+shu%10）;
		LCD1602_writebyte（“mmHg“）; //单位 mmHg
	}else if（state==2）	 //放气检测血压界面   显示压力数据
	{
		LCD1602_write（00x80）;
		LCD1602_writebyte（“Measure:        “）;
		/*if（wc_1==1） LCD1602_writebyte（“1“）;
		else	 LCD1602_writebyte（“0“）;
		if（wc_2==1） LCD1602_writebyte（“1“）;
		else	 LCD1602_writebyte（“0“）;
		LCD1602_write（10x30+cs_1/100%10）;
		LCD1602_write（10x30+cs_1/10%10）;
		LCD1602_write（10x30+cs_1%10）; */
		LCD1602_write（00xC0）;
		LCD1602_writebyte（“    

 属性            大小     日期    时间   名称
----------- ---------  ---------- -----  ----
     目录           0  2018-12-04 11:09  血压计完整资料\
     目录           0  2018-12-19 15:54  血压计完整资料\1-程序  6T模式\
     文件        7660  2018-12-17 09:29  血压计完整资料\1-程序  6T模式\C51.c
     文件       20124  2018-12-18 11:39  血压计完整资料\1-程序  6T模式\C51.LST
     文件       19332  2018-12-18 11:39  血压计完整资料\1-程序  6T模式\C51.OBJ
     文件           0  2016-04-26 14:39  血压计完整资料\1-程序  6T模式\MFC444.tmp
     文件           0  2016-05-07 14:20  血压计完整资料\1-程序  6T模式\MFC44E.tmp
     文件        6376  2016-03-11 17:27  血压计完整资料\1-程序  6T模式\STARTUP.A51
     文件       14052  2018-12-18 11:39  血压计完整资料\1-程序  6T模式\STARTUP.LST
     文件         749  2018-12-18 11:39  血压计完整资料\1-程序  6T模式\STARTUP.OBJ
     文件       16805  2018-12-18 11:39  血压计完整资料\1-程序  6T模式\电压检测
     文件         979  2018-12-18 11:39  血压计完整资料\1-程序  6T模式\电压检测.build_log.htm
     文件        6205  2018-12-18 11:39  血压计完整资料\1-程序  6T模式\电压检测.hex
     文件          59  2018-12-18 11:39  血压计完整资料\1-程序  6T模式\电压检测.lnp
     文件       21185  2018-12-18 11:39  血压计完整资料\1-程序  6T模式\电压检测.M51
     文件        2185  2017-03-27 23:48  血压计完整资料\1-程序  6T模式\电压检测.plg
     文件       72572  2016-09-27 12:07  血压计完整资料\1-程序  6T模式\电压检测.uvgui.Administrator
     文件       71230  2018-12-19 15:54  血压计完整资料\1-程序  6T模式\电压检测.uvgui.dfsx
     文件       72430  2016-05-10 21:46  血压计完整资料\1-程序  6T模式\电压检测.uvgui_Administrator.bak
     文件        5378  2018-12-10 16:47  血压计完整资料\1-程序  6T模式\电压检测.uvopt
     文件       14019  2018-12-07 16:40  血压计完整资料\1-程序  6T模式\电压检测.uvproj
     文件       55642  2017-03-27 23:48  血压计完整资料\1-程序  6T模式\电压检测_uvopt.bak
     文件       13590  2016-03-12 13:41  血压计完整资料\1-程序  6T模式\电压检测_uvproj.bak
     目录           0  2018-12-13 10:47  血压计完整资料\10-开题报告\
     文件       58880  2016-03-19 23:29  血压计完整资料\10-开题报告\开题报告三班刘园明.doc
     文件       54784  2016-03-19 23:39  血压计完整资料\10-开题报告\毕业论文（设计）开题报告 模板.doc
     目录           0  2016-10-29 15:04  血压计完整资料\11-任务书\
     文件       71680  2016-03-21 22:20  血压计完整资料\11-任务书\任务书.doc
     目录           0  2018-12-18 09:52  血压计完整资料\12-参考设计说明文档\
     文件         162  2018-12-18 09:52  血压计完整资料\12-参考设计说明文档\~$机电子血压计.doc
     文件     8909312  2018-12-13 16:32  血压计完整资料\12-参考设计说明文档\单片机电子血压计.doc
............此处省略122个文件信息