CommTest485

  测试com口程序Private Sub Form_Load() Dim I As Integer Dim Msg As String Me.Enabled = False Msg = 串行端口通讯测试 V & App.Major & . & App.Minor & App.Revision cboCommSettings.Text = GetSetting(App.EXEName, frmCommTest , CommSettings , 2400,N,8,1 ) Me.Show Me.Refresh With MSComm1 For I = 1 To 16 Me.Caption = Msg & - 测试通讯端口:COM & I & ... Me.Refresh Delay 100 On Error Resume Next .CommPort = I .Settings = 2400,N,8,1 .PortOpen = True .PortOpen = False If Err = 0 Then cboCommPort.AddItem COM & Trim(I) Next I End With cboCommPort.ListIndex = 0 optCommData(0).Value = True Me.Caption = Msg & (Programming by WJY) Me.Refresh If cboCommPort.ListCount = 0 Then MsgBox 程序检测不到可用的串行端口! Me.Enabled = True End Sub (test com port)