Control your PDA's LED

I wrote a VB.NET class named LED to control PDA's LED.
我写了一个名为LED的类来控制PDA的LED灯。
Please see http://www.pocketpcdn.com/articles/led.html first to help understand the core of this class.
请首先阅读http://www.pocketpcdn.com/articles/led.html,这将有利于你理解这个类
And here is the class:
以下是这个类:

Imports System.runtime.InteropServices

Public Class LED
    Private Structure NLED_SETTINGS_INFO
        Public LedNum As UInt32
        Public OffOnBlink As UInt32
        Public TotalCycleTime As Integer
        Public OnTime As Integer
        Public OffTime As Integer
        Public MetaCycleOn As Integer
        Public MetaCycleOff As Integer
    End Structure

    Private Structure NLED_COUNT_INFO
        Public cLeds As Integer
    End Structure

    Private Const NLED_COUNT_INFO_ID = 0
    Private Const NLED_SETTINGS_INFO_ID = 2

    Private Declare Function NLedGetDeviceInfo Lib "coredll.dll" (ByVal nID As Integer, ByRef pOutput As NLED_COUNT_INFO) As Boolean
    Private Declare Function NLedSetDevice Lib "coredll.dll" (ByVal nID As Integer, ByRef pOutput As NLED_SETTINGS_INFO) As Boolean

    Public Enum Status
        OFF
        [ON]
        BLINK
    End Enum

    Public Function GetLedCount() As Integer
        Dim nci As NLED_COUNT_INFO
        Dim wCount As Integer = 0
        If NLedGetDeviceInfo(NLED_COUNT_INFO_ID, nci) Then
            wCount = CInt(nci.cLeds)
        End If
        Return wCount
    End Function

    Public Sub SetLedStatus(ByVal wLed As Integer, ByVal wStatus As Status)
        Dim nsi As NLED_SETTINGS_INFO
        nsi.LedNum = System.Convert.ToUInt32(wLed)
        nsi.OffOnBlink = System.Convert.ToUInt32(wStatus)
        NLedSetDevice(NLED_SETTINGS_INFO_ID, nsi)
    End Sub

End Class

And the test form is here:
这儿是用于测试窗体:

Imports System
Imports System.Collections
Imports System.Text
Public Class Form1
    Inherits System.Windows.Forms.Form
    Friend WithEvents MenuItem1 As System.Windows.Forms.MenuItem
    Friend WithEvents MenuItem2 As System.Windows.Forms.MenuItem
    Friend WithEvents MainMenu1 As System.Windows.Forms.MainMenu

#Region " Windows 窗体设计器生成的代码 "

    Public Sub New()
        MyBase.New()

        '该调用是 Windows 窗体设计器所必需的。
        InitializeComponent()

        '在 InitializeComponent() 调用之后添加任何初始化

    End Sub

    '窗体重写 dispose 以清理组件列表。
    Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
        MyBase.Dispose(disposing)
    End Sub

    '注意: 以下过程是 Windows 窗体设计器所必需的
    '可以使用 Windows 窗体设计器修改此过程。
    '不要使用代码编辑器修改它。
    Friend WithEvents Label1 As System.Windows.Forms.Label
    Friend WithEvents Label2 As System.Windows.Forms.Label
    Friend WithEvents Panel1 As System.Windows.Forms.Panel
    Friend WithEvents rbLED As System.Windows.Forms.RadioButton
    Friend WithEvents rbOn As System.Windows.Forms.RadioButton
    Friend WithEvents rbOff As System.Windows.Forms.RadioButton
    Friend WithEvents rbBlink As System.Windows.Forms.RadioButton
    Private Sub InitializeComponent()
        Me.MainMenu1 = New System.Windows.Forms.MainMenu
        Me.MenuItem1 = New System.Windows.Forms.MenuItem
        Me.MenuItem2 = New System.Windows.Forms.MenuItem
        Me.rbLED = New System.Windows.Forms.RadioButton
        Me.Label1 = New System.Windows.Forms.Label
        Me.Label2 = New System.Windows.Forms.Label
        Me.Panel1 = New System.Windows.Forms.Panel
        Me.rbOn = New System.Windows.Forms.RadioButton
        Me.rbOff = New System.Windows.Forms.RadioButton
        Me.rbBlink = New System.Windows.Forms.RadioButton
        '
        'MainMenu1
        '
        Me.MainMenu1.MenuItems.Add(Me.MenuItem1)
        '
        'MenuItem1
        '
        Me.MenuItem1.MenuItems.Add(Me.MenuItem2)
        Me.MenuItem1.Text = "菜单"
        '
        'MenuItem2
        '
        Me.MenuItem2.Text = "退出"
        '
        'rbLED
        '
        Me.rbLED.Checked = True
        Me.rbLED.Location = New System.Drawing.Point(24, 48)
        Me.rbLED.Size = New System.Drawing.Size(60, 16)
        Me.rbLED.Text = "0"
        '
        'Label1
        '
        Me.Label1.Location = New System.Drawing.Point(12, 24)
        Me.Label1.Size = New System.Drawing.Size(80, 16)
        Me.Label1.Text = "LED No."
        '
        'Label2
        '
        Me.Label2.Location = New System.Drawing.Point(120, 24)
        Me.Label2.Size = New System.Drawing.Size(80, 16)
        Me.Label2.Text = "LED Status"
        '
        'Panel1
        '
        Me.Panel1.Controls.Add(Me.rbOn)
        Me.Panel1.Controls.Add(Me.rbOff)
        Me.Panel1.Controls.Add(Me.rbBlink)
        Me.Panel1.Location = New System.Drawing.Point(136, 48)
        Me.Panel1.Size = New System.Drawing.Size(76, 96)
        '
        'rbOn
        '
        Me.rbOn.Location = New System.Drawing.Point(6, 36)
        Me.rbOn.Size = New System.Drawing.Size(38, 20)
        Me.rbOn.Text = "On"
        '
        'rbOff
        '
        Me.rbOff.Checked = True
        Me.rbOff.Location = New System.Drawing.Point(6, 8)
        Me.rbOff.Size = New System.Drawing.Size(38, 20)
        Me.rbOff.Text = "Off"
        '
        'rbBlink
        '
        Me.rbBlink.Location = New System.Drawing.Point(8, 64)
        Me.rbBlink.Size = New System.Drawing.Size(52, 20)
        Me.rbBlink.Text = "Blink"
        '
        'Form1
        '
        Me.ClientSize = New System.Drawing.Size(234, 270)
        Me.Controls.Add(Me.Panel1)
        Me.Controls.Add(Me.Label2)
        Me.Controls.Add(Me.Label1)
        Me.Controls.Add(Me.rbLED)
        Me.Text = "PPC LED Demo"

    End Sub

#End Region

    Public LED As New LED

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
        Me.Text = LED.GetLedCount()
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
        Dim wLed As Integer = CInt(InputBox("Led", , "0"))
        Dim wStatus As Integer = CInt(InputBox("Status", , "1"))
        LED.SetLedStatus(wLed, wStatus)
    End Sub

    Private Sub rbOff_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles rbOff.CheckedChanged
        LED.SetLedStatus(0, LED.Status.OFF)
    End Sub

    Private Sub rbOn_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles rbOn.CheckedChanged
        LED.SetLedStatus(0, LED.Status.ON)
    End Sub

    Private Sub rbBlink_CheckedChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles rbBlink.CheckedChanged
        LED.SetLedStatus(0, LED.Status.BLINK)
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub
End Class

©️2020 CSDN 皮肤主题: 大白 设计师:CSDN官方博客 返回首页