frmmain.vb

visual basic 2005 express 写的上位机

                    If Len(Hex(InputReportBuffer(Count))) < 2 Then

                        ByteValue = "0" & Hex(InputReportBuffer(Count))
                    Else
                        ByteValue = Hex(InputReportBuffer(Count))
                    End If


                    MyMarshalToForm("AddItemToListBox", " " & ByteValue)

                    'Display the report data in the "Received Data" text box.

                    MyMarshalToForm("AddItemToTextBox", ByteValue)

                Next Count

            Else
                MyMarshalToForm("AddItemToListBox", "The attempt to read an Input report has failed.")

            End If

            MyMarshalToForm("ScrollToBottomOfListBox", "")

            'Enable requesting another transfer.

            MyMarshalToForm("EnableCmdOnce", "")

        Catch ex As Exception
            Call HandleException(Me.Name, ex)
        End Try

    End Sub


    Private Sub GetVendorAndProductIDsFromTextBoxes _
        (ByRef myVendorID As Short, _
        ByRef myProductID As Short)

        'Purpose    : Retrieves a Vendor ID and Product ID in hexadecimal 
        '           : from the form's text boxes and converts the text to Shorts.

        'Accepts    : myVendorID - the Vendor ID as a Short.
        '           : myProductID - the Product ID as a Short.                    
        myVendorID = CShort(Val("&h" & txtVendorID.Text))
        myProductID = CShort(Val("&h" & txtProductID.Text))


    End Sub


    Private Sub InitializeDisplay()

        'Purpose    : Initialize the elements on the form.


        'Don't allow the user to select an input report buffer size until there is
        'a handle to a HID.

        cmdInputReportBufferSize.Enabled = False

    End Sub


    Private Sub MyMarshalToForm _
        (ByVal action As String, _
        ByVal textToDisplay As String)

        'Purpose    : Enables accessing a form's controls from another thread 

        'Accepts    : action - a string that names the action to perform on the form
        '           : formText - text that the form displays or the code uses for 
        '           : another purpose. Actions that don't use text ignore this parameter.  

        Dim args() As Object = {action, textToDisplay}
        Dim MarshalToFormDelegate As MarshalToForm

        ' The AccessForm routine contains the code that accesses the form.

        MarshalToFormDelegate = New MarshalToForm(AddressOf AccessForm)

        ' Execute AccessForm, passing the parameters in args.

        MyBase.Invoke(MarshalToFormDelegate, args)

    End Sub


    Private Sub ReadAndWriteToDevice()

        'Purpose    : Initiates the exchanging of reports. 
        '           : The application sends a report and requests to read a report.

        'Report header for the debug display:

        'If the device hasn't been detected, was removed, or timed out on a previous attempt
        'to access it, look for the device.
        If (MyDeviceDetected = False) Then

            MyDeviceDetected = FindTheHid()
        End If

        If (MyDeviceDetected = True) Then

            Call ExchangeInputAndOutputReports()

        End If


    End Sub

    Private Sub ScrollToBottomOfListBox()


    End Sub

    Private Sub SetInputReportBufferSize()

        'Purpose    : Set the number of Input buffers (the number of Input reports 
        '           : the host will store) from the value in the text box.

        Dim NumberOfInputBuffers As Integer

        Try
            'Get the number of buffers from the text box.

            NumberOfInputBuffers = CInt(Val(txtInputReportBufferSize.Text))

            'Set the number of buffers.

            MyHID.SetNumberOfInputBuffers _
                (HIDHandle, _
                NumberOfInputBuffers)

            'Verify and display the result.

            GetInputReportBufferSize()

        Catch ex As Exception
            Call HandleException(Me.Name, ex)
        End Try
    End Sub


    Private Sub Shutdown()

        'Purpose    : Perform actions that must execute when the program ends.

        Try
            'Close open handles to the device.

            If (HIDHandle <> 0) Then
                CloseHandle(HIDHandle)

            End If

            If (ReadHandle <> 0) Then
                CloseHandle(ReadHandle)

            End If

            If (WriteHandle <> 0) Then
                CloseHandle(WriteHandle)

            End If

            'Stop receiving notifications.

            Call MyDeviceManagement.StopReceivingDeviceNotifications(DeviceNotificationHandle)

        Catch ex As Exception
            Call HandleException(Me.Name, ex)
        End Try

    End Sub


    Private Sub Startup()

        'Purpose    : Perform actions that must execute when the program starts.

        Try
            MyHID = New Hid()
            Call InitializeDisplay()
            tmrContinuousDataCollect.Enabled = False
            tmrContinuousDataCollect.Interval = 50

        Catch ex As Exception
            Call HandleException(Me.Name, ex)
        End Try

    End Sub

    Sub AddItemsToLstResults(ByRef ItemsToAdd As String)

    End Sub

    Private Sub tmrContinuousDataCollect_Tick(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles tmrContinuousDataCollect.Tick

        'OutBuffer(0) = 0
        'OutBuffer(1) = 0
        'OutBuffer(2) = LEDCommand
        'OutBuffer(3) = &H88


        'Call ReadAndWriteToDevice()


        'ProgressBar1.Value = CInt(InBuffer(3) / 2.56)

        'If InBuffer(1) = 0 Then
        '    SWStatus.BackColor = Color.Black
        'Else
        '    SWStatus.BackColor = Color.RosyBrown
        'End If
        'If InBuffer(2) = 0 Then
        '    LEDStatus.BackColor = Color.Black
        'Else
        '    LEDStatus.BackColor = Color.Green
        'End If

        'TextofTemperature.Text = ((InBuffer(6) * 256 + InBuffer(7)) >> 3) * 0.0625

    End Sub


    Private Sub txtProductID_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtProductID.TextChanged

        'The Product ID has changed in the text box.

        'Try
        Call DeviceHasChanged()

        'Catch ex As Exception
        '    Call HandleException(Me.Name, ex)
        'End Try
    End Sub


    Private Sub txtVendorID_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtVendorID.TextChanged

        'The Vendor ID has changed in the text box.

        'Try
        Call DeviceHasChanged()

        'Catch ex As Exception
        '    Call HandleException(Me.Name, ex)
        'End Try

    End Sub


    Protected Overrides Sub Finalize()
        MyBase.Finalize()
    End Sub


    Protected Overrides Sub WndProc(ByRef m As Message)

        'Purpose    : Overrides WndProc to enable checking for and handling
        '           : WM_DEVICECHANGE(messages)

        'Accepts    : m - a Windows Message                   

        Try
            'The OnDeviceChange routine processes WM_DEVICECHANGE messages.

            If m.Msg = WM_DEVICECHANGE Then
                OnDeviceChange(m)
            End If

            'Let the base form process the message.

            MyBase.WndProc(m)

        Catch ex As Exception
            Call HandleException(Me.Name, ex)
        End Try

    End Sub


    Shared Sub HandleException(ByVal moduleName As String, ByVal e As Exception)

        'Purpose    : Provides a central mechanism for exception handling.
        '           : Displays a message box that describes the exception.

        'Accepts    : moduleName - the module where the exception occurred.
        '           : e - the exception

        Dim Message As String
        Dim Caption As String

        Try
            'Create an error message.

            Message = "Exception: " & e.Message & ControlChars.CrLf & _
            "Module: " & moduleName & ControlChars.CrLf & _
            "Method: " & e.TargetSite.Name

            'Specify a caption.

            Caption = "Unexpected Exception"

            'Display the message in a message box.


        Finally
        End Try

    End Sub



    Private Sub Button_LEDOnOff_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button_LEDOnOff.Click

        'If Button_LEDOnOff.Text = "LED_ON" Then

        '    LEDCommand = 1
        '    Button_LEDOnOff.Text = "LED_OFF"
        'Else
        '    LEDCommand = 0
        '    Button_LEDOnOff.Text = "LED_ON"
        'End If
    End Sub

    Private Sub lblProductID_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lblProductID.Click

    End Sub

    Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextofTemperature.TextChanged


    End Sub

    Private Sub ToolTip1_Popup(ByVal sender As System.Object, ByVal e As System.Windows.Forms.PopupEventArgs)

    End Sub

    Private Sub LEDStatus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LEDStatus.Click

    End Sub

    Private Sub SWStatus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SWStatus.Click

    End Sub

    Private Sub ProgressBar1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ProgressBar1.Click

    End Sub
End Class