资源简介
自己用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
- 上一篇:实验室设备管理系统 VB+SQL
- 下一篇:车辆管理系统VB源码
相关资源
- 车辆管理系统VB源码
- 实验室设备管理系统 VB+SQL
- mvbcs1_datasheet
- VB串口通信程序设计典型[教程]
- 图书管理系统课程设计报告vb
- windows脚本(JSVBS)手册
- VB/VC虚拟仪表控件绝对可用
- 学生信息管理vb.net
- 图书管理系统(VB+SQL Server)
- vb写的备忘录,很漂亮
- win7(64位)VB6.0加载控件MSCOMCTL.OCX时提
- Excel_VBA_编程教程(完整版)、excel高
- windows API中文参考手册 vb
- VB物流快递公司业务管理系统单机版
- TSExpert(TS流离线分析工具)
-
windows sc
ript 5.6 - vb6.0+mysql编写的小型超市管理系统
- VB.net socket屏幕传输
- VB6.0详细讲义(VB6实用教程_VB6从入门
- VB精简版.rar
- MVB总线关键技术
- 科大讯飞语音开发包(TTS_SDK)
- vb.net程序设计实用教程
- CAD DVB文件加密和解密超强
- vb排课系统的源代码数据库用的acces
- vb+access 员工管理系统设计
- 网吧计费管理系统VB+SQL.rar
- VB+SQL ERP生产管理系统源码
- vb.net2010登陆窗口
- 带上位机基于51单片机点阵显示汉字
评论
共有 条评论