vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
Mails senden, abrufen und decodieren - ganz easy ;-)  
 vb@rchiv Quick-Search: Suche startenErweiterte Suche starten   Impressum  | Datenschutz  | vb@rchiv CD Vol.6  | Shop Copyright ©2000-2024
 
zurück

 Sie sind aktuell nicht angemeldet.Funktionen: Einloggen  |  Neu registrieren  |  Suchen

VB.NET - Ein- und Umsteiger
Re: Zählerstände Strom, Wasser, Gas erfassen Auswerten 
Autor: Erichbru
Datum: 05.01.23 11:37

hier noch der Code: aus dem BindingsourceListChange Ereignis

 Private Sub BS_Wasser_ListChanged(sender As Object, e As EventArgs) Handles _
   BS_Wasser.ListChanged
        If BS_ZaehlerWasser_Liste.Count > 0 Then
            'Wasser W22007880
            Dim minStandW22007880 = (From drv In HB.Wasser Where drv.RowState _
              <> DataRowState.Deleted Select drv.W22007880).Min
            Dim maxStandW22007880 = (From drv In HB.Wasser Where drv.RowState _
            <> DataRowState.Deleted Select drv.W22007880).Max
 
            ZaehlerstandW22007880_start.Text = minStandW22007880
            ZaehlerstandW22007880_ende.Text = maxStandW22007880
            'Wasser W22007881
            Dim minStandW22007881 = (From drv In HB.Wasser Where drv.RowState _
              <> DataRowState.Deleted Select drv.W22007881).Min
            Dim maxStandW22007881 = (From drv In HB.Wasser Where drv.RowState _
            <> DataRowState.Deleted Select drv.W22007881).Max
 
            ZaehlerstandW22007881_start.Text = minStandW22007881
            ZaehlerstandW22007881_ende.Text = maxStandW22007881
            'Wasser W22007885
            Dim minStandW22007885 = (From drv In HB.Wasser Where drv.RowState _
              <> DataRowState.Deleted Select drv.W22007885).Min
            Dim maxStandW22007885 = (From drv In HB.Wasser Where drv.RowState _
            <> DataRowState.Deleted Select drv.W22007885).Max
 
            ZaehlerstandW22007885_start.Text = minStandW22007885
            ZaehlerstandW22007885_ende.Text = maxStandW22007885
            'kleinste Datum, grösste Datum ermitteln
            Dim minDatum = (From drv In HB.Wasser Where drv.RowState <> _
              DataRowState.Deleted Select drv.Ablesedatum).Min
            Dim maxDatum = (From drv In HB.Wasser Where drv.RowState <> _
            DataRowState.Deleted Select drv.Ablesedatum).Max
            'Anzeigen in Label
            lbl_Ablesedatum_W22007880_Max.Text = maxDatum.ToShortDateString
            lbl_Ablesedatum_W22007880_Min.Text = minDatum.ToShortDateString
            'Verbrauch berechnen
            Wasser1Verbrauch.Text = CDbl(ZaehlerstandW22007880_ende.Text) - _
              CDbl(ZaehlerstandW22007880_start.Text)
            Wasser2Verbrauch.Text = CDbl(ZaehlerstandW22007881_ende.Text) - _
            CDbl(ZaehlerstandW22007881_start.Text)
            Wasser3Verbrauch.Text = CDbl(ZaehlerstandW22007885_ende.Text) - _
            CDbl(ZaehlerstandW22007885_start.Text)
            '------------------------------------------------------------------
            ' --------
            Dim diff As TimeSpan = Date.Now.Subtract(maxDatum)
            Label_letzteEingabe.Text = String.Concat("letzte Eingabe vor: " & _
              diff.Days & " Tagen").ToString
            '------------------------------------------------------------------
            ' --------
            'Berechnung Verbrauch pro Tag in m³
            Dim x As Double = DateDiff(DateInterval.Day, minDatum, maxDatum)
            ResultLabelWVT1.Text = x
            RGWInfoboxZaehlerstand.Caption = String.Concat("Zaehlerstand vom: " _
              & minDatum).ToString
 
            Dim VBKubikW1 As Double = Double.Parse(Wasser1Verbrauch.Text) / x
            Dim VBKubikW2 As Double = Double.Parse(Wasser2Verbrauch.Text) / x
            Dim VBKubikW3 As Double = Double.Parse(Wasser3Verbrauch.Text) / x
 
            ResultLabelW1.Text = String.Format("{0:0.00} m³", VBKubikW1) & "" & _
              "pro Tag"   'Double.Parse(Wasser1Verbrauch.Text) / x
            ResultLabelW2.Text = String.Format("{0:0.00} m³", VBKubikW2) & "" & _
            "pro Tag"
            ResultLabelW3.Text = String.Format("{0:0.00} m³", VBKubikW3) & "" & _
            "pro Tag"
            '------------------------------------------------------------------
            ' --------
            'Berechnung Verbrauch pro Tag in Liter
            Dim VBKubiLW1 As Double = VBKubikW1 * 1000
            Dim VBKubiLW2 As Double = VBKubikW2 * 1000
            Dim VBKubiLW3 As Double = VBKubikW3 * 1000
 
            ResultLabelWT1.Text = String.Format("{0:0.00} Liter", VBKubiLW1) & _
              " pro Tag"
            ResultLabelWT2.Text = String.Format("{0:0.00} Liter", VBKubiLW2) & _
            " pro Tag"
            ResultLabelWT3.Text = String.Format("{0:0.00} Liter", VBKubiLW3) & _
            " pro Tag"
        Else
            lbl_Ablesedatum_W22007880_Max.Text = "keine Daten"
            lbl_Ablesedatum_W22007880_Min.Text = "keine Daten"
            ZaehlerstandW22007880_start.Text = String.Empty
            ZaehlerstandW22007880_ende.Text = String.Empty
            ZaehlerstandW22007881_start.Text = String.Empty
            ZaehlerstandW22007881_ende.Text = String.Empty
            ZaehlerstandW22007885_start.Text = String.Empty
            ZaehlerstandW22007885_ende.Text = String.Empty
 
            RGWInfoboxZaehlerstand.Caption = String.Concat("Noch keine" & _
              "Zaehlerstaende erfasst").ToString
        End If
 
 
    End Sub
alle Nachrichten anzeigenGesamtübersicht  |  Zum Thema  |  Suchen

 ThemaViews  AutorDatum
Zählerstände Strom, Wasser, Gas erfassen Auswerten1.466Erichbru29.12.22 11:18
Re: Zählerstände Strom, Wasser, Gas erfassen Auswerten674Manfred X29.12.22 13:36
Einfaches Beispiel623Manfred X29.12.22 15:11
Re: Einfaches Beispiel536Erichbru30.12.22 18:03
Re: Einfaches Beispiel448Manfred X30.12.22 18:24
Re: Einfaches Beispiel395Erichbru30.12.22 18:44
Re: Einfaches Beispiel454Manfred X30.12.22 19:13
Re: Einfaches Beispiel444Erichbru05.01.23 11:36
Re: Zählerstände Strom, Wasser, Gas erfassen Auswerten523Erichbru05.01.23 11:37
Verbrauchsermittlung in einem Zeitraum / Zählerstands-Interp...469Manfred X06.01.23 06:16
Re: Verbrauchsermittlung in einem Zeitraum / Zählerstands-In...417Erichbru07.01.23 11:59
Re: Verbrauchsermittlung in einem Zeitraum / Zählerstands-In...422Manfred X07.01.23 18:41
Re: Verbrauchsermittlung in einem Zeitraum / Zählerstands-In...378Erichbru09.01.23 16:52
Re: Verbrauchsermittlung in einem Zeitraum / Zählerstands-In...406Manfred X09.01.23 22:31
Re: Verbrauchsermittlung in einem Zeitraum / Zählerstands-In...380Erichbru10.01.23 10:46
Re: Verbrauchsermittlung in einem Zeitraum / Zählerstands-In...454Manfred X10.01.23 11:41
Re: Verbrauchsermittlung in einem Zeitraum / Zählerstands-In...380Erichbru10.01.23 12:01
Re: Zählerstände Strom, Wasser, Gas erfassen Auswerten472Erichbru10.01.23 11:56
Re: Zählerstände Strom, Wasser, Gas erfassen Auswerten350Erichbru20.04.23 16:46
Re: Zählerstände Strom, Wasser, Gas erfassen Auswerten460Manfred X20.04.23 21:17
Re: Zählerstände Strom, Wasser, Gas erfassen Auswerten211Erichbru27.03.24 10:55

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

Funktionen:  Zum Thema  |  GesamtübersichtSuchen 

nach obenzurück
 
   

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