《查看PDA电池使用量的实例》由会员分享，可在线阅读，更多相关《查看PDA电池使用量的实例（10页珍藏版）》请在金锄头文库上搜索。
1、查看查看 PDA 电池使用量的实例电池使用量的实例作者：佚名 来源：乐博网收集 更新时间：2007-11-3 13:56:59 Get PDA Battery Info Summary: Using P/Invoke to get Battery Info. This technique is introduced in MSDN Library - January 2005 and this program is written based on the sample program of ms-help:/MS.MSDNQTR.2005JAN.1033/dncfhowto/html/get
2、powstat.htm Functions: This program get PDAs battery info- mation containing main battery lifetime, voltage,current,and backup battery info. 2005/3/17 Hesicong http:/dream- http:/ mailto: Imports System Imports System.Drawing Imports System.Collections Imports System.Windows.Forms Imports System.Dat
3、a Imports System.Runtime.InteropServices Summary description for Form1. Public Class BatteryInfo Inherits System.Windows.Forms.Form Friend WithEvents TextBox1 As System.Windows.Forms.TextBox Private mainMenu1 As System.Windows.Forms.MainMenu Public Sub New() Required for Windows Form Designer suppor
4、t InitializeComponent() End Sub New TODO: Add any constructor code after InitializeComponent call Clean up any resources being used. Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean) MyBase.Dispose(disposing) End Sub Dispose #Region “Windows Form Designer generated code“ Required
5、 method for Designer support - do not modify the contents of this method with the code editor. Friend WithEvents MenuItem4 As System.Windows.Forms.MenuItem Friend WithEvents MenuItem5 As System.Windows.Forms.MenuItem Friend WithEvents MenuItem7 As System.Windows.Forms.MenuItem Friend WithEvents Time
6、r1 As System.Windows.Forms.Timer Friend WithEvents mnuAutoRefresh As System.Windows.Forms.MenuItem Friend WithEvents mnuAbout As System.Windows.Forms.MenuItem Friend WithEvents MenuItem1 As System.Windows.Forms.MenuItem Private Sub InitializeComponent() Me.mainMenu1 = New System.Windows.Forms.MainMe
7、nu Me.MenuItem4 = New System.Windows.Forms.MenuItem Me.MenuItem5 = New System.Windows.Forms.MenuItem Me.mnuAutoRefresh = New System.Windows.Forms.MenuItem Me.MenuItem7 = New System.Windows.Forms.MenuItem Me.mnuAbout = New System.Windows.Forms.MenuItem Me.TextBox1 = New System.Windows.Forms.TextBox M
8、e.Timer1 = New System.Windows.Forms.Timer Me.MenuItem1 = New System.Windows.Forms.MenuItem mainMenu1 Me.mainMenu1.MenuItems.Add(Me.MenuItem4) Me.mainMenu1.MenuItems.Add(Me.mnuAbout) MenuItem4 Me.MenuItem4.MenuItems.Add(Me.MenuItem5) Me.MenuItem4.MenuItems.Add(Me.mnuAutoRefresh) Me.MenuItem4.MenuItem
9、s.Add(Me.MenuItem1) Me.MenuItem4.MenuItems.Add(Me.MenuItem7) Me.MenuItem4.Text = “Menu“ MenuItem5 Me.MenuItem5.Text = “Refresh“ mnuAutoRefresh Me.mnuAutoRefresh.Text = “AutoRefresh“ MenuItem7 Me.MenuItem7.Text = “End“ mnuAbout Me.mnuAbout.Text = “About“ TextBox1 Me.TextBox1.Location = New System.Dra
10、wing.Point(8, 8) Me.TextBox1.Multiline = True Me.TextBox1.ScrollBars = System.Windows.Forms.ScrollBars.Horizontal Me.TextBox1.Size = New System.Drawing.Size(224, 256) Me.TextBox1.Text = “ Timer1 Me.Timer1.Interval = 1000 MenuItem1 Me.MenuItem1.Text = “SetRefreshInterval“ BatteryInfo Me.Controls.Add(
11、Me.TextBox1) Me.Menu = Me.mainMenu1 Me.Text = “BatteryInfo“ End Sub InitializeComponent #End Region The main entry point for the application. Shared Sub Main() Application.Run(New BatteryInfo) End Sub Main Public Class SYSTEM_POWER_STATUS_EX2 Public ACLineStatus As Byte Public BatteryFlag As Byte Pu
12、blic BatteryLifePercent As Byte Public Reserved1 As Byte Public BatteryLifeTime As System.UInt32 Public BatteryFullLifeTime As System.UInt32 Public Reserved2 As Byte Public BackupBatteryFlag As Byte Public BackupBatteryLifePercent As Byte Public Reserved3 As Byte Public BackupBatteryLifeTime As Syst
13、em.UInt32 Public BackupBatteryFullLifeTime As System.UInt32 Public BatteryVoltage As System.UInt32 Public BatteryCurrent As System.UInt32 Public BatteryAverageCurrent As System.UInt32 Public BatteryAverageInterval As System.UInt32 Public BatterymAHourConsumed As System.UInt32 Public BatteryTemperatu
14、re As System.UInt32 Public BackupBatteryVoltage As System.UInt32 Public BatteryChemistry As Byte End Class SYSTEM_POWER_STATUS_EX2 Public Class SYSTEM_POWER_STATUS_EX Public ACLineStatus As Byte Public BatteryFlag As Byte Public BatteryLifePercent As Byte Public Reserved1 As Byte Public BatteryLifeT
15、ime As System.UInt32 Public BatteryFullLifeTime As System.UInt32 Public Reserved2 As Byte Public BackupBatteryFlag As Byte Public BackupBatteryLifePercent As Byte Public Reserved3 As Byte Public BackupBatteryLifeTime As System.UInt32 Public BackupBatteryFullLifeTime As System.UInt32 End Class SYSTEM
16、_POWER_STATUS_EX _ Private Shared Function GetSystemPowerStatusEx(ByVal lpSystemPowerStatus As SYSTEM_POWER_STATUS_EX, ByVal fUpdate As Boolean) As System.UInt32 End Function _ Private Shared Function GetSystemPowerStatusEx2(ByVal lpSystemPowerStatus As SYSTEM_POWER_STATUS_EX2, ByVal dwLen As System.UInt32, ByVal fUpd
