does anyone knows why the battery values doesn´t are updating during the running time of this program?
Code: Select all
If GetSystemPowerStatus_(PowerStatus.SYSTEM_POWER_STATUS)
OpenWindow(0,50,50,256,100,"Battery status",#PB_Window_SystemMenu | #PB_Window_MinimizeGadget)
ACtxt.s=""
batFlagTxt.s=""
lifeTimeTxt.s=""
TextGadget(0,10,10,200,14,"")
TextGadget(1,10,30,200,14,"")
TextGadget(2,10,50,200,14,"")
TextGadget(3,10,70,200,14,"")
Repeat
eventID=WaitWindowEvent()
ac.d=PowerStatus\ACLineStatus ; 0-Battery, 1-AC, 255 ou $ff-Desconhecido
If ac=0
ACtxt="Off"
Else
ACtxt="On"
EndIf
batFlag.d=PowerStatus\BatteryFlag
; BatteryFlag bits: 0- carga média, 1-Carga elevada, 2-Carga baixa, 4-Carga critica
; 8-Em carga, 128-sem bateria, 255-Estado desconhecido
If batFlag=0
batFlagTxt="média"
ElseIf batFlag=1
batFlagTxt="elevada"
ElseIf batFlag=2
batFlagTxt="baixa"
ElseIf batFlag=4
batFlagTxt="critico"
ElseIf batFlag=8
batFlagTxt="em carga"
ElseIf batFlag=128
batFlagTxt="sem bateria"
ElseIf batFlag=255
batFlagTxt="desconhecido"
EndIf
life100.d=PowerStatus\BatteryLifePercent ; % de carga restante (255 ou $ff se desconhecida)
lifeTime.l=PowerStatus\BatteryLifeTime ; n. de segundos restantes (-1 ou $ffffffff se desconhecido)
lifeTimeMin=lifeTime/60
fullLife.l=PowerStatus\BatteryFullLifeTime ; n. de segundos de autonomia (-1 ou $ffffffff se desconhecido)
SetGadgetText(0,"Power "+ACtxt)
SetGadgetText(1,"Carga da bateria: "+batFlagTxt)
SetGadgetText(2,Str(life100)+" % de bateria restante")
SetGadgetText(3,Str(lifeTimeMin)+" minutos de bateria restante")
Until eventID=#PB_Event_CloseWindow
CloseWindow(0)
EndIf