|
一个非常不错的串口程序
//函 数 名:CharToHex()
//功能描述:把ASCII字符转换为16进制
//函数说明:
//调用函数:
//全局变量:
//输 入:ASCII字符
//返 回:16进制
//设 计 者:牛毅
//修 改 者:
//版 本:
/////////////////////////////////////////////////////////////////////
unsigned char CharToHex(unsigned char bChar){
if((bChar>=0x30)&&(bChar<=0x39))
bChar -= 0x30;
else if((bChar>=0x41)&&(bChar<=0x46))//大写字母
bChar -= 0x37;
else if((bChar>=0x61)&&(bChar<=0x66))//小写字母
bChar -= 0x57;
else bChar = 0xff;
return bChar;
}
/////////////////////////////////////////////////////////////////////
//函 数 名:HexToChar()
//功能描述:把16进制转换为ASCII字符
//函数说明:
//调用函数:
//全局变量:
//输 入:16进制
//返 回:ASCII字符
//设 计 者:牛毅
//修 改 者:
//版 本:
/////////////////////////////////////////////////////////////////////
unsigned char HexToChar(unsigned char bHex){
if((bHex>=0)&&(bHex<=9))
bHex = 0x30;
else if((bHex>=10)&&(bHex<=15))//大写字母
bHex = 0x37;
else bHex = 0xff;
return bHex;
}
/////////////////////////////////////////////////////////////////////
//函 数 名:com_int()
//功能描述:初始化串口
//函数说明:默认其他参数为[baud_rate],n,8,1
//调用函数:
//全局变量:
//输 入:baud_rate 波特率
//返 回:无
//设 计 者:牛毅
//修 改 者:
//版 本:
/////////////////////////////////////////////////////////////////////
void com_init(unsigned int baud_rate){
EA=1;ES=1;//ET1=1;
SCON = 0x50; /* 0x52;//SCON */
TMOD = 0x20; /*0x20;// TMOD */
TCON = 0x60; /*0x60;// TCON */
PCON=PCON&0x7f;
switch(baud_rate){ //波特率设置
case 1200:
TL1=0xe8;TH1=0Xe8;break;//1200
case 2400:
TL1=0xf4;TH1=0Xf4;break;//2400
case 4800:
TL1=0xfa;TH1=0Xfa;break;//4800
case 9600:
TL1=0xfd;TH1=0Xfd;break;//9600
case 19200:
PCON=PCON|0x80;TL1=0xfd;TH1=0Xfd;break;//19200
case 38400:
PCON=PCON|0x80;TL1=0xfe;TH1=0Xfe;break;//38400
default:
TL1=0xfd;TH1=0Xfd;break;//9600
}
}
/////////////////////////////////////////////////////////////////////
//函 数 名:resend_frame()
//功能描述:发送重发帧
//函数说明:通知PC重发
//调用函数:
//全局变量:
//输 入:无
//返 回:无
//设 计 者:牛毅
//修 改 者:
//版 本:
/////////////////////////////////////////////////////////////////////
void resend_frame(void){
send(F_ST1);send(F_ST2);send(F_C);send(F_SPACE);send(F_SPACE);//发送效
验和
send(F_END);
}
/////////////////////////////////////////////////////////////////////
//函 数 名:quit_frame()
//功能描述:发送放弃帧
//函数说明:通知PC放弃通讯
//调用函数:
//全局变量:
//输 入:无
//返 回:无
//设 计 者:牛毅
//修 改 者:
//版 本:
/////////////////////////////////////////////////////////////////////
void quit_frame(void){
send(F_ST1);send(F_ST2);send(F_Q);send(F_ERR1);send(F_ERR1);//发送效验
和
send(F_END);
}
/////////////////////////////////////////////////////////////////////
//函 数 名:com_int()
//功能描述:串口中断
//函数说明:
//调用函数:
//全局变量:
//输 入:无
//返 回:无
//设 计 者:牛毅
//修 改 者:
//版 本:
/////////////////////////////////////////////////////////////////////
void com_int()interrupt 4{
unsigned char i,csaddr,clen,csum,tempbuf[S_MAXBUF];
csum=0;
if(receive()==F_ST1){//是侦
if(receive()==F_ST2){//头判断完
communicationing=1;//设置通讯状态为正常 即启动通讯
switch(receive()){
case F_R://是读指令帧r
if(receive()==F_ADDR){P1_2=!P1_2;//地址
正确
csaddr=CharToHex(receive())<<4;csaddr =CharToHex
(receive());
clen=CharToHex(receive())
<<4;clen =CharToHex(receive());
csum=csaddr clen;
i=CharToHex(receive())
<<4;i =CharToHex(receive());
if(i==csum){//效验和正确
if(receive()
==F_END){//结束标志正确 //开始发送数据帧
csum=0;send(F_ST1);send(F_ST2);send(F_D);
send
(HexToChar((clen&0xf0)>>4));send(HexToChar(clen&0x0f));csum =clen;
for
(i=0;i
send(HexToChar((databuf[i csaddr]&0xf0)>>4));send(HexToChar(databuf
[i csaddr]&0x0f));
csum =databuf[i csaddr];
}
//if
(csum>127)csum-=128;
send
(HexToChar((csum&0xf0)>>4));send(HexToChar(csum&0x0f));send(F_END);
//发送数据帧完毕
P1_0=!
P1_0;
}else
{ERR_NOCNTMAX_RESEND break;}//结束标志错误
}else {ERR_NOCNTMAX_RESEND
break;}//效验和错误
}//地址不正确
break;
case F_W://是PC写指令帧w
if(receive()==F_ADDR){//地址正确
csaddr=CharToHex(receive())
<<4;csaddr =CharToHex(receive());
clen=CharToHex(receive())
<<4;clen =CharToHex(receive());
csum=csaddr clen;
for(i=0;i
tempbuf[i csaddr]
=CharToHex(receive())<<4;tempbuf[i csaddr] =CharToHex(receive());
csum =tempbuf
[i csaddr];
}
i=CharToHex(receive())
<<4;i =CharToHex(receive());
if(csum!=i)
{ERR_NOCNTMAX_RESEND break;}//效验和错误
if(F_END!=receive())
{ERR_NOCNTMAX_RESEND break;}//结束标志错误
for
(i=csaddr;i
}//从PC获得数据写完毕//开始发送写回应帧
send(F_ST1);send(F_ST2);send(F_B);send
(F_SPACE);send(F_SPACE);//发送效验和
send(F_END);//写回应帧发送完毕
P1_1=!P1_1;
break;
case F_Q://检测接收放弃帧
csaddr=receive();csum =csaddr;//csaddr
兼做放弃帧码标志
if(csaddr!=F_ERR1 && csaddr!=F_ERR2)
{ERR_NOCNTMAX_RESEND break;}
if(csum!=receive())
{ERR_NOCNTMAX_RESEND break;}
if(F_END!=receive())
{ERR_NOCNTMAX_RESEND break;}
communicationing=0;//出错退出通讯
break;
default:
resend_frame();//要求从发
}
}//忽略
}//忽略
if(!communicationing)quit_frame();//调用放弃帧,通知PC 放弃通讯
}
/////////////////////////////////////////////////////////////////
//主函数
/////////////////////////////////////////////////////////////////
void main(void){
unsigned char i;
for (i=0;i=i 0x30;
com_init(38400);
while(1){
/*可以处理非串口任务*/
}
} |
|