SerialPort总结

基本属性设定

            SerialPort.ReadBufferSize = INPUTBUFFERSIZE
            SerialPort.WriteBufferSize = OUTPUTBUFFERSIZE
            SerialPort .PortName = PORTNUMBER              'ポート名  
            SerialPort .BaudRate = BAUDRATE                '通信速度指定  
            SerialPort.Parity = PARITY                    'パリティ指定  
            SerialPort.DataBits = DATABITS                'ビット数指定  
            SerialPort.StopBits = STOPBITS                'ストップビット指定  
            SerialPort.ReadTimeout = INPUTTIMEOUT
            SerialPort.WriteTimeout = OUTPUTTIMEOUT

状态开启

If Not SerialPort.IsOpen Then
  SerialPort.Open()
End If

清空缓存

SerialPort.DiscardInBuffer()

数据读取

Dim lnginputRet As Long
Dim arrByte = New Byte(LENGTH - 1) {}