Dim mBaudRate As Integer '波特率
Dim mParity As IO.Ports.Parity '数据检查
Dim mDataBit As Integer '数据长度
Dim mStopbit As IO.Ports.StopBits '停止位数
Dim mPortName As String '串口名称
mPortName = cmbCOM.SelectedItem.ToString '欲开启的通讯端口
mBaudRate = 9600 '通讯速度即波特率
mParity = Parity.None '同位位检查设定
mDataBit = 8 '资料位设定值
mStopbit = StopBits.One '停止位设定值
' RS232.WriteBufferSize = 2048 '设定缓冲区大小
'建立一个通讯端口对象
RS232 = New IO.Ports.SerialPort(mPortName, mBaudRate, mParity, mDataBit, mStopbit)
RS232.Encoding = Encoding.ASCII '设定编码方式为Unicode，以便能显示中文
If RS232.IsOpen = False Then '尚未开启
RS232.Open() '开启通讯端口
' btnSend.Enabled = True '致能传送按钮
'Timer1.Interval = 300
' Timer1.Enabled = True
