单片机课程设计-----数字温度计(要有原程序)

系统程序主要包括C程序主函数、DS18B20复位函数、DS18B20写字节函数、DS18B20读字节函数、温度计算转换函数、显示函数等等。
以下是DS18B20温度计C语言程序清单：
/*********************************************************************/
//
// DS18B20温度计C程序
// 2005.2.28通过调试
/*********************************************************************/
//使用AT89C2051单片机，12MHZ晶振，用共阳LED数码管
//P1口输出段码，P3口扫描
//#pragma src(d:\aa.asm)
#include "reg51.h"
#include "intrins.h" //_nop_();延时函数用
#define Disdata P1 //段码输出口
#define discan P3 //扫描口
#define uchar unsigned char
#define uint unsigned int
sbit DQ=P3^7; //温度输入口
sbit DIN=P1^7; //LED小数点控制
uint h;
//
//
//*******温度小数部分用查表法**********//
uchar code ditab[16]=
{0x00,0x01,0x01,0x02,0x03,0x03,0x04,0x04,0x05,0x06,0x06,0x07,0x08,0x08,0x09,0x09};
//
uchar code dis_7[12]={0xC0,0xF9,0xA4,0xB0,0x99,0x92,0x82,0xF8,0x80,0x90,0xff,0xbf};
/* 共阳LED段码表 "0" "1" "2" "3" "4" "5" "6" "7" "8" "9" "不亮" "-" */
uchar code scan_con[4]={0xfe,0xfd,0xfb,0xf7}; // 列扫描控制字
uchar data temp_data[2]={0x00,0x00}; // 读出温度暂放
uchar data display[5]={0x00,0x00,0x00,0x00,0x00};//显示单元数据,共4个数据,一个运算暂存用
//
//
//
/***********11微秒延时函数**********/
//
void delay(uint t)
{
for(;t>0;t--);
}
//
/***********显示扫描函数**********/
scan()
{
char k;
for(k=0;k<4;k++) //四位LED扫描控制
{
Disdata=dis_7[display[k]];
if(k==1){DIN=0;}
discan=scan_con[k];delay(90);discan=0xff;
}
}
//
//
/***********18B20复位函数**********/
ow_reset(void)
{
char presence=1;
while(presence)
{
while(presence)
{
DQ=1;_nop_();_nop_();
DQ=0; //
delay(50); // 550us
DQ=1; //
delay(6); // 66us
presence=DQ; // presence=0继续下一步
}
delay(45); //延时500us
presence = ~DQ;
}
DQ=1;
}
//
//
/**********18B20写命令函数*********/
//向 1-WIRE 总线上写一个字节
void write_byte(uchar val)
{
uchar i;
for (i=8; i>0; i--) //
{
DQ=1;_nop_();_nop_();
DQ = 0;_nop_();_nop_();_nop_();_nop_();_nop_();//5us
DQ = val&0x01; //最低位移出
delay(6); //66us
val=val/2; //右移一位
}
DQ = 1;
delay(1);
}
//
/*********18B20读1个字节函数********/
//从总线上读取一个字节
uchar read_byte(void)
{
uchar i;
uchar value = 0;
for (i=8;i>0;i--)
{
DQ=1;_nop_();_nop_();
value>>=1;
DQ = 0; //
_nop_();_nop_();_nop_();_nop_(); //4us
DQ = 1;_nop_();_nop_();_nop_();_nop_(); //4us
if(DQ)value|=0x80;
delay(6); //66us
}
DQ=1;
return(value);
}
//
/***********读出温度函数**********/
//
read_temp()
{
ow_reset(); //总线复位
write_byte(0xCC); // 发Skip ROM命令
write_byte(0xBE); // 发读命令
temp_data[0]=read_byte(); //温度低8位
temp_data[1]=read_byte(); //温度高8位
ow_reset();
write_byte(0xCC); // Skip ROM
write_byte(0x44); // 发转换命令
}
//
/***********温度数据处理函数**********/
work_temp()
{
uchar n=0; //
if(temp_data[1]>127)
{temp_data[1]=(256-temp_data[1]);temp_data[0]=(256-temp_data[0]);n=1;}//负温度求补码
display[4]=temp_data[0]&0x0f;display[0]=ditab[display[4]];
display[4]=((temp_data[0]&0xf0)>>4)|((temp_data[1]&0x0f)<<4);//
display[3]=display[4]/100;
display[1]=display[4]%100;
display[2]=display[1]/10;
display[1]=display[1]%10;
if(!display[3]){display[3]=0x0A;if(!display[2]){display[2]=0x0A;}}//最高位为0时都不显示
if(n){display[3]=0x0B;}//负温度时最高位显示"-"
}
//
//
/**************主函数****************/
main()
{
Disdata=0xff; //初始化端口
discan=0xff;
for(h=0;h<4;h++){display[h]=8;}//开机显示8888
ow_reset(); // 开机先转换一次
write_byte(0xCC); // Skip ROM
write_byte(0x44); // 发转换命令
for(h=0;h<500;h++)
{scan();} //开机显示"8888"2秒
while(1)
{
read_temp(); //读出18B20温度数据
work_temp(); //处理温度数据
for(h=0;h<500;h++)
{scan();} //显示温度值2秒
}
}
//
//*********************结束**************************//

仅供参考：
； * * * * * * * * * * * * * * * * * * * * * * * * * *
； * 用89C2051控制的数字测温仪 *
； * 源程序清单 *
； * * * * * * * * * * * * * * * * * * * * * * * * * *
ORG 0000H
AJMP MAIN ；转主程序
ORG 000BH
AJMP WT0 ；T0中断入口
ORG 001BH
AJMP WT1 ；T1中断入口

；主程序
ORG 030H
MAIN： MOV IE，#00H ；关中断
MOV SP，#40H ；设堆栈指针SP为40H
SETB P3.5 ；将P3.5口置”1”
MOV 30H,#0CH ；“P3 ”送显示缓冲区30H~33H
MOV 31H，#0EH
MOV 32H，#0EH
MOV 33H，#0EH
MAIN0： ACALL D1S ；调显示1秒子程序
MOV P1，#0FFH ；关显示
CLR 20H ；清脉宽计数值存放区20H~21H
CLR 21H
CLR 22H ；清单稳脉冲结束标志22H
MOV TH0，#0FFH ；置T0计数初值255
MOV TL0，#0FFH
MOV TH1，#00H ；置T1的计数初值0
MOV TL1，#00H
MOV TMOD，#26H ；置T0为计数方式，方式2；T1为定时方式。方式2
SETB EA ；允许T0、T1中断
SETB ET0
SETB ET1
SETB TR0 ；开T0中断
CLR P3.5 ；送单稳触发脉冲
NOP
NOP
NOP
NOP
SETB P3.5
SETB TR1 ；开T1中断
MAIN1： CJNE 22H，#01H，MAIN2 ；单稳脉冲未结束，转检查是否超时
AJMP MAIN3 ；单稳脉冲结束，转取脉宽计数值
MAIN2： CJINE 21H，#08H，MAIN1 ；未超时，转等待单稳脉冲结束
CLR EA
CLR ET0
CLR ET1
CLR TR0
CLR TR1
MOV 30H，#0DH ；开路提示“E1”送显示缓冲区，转显示
MOV 31H，#01H
MOV 32H，#0EH
MOV 33H，#0EH
AJMP MAIN0
MAIN3： CJNE 21H，#00H，MAIN4 ；单稳脉冲结束，先判断是否短路。不是，转查表程序。
MOV 30H，#0DH ；短路，短路提示“E2”送显示缓冲区，转显示
MOV 31H，#02H
MOV 32H，#0EH
MOV 33H，#0EH
AJMP MAIN0

MAIN4： ACALL NTTR ；调查表子程序
AJMP MAIN0
努力啊！