173-基于stm32单片机全自动豆浆机控制系统Proteus仿真+源程序

资料编号：173

一：功能介绍

1、采用stm32单片机+LCD1602显示屏+DS18B20+继电器+加热模块+独立按键+蜂鸣器+电机，制作一个基于stm32单片机全自动豆浆机控制系统Proteus仿真；

2、通过ds18b20温度传感器采豆浆机中的水温，显示到LCD1602显示屏上；

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

4、当水温低于设置阈值，打开加热继电器进行加热；

5、当水温高于38度（此值程序可修改），蜂鸣器进行提醒防烫；

6、按下开始按键，电机进行转动磨豆浆，LCD1602显示工作状态，工作一段时间后自动停止（工作时间程序可调），并且蜂鸣器会滴滴提醒；

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

三：设计软件介绍

本设计使用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);
    PCout(10)=PCout(11)=1;//关闭电机蜂鸣器
    WrByte1602(1,13,'O'); 
    WrByte1602(1,14,'F'); 
    WrByte1602(1,15,'F'); 
  while(1)
  {
    tem=DS18B20_Get_Temp();//读取温度
if(  tem>0)         
  {  
  WrByte1602(0,5,'+'); 
  WrByte1602(0,6,AsciiCode[tem%1000/100]);//显示＋温度
  WrByte1602(0,7,AsciiCode[tem%100/10]);
  WrByte1602(0,9,AsciiCode[tem%10]);
        
  }
  else 
  {  
    tem1=-(tem);
    tem1=tem1+1;
  WrByte1602(0,5,'-'); 
  WrByte1602(0,6,AsciiCode[tem1%1000/100]);//显示－温度
  WrByte1602(0,7,AsciiCode[tem1%100/10]);
  WrByte1602(0,9,AsciiCode[tem1%10]);
    
  }
      anjiansaomiao();//扫描按键  
  
  WrByte1602(1,6,AsciiCode[wenduset%1000/100]);  //显示设置温度
  WrByte1602(1,7,AsciiCode[wenduset%100/10]);
  WrByte1602(1,8,AsciiCode[wenduset%10]);
  if(time>0)//开始工作
  {
    PCout(11)=0;//开启电机
    time--;
    Delay_DS18B20(1000000);
    if(time<0) time=0;
    WrByte1602(1,13,'O'); 
    WrByte1602(1,14,'N'); 
    WrByte1602(1,15,' '); 
    buf=1;
  }
  if(time==0&&buf==1)//结束工作 蜂鸣器提醒
  {
    PCout(10)=0; Delay_DS18B20(100000);PCout(10)=1; Delay_DS18B20(100000);PCout(10)=0; Delay_DS18B20(100000);PCout(10)=1; Delay_DS18B20(100000);
    PCout(10)=0; Delay_DS18B20(100000);PCout(10)=1; Delay_DS18B20(100000);PCout(10)=0; Delay_DS18B20(100000);PCout(10)=1; Delay_DS18B20(100000);    
    PCout(10)=0; Delay_DS18B20(100000);PCout(10)=1; Delay_DS18B20(100000);PCout(10)=0; Delay_DS18B20(100000);PCout(10)=1; Delay_DS18B20(100000);
    PCout(10)=0; Delay_DS18B20(100000);PCout(10)=1; Delay_DS18B20(100000);PCout(10)=0; Delay_DS18B20(100000);PCout(10)=1; Delay_DS18B20(100000);  
    PCout(10)=0; Delay_DS18B20(100000);PCout(10)=1; Delay_DS18B20(100000);PCout(10)=0; Delay_DS18B20(100000);PCout(10)=1; Delay_DS18B20(100000);
    PCout(10)=0; Delay_DS18B20(100000);PCout(10)=1; Delay_DS18B20(100000);PCout(10)=0; Delay_DS18B20(100000);PCout(10)=1; Delay_DS18B20(100000);  
    PCout(11)=1;//关闭电机
    WrByte1602(1,13,'O'); 
    WrByte1602(1,14,'F'); 
    WrByte1602(1,15,'F');   
  }
  buf=0;
  
  if(tem<wenduset*10)  PCout(9)=1;//温度小于设置值 开启加热
  else  PCout(9)=0;
  if(tem>380)  PCout(10)=0;//温度大于38报警提醒
  else  PCout(10)=1;
 //字符显示
  WrByte1602(0,0,'T'); 
  WrByte1602(0,1,'E'); 
  WrByte1602(0,2,'M'); 
  WrByte1602(0,3,'P'); 
  WrByte1602(0,4,'='); 
 
  WrByte1602(1,1,'S'); 
  WrByte1602(1,2,'E'); 
  WrByte1602(1,3,'T'); 
  WrByte1602(1,4,'='); 


  WrByte1602(0,13,'Z'); 
  WrByte1602(0,14,'T'); 
  WrByte1602(0,8,'.');   
  WrByte1602(0,10,'C'); 
  WrByte1602(1,10,'C');

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

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

付费后即可在下方获取资料下载链接