测试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