^{<style id="kxgzt"></style>}

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

2019-11-18 17:29:35

字體：大中小

供稿：網(wǎng)友

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

上一篇：利用Winsock控件實(shí)現(xiàn)局域網(wǎng)通信

下一篇：一個(gè)自動(dòng)更換墻紙的小軟件