184-基于stm32单片机智能电热毯控制系统Proteus仿真+源程序

资料编号：184

一：功能介绍

1、采用stm32单片机+LCD1602显示屏+DS18B20+继电器+独立按键+加热模块，制作一个基于stm32单片机智能电热毯控制系统Proteus仿真；

2、通过ds18b20温度传感器采集电热毯的温度，显示到LCD1602显示屏上；

3、通过按键设置温度阈值，显示到LCD1602显示屏上；

4、当温度低于设置温度阈值，加热继电器开启，加热模块开始工作；

5、当温度大于40（此值程序可调），蜂鸣器报警提醒，防止烫伤；

二：仿真演示视频+程序简要讲解（程序有中文注释，新手容易看懂）

184-基于stm32单片机智能电热毯控制系统Proteus仿真+源程序

三：设计软件介绍

本设计使用C语言编程设计，程序代码采用keil5编写，程序有中文注释，新手容易看懂，仿真采用Proteus软件进行仿真，演示视频使用的是Proteus8.9版本;资料包里有相关软件包，可自行下载安装。

四：程序打开方法

特别注意:下载资料包以后一定要先解压! !!(建议解压到桌面上，文件路径太深会导致程序打开异常)，解压后再用keil5打开。

程序部分展示，有中文注释，新手容易看懂
int main(void)
{
  int t;
  short tem,tem1;
  GPIO_Configuration();//初始化     
  Init1602(); 
  IO_out();
  delay_init();
  RCC_APB2PeriphClockCmd(RCC_APB2Periph_GPIOA, ENABLE);
  GPIO_InitTypeDef g;
  g.GPIO_Mode = GPIO_Mode_Out_PP;
  g.GPIO_Speed = GPIO_Speed_10MHz;
  g.GPIO_Pin = GPIO_Pin_8  ;
  GPIO_Init(GPIOA,&g);
   GPIO_SetBits(GPIOA,GPIO_Pin_8);    //输出1


   t=DS18B20_DQ_IN;
while(t){
    DS18B20_IO_OUT();   //SET PG11 OUTPUT


    DS18B20_DQ_OUT=0;   //拉低DQ
    Delay_DS18B20(750);       //拉低750us
    DS18B20_DQ_OUT=1;   //DQ=1 
    Delay_DS18B20(15);       //15US
    DS18B20_IO_IN();  //SET PG11 INPUT   
    Delay_DS18B20(100);
    t=DS18B20_DQ_IN;
}
     tem=DS18B20_Get_Temp();//读取温度


  Delay_DS18B20(1000000);
  while(1)
  {
    tem=DS18B20_Get_Temp();//读取温度
if(  tem>0)         
  {  
  WrByte1602(0,8,'+'); 
  WrByte1602(0,9,AsciiCode[tem%1000/100]);//显示＋温度
  WrByte1602(0,10,AsciiCode[tem%100/10]);
  WrByte1602(0,12,AsciiCode[tem%10]);
        
  }
  else 
  {  
    tem1=-(tem);
    tem1=tem1+1;
  WrByte1602(0,8,'-'); 
  WrByte1602(0,9,AsciiCode[tem1%1000/100]);//显示－温度
  WrByte1602(0,10,AsciiCode[tem1%100/10]);
  WrByte1602(0,12,AsciiCode[tem1%10]);
    
  }
      anjiansaomiao();//扫描按键  
  
  WrByte1602(1,10,AsciiCode[wenduset%1000/100]);  //显示设置温度
  WrByte1602(1,11,AsciiCode[wenduset%100/10]);
  WrByte1602(1,12,AsciiCode[wenduset%10]);
  
  if(tem<wenduset*10)  PCout(9)=1;//温度小于设置值 开启加热
  else  PCout(9)=0;
  
  if(tem>400)  PCout(10)=0;//温度大于40  蜂鸣器报警提醒 防止烫伤
  else  PCout(10)=1;


  WrByte1602(0,1,' '); //字符显示
  WrByte1602(0,2,'T'); 
  WrByte1602(0,3,'E'); 
  WrByte1602(0,4,'M'); 
  WrByte1602(0,5,'P'); 
  WrByte1602(0,6,'='); 
  WrByte1602(1,1,' '); //字符显示
  WrByte1602(1,2,' '); 
  WrByte1602(1,3,'S'); 
  WrByte1602(1,4,'E'); 
  WrByte1602(1,5,'T'); 
  WrByte1602(1,6,'='); 


  WrByte1602(0,11,'.');   
  WrByte1602(0,14,'C'); 
  WrByte1602(1,14,'C'); 
  }
}

五：仿真文件（采用Proteus打开）

六：资料清单展示（文件中包含的相关资料）

百度网盘资料下载链接