Problème de détection de charge du pc [Résolu]

ascder 9 Messages postés mercredi 25 novembre 2009Date d'inscription 30 juillet 2016 Dernière intervention - 5 févr. 2012 à 19:20 - Dernière réponse : ucfoutu 18039 Messages postés lundi 7 décembre 2009Date d'inscriptionContributeurStatut 11 avril 2018 Dernière intervention
- 6 févr. 2012 à 07:41
Salut,
j'ai créer un logiciel pour détecter si le pc est en charge ou non, quand je démarre le logiciel il m'indique dans le label1 et le console.beep() que le pc est en charge mais quand débranche le pc rien ne change dans le label1 et ni le console.beep().



Public Class Form1
Dim psBattery As PowerStatus = SystemInformation.PowerStatus
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
If psBattery.PowerLineStatus = PowerLineStatus.Online Then
Label1.Text = ("Battery charge status: Charging")
Console.Beep()
End If
If psBattery.PowerLineStatus = PowerLineStatus.Offline Then
label1.Text = ("Battery charge status: Not charging")
Console.Beep()
End If
End Sub
End Class
Afficher la suite 

Votre réponse

10 réponses

Meilleure réponse
NSUADI 540 Messages postés mardi 4 août 2009Date d'inscription 1 février 2013 Dernière intervention - 5 févr. 2012 à 21:20
3
Merci
Bonsoir,

je sais pas si c'est très propre mais bon,ça marche et c'est déjà ça :


Imports Microsoft.Win32

Public Class Form1

    Dim psBattery As PowerStatus = SystemInformation.PowerStatus
   Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        verif()
        AddHandler SystemEvents.PowerModeChanged, AddressOf verif
    End Sub
    Sub verif()
        If psBattery.PowerLineStatus = PowerLineStatus.Online Then
            Label1.Text = ("Battery charge status: Charging")
            Console.Beep()
            Label1.Refresh()
        ElseIf psBattery.PowerLineStatus = PowerLineStatus.Offline Then
            Label1.Text = ("Battery charge status: Not charging")
            Console.Beep()
            Label1.Refresh()
        End If
    End Sub
End Class


Bonne continuation!!

Ce qui compte,ce n'est pas ce qu'on a mais plutôt ce que l'on fait avec ce qu'on a...

Visual Basic .Net is the best
and vb6.0

Merci NSUADI 3

Avec quelques mots c'est encore mieux Ajouter un commentaire

Codes Sources a aidé 96 internautes ce mois-ci

Commenter la réponse de NSUADI
ucfoutu 18039 Messages postés lundi 7 décembre 2009Date d'inscriptionContributeurStatut 11 avril 2018 Dernière intervention - 5 févr. 2012 à 19:54
0
Merci
Bonjour,

et dis-moi : tu ne cherches à contrôler qu'au chargement de ton Form ?
Tu m'étonnes alors, lorsque tu écris :
mais quand débranche le pc rien ne change dans le label1

A moins que tu ne redémarres le chargement de ton Form, hein !
Question de logique et de prise de conscience de ce qu'est un évènement, avant toute autre "chose" !
____________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches d'autres forumeurs.
Pas d'aide en ligne installée ? ==> ne comptez pas sur moi pour simplement vous dire ce qu'elle contient
Commenter la réponse de ucfoutu
ucfoutu 18039 Messages postés lundi 7 décembre 2009Date d'inscriptionContributeurStatut 11 avril 2018 Dernière intervention - 5 févr. 2012 à 20:05
0
Merci
Et : puisque nous parlons d'évènements : pourquoi ne t'intéresserais-u pas à celui-ci :
SystemEvents.PowerModeChanged
Je ne suis pas VB.Nettiste, mais je parierais volontiers qu'il permet de faire ce que permet le contrôle sysinfo de VB6


____________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches d'autres forumeurs.
Pas d'aide en ligne installée ? ==> ne comptez pas sur moi pour simplement vous dire ce qu'elle contient
Commenter la réponse de ucfoutu
ascder 9 Messages postés mercredi 25 novembre 2009Date d'inscription 30 juillet 2016 Dernière intervention - 5 févr. 2012 à 20:15
0
Merci
Ok merci pour ta reponse, j'ai vais voir sa.
Commenter la réponse de ascder
ucfoutu 18039 Messages postés lundi 7 décembre 2009Date d'inscriptionContributeurStatut 11 avril 2018 Dernière intervention - 5 févr. 2012 à 20:17
0
Merci
sa quoi ?


____________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches d'autres forumeurs.
Pas d'aide en ligne installée ? ==> ne comptez pas sur moi pour simplement vous dire ce qu'elle contient
Commenter la réponse de ucfoutu
Gabilach 201 Messages postés mercredi 2 mars 2011Date d'inscription 28 septembre 2014 Dernière intervention - 5 févr. 2012 à 20:59
0
Merci
Bonjour,

Si il veut garder son code, il à juste à le mettre dans un timer qui se raffraichie régulieriement non ?

----------------------------------------------
Bonne programmation !!!
Gabilach...
Commenter la réponse de Gabilach
ucfoutu 18039 Messages postés lundi 7 décembre 2009Date d'inscriptionContributeurStatut 11 avril 2018 Dernière intervention - 5 févr. 2012 à 21:06
0
Merci
Un Timer pour celà ?
Déraisonnable !
N'allez pas me dire que VB.Net n'a pas d'évènement pour cela (probablement celui sur lequel j'ai appelé l'attention) alors que le control sysinfo de VB6 en a un !


____________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches d'autres forumeurs.
Pas d'aide en ligne installée ? ==> ne comptez pas sur moi pour simplement vous dire ce qu'elle contient
Commenter la réponse de ucfoutu
ascder 9 Messages postés mercredi 25 novembre 2009Date d'inscription 30 juillet 2016 Dernière intervention - 5 févr. 2012 à 22:05
0
Merci
Merci beaucoup pour t'on aide.
Commenter la réponse de ascder
NSUADI 540 Messages postés mardi 4 août 2009Date d'inscription 1 février 2013 Dernière intervention - 5 févr. 2012 à 22:26
0
Merci
Pense à cliquer sur "réponse acceptée"

Ce qui compte,ce n'est pas ce qu'on a mais plutôt ce que l'on fait avec ce qu'on a...

Visual Basic .Net is the best
and vb6.0
Commenter la réponse de NSUADI
ucfoutu 18039 Messages postés lundi 7 décembre 2009Date d'inscriptionContributeurStatut 11 avril 2018 Dernière intervention - 6 févr. 2012 à 07:41
0
Merci
J'irais personnellement lire ceci :
Tapez le texte de l'url ici.
en n'oubliant pas cette importante indication :
Just run HookEventsAdd during load and the HookEventsRemove during closing.



____________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches d'autres forumeurs.
Pas d'aide en ligne installée ? ==> ne comptez pas sur moi pour simplement vous dire ce qu'elle contient
Commenter la réponse de ucfoutu

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.