• 大小: 1.72MB
    文件类型: .rar
    金币: 1
    下载: 0 次
    发布日期: 2023-08-30
  • 语言: VB
  • 标签: vb  温度报警  上位机  

资源简介

自己用vb设计的温度报警系统,包括上位机程序和下位机程序

资源截图

代码片段和文件信息

#include
#include
#include
#define a8255_PA  XBYTE[0xD9FF]    //PA口地址
#define a8255_PB  XBYTE[0xDAFF]    //PB口地址
#define a8255_PC  XBYTE[0xDDFF]    //PC口地址
#define a8255_CON XBYTE[0xDFFF]    //控制字地址 
sbit DQ=P1^7;                      //定义18B20数据端口
sbit Buzzer=P3^3;                 //定义蜂鸣器数据端口
unsigned char temp=0;
float f_temp=0;

unsigned char const dis_table[]={0xa00xbb0x620x2a0x390x2c0x240xba0x200x280xff};

/************************************
*             延时函数              *
************************************/
void delay(unsigned int i) 

  while(i--); 


/************************************
*         定义数码管函数            *
************************************/
void display1(unsigned char placeunsigned char num)
{
    unsigned char i=0display_num=0;
unsigned int test=0;
a8255_CON=0x80;
a8255_PB=0xff;
a8255_PA=0xff;
    delay(2);
    if(place==1)  
test=0xdf; //个位数码管
    else if(place==2)  
test=0xef;     //十位数码管
    else if(place==3)  
test=0xf7; //百位数码管
    else if(place==4)  
test=0xfb; //千位数码管
    else if(place==5)  
test=0xfd; //万位数码管
    else if(place==6)  
test=0xfe; //十万位数码管
    a8255_PA=test;

    if(num==0)
display_num=dis_table[0];
else if(num==1)
display_num=dis_table[1];
else if(num==2)
display_num=dis_table[2];
else if(num==3)
display_num=dis_table[3];
else if(num==4)
display_num=dis_table[4];
else if(num==5)
display_num=dis_table[5];
else if(num==6)
display_num=dis_table[6];
else if(num==7)
display_num=dis_table[7];
else if(num==8)
display_num=dis_table[8];
else if(num==9)
display_num=dis_table[9];
else if(num==10)
display_num=dis_table[10];  //此数为0xff,让数码管灭
a8255_PB=display_num;
delay(100);
}

/************************************
*       初始化ds18b20函数           *
************************************/
void Init_DS18B20(void) 

    unsigned char x=0; 
    DQ=1;       //DQ复位 
    delay(1);   //稍做延时 
    DQ=0;       //单片机将DQ拉低 
    delay(80);  //精确延时大于480us 
    DQ=1;       //拉高总线 
    delay(5); 
    x=DQ;
    while(x);   //稍做延时后如果‘x=0‘则初始化成功‘x=1‘则初始化失败
    delay(15); 
}  

/************************************
*     ds18b20写一个字节函数         *
************************************/
void WriteOneChar(unsigned char dat) 

   unsigned char i=0; 
   for (i=8;i>0;i--) 
  { 
      DQ=0; 
      DQ=dat&0x01; 
      delay(2); 
      DQ=1; 
      dat>>=1; 
  } 
   delay(2); 


/************************************
*      ds18b20读一个字节函数        *
************************************/
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(2); 
    } 
    return(dat); 
}

/************************************
*             显示

 属性            大小     日期    时间   名称
----------- ---------  ---------- -----  ----

     文件    1869615  2012-07-20 17:12  温度报警系统(上位机+下位机)\温度报警系统(上位机部分)\安装版\Temp.exe

     文件      45056  2012-07-20 16:40  温度报警系统(上位机+下位机)\温度报警系统(上位机部分)\绿色版\温度报警系统.exe

     文件       6376  2009-05-07 14:37  温度报警系统(上位机+下位机)\温度报警系统(下位机部分)\STARTUP.A51

     文件      14048  2012-07-19 16:28  温度报警系统(上位机+下位机)\温度报警系统(下位机部分)\STARTUP.LST

     文件        749  2012-07-19 16:28  温度报警系统(上位机+下位机)\温度报警系统(下位机部分)\STARTUP.OBJ

     文件      15427  2012-07-19 16:28  温度报警系统(上位机+下位机)\温度报警系统(下位机部分)\temp

     文件       5809  2012-07-19 16:28  温度报警系统(上位机+下位机)\温度报警系统(下位机部分)\temp.c

     文件      10370  2012-07-19 16:28  温度报警系统(上位机+下位机)\温度报警系统(下位机部分)\temp.hex

     文件         56  2012-07-19 16:28  温度报警系统(上位机+下位机)\温度报警系统(下位机部分)\temp.lnp

     文件      12189  2012-07-19 16:28  温度报警系统(上位机+下位机)\温度报警系统(下位机部分)\temp.LST

     文件      19603  2012-07-19 16:28  温度报警系统(上位机+下位机)\温度报警系统(下位机部分)\temp.M51

     文件      13542  2012-07-19 16:28  温度报警系统(上位机+下位机)\温度报警系统(下位机部分)\temp.OBJ

     文件      35817  2012-07-19 08:10  温度报警系统(上位机+下位机)\温度报警系统(下位机部分)\temp.plg

     文件      55653  2012-07-18 15:25  温度报警系统(上位机+下位机)\温度报警系统(下位机部分)\temp.uvopt

     文件      13398  2012-07-16 11:33  温度报警系统(上位机+下位机)\温度报警系统(下位机部分)\temp.uvproj

     文件      55657  2012-07-16 20:33  温度报警系统(上位机+下位机)\温度报警系统(下位机部分)\temp_uvopt.bak

     文件          0  2012-07-16 09:32  温度报警系统(上位机+下位机)\温度报警系统(下位机部分)\temp_uvproj.bak

     文件        673  2012-07-19 17:02  温度报警系统(上位机+下位机)\软件说明.txt

     目录          0  2012-07-20 17:13  温度报警系统(上位机+下位机)\温度报警系统(上位机部分)\安装版

     目录          0  2012-07-18 20:22  温度报警系统(上位机+下位机)\温度报警系统(上位机部分)\绿色版

     目录          0  2012-07-19 17:11  温度报警系统(上位机+下位机)\温度报警系统(上位机部分)

     目录          0  2012-07-19 16:59  温度报警系统(上位机+下位机)\温度报警系统(下位机部分)

     目录          0  2012-07-19 17:11  温度报警系统(上位机+下位机)

----------- ---------  ---------- -----  ----

              2174038                    23


评论

共有 条评论