VB串口上位机程序源代码

        MSComm1.Settings = "9600,N,8,1" '波特率9600bit/s，无校验，8位数据，1位停止位

        MSComm1.CommPort = 1            '设定串口，1为com1，这里请选择对应的com序号

        MSComm1.InBufferSize = 8        '设置返回接收缓冲区的大小，以字符为单位

        MSComm1.OutBufferSize = 2       '

        If MSComm1.PortOpen = True Then MSComm1.PortOpen = False    '关串口

        MSComm1.RThreshold = 4          '设置并返回产生oncomm事件的字符数，以字符为单位

 '   RThreshold                          '为1，接收缓冲区收到每一个字符都会使MSComm控件产生OnComm事件

        MSComm1.SThreshold = 1          '

        MSComm1.InputLen = 0            '设置从接收缓冲区读取的字符，为0读取整个缓冲区

        MSComm1.InputMode = comInputModeText    '发文本方度接收

        If MSComm1.PortOpen = False Then MSComm1.PortOpen = True

        MSComm1.InBufferCount = 0       '清除接收缓冲区

        Me.Caption = "温度"

        Text1.Text = "00.0"

End Sub

Private Sub MSComm1_OnComm()

        Dim rec As String

        Select Case MSComm1.CommEvent

        Case comEvReceive

        rec = MSComm1.Input

        Text1.Text = rec

        MSComm1.InBufferCount = 0       '清空接收缓冲区

        End Select

End Sub