㈠ VB的串口通信控件 MSComm 如何关闭

要防止出现报错，先判断一下端口是否已经打开。如果打开则关闭

IfMSComm1.PortOpenThen
MSComm1.PortOpen=False
EndIf

或者，加一个错误处理

OnErrorResumeNext'打开错误捕获
MSComm1.PortOpen=False
OnErrorGoto0'关闭错误捕获

㈡ VC++中如何用MSComm控件实现串口通信

1:添加MSComm控件

2:为对话框添加MSComm控件成员变量
右击MSComm控件，然后选择Add Variable...

3:为对话框添加OnComm事件
右击MSComm控件，然后选择Add Event Handle..

4:打开/关闭串口.

voidCtbox_debug_viewDlg::OnBnClickedBtOpen()
{
//TODO:
if(m_mscomm.get_PortOpen())
{
m_mscomm.put_PortOpen(FALSE);
GetDlgItem(IDC_BT_OPEN)->SetWindowText(_T("打开"));
ShowInfo(_T("关闭串口成功!"));
m_OpenStatus=false;
return;
}
UpdateData(TRUE);
m_OpenStatus=true;
//当前端口号
m_mscomm.put_CommPort(m_Port+1);//端口号
m_mscomm.put_InBufferSize(1024);//接收缓冲区
m_mscomm.put_OutBufferSize(1024);//发送缓冲区
m_mscomm.put_InputLen(0);//设置当前接收区数据长度为0，表示全部读取
m_mscomm.put_InputMode(1);//以二进制方式读写数据
m_mscomm.put_RThreshold(1);//接收缓冲区有1个及1个以上字符时，将引发接收数据的OnComm事件
//波特率
DWORDbaudrate;
switch(m_CombolBaudrate.GetCurSel())
{
case0:
baudrate=115200;
break;
case1:
baudrate=9600;
break;
default:
ASSERT(FALSE);
break;
}
CStringsetting;
setting.Format(_T("%d,n,8,1"),baudrate);
m_mscomm.put_Settings(setting/*_T("115200,n,8,1")*/);//波特率，无校验，8个数据位，1个停止1位
m_mscomm.put_PortOpen(TRUE);//打开串口
GetDlgItem(IDC_BT_OPEN)->SetWindowText(_T("关闭"));
ShowInfo(_T("打开串口成功!"));
}
5:接收串口数据
voidCtbox_debug_viewDlg::OnCommMscomm1()
{
//TODO:Addyourmessagehandlercodehere
shortcurEvent=m_mscomm.get_CommEvent();
switch(curEvent)
{
caseCMscomm1::comEvReceive:
EvReceiveHandle();
break;
}
}
voidCtbox_debug_viewDlg::EvReceiveHandle(void)
{
staticunsignedintcnt=0;
VARIANTvariant_inp;
COleSafeArraysafearray_inp;
longlen,k;
/*unsignedintdata[1024]={0};*/
BYTErxdata[1024];//设置BYTE数组
CStringstrtemp;
cnt++;
variant_inp=m_mscomm.get_Input();//读取缓冲区
safearray_inp=variant_inp;//变量转换
len=safearray_inp.GetOneDimSize();//得到有效的数据长度
for(k=0;k<len;k++)
{
safearray_inp.GetElement(&k,rxdata+k);
}
/*charc_char;*/
for(k=0;k<len;k++)
{
strtemp.Format(_T("%c"),*(rxdata+k));
m_RecveString+=strtemp;
if(*(rxdata+k)=='
')
{
ShowInfoByFilter(m_RecveString);
m_RecveString="";
}
}
}
6:发送串口数据
voidCtbox_debug_viewDlg::OnBnClickedBtSend()
{
//TODO:
if(m_OpenStatus==false)
{
AfxMessageBox(_T("请先打开串口"));
return;
}
UpdateData(TRUE);
if(m_SendString.IsEmpty())
return;
if(m_AutoAddLF)
{
m_SendString+="
";
}
m_mscomm.put_Output(COleVariant(m_SendString));
ShowInfo(m_SendString);
}