cara buat batery check dengan mudah !

hai gan mumpung gwe lagi nganggur and nggx ada posting " yg bagus untuk diposkan nie gwa pngen sekedar berbagi ilmu tentang vb,maap ajah tips inie cuma sederhana doank ! kalau agan pengen blejar biar agan yang ngembangin tips ini oke !! langsung ajah..

ini tentang tips membuat app sederhana untuk mengecek bateray pada laptop kita !

yang pertama buat 

1.form

1.timer

3 label

Option Explicit
Private Sub Form_Load()
Timer1.Interval = 1000
Timer1.Enabled = True
Call Timer1_Timer
End Sub


Private Sub Timer1_Timer()
If SysInfo1.BatteryLifePercent <> 255 Then
ProgressBar1.Value = SysInfo1.BatteryLifePercent
Label1.Caption = "BatteryLifePercent = " & Format$(SysInfo1.BatteryLifePercent / 100, "Percent")
Label2.Caption = "BatteryLifeTime = " & Format$(Val(SysInfo1.BatteryLifeTime) * (1 / 3600), "#.##") & " Hours"
Select Case SysInfo1.BatteryStatus
Case 1
Label3.Caption = "BatteryStatus = HIGH"
Case 2
Label3.Caption = "BatteryStatus = LOW"
Case 4
Label3.Caption = "BatteryStatus = CRITICAL"
End Select
ProgressBar1.Enabled = True
Else
Label1.Caption = "No Battery Present"
ProgressBar1.Value = 0
ProgressBar1.Enabled = False
End If
End Sub