开发学院软件开发VB 用VB编程检测当前电池使用情况 阅读

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

 2006-02-27 21:11:35 来源:WEB开发网   
核心提示:你想知道你的机器当前电池使用情况吗?系统电池如电压不足将导致系统时间变慢等后果,所以你应该知道电池现在的状态,用VB编程检测当前电池使用情况,如电压不足则应该尽快去更换电池,用系统测试软件可以办到,不用调用任何的API函数就实现了这个功能,以上程序在中文WINDOWS98,但如果你没有也没关系,我们可以用VB编程来帮我
你想知道你的机器当前电池使用情况吗?系统电池如电压不足将导致系统时间变慢等后果。所以你应该知道电池现在的状态,如电压不足则应该尽快去更换电池。用系统测试软件可以办到,但如果你没有也没关系,我们可以用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专业版中调试通过。->

Tags:VB 编程 检测

编辑录入:爽爽 [复制链接] [打 印]
[]
  • 好
  • 好的评价 如果觉得好,就请您
      0%(0)
  • 差
  • 差的评价 如果觉得差,就请您
      0%(0)
赞助商链接