[VB.NET]VB.NET Rs232串口通讯类编程问题(高分求教!急!急!急!)

前端之家收集整理的这篇文章主要介绍了[VB.NET]VB.NET Rs232串口通讯类编程问题(高分求教!急!急!急!)前端之家小编觉得挺不错的,现在分享给大家,也给大家做个参考。
VB.NET Rs232串口通讯类编程问题(高分求教!急!急!急!) 我使用了vb.net的串口RS232通讯类编了一个串口采集程序! 当计算机正常登陆时运行一切正常,不过当计算机掉电重新启动后,在未登陆系统之前 该程序在后台执行(或登陆后重新运行程序),均不能从串口取到数据,只能登陆后使用串口调试工具运行一次后才能 采集到数据,附代码,请问各位大侠如何解决! 以下为部分代码: Public m_CommPort As New Rs232 Public Function comm_accept(ByVal address As String,ByVal length As Integer,ByVal receive_waittime As Double,ByVal yblx As Integer) As String Dim start_time As Double Dim comm_length As Integer Dim loop_int As Integer Dim loop_time As Integer Dim receive_str_temp As String Dim acc_check As Integer Dim cal_str_temp As String accept_string = "" m_CommPort.ClearInputBuffer() start_time = cal_time() m_ModemPort = 1 m_CommPort.Open(m_ModemPort,9600,length,Rs232.DataParity.Parity_None,Rs232.DataStopBit.StopBit_1,4096) m_CommPort.Write(Encoding.ASCII.GetBytes(address)) While (m_CommPort.Read(1) <> -1) accept_string = accept_string + Chr(m_CommPort.InputStream(0)) System.Threading.Thread.Sleep(1) If Len(accept_string) = length Then comm_error_code = 0 Exit While End If If start_time + receive_waittime >= 86399.999 Then If cal_time() - start_time + 864399.999 >= receive_waittime Then comm_error_code = 1 Exit While End If Else If (cal_time() - start_time) >= receive_waittime Then comm_error_code = 1 Exit While End If End If End While m_CommPort.Close() Application.DoEvents() End Function RS232串口类: Public Class Rs232 Private mhRS As Integer = -1 Private miPort As Integer = 1 Private miTimeout As Integer = 600 Private miBaudRate As Integer = 9600 Private meParity As DataParity = 0 Private meStopBit As DataStopBit = 0 Private miDataBit As Integer = 8 Private miBufferSize As Integer = 512 Private mabtRxBuf As Byte() Private meMode As Mode Private mbWaitOnRead As Boolean Private mbWaitOnWrite As Boolean Private mbWriteErr As Boolean Private muOverlapped As OVERLAPPED Private muOverlappedW As OVERLAPPED Private muOverlappedE As OVERLAPPED Private mabtTmpTxBuf As Byte() Private moThreadTx As Thread Private moThreadRx As Thread Private miTmpBytes2Read As Integer Private meMask As EventMasks Public Overloads Sub Open() Dim uDcb As DCB,iRc As Integer Dim iMode As Integer = Convert.ToInt32(IIf(meMode = Mode.Overlapped,_ FILE_FLAG_OVERLAPPED,0)) If miPort > 0 Then Try mhRS = CreateFile("COM" & miPort.ToString,_ GENERIC_READ Or GENERIC_WRITE,_ OPEN_EXISTING,iMode,0) If mhRS <> -1 Then Dim lpErrCode As Integer iRc = ClearCommError(mhRS,lpErrCode,0&) iRc = PurgeComm(mhRS,PurgeBuffers.RXClear Or _ PurgeBuffers.TxClear) iRc = GetCommState(mhRS,uDcb) Dim sParity As String = "NOEM" sParity = sParity.Substring(meParity,1) Dim sDCBState As String = String.Format( _ "baud={0} parity={1} data={2} stop={3}",_ miBaudRate,sParity,miDataBit,CInt(meStopBit)) iRc = BuildCommDCB(sDCBState,uDcb) iRc = SetCommState(mhRS,uDcb) If iRc = 0 Then Dim sErrTxt As String = pErr2Text(GetLastError()) Throw New CIOChannelException( _ "Unable to set COM state0" & sErrTxt) End If iRc = SetupComm(mhRS,miBufferSize,miBufferSize) pSetTimeout() Else Throw New CIOChannelException( _ "Unable to open COM" & miPort.ToString) End If Catch Ex As Exception Throw New CIOChannelException(Ex.Message,Ex) End Try Else Throw New ApplicationException("COM Port not defined," + _ "use Port property to set it before invoking InitPort") End If End Sub Public Overloads Sub Open(ByVal Port As Integer,_ ByVal BaudRate As Integer,ByVal DataBit As Integer,_ ByVal Parity As DataParity,ByVal StopBit As DataStopBit,_ ByVal BufferSize As Integer) Me.Port = Port Me.BaudRate = BaudRate Me.DataBit = DataBit Me.Parity = Parity Me.StopBit = StopBit Me.BufferSize = BufferSize Open() End Sub Public Function Read(ByVal Bytes2Read As Integer) As Integer Dim iReadChars,iRc As Integer If Bytes2Read = 0 Then Bytes2Read = miBufferSize If mhRS = -1 Then Throw New ApplicationException( _ Else Try If meMode = Mode.Overlapped Then pHandleOverlappedRead(Bytes2Read) Else ReDim mabtRxBuf(Bytes2Read - 1) iRc = ReadFile(mhRS,mabtRxBuf,Bytes2Read,iReadChars,Nothing) If iRc = 0 Then Else If iReadChars < Bytes2Read Then Else mbWaitOnRead = True Return (iReadChars) End If End If End If Catch Ex As Exception Throw New ApplicationException("Read Error: " & Ex.Message,Ex) End Try End If End Function Public Overloads Sub Write(ByVal Buffer As Byte()) Dim iBytesWritten,iRc As Integer If mhRS = -1 Then Else Try If meMode = Mode.Overlapped Then If pHandleOverlappedWrite(Buffer) Then Throw New ApplicationException( _ "Error in overllapped write") End If Else PurgeComm(mhRS,PURGE_RXCLEAR Or PURGE_TXCLEAR) iRc = WriteFile(mhRS,Buffer,Buffer.Length,_ iBytesWritten,Nothing) If iRc = 0 Then Throw New ApplicationException( _ "Write Error - Bytes Written " & _ iBytesWritten.ToString & " of " & _ Buffer.Length.ToString) End If End If Catch Ex As Exception Throw End Try End If End Sub Public Overloads Sub Write(ByVal Buffer As String) Dim oEncoder As New System.Text.ASCIIEncoding Dim aByte() As Byte = oEncoder.GetBytes(Buffer) Me.Write(aByte) End Sub 太长未发全! __________________________________________________________________________ 每次程序啟動,你將口設置初始化 了沒? 這里串口程序初始化的一部分! If msRS232_B.PortOpen = True Then msRS232_B.InBufferCount = 0 msRS232_B.OutBufferCount = 0 msRS232_B.PortOpen = False End If msRS232_B.CommPort = intReaderComPortCode msRS232_B.Settings = "9600,N,8,1" msRS232_B.PortOpen = True msRS232_B.InBufferCount = 0 msRS232_B.OutBufferCount = 0 __________________________________________________________________________ 楼上的说的是用MsComm32的ACTIVE组件.楼主说的是用API.没看明白不要乱说. 楼主.我感觉你应该在程序结束时加上CloseFile();关闭掉串口.不然没有正常关闭的情况下串口可能被占用,那你第二次调用CREATEFILE时不能正确得到句柄. __________________________________________________________________________ 我已经在m_CommPort.Close() 做了关闭串口操作,并且也检测过串口,确实已经关闭了,错误原因不在这! __________________________________________________________________________ 原文链接:https://www.f2er.com/vb/264079.html

猜你在找的VB相关文章