用VB編程檢測當(dāng)前電池使用情況

你想知道你的機(jī)器當(dāng)前電池使用情況嗎?系統(tǒng)電池如電壓不足將導(dǎo)致系統(tǒng)時間變慢等后果。所以你應(yīng)該知道電池現(xiàn)在的狀態(tài)，如電壓不足則應(yīng)該盡快去更換電池。用系統(tǒng)測試軟件可以辦到，但如果你沒有也沒關(guān)系，我們可以用VB編程來幫我們找到答案,具體做法如下：
    首先,新建一個工程,在其FORM1上新建二個COMMAND命令按鈕(如COMMAND1和COMMAND2),再放上二個LABEL控件(如LABEL1和LABEL2),再裝載一個Windows SYSINFO CONTROL 5.0(請從工程菜單下部件對話框中選擇并裝載),其NAME為SYSINFO1,其他都不變,然后輸入以下代碼程序:
    Option Explicit ′要求聲明所有變量
    －－－－－－－－－－－－－
    Private Sub Form_Load() ′做初始化設(shè)置
    Form1.Caption = ″檢測電池狀態(tài)演示程序″
    Command1.Caption = ″檢測電池″
    Command2.Caption = ″退出″
    Label1.Caption = ″″
    Label1.AutoSize = True
    End Sub
    －－－－－－－－－－－－－
    Private Sub Command1_Click() ′檢測當(dāng)前電池狀態(tài)
    Select Case SysInfo1.BatteryStatus
    Case 1: Label1.Caption = ″當(dāng)前電池狀態(tài) :電池電壓足″
    Case 2: Label1.Caption = ″當(dāng)前電池狀態(tài) :電池電壓不足″
    Case 4: Label1.Caption = ″當(dāng)前電池狀態(tài) :電池快用完了″
    Case 128: Label1.Caption = ″當(dāng)前電池狀態(tài) :無電池″
    Case 255: Label1.Caption = ″當(dāng)前電池狀態(tài) :不知名″
    End Select
    End Sub
    －－－－－－－－－－－－－
    Private Sub Command2_Click()
    Unload Me ′結(jié)束程序
    End
    End Sub
    運(yùn)行該程序，不用調(diào)用任何的API函數(shù)就實(shí)現(xiàn)了這個功能。以上程序在中文Windows98，中文VB5.0專業(yè)版中調(diào)試通過。