vb.net多线程串口 vbs 多线程 _数据

vb.net 串口关闭时挂起我处理这个问题的大概过程，当程序响应DataReceived时：
Private Sub MyCOMM_DataReceived(ByVal sender As Object, ByVal e As
System.IO.Ports.SerialDataReceivedEventArgs) Handles MyCOMM.DataReceived
If IsClosing Then Exit Sub '如果界面正在关闭串口则退出过程
Try
IsListenning = True'设置正在读取标记，供界面操作判断
Wait(150)'等待150毫秒
Dim n As Long = MyCOMM.BytesToRead
Dim buf(n - 1) As Byte
Try
MyCOMM.Read(buf, 0, n)
Catch ex As Exception
MsgBox("接收短信出错", "COMPort.DataReceived")
Throw New System.Exception(ex.Message)
Finally
IsListenning = False'无论接收数据成功与否，都关闭正在读取标记
End Try
MyCOMM.Close()
MyCOMM.Open()
'Do SomeThing
Catch ex As Exception
MyCOMM.Close()
MyCOMM.Open()
End Try
End Sub
Protected Sub Wait(ByVal miliseconds As Integer)
Dim tmpNow As Date = Now
While Now.Subtract(tmpNow).Millisecondsmiliseconds
Application.DoEvents()
End While
End Sub
希望能帮的上忙
用vb.net做串口通讯程序要调用哪些api函数?串口API通信函数编程
16位串口应用程序中，使用的16位的Windows API通信函数:
①OpenComm()打开串口资源，并指定输入、输出缓冲区的大?。ㄒ宰纸诩疲?
CloseComm() 关闭串口;
例：int idComDev;
idComDev = OpenComm("COM1", 1024, 128);
CloseComm(idComDev);
②BuildCommDCB() 、setCommState()填写设备控制块DCB，然后对已打开的串口进行参数配置; 例：DCB dcb;
BuildCommDCB("COM1:2400,n,8,1", dcb);
SetCommState(dcb);
③ ReadComm 、WriteComm()对串口进行读写操作，即数据的接收和发送.
例：char *m_pRecieve; int count;
ReadComm(idComDev,m_pRecieve,count);
Char wr[30]; int count2;
WriteComm(idComDev,wr,count2);
16位下的串口通信程序最大的特点就在于：串口等外部设备的操作有自己特有的API函数；而32位程序则把串口操作（以及并口等）和文件操作统一起来了，使用类似的操作。
在MFC下的32位串口应用程序
32位下串口通信程序可以用两种方法实现：利用ActiveX控件；使用API 通信函数。
使用ActiveX控件，程序实现非常简单，结构清晰，缺点是欠灵活；使用API 通信函数的优缺点则基本上相反。
使用ActiveX控件：
VC++ 6.0提供的MSComm控件通过串行端口发送和接收数据，为应用程序提供串行通信功能。使用非常方便，但可惜的是，很少有介绍MSComm控件的资料。
⑴．在当前的Workspace中插入MSComm控件。
Project菜单------Add to Project----Components and Controls-----Registered
ActiveX Controls---选择Components: Microsoft Communications Control,
version 6.0 插入到当前的Workspace中。
结果添加了类CMSComm(及相应文件：mscomm.h和mscomm.cpp ) 。
⑵．在MainFrm.h中加入MSComm控件。
protected:
CMSComm m_ComPort;
在Mainfrm.cpp::OnCreare()中：
DWORD style=WS_VISIBLE|WS_CHILD;
if (!m_ComPort.Create(NULL,style,CRect(0,0,0,0),this,ID_COMMCTRL)){
TRACE0("Failed to create OLE Communications Control\n");
return -1;// fail to create
}
⑶.初始化串口
m_ComPort.SetCommPort(1);//选择COM?
m_ComPort. SetInBufferSize(1024); //设置输入缓冲区的大?。珺ytes
m_ComPort. SetOutBufferSize(512); //设置输入缓冲区的大小， Bytes//
if(!m_ComPort.GetPortOpen()) //打开串口
m_ComPort.SetPortOpen(TRUE);
m_ComPort.SetInputMode(1); //设置输入方式为二进制方式
m_ComPort.SetSettings("9600,n,8,1"); //设置波特率等参数
m_ComPort.SetRThreshold(1); //为1表示有一个字符引发一个事件

vb.net多线程串口 vbs 多线程

推荐阅读

市场客户大数据分析软件下载

拍婚纱照时的妆面要如何才能化的更好呢？

什么样的桂花可以食用

解释一下费尽心机的意思

如何把监控里的视频刻录到光盘里

《流浪地球》大卖后出现纵容豆瓣改评论等一些事情,娱乐圈大佬们却闭口不言,你觉得中国电影还能被改变吗？你怎么看？

女人体重多少才称得上“魔鬼身材”？

楼梯应该怎样做才好

老蚕豆怎么炒

安卓easypaysdk,开发手游或需安装其他应用或有漏洞

构成诽谤罪必须是情节严重吗构成诽谤罪必须是情节严重吗

u盘不识别怎么恢复数据 u盘拒绝访问

吃团圆饭时祝福的话吃团圆饭时祝福的话推荐

html5锚点链接代码，html中锚链接的用法

2023年1月1日起北京军事博物馆恢复开放时间及预约

虚惊三场

裤子上有姨妈血洗不掉

三星note8开启曲面侧屏方法是什么？三星note8开启曲面侧屏方法介绍！

塑料模具有偏差或安装有移位,颠簸造成相互摩擦挤压松动出的声音福特新福克斯中控异响

刷票软件,fast刷票软件