[API实现]VB的串口通信模块.doc

/lin-go/blog/static/3662600200762433041229/的串口模块程序设计2007-07-24 15:30:41阅读96评论0字号：大中小*模块名：SerialPort*说明：YFsoft版权所有2006 - 2007(C)*创建人：叶帆*日期：2006-08-17 14:32:29*修改人：*日期：*描述：串口异步读写(API)*版本：V1.0.0*Option ExplicitPrivate Type COMSTATfCtsHold As LongfDsrHold As LongfRlsdHold As LongfXoffHold As LongfXoffSent As LongfEof As LongfTxim As LongfReserved As LongcbInQue As LongcbOutQue As LongEnd TypePrivate Type COMMTIMEOUTSReadIntervalTimeout As LongReadTotalTimeoutMultiplier As LongReadTotalTimeoutConstant As LongWriteTotalTimeoutMultiplier As LongWriteTotalTimeoutConstant As LongEnd TypePrivate Type DCBDCBlength As LongBaudRate As LongDWORD DCBlength;/* sizeof(DCB)*/DWORD BaudRate;/* Baudrate at which running*/* Binary Mode (skip EOF check)*/* Enable parity checking*/ /* CTS handshaking on output*/ /* DSR handshaking on output*/* DTR Flow control*/ /* DSR Sensitivity*/ /* Continue TX when Xoff sent */* Enable output X-ON/X-OFF*/* Enable input X-ON/X-OFF*/* Enable Err Replacement*/* Enable Null stripping*/* Rts Flow control*/ /* Abort all reads and writes on Error */* Reserved*/fBitFields As Long See Comments in Win32API.TxtwReserved As IntegerXonLim As IntegerXoffLim As IntegerByteSize As ByteParity As ByteStopBits As ByteXonChar As ByteXoffChar As ByteErrorChar As ByteEofChar As ByteEvtChar As BytewReserved1 As Integer Reserved; Do Not UseEnd TypePrivate Type OVERLAPPEDInternal As LongInternalHigh As Longoffset As LongOffsetHigh As LonghEvent As LongEnd TypePrivate Type SECURITY_ATTRIBUTESnLength As LonglpSecurityDescriptor As LongbInheritHandle As LongEnd TypePrivate Declare Function CloseHandle Lib kernel32 (ByVal hObject As Long) As LongPrivate Declare Function GetLastError Lib kernel32 () As LongPrivate Declare Function ReadFile Lib kernel32 (ByVal hFile As Long, lpBuffer As Any, ByVal nNumberOfBytesToRead As Long, lpNumberOfBytesRead As Long, lpOverlapped As OVERLAPPED) As LongPrivate Declare Function WriteFile Lib kernel32 (ByVal hFile As Long, lpBuffer As Any, ByVal nNumberOfBytesToWrite As Long, lpNumberOfBytesWritten As Long, lpOverlapped As OVERLAPPED) As Long OVERLAPPEDPrivate Declare Function SetCommTimeouts Lib kernel32 (ByVal hFile As Long, lpCommTimeouts As COMMTIMEOUTS) As LongPrivate Declare Function GetCommTimeouts Lib kernel32 (ByVal hFile As Long, lpCommTimeouts As COMMTIMEOUTS) As LongPrivate Declare Function BuildCommDCB Lib kernel32 Alias BuildCommDCBA (ByVal lpDef As String, lpDCB As DCB) As LongPrivate Declare Function SetCommState Lib kernel32 (ByVal hCommDev As Long, lpDCB As DCB) As LongPrivate Declare Function GetCommState Lib kernel32 (ByVal nCid As Long, lpDCB As DCB) As LongPrivate Declare Function CreateFile Lib kernel32 Alias CreateFileA (ByVal lpFileName As String, ByVal dwDesiredAccess As Long, ByVal dwShareMode As Long, ByVal lpSecurityAttributes As Long, ByVal dwCreationDisposition As Long, ByVal dwFlagsAndAttributes As Long, ByVal hTemplateFile As Long) As LongPrivate Declare Function FlushFileBuffers Lib kernel32 (ByVal hFile As Long) As LongPrivate Declare Function CreateEvent Lib kernel32 Alias CreateEventA (lpEventAttributes As SECURITY_ATTRIBUTES, ByVal bManualReset As Long, ByVal bInitialState As Long, ByVal lpName As String) As LongPrivate Declare Function SetCommMask Lib kernel32 (ByVal hFile As Long, ByVal dwEvtMask As Long) As LongPrivate Declare Function SetEvent Lib kernel32 (ByVal hEvent As Long) As LongPrivate Declare Function PurgeComm Lib kernel32 (ByVal hFile As Long, ByVal dwFlags As Long) As LongPrivate Declare Function ClearCommError Lib kernel32 (ByVal hFile As Long, lpErrors As Long, lpStat As COMSTAT) As LongPrivate Declare Function GetOverlappedResult Lib kernel32 (ByVal hFile As Long, lpOverlapped As OVERLAPPED, lpNumberOfBytesTransferred As Long, ByVal bWait As Long) As LongPrivate Declare Function WaitForSingleObject Lib kernel32 (ByVal hHandle As Long, ByVal dwMilliseconds As Long) As LongPrivate Declare Function SetupComm Lib kernel32 (ByVal hFile As Long, ByVal dwInQueue As Long, ByVal dwOutQueue As Long) As LongPrivate Const GENERIC_WRITE = &H40000000Private Const GENERIC_READ = &H80000000Private Const OPEN_EXISTING = 3Private Const FILE_ATTRIBUTE_NORMAL = &H80Private Const FILE_FLAG_OVERLAPPED = &H40000000Private Const DTR_CONTROL_DISABLE = &H0Private Const RTS_CONTROL_ENABLE = &H1Private Const PURGE_RXABORT = &H2Private Const PURGE_RXCLEAR = &H8Private Const PURGE_TXABORT = &H1Private Const PURGE_TXCLEAR = &H4Private Const ERROR_IO_PENDING = 997Private Const STATUS_WAIT_0 = &H0Private Const WAIT_OBJECT_0 = (STATUS_WAIT_0 + 0)Private Const WAIT_TIMEOUT = 258&Private m_Handle As LongPrivate m_OverlappedRead As OVERLAPPEDPrivate m_OverlappedWrite As OVERLAPPED*函数名：OpenPort*输入：ComNumber(Long)-串口号*：Comsettings(String) -配置信息*输出：(Long) - 0成功非0失败*功能描述：打开串口*全局变量：*调用模块：*作者：叶帆*日期：2006-08-17 14:40:14*修改人：*日期：*版本：V1.0.0*Public Function OpenPort(ComNumber As Long, Comsettings As String, Optional lngInSize As Long = 1024, Optional lngOutSize As Long = 512) As LongOn Error GoTo handelinitcomDim retval As LongDim CtimeOut As COMMTIMEOUTS, dcbs As DCBDim strCOM As String, strConfig As StringstrCOM = .COM & Format(ComNumber, 0)strCOM = COM & Format(ComNumber, 0)m_Handle = CreateFile(strCOM, GENERIC_READ Or GENERIC_WRITE, 0, 0&, OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL Or FILE_FLAG_OVERLAPPED, 0)If m_Handle = -1 ThenOpenPort = -1Exit FunctionEnd If设置dcb块dcbs.DCBlength = Len(dcbs)长度Call GetCommState(m_Handle, dcbs)波特率,奇偶校验,数据位,停止位如：9600,n,8,1strConfig = COM & Format(ComNumber, 0) & : & ComsettingsCall BuildCommDCB(strConfig, dcbs)-dcbs.fBinary = 1二进制方式dcbs.fOutxCtsFlow = 0不用CTS检测发送流控制dcbs.fOutxDsrFlow = 0不用DSR检测发送流控制dcbs.fDtrControl = DTR_CONTROL_DISABLE禁止DTR流量控制dcbs.fDsrSensitivity = 0对DTR信号线不敏感dcbs.fTXContinueOnXoff = 1检测接收缓冲区dcbs.fOutX = 0不做发送字符控制dcbs.fInX = 0不做接收控制dcbs.fErrorChar = 0是否用指定字符替换校验错的字符dcbs.fNull = 0保留NULL字符dcbs.fRtsControl = RTS_CONTROL_ENABLE允许RTS流量控制dcbs.fAbortOnError = 0发送错误后，继续进行下面的读写操作dcbs.fDummy2 = 0保留dcbs.fBitFields = 1 * 2 0 Or DTR_CONTROL_DISABLE * 2 4 Or 1 * 2 7 Or RTS_CONTROL_ENABLE * 2 12dcbs.wReserved = 0没有使用，必须为0dcbs.XonLim = 0指定在XOFF字符发送之前接收到缓冲区中可允许的最小字节数dcbs.XoffLim = 0指定在XOFF字符发送之前缓冲区中可允许的最小可用字节数dcbs.XonChar = 0发送和接收的XON字符dcbs.XoffChar = 0发送和接收的XOFF字符dcbs.ErrorChar = 0代替接收到奇偶校验错误的字符dcbs.EofChar = 0用来表示数据的结束dcbs.EvtChar = 0事件字符，接收到此字符时，会产生一个事件dcbs.wReserved1 = 0没有使用dcbs.BaudRate =9600波特率dcbs.Parity=0奇偶校验dcbs.ByteSize=8数据位dcbs.StopBits=0停止位-If dcbs.Parity = 0 Then 0-4=None,Odd,Even,Mark,Spacedcbs.fBitFields = dcbs.fBitFields And &HFFFDdcbs.fParity = 0奇偶校验无效Elsedcbs.fBitFields = dcbs.fBitFields Or &H2dcbs.fParity = 1奇偶校验有效End If超时设置CtimeOut.ReadIntervalTimeout = 200CtimeOut.ReadTotalTimeoutConstant = 12500CtimeOut.ReadTotalTimeoutMultiplier = 10CtimeOut.WriteTotalTimeoutConstant = 102500CtimeOut.WriteTotalTimeoutMultiplier = 10retval = SetCommTimeouts(m_Handle, CtimeOut)If retval = -1 Thenretval = GetLastError()OpenPort = retvalretval = CloseHandle(m_Handle)Exit FunctionEnd If获取信号句柄Dim lpEventAttributes1 As SECURITY_ATTRIBUTESDim lpEventAttributes2 As SECURITY_ATTRIBUTESm_OverlappedRead.hEvent = CreateEvent(lpEventAttributes1, 1, 0, 0)m_OverlappedWrite.hEvent = CreateEvent(lpEventAttributes2, 1, 0, 0)判断设置参数是否成功设置输入和输出缓冲区是否成功If SetCommState(m_Handle, dcbs) = -1 Or SetupComm(m_Handle, lngInSize, lngOutSize) = -1 Or m_OverlappedRead.hEvent = 0 Or m_OverlappedWrite.hEvent = 0 Thenretval = GetLastError()OpenPort = retvalIf (m_OverlappedRead.hEvent 0) Then CloseHandle (m_OverlappedRead.hEvent)If (m_OverlappedWrite.hEvent 0) Then CloseHandle (m_OverlappedWrite.hEvent)Call CloseHandle(m_Handle)m_Handle = 0Exit FunctionEnd IfOpenPort = 0Exit Functionhandelinitcom:Call CloseHandle(m_Handle)m_Handle = 0OpenPort = -2Exit FunctionEnd Function*函数名：ClosePort*输入：无*输出：(Long) - 0成功-1失败*功能描述：关闭串口*全局变量：*调用模块：*作者：叶帆*日期：2006-08-17 14:56:13*修改人：*日期：*版本：V1.0.0*Public Function ClosePort() As LongIf (m_Handle = 0) ThenClosePort = 1Exit FunctionEnd IfCall SetCommMask(m_Handle, 0)Call SetEvent(m_OverlappedRead.hEvent)Call SetEvent(m_OverlappedWrite.hEvent)If (m_OverlappedRead.hEvent 0) Then CloseHandle (m_OverlappedRead.hEvent)If (m_OverlappedWrite.hEvent 0) Then CloseHandle (m_OverlappedWrite.hEvent)If CloseHandle(m_Handle) 0 ThenClosePort = 0ElseClosePort = -1End Ifm_Handle = 0End Function*函数名：ClearInBuf*输入：无*输出：无*功能描述：清空输入缓冲区*全局变量：*调用模块：*作者：叶帆*日期：2006-08-17 14:57:26*修改人：*日期：*版本：V1.0.0*Public Function ClearInBuf() As LongIf (m_Handle = 0) ThenClearInBuf = 1Exit FunctionEnd IfCall PurgeComm(m_Handle, PURGE_RXABORT Or PURGE_RXCLEAR)ClearInBuf = 0End Function*函数名：ClearOutBuf*输入：无*输出：(Long) -*功能描述：清空输出缓冲区*全局变量：*调用模块：*作者：叶帆*日期：2006-08-17 15:40:38*修改人：*日期：*版本：V1.0.0*Public Function ClearOutBuf() As LongIf (m_Handle = 0) ThenClearOutBuf = 1Exit FunctionEnd IfCall PurgeComm(m_Handle, PURGE_TXABORT Or PURGE_TXCLEAR)ClearOutBuf = 0End Function*函数名：SendData*输入：bytBuffer()(Byte) -数据*：lngSize(Long)-数据长度*输出：(Long) -*功能描述：发送数据*全局变量：*调用模块：*作者：叶帆*日期：2006-08-17 15:43:42*修改人：*日期：*版本：V1.0.0*Public Function SendData(bytBuffer() As Byte, lngSize As Long) As LongOn Error GoTo ToExit 打开错误陷阱-If (m_Handle = 0) ThenSendData = 1SendData = -2Exit FunctionEnd IfDim dwBytesWritten As LongDim bWriteStat As LongDim ComStats As COMSTATDim dwErrorFlags As LongdwBytesWritten = lngSizeCall ClearCommError(m_Handle, dwErrorFlags, ComStats)bWriteStat = WriteFile(m_Handle, bytBuffer(0), lngSize, dwBytesWritten, m_OverlappedWrite)If bWriteStat = 0 ThenIf GetLastError() = ERROR_IO_PENDING ThenCall GetOverlappedResult(m_Handle, m_OverlappedWrite, dwBytesWritten, 1)等待直到发送完毕End IfElsedwBytesWritten = 0End IfSendData = dwBytesWritten-Exit Function-ToExit:SendData = -1End Function*函数名：ReadData*输入：bytBuffer()(Byte) -数