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

用VB编程检测当前电池使用情况,第1张

用VB编程检测当前电池使用情况,第2张

你想知道你的机器当前的电池使用情况吗?如果电池电压不足,系统时间会变慢。所以你应该知道电池的当前状态。如果电压不足,应尽快更换电池。有系统测试软件就可以,没有也没关系。我们可以用VB编程来帮我们找到答案。具体方法如下:

首先,创建一个新项目,在其FORM1上创建两个新的命令按钮(如COMMAND1和COMMAND2),放置两个标签控件(如LABEL1和LABEL2),然后加载一个Windows SYSINFO控件5.0(请从项目菜单下的组件对话框中选择并加载),名称为SYSINFO1,其他保持不变,然后输入下面的代码程序:

“Option Explicit”要求声明所有变量。

-

Privateform _ load()'进行初始化设置

1.caption = "检测电池状态的演示程序"

1.命令。caption = "测试电池"

命令。caption = "退出"

标签1。Caption = ""

标签1。AutoSize = True

末端接头

-

PrivateCommand1 _ click()'检测当前电池状态

选择案例SysInfo1。电池状态

1: label1.caption = "当前电池状态:电池电压充足"

2: label1.caption = "当前电池状态:电池电压不足"

Case: label1.caption = "当前电池状态:电池即将耗尽"

案例128: label1.caption = "当前电池状态:无电池"

案例255: label1.caption = "当前电池状态:未知"

结束选择

末端接头

-

私有子命令2_Click()

“卸载我”结束程序

目标

末端接头

运行程序,实现这个功能,不需要调用任何API函数。以上程序已在中文Windows98和中文VB5.0专业版中调试通过。

位律师回复
DABAN RP主题是一个优秀的主题,极致后台体验,无插件,集成会员系统
白度搜_经验知识百科全书 » 用VB编程检测当前电池使用情况

0条评论

发表评论

提供最优质的资源集合

立即查看 了解详情