-
vb教程之用VB编程检测当前电池使用情况
你想知道你的机器当前电池使用情况吗?系统电池如电压不足将导致系统时间变慢等后果。所以你应该知道电池现在的状态,如电压不足则应该尽快去更换电池。用系统测试软件可以办到,但如果你没有也没关系,我们可以用VB编程来帮我们找到答案,具体做法如下:
首先,新建一个工程,在其FORM1上新建二个COMMAND命令按钮(如COMMAND1和COMMAND2),再放上二个LABEL控件(如LABEL1和LABEL2),再装载一个WINDOWS SYSINFO CONTROL 5.0(请从工程菜单下部件对话框中选择并装载),其NAME为SYSINFO1,其他都不变,然后输入以下代码程序:
Option Explicit ′要求声明所有变量
-------------
Private Sub Form_Load() ′做初始化设置
Form1.Caption = ″检测电池状态演示程序″
Command1.Caption = ″检测电池″
Command2.Caption = ″退出″
Label1.Caption = ″″
Label1.AutoSize = True
End Sub
-------------
Private Sub Command1_Click() ′检测当前电池状态
Select Case SysInfo1.BatteryStatus
Case 1: Label1.Caption = ″当前电池状态 :电池电压足″
Case 2: Label1.Caption = ″当前电池状态 :电池电压不足″
Case 4: Label1.Caption = ″当前电池状态 :电池快用完了″
Case 128: Label1.Caption = ″当前电池状态 :无电池″
Case 255: Label1.Caption = ″当前电池状态 :不知名″
End Select
End Sub
-------------
Private Sub Command2_Click()
Unload Me ′结束程序
End
End Sub
运行该程序,不用调用任何的API函数就实现了这个功能。以上程序在中文WINDOWS98,中文VB5.0专业版中调试通过。
首先,新建一个工程,在其FORM1上新建二个COMMAND命令按钮(如COMMAND1和COMMAND2),再放上二个LABEL控件(如LABEL1和LABEL2),再装载一个WINDOWS SYSINFO CONTROL 5.0(请从工程菜单下部件对话框中选择并装载),其NAME为SYSINFO1,其他都不变,然后输入以下代码程序:
Option Explicit ′要求声明所有变量
-------------
Private Sub Form_Load() ′做初始化设置
Form1.Caption = ″检测电池状态演示程序″
Command1.Caption = ″检测电池″
Command2.Caption = ″退出″
Label1.Caption = ″″
Label1.AutoSize = True
End Sub
-------------
Private Sub Command1_Click() ′检测当前电池状态
Select Case SysInfo1.BatteryStatus
Case 1: Label1.Caption = ″当前电池状态 :电池电压足″
Case 2: Label1.Caption = ″当前电池状态 :电池电压不足″
Case 4: Label1.Caption = ″当前电池状态 :电池快用完了″
Case 128: Label1.Caption = ″当前电池状态 :无电池″
Case 255: Label1.Caption = ″当前电池状态 :不知名″
End Select
End Sub
-------------
Private Sub Command2_Click()
Unload Me ′结束程序
End
End Sub
运行该程序,不用调用任何的API函数就实现了这个功能。以上程序在中文WINDOWS98,中文VB5.0专业版中调试通过。
最新更新
python爬虫及其可视化
使用python爬取豆瓣电影短评评论内容
nodejs爬虫
Python正则表达式完全指南
爬取豆瓣Top250图书数据
shp 地图文件批量添加字段
爬虫小试牛刀(爬取学校通知公告)
【python基础】函数-初识函数
【python基础】函数-返回值
HTTP请求:requests模块基础使用必知必会
SQL SERVER中递归
2个场景实例讲解GaussDB(DWS)基表统计信息估
常用的 SQL Server 关键字及其含义
动手分析SQL Server中的事务中使用的锁
openGauss内核分析:SQL by pass & 经典执行
一招教你如何高效批量导入与更新数据
天天写SQL,这些神奇的特性你知道吗?
openGauss内核分析:执行计划生成
[IM002]Navicat ODBC驱动器管理器 未发现数据
初入Sql Server 之 存储过程的简单使用
uniapp/H5 获取手机桌面壁纸 (静态壁纸)
[前端] DNS解析与优化
为什么在js中需要添加addEventListener()?
JS模块化系统
js通过Object.defineProperty() 定义和控制对象
这是目前我见过最好的跨域解决方案!
减少回流与重绘
减少回流与重绘
如何使用KrpanoToolJS在浏览器切图
performance.now() 与 Date.now() 对比