Discussion :

[WBO]

Bonjour,

je programme en vb.net sur un tracker.
je souhaiterais récupérer la charge restante de la batterie lorsque mon application fonctionne. (l'utilisateur n'a pas accès à cette information, et le matériel se coupe sans prévenir quand il n'y a plus de batterie.

quelqu'un à t'il une idée de comment faire ? une variable système ?

merci.

Wi

[WBO]

j'ai troubvé cette information

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Dim psBattery As PowerStatus = SystemInformation.PowerStatus

par contre, VB ne reconnait pas SystemInformation.PowerStatus ???
comment pourrais je le declarer ?

[WBO]

la librairie

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

System.Windows.Forms

à bien ce genre de propriété

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

PowerStatus

, par contre, elle n'existe pas dans la version des smart device !!!
allez savoir pourquoi, c'est bien la je pense que la notion de batterie est le plus important.

je continue d'investiguer, si quelqu'un à une autre solution ...

[harz62]

En espérant que ça t'aidera.

http://msdn.microsoft.com/fr-fr/libr...o_members.aspx

[WBO]

voila le code qu'il faut faire :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
Imports System.Runtime.InteropServices
 
Public Class Form_Identification
 
    Inherits System.Windows.Forms.Form
 
    Private Structure SYSTEM_POWER_STATUS_EX
        Public ACLineStatus As Byte
        Public BatteryFlag As Byte
        Public BatteryLifePercent As Byte
        Public Reserved1 As Byte
        Public BatteryLifeTime As Int32
        Public BatteryFullLifeTime As Int32
        Public Reserved2 As Byte
        Public BackupBatteryFlag As Byte
        Public BackupBatteryLifePercent As Byte
        Public Reserved3 As Byte
        Public BackupBatteryLifeTime As Int32
        Public BackupBatteryFullLifeTime As Int32
    End Structure
 
    Private Declare Function GetSystemPowerStatusEx Lib "coredll.dll" (ByRef pstatus As SYSTEM_POWER_STATUS_EX) As Boolean
 
 
    Private _PwCom As PowwowTCPClient
 
    Private Sub Form_Personne_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
 
        Dim wStatus As SYSTEM_POWER_STATUS_EX
        If GetSystemPowerStatusEx(wStatus) Then
            pg_Power.Value = wStatus.BatteryLifePercent
        End If
 
    End Sub

et cela marche