资源简介
自己用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源码
相关资源
- Excel自动计算熵权法指标权重-VBA代码
- RTL8153B-VB-CG官方参考原理图-V1.4.rar45
- 非常好用免费的DICOM源程序包附vb de
- VB免控件实现HTTP请求
- 哈工大学生用VB写的ABC财务管理软件
-
vb
sc ript安装程序 - VBS代码大全
-
vb
sc ript中文参考手册.chm - GEOCOM32-VB徕卡全站仪开发包
- 文件管理系统(VB6.0源代码)文件管理
- 保存到数据库程序(VB6.0源代码编写)
- 宿舍管理 (VB+SQL)
- VB源码VB Access存储图片与读取示例
- VB编写的矩阵运算系统
- 完整图书管理系统VB
- vb 对图片的柔化效果
- vbAdvance V3.1.1.5 最终版 Key(免费注册
- vb16进制与ASCII码转换
- vb常用长度单位换算器
- 程序介绍了vb使用MSCHART实现曲线的源
- LISP调用VB写的DLL教程
- 自写VB超好用缩略图
- ExcelVBA辅助录入v2.2.2(交通工程质量监
- 平抛运动的VB源代码
- vb.net 透明窗体 窗口透明但控件不透明
- VB截图程序(附代码)
- 宏密码查看(VBA 密码查看)
- VB 图片快速模糊算法
- VB 实现的socket编程 聊天程序
- excel中不打开文件调用其它文件数据(
评论
共有 条评论