串口通信代码.docx
- 文档编号:26364428
- 上传时间:2023-06-18
- 格式:DOCX
- 页数:29
- 大小:18.70KB
串口通信代码.docx
《串口通信代码.docx》由会员分享,可在线阅读,更多相关《串口通信代码.docx(29页珍藏版)》请在冰豆网上搜索。
串口通信代码
串口通信代码
TMSCOMN:
:
~TMSCOMN()
{
if(hComs!
=INVALID_HANDLE_VALUE)
{
CloseHandle(hComs);
hComs=INVALID_HANDLE_VALUE;
}
};
voidTMSCOMN:
:
CloseComs()
{
if(hComs!
=INVALID_HANDLE_VALUE)
{
CloseHandle(hComs);
hComs=INVALID_HANDLE_VALUE;
}
};
AnsiStringTMSCOMN:
:
GetComError()
{
AnsiStringErrors;
if(ComReg==0)Errors=AnsiString("串口设备与串口工作良好");
elseif(ComReg==1)Errors=AnsiString("串口未打开");
elseErrors=AnsiString("串口设备与串口未连接上");
returnErrors;
};
voidTMSCOMN:
:
SetRs232Coms(intNoComs,intBps)
{
AnsiStringComNo;
DCBdcb;
COMMTIMEOUTSTimeOuts;
charstr[100];
ComErr=AnsiString("");
if(hComs!
=INVALID_HANDLE_VALUE)
{
CloseHandle(hComs);
hComs=INVALID_HANDLE_VALUE;
}
ComNo=AnsiString("COM")+AnsiString(NoComs+1);
hComs=CreateFile(ComNo.c_str(),GENERIC_READ|GENERIC_WRITE,0,NULL,OPEN_EXISTING,FILE_ATTRIBUTE_NORMAL|FILE_FLAG_OVERLAPPED,0);
if(hComs==INVALID_HANDLE_VALUE)
{
ComReg=1;ComErr=AnsiString("串口RS232未打开");
Application->MessageBoxA("串口RS232打开出错!
","错误",MB_OK|MB_ICONERROR);
}
else
{
GetCommState(hComs,&dcb);
if(Bps==0)dcb.BaudRate=CBR_300;
elseif(Bps==1)dcb.BaudRate=CBR_1200;
elseif(Bps==2)dcb.BaudRate=CBR_2400;
elseif(Bps==3)dcb.BaudRate=CBR_4800;
elseif(Bps==4)dcb.BaudRate=CBR_9600;
elseif(Bps==5)dcb.BaudRate=CBR_19200;
elseif(Bps==6)dcb.BaudRate=CBR_38400;
dcb.ByteSize=8;
dcb.Parity=NOPARITY;
dcb.StopBits=ONESTOPBIT;
SetCommState(hComs,&dcb);
TimeOuts.ReadIntervalTimeout=0;//读间隔超时
TimeOuts.ReadTotalTimeoutMultiplier=10;//读时间系数
TimeOuts.ReadTotalTimeoutConstant=100;//读时间常量
TimeOuts.WriteTotalTimeoutMultiplier=10;//写时间系数
TimeOuts.WriteTotalTimeoutConstant=100;//写时间常数
SetCommTimeouts(hComs,&TimeOuts);//保存设置值生效
lpOverlapped.hEvent=CreateEvent(NULL,TRUE,FALSE,NULL);
ComReg=0;
GetCommModemStatus(hComs,&Stats);
if(((Stats)&16)==0)
{
ComReg=2;
sprintf(str,"串口%d与设备PM300未连接上!
",(NoComs+1));
ComErr=AnsiString(str);
Application->MessageBoxA(str,"错误",MB_OK|MB_ICONERROR);
}
}
};
voidTMSCOMN:
:
SetRs485Coms(intNoComs,intBps)
{
AnsiStringComNo;
DCBdcb;
COMMTIMEOUTSTimeOuts;
charstr[100];
ComErr=AnsiString("");
if(hComs!
=INVALID_HANDLE_VALUE)
{
CloseHandle(hComs);
hComs=INVALID_HANDLE_VALUE;
}
ComNo=AnsiString("COM")+AnsiString(NoComs+1);
hComs=CreateFile(ComNo.c_str(),GENERIC_READ|GENERIC_WRITE,0,NULL,OPEN_EXISTING,FILE_ATTRIBUTE_NORMAL|FILE_FLAG_OVERLAPPED,0);
if(hComs==INVALID_HANDLE_VALUE)
{
ComReg=1;ComErr=AnsiString("串口RS485未打开");
Application->MessageBoxA("串口RS485打开出错!
","错误",MB_OK|MB_ICONERROR);
}
else
{
GetCommState(hComs,&dcb);
if(Bps==0)dcb.BaudRate=CBR_300;
elseif(Bps==1)dcb.BaudRate=CBR_1200;
elseif(Bps==2)dcb.BaudRate=CBR_2400;
elseif(Bps==3)dcb.BaudRate=CBR_4800;
elseif(Bps==4)dcb.BaudRate=CBR_9600;
elseif(Bps==5)dcb.BaudRate=CBR_19200;
elseif(Bps==6)dcb.BaudRate=CBR_38400;
dcb.ByteSize=8;
dcb.Parity=NOPARITY;//MARKPARITY
dcb.StopBits=ONESTOPBIT;
SetCommState(hComs,&dcb);
TimeOuts.ReadIntervalTimeout=0;//读间隔超时
TimeOuts.ReadTotalTimeoutMultiplier=10;//读时间系数
TimeOuts.ReadTotalTimeoutConstant=100;//读时间常量
TimeOuts.WriteTotalTimeoutMultiplier=10;//写时间系数
TimeOuts.WriteTotalTimeoutConstant=100;//写时间常数
SetCommTimeouts(hComs,&TimeOuts);//保存设置值生效
lpOverlapped.hEvent=CreateEvent(NULL,TRUE,FALSE,NULL);
ComReg=0;
GetCommModemStatus(hComs,&Stats);
if(((Stats)&16)==0)
{
ComReg=2;
sprintf(str,"串口%d与485设备未连接上!
",(NoComs+1));
ComErr=AnsiString(str);
Application->MessageBoxA(str,"错误",MB_OK|MB_ICONERROR);
}
}
};
voidTMSCOMN:
:
SendData(char*str,intLen)
{
unsignedlonglrc;
PurgeComm(hComs,PURGE_RXCLEAR);
WriteFile(hComs,str,Len,&lrc,&lpOverlapped);
};
voidTMSCOMN:
:
GetData(char*str,int&Len)
{
COMSTATcs;
DWORDdwError;
ClearCommError(hComs,&dwError,&cs);
dwError=cs.cbInQue;
if(cs.cbInQue>0)ReadFile(hComs,str,cs.cbInQue,&dwError,&lpOverlapped);
str[dwError]=0;
Len=dwError;
};
floatTMSCOMN:
:
StrToFloat(unsignedchar*Datas)
{
union{floatf;unsignedcharc[4];}covf;
covf.c[0]=Datas[3];
covf.c[1]=Datas[2];
covf.c[2]=Datas[1];
covf.c[3]=Datas[0];
returncovf.f;
};
voidTMSCOMN:
:
GetPm300dks(int&dIks,float&dUks)
{
if(SysData.DadoNo==14&&SysData.R1Irang==0)dIks=2000/5;
elseif(SysData.DadoNo==14&&SysData.R1Irang==1)dIks=1500/5;
elseif(SysData.DadoNo==14&&SysData.R1Irang==2)dIks=1000/5;
elseif(SysData.DadoNo==14&&SysData.R1Irang==3)dIks=500/5;
elseif(SysData.DadoNo==14&&SysData.R1Irang==4)dIks=250/5;
elseif(SysData.DadoNo==14&&SysData.R1Irang==5)dIks=100/5;
elseif(SysData.DadoNo==15&&SysData.R1Irang==0)dIks=4000/5;
elseif(SysData.DadoNo==15&&SysData.R1Irang==1)dIks=3000/5;
elseif(SysData.DadoNo==15&&SysData.R1Irang==2)dIks=2500/5;
elseif(SysData.DadoNo==15&&SysData.R1Irang==3)dIks=2000/5;
elseif(SysData.DadoNo==15&&SysData.R1Irang==4)dIks=1500/5;
elseif(SysData.DadoNo==15&&SysData.R1Irang==5)dIks=1000/5;
elseif(SysData.DadoNo==15&&SysData.R1Irang==6)dIks=500/5;
elseif(SysData.DadoNo==15&&SysData.R1Irang==7)dIks=250/5;
elseif(SysData.DadoNo==15&&SysData.R1Irang==8)dIks=100/5;
elseif(SysData.DadoNo==16&&SysData.R1Irang==0&&SysData.R1Way==0)dIks=3000/5;
elseif(SysData.DadoNo==16&&SysData.R1Irang==1&&SysData.R1Way==0)dIks=2000/5;
elseif(SysData.DadoNo==16&&SysData.R1Irang==2&&SysData.R1Way==0)dIks=1000/5;
elseif(SysData.DadoNo==16&&SysData.R1Irang==3&&SysData.R1Way==0)dIks=500/5;
elseif(SysData.DadoNo==16&&SysData.R1Irang==4&&SysData.R1Way==0)dIks=250/5;
elseif(SysData.DadoNo==16&&SysData.R1Irang==5&&SysData.R1Way==0)dIks=100/5;
elseif(SysData.DadoNo==16&&SysData.R1Irang==0&&SysData.R1Way==1)dIks=200/5;
elseif(SysData.DadoNo==17&&SysData.R1Irang==0&&SysData.R1Way==0)dIks=4000/5;
elseif(SysData.DadoNo==17&&SysData.R1Irang==1&&SysData.R1Way==0)dIks=3000/5;
elseif(SysData.DadoNo==17&&SysData.R1Irang==2&&SysData.R1Way==0)dIks=2500/5;
elseif(SysData.DadoNo==17&&SysData.R1Irang==3&&SysData.R1Way==0)dIks=2000/5;
elseif(SysData.DadoNo==17&&SysData.R1Irang==4&&SysData.R1Way==0)dIks=1500/5;
elseif(SysData.DadoNo==17&&SysData.R1Irang==5&&SysData.R1Way==0)dIks=1000/5;
elseif(SysData.DadoNo==17&&SysData.R1Irang==6&&SysData.R1Way==0)dIks=500/5;
elseif(SysData.DadoNo==17&&SysData.R1Irang==7&&SysData.R1Way==0)dIks=250/5;
elseif(SysData.DadoNo==17&&SysData.R1Irang==8&&SysData.R1Way==0)dIks=100/5;
elseif(SysData.DadoNo==17&&SysData.R1Irang==0&&SysData.R1Way==1)dIks=200/5;
elseif(SysData.DadoNo==18&&SysData.R1Irang==0)dIks=4000/5;
elseif(SysData.DadoNo==18&&SysData.R1Irang==1)dIks=3000/5;
elseif(SysData.DadoNo==18&&SysData.R1Irang==2)dIks=2500/5;
elseif(SysData.DadoNo==18&&SysData.R1Irang==3)dIks=2000/5;
elseif(SysData.DadoNo==18&&SysData.R1Irang==4)dIks=1500/5;
elseif(SysData.DadoNo==18&&SysData.R1Irang==5)dIks=1000/5;
elseif(SysData.DadoNo==18&&SysData.R1Irang==6)dIks=500/5;
elseif(SysData.DadoNo==18&&SysData.R1Irang==7)dIks=250/5;
elseif(SysData.DadoNo==18&&SysData.R1Irang==8)dIks=100/5;
elseif(SysData.DadoNo==19&&SysData.R1Irang==0)dIks=2500/5;
elseif(SysData.DadoNo==19&&SysData.R1Irang==1)dIks=1500/5;
elseif(SysData.DadoNo==19&&SysData.R1Irang==2)dIks=1000/5;
elseif(SysData.DadoNo==19&&SysData.R1Irang==3)dIks=500/5;
elseif(SysData.DadoNo==19&&SysData.R1Irang==4)dIks=250/5;
elseif(SysData.DadoNo==19&&SysData.R1Irang==5)dIks=100/5;
elsedIks=1;
if(SysData.DadoNo==14)dUks=1;
elseif(SysData.DadoNo==15)dUks=1;
elseif(SysData.DadoNo==16&&SysData.R1Urang==0&&SysData.R1Way==0)dUks=1;
elseif(SysData.DadoNo==16&&SysData.R1Urang==1&&SysData.R1Way==0)dUks=1;
elseif(SysData.DadoNo==16&&SysData.R1Urang==2&&SysData.R1Way==0)dUks=607.4/209;
elseif(SysData.DadoNo==16&&SysData.R1Urang==0&&SysData.R1Way==1)dUks=10000/100;
elseif(SysData.DadoNo==16&&SysData.R1Urang==1&&SysData.R1Way==1)dUks=6000/600;
elseif(SysData.DadoNo==17&&SysData.R1Urang==0&&SysData.R1Way==0)dUks=1;
elseif(SysData.DadoNo==17&&SysData.R1Urang==1&&SysData.R1Way==0)dUks=1;
elseif(SysData.DadoNo==17&&SysData.R1Urang==2&&SysData.R1Way==0)dUks=607.4/209;
elseif(SysData.DadoNo==17&&SysData.R1Urang==0&&SysData.R1Way==1)dUks=10000/100;
elseif(SysData.DadoNo==17&&SysData.R1Urang==1&&SysData.R1Way==1)dUks=6000/600;
elseif(SysData.DadoNo==18)dUks=1;
elseif(SysData.DadoNo==19)dUks=1;
elsedUks=1;
};
voidTMSCOMN:
:
SetPM300UI()
{
intdIks;
floatdUks;
unsignedlongfbl;
COMSTATcs;
DWORDdwError;
GetCommModemStatus(hComs,&Stats);
if(Stats&16)
{
GetPm300dks(dIks,dUks);
PurgeComm(hComs,PURGE_RXCLEAR);
strcpy(FileBuffer,":
SEL:
CLR\r");
WriteFile(hComs,FileBuffer,strlen(FileBuffer),&fbl,&lpOverlapped);
strcpy(FileBuffer,":
SEL:
CH1;:
SEL:
CH2;:
SEL:
CH3\r");
WriteFile(hComs,FileBuffer,strlen(FileBuffer),&fbl,&lpOverlapped);
strcpy(FileBuffer,":
SEL:
VLT;:
SEL:
AMP;:
SEL:
WAT;:
SEL:
FRQ\r");
WriteFile(hComs,FileBuffer,strlen(FileBuffer),&fbl,&lpOverlapped);
strcpy(FileBuffer,":
CFG1,4\r");
WriteFile(hComs,FileBuffer,strlen(FileBuffer),&fbl,&lpOverlapped);
sprintf(FileBuffer,":
CFG38,%.3f\r",dUks);
WriteFile(hComs,FileBuffer,strlen(FileBuffer),&fbl,&lpOverlapped);
sprintf(FileBuffer,":
CFG39,%d\r",dIks);
WriteFile(hComs,FileBuffer,strlen(FileBuffer),&fbl,&lpOverlapped);
strcpy(FileBuffer,"*TRG\r");
WriteFile(hComs,FileBuffer,strlen(FileBuffer),&fbl,&lpOverlapped);
}
};
voidTM
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 串口 通信 代码