Test

Gerekli Malzemeler
------------------
1 Adet Label
1 Adet Timer
-----------------


Timer'E bunu Yazın
  >Label1.Text = getBatteryStatus()


Ve Form_load'ın ustune Yapiştirin
  Public Function getBatteryStatus() As Integer Dim obj As Object, obj2 As Object, stat As Integer ' Pil Durumu alın ' Değeri Anlamı Dönüş '0 Pil yok '1 Pil deşarj edilmektedir. '2 Sistem AC erişimi vardır bu yüzden pil deşarj edilmektedir. Ancak, pil mutlaka şarj edilmez. '3 Tam Yüklü '4 Düşük Pil '5 kritik Pil '6 Şarj '7 Şarj ve Yüksek '8 Şarj ve Düşük '9 Şarj ve Kritik '10 Tanımsız '11 Kısmen Yüklü stat = 0 obj = GetObject("winmgmts:").InstancesOf("Win32_Battery") For Each obj2 In obj 'loop in objects stat = obj2.BatteryStatus Next getBatteryStatus = stat End Function