Программирование
Веб программирование

Показывает заряд батареи на ноутбуках

 
 

В этой статье показанно как можно проверить заряд аккамулятора.

Option Explicit

'API

Private Declare Function GetSystemPowerStatus Lib "kernel32" _
                        (lpSystemPowerStatus As SYSTEM_POWER_STATUS) _
                         As Long

Private Type SYSTEM_POWER_STATUS
          ACLineStatus As Byte
          BatteryFlag As Byte
          BatteryLifePercent As Byte
          Reserved1 As Byte
          BatteryLifeTime As Long
          BatteryFullLifeTime As Long
End Type

Dim sysInfo As SYSTEM_POWER_STATUS

Private Sub Form_Load()

     Timer1.Interval = (100) 'Устанавливаем интервал таймера в 100 милисикунд

End Sub

Private Sub Timer1_Timer()

     'каждые 100 милмсикунд обновляется проверка заряда аккамулятора
     Call GetSystemPowerStatus(sysInfo)
     Me.Caption = (sysInfo.BatteryLifePercent & "%")
     Label1.Caption = (sysInfo.BatteryLifePercent & "%")

     If sysInfo.ACLineStatus = (0) Then
          Label2.Caption = ("Зарядка отключена")
     Else
          Label2.Caption = ("Зарядка подключена")
     End If

End Sub


Есть вопросы? Спроси на нашем форуме!!
ozzee20 [13.11.2013 12:42]

Спасибо, работает!
А как обстоят дела с компьютерами?Ошибок не будет?

Stertor370 [13.11.2013 14:37]

не надо так часто проверять. 1 раз в минуту достаточно.

Shade970 [13.11.2013 18:40]

Stertor, нормальный интервал как и виндусовский.
От этого нагрузки нет ни на что!
Ошибок нет и не будет.

Stertor370 [13.11.2013 19:14]

Дело хозяйское, ничего не буду тебе доказывать -мне глубоко наплевать. Кстати: ошибки, все же, есть.

Allohhohad99 [23.08.2016 23:20]

Здравствуйте, я хорошо не знаю русский но если ошибаю извиняюс. Пожалуйста помогите я хочу создать такой программ на вижуал бейсик 6.0 когда добавляешь Image я на ниво добавил Private Sub Image1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
MsgBox "панду андар"
label.caption="ман"
End Sub
когда нажимаешь на картинку появляется текст я хочу что бы если следуюши раз нажимаеш появилос другой текст



Оставлять комментарии можно только зарегистрированным




Предупреждение: Вся информация представлена исключительно в образовательных целях.
Ни авторы, ни администрация не несут ответственности в случае ее использования в противозаконных целях.