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 多线程

推荐阅读

描写杨桃的作文二年级画杨桃作文

c语言中的头文件有哪些，C语言中的头文件有几个分别是那些代表什么意思

王者荣耀S15最强上单已确定,铠皇不行,吕布退位,榜首是庄周。你怎么看？

冻栗子好吃吗冻栗子化了还能吃吗

大家觉得肖战上镜吗？

满天星的养殖方法和注意事项盆栽，紫花满天星的养殖方法和注意事项

侠客风云传琴功心情《侠客风云传》玩琴心得感受

开启首场直播抖音直播点赞怎么算钱

丢掉“重要”社交

欧能壁挂炉如何设置面板时间？3种处理方法

肺炎疫苗需要每年打吗

生化危机2重制版地图怎么走里昂+克莱尔全地图收集标注里昂全地图标注_网

天枢按摩的最佳时段是什么时候

国庆佳节五分钟演讲稿范本2021 国庆佳节五分钟演讲稿范文

ios计算器图标怎么设计

上班排毒

菲斯曼壁挂炉水压怎么调节解决步骤？

剑指offer|统计回文oj

母亲没有尽到抚养的义务要坐牢吗

皮衣发霉怎么办小窍门