基于单片机脉搏心率体温温度计检测报警系统Proteus仿真(含全部资料)-CSDN博客

本文链接：https://blog.csdn.net/qq_16537377/article/details/151023449

全套资料包含：Proteus仿真源文件+keil C语言源程序+AD原理图+流程图+元器件清单+说明书等

资料下载：

通过网盘分享的文件：资料分享
链接: 百度网盘请输入提取码提取码: tgnu

项目功能：

系统由51单片机+最小系统+LCD1602液晶显示模块+心率（脉搏）监测模块+LCD模块+蜂鸣器+按键模块+温度传感器构成。
功能：
1.监测体温和心率的情况可以显示到显示屏幕上
2.可以通过手动按键调节阈值
3.超过阈值的时候会进行报警
4.屏幕显示数据

项目文件：

一、Proteus仿真源文件

二、AD原理图文件

二、报告说明书

三、系统流程图

四、器件清单

位号	型号	数量
C1, C2	10uF电解电容	2
C3, C4	1UF电解电容	2
C5, C6	30p瓷片电容	2
C10	470UF电解电容	1
J1	电源接口	1
K1	轻触按键	1
L1	3mm红色LED	1
P4	4P排针	1
P?	无字库LCD12864显示屏+20P排座	1
PR1	10K排阻	1
R2, R11, R12	10K电阻	3
R3, R6	220电阻	2
R4	100K电阻	1
R5	1K电阻	1
R7	30K电阻	1
R8, R13，	22K电阻	2
R9,R17	4K7电阻	2
R10	102蓝白滑动变阻器	1
R14	56K电阻	1
SW1	自锁开关	1
U1	STC89C52单片机+DIP40底座	1
U2	LM358芯片+DIP8底座	1
U3	ST188红外对管	1
U5	防水DS18B20温度传感器	1
VR1	10K滑动变阻器	1
Y1	12M晶振	1

五、Keil c语言程序源代码(部分)

#include "reg52.h"
#include "intrins.h"
#include "DS18B20.h"

sbit DQ=P1^0;//数据端
/*****延时子程序*****/
void Delay_DS18B20(int num)
{
  while(num--) ;
}
/*****初始化DS18B20*****/
void Init_DS18B20(void)
{
  unsigned char x=0;
  DQ = 1;         //DQ复位
  Delay_DS18B20(8);    //稍做延时
  DQ = 0;         //单片机将DQ拉低
  Delay_DS18B20(80);   //精确延时，大于480us
  DQ = 1;         //拉高总线
  Delay_DS18B20(14);
  x = DQ;           //稍做延时后，如果x=0则初始化成功，x=1则初始化失败
  Delay_DS18B20(20);
}																			  
/*****读一个字节*****/
unsigned char ReadOneChar(void)
{
  unsigned char i=0;
  unsigned char dat = 0;
  for (i=8;i>0;i--)
  {
    DQ = 0;     // 给脉冲信号
    dat>>=1;
    DQ = 1;     // 给脉冲信号
    if(DQ)
    dat|=0x80;
    Delay_DS18B20(4);
  }
  return(dat);
}
/*****写一个字节*****/
void WriteOneChar(unsigned char dat)
{
  unsigned char i=0;
  for (i=8; i>0; i--)
  {
    DQ = 0;
    DQ = dat&0x01;
    Delay_DS18B20(5);
    DQ = 1;
    dat>>=1;
  }
}
/*****读取温度*****/
unsigned int ReadTemperature(void)
{
  unsigned char a=0;
  unsigned char b=0;
  unsigned int t=0;
  float tt=0;
  Init_DS18B20();
  WriteOneChar(0xCC);  //跳过读序号列号的操作
  WriteOneChar(0x44);  //启动温度转换
  Init_DS18B20();
  WriteOneChar(0xCC);  //跳过读序号列号的操作
  WriteOneChar(0xBE);  //读取温度寄存器
  a=ReadOneChar();     //读低8位
  b=ReadOneChar();    //读高8位
  t=b;
  t<<=8;
  t=t|a;
  tt=t*0.0625;
  t= tt*10+0.5;     //放大10倍输出并四舍五入
  return(t);
}
//=====================================================================================
//=====================================================================================
//=====================================================================================

六、全套资料包含

七：项目资源获取

需要完整的资料可以点击下面的名片关注，回复“资料”！

↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓