首页 > > 程序设计 > VB >

用VB编程检测当前电池使用情况

2018-06-17 17:11:33来源：未知阅读 ()

你想知道你的机器当前电池使用情况吗?系统电池如电压不足将导致系统时间变慢等后果。所以你应该知道电池现在的状态，如电压不足则应该尽快去更换电池。用系统测试软件可以办到，但如果你没有也没关系，我们可以用VB编程来帮我们找到答案,具体做法如下：
　　首先,新建一个工程,在其FORM1上新建二个COMMAND命令按钮(如COMMAND1和COMMAND2),再放上二个LABEL控件(如LABEL1和LABEL2),再装载一个WINDOWSSYSINFOCONTROL5.0(请从工程菜单下部件对话框中选择并装载),其NAME为SYSINFO1,其他都不变,然后输入以下代码程序:
　　OptionExplicit′要求声明所有变量
　　－－－－－－－－－－－－－
　　PrivateSubForm_Load()′做初始化设置
　　Form1.Caption=″检测电池状态演示程序″
　　Command1.Caption=″检测电池″
　　Command2.Caption=″退出″
　　Label1.Caption=″″
　　Label1.AutoSize=True
　　EndSub
　　－－－－－－－－－－－－－
　　PrivateSubCommand1_Click()′检测当前电池状态
　　SelectCaseSysInfo1.BatteryStatus
　　Case1:Label1.Caption=″当前电池状态:电池电压足″
　　Case2:Label1.Caption=″当前电池状态:电池电压不足″
　　Case4:Label1.Caption=″当前电池状态:电池快用完了″
　　Case128:Label1.Caption=″当前电池状态:无电池″
　　Case255:Label1.Caption=″当前电池状态:不知名″
　　EndSelect
　　EndSub
　　－－－－－－－－－－－－－
　　PrivateSubCommand2_Click()
　　UnloadMe′结束程序
　　End
　　EndSub
　　运行该程序，不用调用任何的API函数就实现了这个功能。以上程序在中文WINDOWS98，中文VB5.0专业版中调试通过。->

标签：

版权申明：本站文章部分自网络，如有侵权，请联系：west999com@outlook.com
特别注意：本站所有转载文章言论不代表本站观点，本站所提供的摄影照片，插画，设计作品，如需使用，请与原作者联系，版权归原作者所有