计算机的串口搞不定了请高手指点

Question

请告诉我计算机的串口的定义怎样

Answer 1

在窗口上加载控件MSCOMMOption ExplicitDim com_temp As Integer
Private Sub Form_Load()Dim i As Integer
For i = 1 To 14
    Combo1.AddItem pub_baud(i)
Next
'启用上次的波特率和串口号
Combo1.Text = pub_baud_485
Restore com_no_485
End SubPrivate Sub OK_Click()
pub_baud_485 = CLng(Combo1.Text)com_no_485 = com_tempfrm_485_Operate.StatusBar1.Panels(1).Text = "当前串口号:" & com_no_485Unload Meexitsub:
   Unload Me
End SubPrivate Sub OPTCOM1_Click()
com_temp = 1
End SubPrivate Sub OPTCOM2_Click()
com_temp = 2
End SubPrivate Sub OPTCOM3_Click()
com_temp = 3
End SubPrivate Sub OPTCOM4_Click()
com_temp = 4
End SubPrivate Sub RETURN_Click()
Unload Me
End SubPrivate Sub Restore(ByVal X As Integer)Select Case X
    Case 1
      OPTCOM1.value = True
      OPTCOM2.value = False
      OPTCOM3.value = False
      OPTCOM4.value = False
    Case 2
      OPTCOM1.value = False
      OPTCOM2.value = True
      OPTCOM3.value = False
      OPTCOM4.value = False
    Case 3
      OPTCOM1.value = False
      OPTCOM2.value = False
      OPTCOM3.value = True
      OPTCOM4.value = False
    Case 4
      OPTCOM1.value = False
      OPTCOM2.value = False
      OPTCOM3.value = False
      OPTCOM4.value = True
End Select
End Sub