| |
VB.NET - Ein- und UmsteigerUWP-App Akkuinformationen abrufen | | | Autor: volzim | Datum: 15.01.16 12:22 |
| Hallo Leute,
ich bin Anfänger und würde gerne eine kleine App für mein Handy programmieren, die mir Infos zum Akku anzeigt. Bitte schlagt nicht die Hände über dem Kopf zusammen wenn ihr meinen Code seht, da ich noch am lernen bin.
Da ich vorher schon mal ein bisschen mit VB6 gespielt hatte, hab ich mich dazu entschlossen die App auf .Net Basis zu schreiben.
Meine kleine App funktioniert soweit, dass ich alle Infos zum Akku angezeigt bekomme. Mein Problem ist jetzt, dass ich den EventHandler nicht zum Laufen bekomme. Ich habe bereits Stunden damit verbracht und mich versucht einzulesen, aber ich komme nicht drauf wie es richtig ist.
Das einzige was mir fehlt ist die Statusänderung in der laufenden App. Wird das Handy z.B. ans Ladegerät gehängt, löst das Battery-Objekt ein ReportUpdated-Ereignis aus.
Aber wie kann ich meinem Programm sagen, dass bei dem ReportUpdated-Ereignis des Akkus App_befuellen() wieder ausgeführt wird?
Habt ihr Tipps für mich? auch gerne wie ich es besser machen kann.
Hier ein Link zu der Anleitung die ich nutze:
https://msdn.microsoft.com/de-de/library/windows/apps/xaml/mt227653.aspx
Imports Windows.Devices.Power
Public NotInheritable Class MainPage
Inherits Page
'Ist das richtig?#################################
Public Event ReportUpdated As TypedEventHandler(Of Battery, Object)
'#################################################
Public Sub New()
InitializeComponent()
App_befuellen()
End Sub
Public Sub App_befuellen()
Dim batterie = Battery.AggregateBattery
Dim report = batterie.GetReport
Dim Prozent As Double
Dim ReCa As Double
Dim ChRa As Double
Prozent = ((Convert.ToDouble(report.RemainingCapacityInMilliwattHours)) _
/ (Convert.ToDouble(report.FullChargeCapacityInMilliwattHours)) * 100)
Prozent = Math.Round(Prozent, 1)
If (Prozent >= 0 And Prozent <= 100) Then
ProgressAkku.Minimum = 0
ProgressAkku.Maximum = 100
ProgressAkku.Value = Prozent
End If
ReCa = Convert.ToDouble(report.RemainingCapacityInMilliwattHours)
ChRa = Convert.ToDouble(report.FullChargeCapacityInMilliwattHours)
textBlock_Prozent.Text = Prozent & " %"
textBlock_VL2.Text = Math.Round(ReCa, 2)
textBlock_LG2.Text = Math.Round(ChRa, 2)
If report.Status = 1 Then
textBlock_LZ2.Text = "Nein"
End If
If report.Status = 3 Then
textBlock_LZ2.Text = "Ja"
End If
End Sub
'Ist das richtig?#################################
Private Sub MainPage_ReportUpdated(sender As Battery, args As Object) _
Handles Me.ReportUpdated
textBlock_LZ2.Text = "Test"
End Sub
'###############################
End Class
Beitrag wurde zuletzt am 15.01.16 um 12:28:44 editiert. | |
| Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden.
Einloggen | Neu registrieren |
|
|
Neu! sevDTA 3.0 Pro
SEPA mit Kontonummernprüfung
Erstellen von SEPA-Dateien mit integriertem BIC-Verzeichnis und Konto- nummern-Prüfverfahren, so dass ungültige Bankdaten bereits im Vorfeld ermittelt werden können. Weitere InfosTipp des Monats Access-Tools Vol.1
Über 400 MByte Inhalt
Mehr als 250 Access-Beispiele, 25 Add-Ins und ActiveX-Komponenten, 16 VB-Projekt inkl. Source, mehr als 320 Tipps & Tricks für Access und VB
Nur 24,95 EURWeitere Infos
|
|
|
Copyright ©2000-2024 vb@rchiv Dieter Otter Alle Rechte vorbehalten.
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.
Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel
|
|