JustinIO的vb串口类.docVIP

JustinIO的vb.NET版本！（串口操作类） 2007-05-28 09:03 Imports System Imports System.Runtime.InteropServices Namespace JustinIO Class CommPort Public PortNum As String Public BaudRate As Integer Public ByteSize As Byte Public Parity As Byte // 0-4=no,odd,even,mark,space Public StopBits As Byte // 0,1,2 = 1, 1.5, 2 Public ReadTimeout As Integer //comm port win32 file handle Private hComm As Integer = -1 Public Opened As Boolean = False //win32 api constants Private Const GENERIC_READ As Int64 = Private Const GENERIC_WRITE As Int64 = Private Const OPEN_EXISTING As Integer = 3 Private Const INVALID_HANDLE_VALUE As Integer = -1 #Region struct StructLayout(LayoutKind.Sequential) _ Public Structure DCB //taken from c struct in platform sdk Public DCBlength As Integer // sizeof(DCB) Public BaudRate As Integer // 指定当前波特率 current baud rate // these are the c struct bit fields, bit twiddle flag to set Public fBinary As Integer // 指定是否允许二进制模式,在windows95中必须主TRUE binary mode, no EOF check Public fParity As Integer // 指定是否允许奇偶校验 enable parity checking Public fOutxCtsFlow As Integer // 指定CTS是否用于检测发送控制，当为TRUE是CTS为OFF，发送将被挂起。 CTS output flow control Public fOutxDsrFlow As Integer // 指定CTS是否用于检测发送控制 DSR output flow control Public fDtrControl As Integer // DTR_CONTROL_DISABLE值将DTR置为OFF, DTR_CONTROL_ENABLE值将DTR置为ON, DTR_CONTROL_HANDSHAKE允许DTR握手 DTR flow control type Public fDsrSensitivity As Integer // 当该值为TRUE时DSR为OFF时接收的字节被忽略 DSR sensitivity Public fTXContinueOnXoff As Integer // 指定当接收缓冲区已满,并且驱动程序已经发送出XoffChar字符时发送是否停止。TRUE时，在接收缓冲区接收到缓冲区已满的字节XoffLim且驱动程序已经发送出XoffChar字符中止接收字节之后，发送继续进行。　FALSE时，在接收缓冲区接收到代表缓冲区已空的字节XonChar且驱动程序已经发送出恢复发送的XonChar之后，发送继续进行。XOFF continues Tx Public fOutX As Integer // TRUE时，接收到XoffChar之后便停止发送接收到XonChar之后将重新开始 XON/XOFF out flow control Public fInX As Integer // TRUE时，接收缓冲区接收到代表缓冲区满的XoffLim之后，XoffChar发送出去接收缓冲区接收到代表缓冲区空的XonLim之后，XonChar发送出去 XON/XOFF in flow control Public fErrorChar As Integer // 该值为TRUE且fParity为TRUE时