用Delphi实现上位机与单片机串行通信源代码及效果图.docx
《用Delphi实现上位机与单片机串行通信源代码及效果图.docx》由会员分享，可在线阅读，更多相关《用Delphi实现上位机与单片机串行通信源代码及效果图.docx（15页珍藏版）》请在冰豆网上搜索。
用Delphi实现上位机与单片机串行通信源代码及效果图
用Delphi实现上位机与单片机串行通信效果图及源代码只公布下位机（单片机）程序
//****************************************************************************************************//
//本设计使用AT89C2051单片机，
//时钟频率为11.0592MHz，12MHz也可以
//用共阳极LED数码管显示及使用DS18B20智能温度传感器。
//
//设计日月科技，QQ512566413
#include
#include
//_nop_（）;延时函数，用于小于1us延时
#defineucharunsignedchar
#defineuintunsignedint
#definedisdataP1//段码输出口
sbitdin=P1^5;//LED小数点控制
//#definediscanP3//动态扫描口
//占用整个P3口了,现改为指定下面的端口,
//把多余端口占用的空出来
//列扫描控制IO口
sbitled_1=P2^0;
sbitled_2=P2^1;
sbitled_3=P2^2;
sbitled_4=P2^3;
sbitdq=P3^3;//温度输入口
ucharch;
ucharcrc;
//***温度小数部分用查表法*********//
uchardataRomCode[8]={
0x00,0x00,0x00,0x00,
0x00,0x00,0x00,0x00
};
ucharcodeditab[16]={
0x00,0x01,0x01,0x02,
0x03,0x03,0x04,0x04,
0x05,0x06,0x06,0x07,
0x08,0x08,0x09,0x09
};
/*ucharcodedis_7[12]={
0xC0,0xF9,0xA4,0xB0,
0x99,0x92,0x82,0xF8,
0x80,0x90,0xff,0xbf
};*/
ucharcodedis_7[12]={
0x28,0xEE,0x32,0xA2,
0xE4,0xA1,0x21,0xEA,
0x20,0xA0,0xff,0xF7};
//共阴极LED段码表"0""1""2""3""4""5""6""7""8""9""不亮""-"
ucharcodestr[12]={
'0','1','2','3','4',
'5','6','7','8','9',
'','-'
};
//ucharcodescan_con[4]={0x04,0x08,0x10,0x20};
//列扫描控制字，P3.2P3.3P3.4P3.5
//0x04化成二进制就是00000100
//0x08化成二进制就是00001000
//0x10化成二进制就是00010000
//0x20化成二进制就是00100000
//0x40化成二进制就是01000000
//0x80化成二进制就是10000000
uchardatatemp_data[2]={0x00,0x00};//读出温度暂放
uchardatadisplay[5]={0x00,0x00,0x00,0x00,0x00};
//显示单元数据,共4个数据,一个运算暂存用
//串口初始化晶振为11.0592M方式1波特率300-57600
voidInitCom（void）
{
#defineXTAL11059200//CUP晶振频率
#definebaudrate9600//通信波特率
TMOD=0x20;//定时器1方式2定时器0方式1
//用在别处可以不用定时器0,TMOD=0x20
TH1=TL1=（unsignedchar）（256-（XTAL/（32L*12L*baudrate）））;//THTL;
SCON=0x50;//串口方式1,允许接收
//TCON=0x40;//设定时器1开始计数
//PCON=0x80;//波特率加倍控制,SMOD位
PCON=0x00;
RI=0;//清收发标志
TI=0;
IE=0x90;//0x00=禁止任何中断,0x90开启T1中断,0x92开启全部中断
TR1=1;//启动定时器1
}
//向串口输出一个字符（非中断方式）
voidComOutChar（unsignedcharOutData）
{
SBUF=OutData;//输出字符
while（!
TI）;//空语句判断字符是否发完
TI=0;//清TI
}
//串口接收中断函数
voidserial（）interrupt4//using3
{
if（RI）
{
RI=0;
ch=SBUF;
}
}
//****11微秒延时函数*********************//
voiddelay（uintt）
{
for（;t>0;t--）;
}
//***********显示扫描函数*************//
voidscan（void）
{
chark;
for（k=0;k<4;k++）//四位LED扫描控制从左到右
{
Disdata=dis_7[display[k]];
//discan=scan_con[k];
switch（k）
{
case0:
LED_1=0;
break;
case1:
LED_2=0;
DIN=0;
break;
case2:
LED_3=0;
break;
case3:
LED_4=0;
break;
default:
break;
}
delay（100）;
//scan_con-列扫描控制字；
//discan-P3口列扫描输出
//discan=0x00;//灭字
switch（k）
{
case0:
LED_1=1;
break;
case1:
LED_2=1;
break;
case2:
LED_3=1;
break;
case3:
LED_4=1;
break;
default:
break;
}
}
}
//******18B20复位函数***********//
voidInit_DS18B20（void）
{
charpresence=1;
while（presence）
{
while（presence）
{
DQ=1;
_nop_（）;
_nop_（）;//总线上拉
DQ=0;//下拉
delay（50）;//维持550us，最短维持480us
DQ=1;//总线上拉
delay（6）;//检测总线上升沿，66us
presence=DQ;//DS18B20发存在低电平信号（60-240us）；presence=0继续下一步
}
delay（30）;
//延时300us，总线恢复高电平，DQ=1;
presence=~DQ;//取反,跳出循环
}
DQ=1;
}
//****18B20写命令函数************//
voidWriteOneChar（ucharval）
{
uchari;
for（i=8;i>0;i--）//定义8bit，写8bit
{
DQ=1;
_nop_（）;
_nop_（）;
DQ=0;
_nop_（）;
_nop_（）;
_nop_（）;
_nop_（）;
_nop_（）;//5us
DQ=val&0x01;//最低位移出,并写入总线
delay（6）;//66us
val=val>>1;
//右移一位，倒数第二位变为最低位
}
DQ=1;
delay
（1）;//高电平维持11us，写结束
}
//*******18B20读1个字节函数*********************//
ucharReadOneChar（void）
{
uchari;
ucharvalue=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;
//DQ=1，则写入为10000000
delay（6）;//66us
}
DQ=1;
return（value）;
}
/**************************************/
/**/
/*读取64位序列码*/
/**/
/**************************************/
voidRead_RomCord（void）
{
ucharj;
Init_DS18B20（）;
WriteOneChar（0x33）;//读序列码的操作
for（j=0;j<8;j++）
{
RomCode[j]=ReadOneChar（）;
}
}
/******************************************/
/**/
/*DS18B20的CRC8校验程序*/
/**/
/******************************************/
ucharCRC8（void）
{
uchari,x;
ucharcrcbuff;
crc=0;
for（x=0;x<8;x++）
{
crcbuff=RomCode[x];
for（i=0;i<8;i++）
{
if（（（crc^crcbuff）&0x01）==0）
crc>>=1;
else
{
crc^=0x18;//CRC=X8+X5+X4+1
crc>>=1;
crc|=0x80;
}
crcbuff>>=1;
}
}
returncrc;
}
//*********读出温度函数****
升级会员 