vb.net添加串口控件如何在vb编程环境中添加串口控件( 三 ) _数据

LPOVERLAPPED结构.否则,函数会不正确地报告读操作已完成了.
使用LPOVERLAPPED结构, ReadFile()立即返回,不必等待读操作完成,实现非阻塞
通信.此时, ReadFile()返回FALSE, GetLastError()返回ERROR_IO_PENDING.
if (!fReadStat){
if (GetLastError() == ERROR_IO_PENDING){
while(!GetOverlappedResult(hCom,READ_OS( npTTYInfo ),dwBytesRead, TRUE )){
dwError = GetLastError();
if(dwError == ERROR_IO_INCOMPLETE) continue；//缓冲区数据没有读完，继续
…… ……
::PostMessage((HWND)hSendWnd,WM_NOTIFYPROCESS,0,0);//通知主线程，串口收到数据}
所谓的非阻塞通信，也即异步通信。是指在进行需要花费大量时间的数据读写操作（不仅仅是指串行通信操作）时，一旦调用ReadFile()、WriteFile(), 就能立即返回，而让实际的读写操作在后台运行；相反，如使用阻塞通信，则必须在读或写操作全部完成后才能返回。由于操作可能需要任意长的时间才能完成，于是问题就出现了。
非常阻塞操作还允许读、写操作能同时进行（即重叠操作?），在实际工作中非常有用。
要使用非阻塞通信，首先在CreateFile()时必须使用FILE_FLAG_OVERLAPPED；然后在 ReadFile()时lpOverlapped参数一定不能为NULL，接着检查函数调用的返回值，调用GetLastError()，看是否返回ERROR_IO_PENDING 。如是，最后调用GetOverlappedResult()返回重叠操作(overlapped operation)的结果;WriteFile()的使用类似。
⑸．在主线程中发送下行命令。
BOOLfWriteStat ; char szBuffer[count];
…………//准备好发送的数据，放在szBuffer[]中
fWriteStat = WriteFile(hCom, szBuffer, dwBytesToWrite,
dwBytesWritten, WRITE_OS( npTTYInfo ) ); //写数据
//我在CreareFile()时使用了FILE_FLAG_OVERLAPPED,现在WriteFile()也必须使用LPOVERLAPPED结构.否则,函数会不正确地报告写操作已完成了.
使用LPOVERLAPPED结构,WriteFile()立即返回,不必等待写操作完成,实现非阻塞通信.此时, WriteFile()返回FALSE, GetLastError()返回ERROR_IO_PENDING.
int err=GetLastError();
if (!fWriteStat) {
if(GetLastError() == ERROR_IO_PENDING){
while(!GetOverlappedResult(hCom, WRITE_OS( npTTYInfo ),
dwBytesWritten, TRUE )) {
dwError = GetLastError();
if(dwError == ERROR_IO_INCOMPLETE){// normal result if not finished
dwBytesSent += dwBytesWritten; continue; }
......................
//我使用了多线程技术，在辅助线程中监视串口，有数据到达时依靠事件驱动，读入数据并向主线程报告（发送数据在主线程中，相对说来，下行命令的数据总是少得多）；并且，WaitCommEvent()、ReadFile()、WriteFile()都使用了非阻塞通信技术，依靠重叠（overlapped）读写操作，让串口读写操作在后台运行。
vb.NET中用mscomm控件编写串口通信软件数据无法接收.net中不用mscomm 而改用 searport
AxMSComm1.Input 只能一次vb.net添加串口控件，会把输入缓冲区的内容全都读出来并清空
如果没有产生Oncomm事件vb.net添加串口控件，vb.net添加串口控件你可以把输入经部区的大小改一下改成1就行vb.net添加串口控件了
如何在vb.net里面动态添加控件Private WithEvents NewTextBox As TextBox
'通过使用WithEvents关键字声明一个对象变量为新的命令按钮
Private Sub Command1_Click()
If NewTextBox Is Nothing Then
Set NewTextBox = Controls.Add("VB.TextBox", "cmdNew", Form1)
NewTextBox.Move 200, 200
NewTextBox.Width = Form1.Width - 450
NewTextBox.Height = Form1.Height - 1400
NewTextBox.Visible = True
End If
End Sub
Private Sub Command2_Click()
If NewTextBox Is Nothing Then
Exit Sub
Else
Controls.Remove NewTextBox

vb.net添加串口控件如何在vb编程环境中添加串口控件( 三 )

推荐阅读

驾驶证年审查询电话多少全国驾驶证扣分查询

数据结构-查找

蚂蚁庄园小课堂6.29今日答案：有甜味的牙膏会导致蛀牙吗？

肺癌|肺癌疼不疼？医生：肺癌引起疼痛多发于这四个位置

琵琶一曲已千年下句是什么

怎么选择电脑主板芯片类型，电脑主板芯片组什么意思

安卓手机没有dns,手机如何设置dns

程门立雪告诉我们什么道理

保险缴费期满了能拿本金吗？

假释和监外执行一样吗？假释和监外执行有什么区别

小针刀的利与弊小针刀疗法

香蕉牛奶榨汁怎么做

二胎间隔多久合适二胎间隔多久

上海增值税专用发票上海哪里有公司开票，上海公司开票限额

酷开和创维什么关系酷开5.0如何使用教程，酷开电视安装应用

go猫粮最近可以入手吗 go猫粮怎么了

威能锅炉老显示f.28故障怎么解决？故障恢复常用方法

半无人直播间效果，无人直播啥意思

redis基本数据结构及底层实现 redis的六种数据结构

移进规约分析法,简单优先分析法每次规约的是

vb.net添加串口控件 如何在vb编程环境中添加串口控件( 三 )

推荐阅读

vb.net添加串口控件如何在vb编程环境中添加串口控件( 三 )