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