'串口通讯程序
Public Function SerialComm(Comm As String) As Boolean
  Dim s, TITLE As String
  
  InputString = ""
  OutputString = ""
  
  Select Case Comm
    Case "TEST" '串口通讯测试
      OutputString = "test" + Chr$(0)
      RSCount = 5
    Case "START" '开始治疗
      OutputString = Chr$(127) & Chr$(127) & Chr$(101)
      s = Trim(fm_Work.lbl_CiPin.Caption)
      If s <> "" And Not IsNull(s) Then
        s = Left(s, InStr(s, " ") - 1)
      Else
        s = "36"
      End If
      OutputString = OutputString & Chr$(Int(s))
      s = Trim(fm_Work.lbl_ShengQiang.Caption)
      If s <> "" And Not IsNull(s) Then
        s = Left(s, InStr(s, " ") - 1)
      Else
        s = "36"
      End If
      OutputString = OutputString & Chr$(Int(s))
      s = fm_Work.lbl_DianPin.Caption
      If s <> "" And Not IsNull(s) Then
        s = Left(s, InStr(s, " ") - 1)
      Else
        s = "36"
      End If
      OutputString = OutputString & Chr$(Int(s))
      OutputString = OutputString & Chr$(0)
      RSCount = 7
    Case "PAUSE" '暂停治疗
      OutputString = Chr$(127) & Chr$(127) & Chr$(58) & Chr$(82) & Chr$(0)
      RSCount = 5
    Case "CONTINUE" '继续治疗
      OutputString = Chr$(127) & Chr$(127) & Chr$(58) & Chr$(81) & Chr$(0)
      RSCount = 5
    Case "CHAOSHENG" '停止超声
      OutputString = Chr$(127) & Chr$(127) & Chr$(58) & Chr$(83) & Chr$(0)
      RSCount = 5
    Case "STOP" '停止治疗
      OutputString = Chr$(127) & Chr$(127) & Chr$(58) & Chr$(84) & Chr$(0)
      RSCount = 5
    Case "DIANQIANGDU1" '调整电强度1
      OutputString = Chr$(127) & Chr$(127) & Chr$(114) & Chr$(fm_Work.ud_DianQiang1.Value) & Chr$(0)
      RSCount = 5
    Case "DIANQIANGDU2" '调整电强度2
      OutputString = Chr$(127) & Chr$(127) & Chr$(115) & Chr$(fm_Work.ud_DianQiang2.Value) & Chr$(0)
      RSCount = 5
        
      
      
    Case "WENDU" '调整温度
      If CInt(fm_Work.lbl_WenDu.Caption) < fm_Work.ud_WenDu.Value Then
        OutputString = Chr$(127) & Chr$(127) & Chr$(117) & Chr$(1) & Chr$(0)
      End If
      If CInt(fm_Work.lbl_WenDu.Caption) > fm_Work.ud_WenDu.Value Then
        OutputString = Chr$(127) & Chr$(127) & Chr$(117) & Chr$(2) & Chr$(0)
      End If
      RSCount = 5
  End Select
  s = fm_Work.RSDev.Input
  fm_Work.RSTimer.Interval = 500 '需要时再将此值改为大于0
  RSState = "WAITING"
  fm_Work.RSDev.RThreshold = RSCount
  fm_Work.RSDev.Output = OutputString
  Do
    DoEvents
  Loop Until RSState <> "WAITING"
    
  Select Case RSState
    Case "OK"
      SerialComm = True
      
    Case "ERROR"
      MsgBox ("串口发送数据失败！")
      SerialComm = False
    Case "TIMEOUT"
      MsgBox ("串口通讯超时！")
      SerialComm = False
  End Select
End Function

小弟想知道这段代码如何设置的波特率,数据位,停止位等,谢谢各位,小弟看不明白VB太次了