form2.vb

视频卡的测试程序

        Me.TabPage2.Controls.Add(Me.GroupBox8)
        Me.TabPage2.Location = New System.Drawing.Point(4, 21)
        Me.TabPage2.Name = "TabPage2"
        Me.TabPage2.Size = New System.Drawing.Size(656, 511)
        Me.TabPage2.TabIndex = 1
        Me.TabPage2.Text = "串口（5-8）"
        '
        'GroupBox5
        '
        Me.GroupBox5.Location = New System.Drawing.Point(328, 203)
        Me.GroupBox5.Name = "GroupBox5"
        Me.GroupBox5.Size = New System.Drawing.Size(288, 184)
        Me.GroupBox5.TabIndex = 7
        Me.GroupBox5.TabStop = False
        Me.GroupBox5.Text = "串口8"
        '
        'GroupBox6
        '
        Me.GroupBox6.Location = New System.Drawing.Point(8, 203)
        Me.GroupBox6.Name = "GroupBox6"
        Me.GroupBox6.Size = New System.Drawing.Size(288, 184)
        Me.GroupBox6.TabIndex = 6
        Me.GroupBox6.TabStop = False
        Me.GroupBox6.Text = "串口7"
        '
        'GroupBox7
        '
        Me.GroupBox7.Location = New System.Drawing.Point(328, 11)
        Me.GroupBox7.Name = "GroupBox7"
        Me.GroupBox7.Size = New System.Drawing.Size(288, 184)
        Me.GroupBox7.TabIndex = 5
        Me.GroupBox7.TabStop = False
        Me.GroupBox7.Text = "串口6"
        '
        'GroupBox8
        '
        Me.GroupBox8.Location = New System.Drawing.Point(8, 11)
        Me.GroupBox8.Name = "GroupBox8"
        Me.GroupBox8.Size = New System.Drawing.Size(288, 184)
        Me.GroupBox8.TabIndex = 4
        Me.GroupBox8.TabStop = False
        Me.GroupBox8.Text = "串口5"
        '
        'TabPage3
        '
        Me.TabPage3.Controls.Add(Me.GroupBox9)
        Me.TabPage3.Controls.Add(Me.GroupBox10)
        Me.TabPage3.Controls.Add(Me.GroupBox11)
        Me.TabPage3.Controls.Add(Me.GroupBox12)
        Me.TabPage3.Location = New System.Drawing.Point(4, 21)
        Me.TabPage3.Name = "TabPage3"
        Me.TabPage3.Size = New System.Drawing.Size(656, 511)
        Me.TabPage3.TabIndex = 2
        Me.TabPage3.Text = "串口（9-12）"
        '
        'GroupBox9
        '
        Me.GroupBox9.Location = New System.Drawing.Point(328, 203)
        Me.GroupBox9.Name = "GroupBox9"
        Me.GroupBox9.Size = New System.Drawing.Size(288, 184)
        Me.GroupBox9.TabIndex = 7
        Me.GroupBox9.TabStop = False
        Me.GroupBox9.Text = "串口12"
        '
        'GroupBox10
        '
        Me.GroupBox10.Location = New System.Drawing.Point(8, 203)
        Me.GroupBox10.Name = "GroupBox10"
        Me.GroupBox10.Size = New System.Drawing.Size(288, 184)
        Me.GroupBox10.TabIndex = 6
        Me.GroupBox10.TabStop = False
        Me.GroupBox10.Text = "串口11"
        '
        'GroupBox11
        '
        Me.GroupBox11.Location = New System.Drawing.Point(328, 11)
        Me.GroupBox11.Name = "GroupBox11"
        Me.GroupBox11.Size = New System.Drawing.Size(288, 184)
        Me.GroupBox11.TabIndex = 5
        Me.GroupBox11.TabStop = False
        Me.GroupBox11.Text = "串口10"
        '
        'GroupBox12
        '
        Me.GroupBox12.Location = New System.Drawing.Point(8, 11)
        Me.GroupBox12.Name = "GroupBox12"
        Me.GroupBox12.Size = New System.Drawing.Size(288, 184)
        Me.GroupBox12.TabIndex = 4
        Me.GroupBox12.TabStop = False
        Me.GroupBox12.Text = "串口9"
        '
        'Timer1
        '
        Me.Timer1.Interval = 1000
        '
        'Timer2
        '
        Me.Timer2.Interval = 1000
        '
        'Timer3
        '
        Me.Timer3.Interval = 1000
        '
        'Timer4
        '
        Me.Timer4.Interval = 1000
        '
        'Timer5
        '
        Me.Timer5.Interval = 1000
        '
        'Timer6
        '
        Me.Timer6.Interval = 1000
        '
        'Timer7
        '
        Me.Timer7.Interval = 1000
        '
        'Timer8
        '
        Me.Timer8.Interval = 1000
        '
        'Timer9
        '
        Me.Timer9.Interval = 1000
        '
        'Timer10
        '
        Me.Timer10.Interval = 1000
        '
        'Timer11
        '
        Me.Timer11.Interval = 1000
        '
        'Timer12
        '
        Me.Timer12.Interval = 1000
        '
        'Form2
        '
        Me.AutoScaleBaseSize = New System.Drawing.Size(6, 14)
        Me.ClientSize = New System.Drawing.Size(736, 557)
        Me.Controls.Add(Me.TabControl1)
        Me.Name = "Form2"
        Me.Text = "Form2"
        Me.TabControl1.ResumeLayout(False)
        Me.TabPage1.ResumeLayout(False)
        Me.GroupBox4.ResumeLayout(False)
        Me.GroupBox3.ResumeLayout(False)
        Me.GroupBox2.ResumeLayout(False)
        Me.GroupBox1.ResumeLayout(False)
        Me.TabPage2.ResumeLayout(False)
        Me.TabPage3.ResumeLayout(False)
        Me.ResumeLayout(False)

    End Sub

#End Region

    Private Sub TabPage1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TabPage1.Click

    End Sub

    Private Sub GroupBox4_Enter(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GroupBox4.Enter

    End Sub

   
    Private Sub Sender1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Sender1.Click, Sender2.Click, Sender3.Click, Sender4.Click
        Dim CommStr As String
        Dim SenderStr As String
        

        Select Case sender
            Case Sender1

                Timer1.Enabled = True
                sender.CommPort = 3
                sender.Settings = List1.Text + ",N,8,1"
                
            Case Sender2
                Timer2.Enabled = True

            Case Sender3
                Timer3.Enabled = True

            Case Sender4
                Timer4.Enabled = True

        End Select
        sender.RThreshold = 1
        sender.InBufferSize = 1024
        sender.InputMode = InputModeConstants.comInputModeText
        sender.PortOpen = True
    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick, Timer2.Tick, Timer3.Tick, Timer4.Tick, Timer5.Tick
        Dim InputStr As String
        InputStr = SystemInformation.ComputerName + "    " + "日期时间：" + Now.ToString
        Select Case sender
            Case Timer1
                If Input1.Items.Count > 5 Then
                    Input1.Items.Clear()
                    Input1.Items.Add(InputStr)
                    Comm1.Output = InputStr
                Else

                    Input1.Items.Add(InputStr)
                    Comm1.Output = InputStr
                End If

            Case Timer2

            Case Timer3

            Case Timer4

        End Select

    End Sub
    Private Sub Comm_OnComm(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Comm1.OnComm, Comm2.OnComm, Comm3.OnComm, Comm4.OnComm
        Dim varRecv As String
        Dim intRecvLen As Integer
        Dim intRet As Integer
        Select Case sender
            Case Comm1
                If Comm1.CommEvent = MSCommLib.OnCommConstants.comEvReceive Then


                    varRecv = Comm1.Input
                    If OutPut1.Items.Count > 10 Then
                        OutPut1.Items.Clear()
                        OutPut1.Items.Add(varRecv)
                    Else
                        OutPut1.Items.Add(varRecv)
                    End If
                    'intRecvLen = UBound(varRecv) + 1

                    'Array.Copy(varRecv, 0, RecvBuffer, RecvBufferLen, intRecvLen)

                    'RecvBufferLen += intRecvLen

                    'intRet = CheckResponse(RecvBuffer, RecvBufferLen)

                    'Select Case intRet

                    '    Case RECV_ERROR
                    '        RecvBufferLen = 0
                    '    Case RECV_COMPLETED
                    '        lstMessage.Items.Add("<<<" & ByteArrayToString(RecvBuffer, RecvBufferLen))
                    '        RecvBufferLen = 0
                    '    Case RECV_PROCESSING
                    '        Exit Select
                    'End Select
                End If
            Case Comm2
            Case Comm3
            Case Comm4

        End Select
    End Sub
End Class