Cédric software - niveau de votre batterie

Télécharger le projet
Commenter

Description

Ce logiciel vous permet juste de savoir le niveau de votre batterie. L'interface graphique y est assez sympa...

Source / Exemple : 


Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Integer, ByVal lParam As Any) As Long
Const LB_FINDSTRING = &H18F

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

Private Sub chameleonButton1_Click()
    Me.Visible = False
    HelpAbout.Show
End Sub

Private Sub Exit_Click()
    Unload Me
End Sub

Private Sub Form_Load()
    Call EtatBatterie
End Sub

Function EtatBatterie() ' fonction de check de batterie
Dim Batterie As SYSTEM_POWER_STATUS
GetSystemPowerStatus Batterie

    If Batterie.ACLineStatus = 1 Then
        Label1.Caption = "Sur secteur"
        Label3.Caption = ""
        Label6.Caption = ""
        Image6.Visible = False
    Else
        Label1.Caption = "Sur batterie"
    Dim TempsRestant As Integer
        TempsRestant = Batterie.BatteryLifeTime / 60
        
        
        If TempsRestant = 0 Then
            Label3.Caption = "Calcul en cours ..."
            Label6.Caption = "Temps Restant"
            Image6.Visible = True
        Else
            Label3.Caption = TempsRestant & " min"
        End If
        
    End If

        Label2.Caption = Batterie.BatteryLifePercent & "% Restant"

        prgBar.Value = Batterie.BatteryLifePercent

    If Batterie.BatteryLifePercent = 100 Then
        Label7.Caption = "Batterie chargée"
    Else
        Label7.Caption = "Chargement en cours..."
    End If

    If Label1.Caption = "Sur batterie" Then
        Label7.Caption = "Batterie utilisée"
    End If

End Function

Private Sub cacher_Click()
    Me.Visible = False
    MsgBox "Mode caché activé. Pour afficher le niveau de la batterie, appuyez sur la touche F8."
End Sub

Private Sub Im_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 1 Then
ReleaseCapture
      SendMessage Me.hwnd, WM_NCLBUTTONDOWN, HTCAPTION, 0&
      End If
End Sub

Private Sub lol_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 1 Then
ReleaseCapture
      SendMessage Me.hwnd, WM_NCLBUTTONDOWN, HTCAPTION, 0&
      End If
End Sub

Private Sub Timer1_Timer()
    Call EtatBatterie
End Sub

Private Sub Timer2_Timer() ' test de l'appuis sur F8
Dim Test As Integer
    Test = GetAsyncKeyState(TOUCHE_F11)
    
    If Test <> 0 Then
        Me.Visible = True
    End If
    
End Sub

Conclusion :


Dites moi ce que vous pensez de l'interface graphique ainsi que le soft en lui même. Merci...

Contact : cswebsoft@yahoo.fr
Télécharger le projet

Codes Sources

A voir également

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.