vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
Zippen wie die Profis!  
 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: Verbrauchsermittlung in einem Zeitraum / Zählerstands-Interpolation 
Autor: Erichbru
Datum: 09.01.23 16:52

Hallo Manfred,

Danke ich melde mich noch mal baue gerade ein wenig um.

die TextBoxen bezogen sich nicht auf mein Eingabe Form, habe ich aber an der Stelle mit eingebaut

den Wasserverbrauch berechne ich so, mit deiner Funktion.



 Private Sub Wasserverbrauch()
        If BS_ZaehlerWasser_Liste.Count > 0 Then
            'firstdate, lastdate ermitteln
            Dim firstdate = (From drv In HB.Wasser Where drv.RowState <> _
              DataRowState.Deleted Select drv.Ablesedatum).Min
            Dim lastdate = (From drv In HB.Wasser Where drv.RowState <> _
            DataRowState.Deleted Select drv.Ablesedatum).Max
            'Zaehler 22007880
            Dim NL As String = Environment.NewLine
 
            Dim C1 As Double = GetConsum(BS_Wasser, firstdate, lastdate, _
              "Ablesedatum", "W22007880")
            Dim C2 As Double = GetConsum(BS_Wasser, firstdate, lastdate, _
            "Ablesedatum", "W22007881")
            Dim C3 As Double = GetConsum(BS_Wasser, firstdate, lastdate, _
            "Ablesedatum", "W22007885")
 
            Dim CWVgesamt As Double = C1 + C2 + C3
 
            Dim VBLiter As Double = Math.Round(CWVgesamt * 1000, 2)
 
            Dim Meldungstext As String = "Status:"
 
            Meldungstext = Meldungstext & NL & _
              "----------------------------------------------------"
            Meldungstext = Meldungstext & NL & _
            "----------------------------------------------------"
            Meldungstext = Meldungstext & NL & Format(Now, "dd.MM.yyyy" & _
            "HH:mm:ss")
            Meldungstext = Meldungstext & NL & _
            "----------------------------------------------------"
            Meldungstext = Meldungstext & NL & _
            "-----------------------------------------------------------------" & _
            "-------------------------"
            Meldungstext = Meldungstext & NL & "Wasserverbrauch gesamt m³:   " _
            & "( " & CWVgesamt & " ) " & "[ " & VBLiter & " Liter " & "]"
            Meldungstext = Meldungstext & NL & _
            "-----------------------------------------------------------------" & _
            "-------------------------"
            Meldungstext = Meldungstext & NL & "im Ablesezeitraum: " & _
            firstdate.ToShortDateString & " <> " & lastdate.ToShortDateString
            Meldungstext = Meldungstext & NL & _
            "-----------------------------------------------------------------" & _
            "-------------------------"
            Meldungstext = Meldungstext & NL & "Zählernummer-22007880 [WV]:    " & _
            "                    " & "( " & C1 & " m³)"
            Meldungstext = Meldungstext & NL & "Zählernummer-22007881 [WV]:    " & _
            "                    " & "( " & C2 & " m³)"
            Meldungstext = Meldungstext & NL & "Zählernummer-22007885 [WV]:    " & _
            "                    " & "( " & C3 & " m³)"
            Meldungstext = Meldungstext & NL & _
            "-----------------------------------------------------------------" & _
            "-------------------------"
            Meldungstext = Meldungstext & NL & "Wasserverbrauch pro Tag" & _
            "[Liter]:   " & "( " & " ) "
            Meldungstext = Meldungstext & NL & _
            "-----------------------------------------------------------------" & _
            "-------------------------"
            Meldungstext = Meldungstext & NL & _
            "-----------------------------------------------------------------" & _
            "-------------------------"
 
            MessageBox.Show(Meldungstext, "Auswertung:")
        Else
            Meldung_Wassertabelle()
        End If
    End Sub
für deine Kommentare schon jetzt Danke. Die Liter pro Tag weiß noch nicht wie ich da ran gehe.
alle Nachrichten anzeigenGesamtübersicht  |  Zum Thema  |  Suchen

 ThemaViews  AutorDatum
Zählerstände Strom, Wasser, Gas erfassen Auswerten1.315Erichbru29.12.22 11:18
Re: Zählerstände Strom, Wasser, Gas erfassen Auswerten571Manfred X29.12.22 13:36
Einfaches Beispiel526Manfred X29.12.22 15:11
Re: Einfaches Beispiel435Erichbru30.12.22 18:03
Re: Einfaches Beispiel358Manfred X30.12.22 18:24
Re: Einfaches Beispiel306Erichbru30.12.22 18:44
Re: Einfaches Beispiel359Manfred X30.12.22 19:13
Re: Einfaches Beispiel351Erichbru05.01.23 11:36
Re: Zählerstände Strom, Wasser, Gas erfassen Auswerten371Erichbru05.01.23 11:37
Verbrauchsermittlung in einem Zeitraum / Zählerstands-Interp...379Manfred X06.01.23 06:16
Re: Verbrauchsermittlung in einem Zeitraum / Zählerstands-In...325Erichbru07.01.23 11:59
Re: Verbrauchsermittlung in einem Zeitraum / Zählerstands-In...330Manfred X07.01.23 18:41
Re: Verbrauchsermittlung in einem Zeitraum / Zählerstands-In...286Erichbru09.01.23 16:52
Re: Verbrauchsermittlung in einem Zeitraum / Zählerstands-In...314Manfred X09.01.23 22:31
Re: Verbrauchsermittlung in einem Zeitraum / Zählerstands-In...288Erichbru10.01.23 10:46
Re: Verbrauchsermittlung in einem Zeitraum / Zählerstands-In...364Manfred X10.01.23 11:41
Re: Verbrauchsermittlung in einem Zeitraum / Zählerstands-In...284Erichbru10.01.23 12:01
Re: Zählerstände Strom, Wasser, Gas erfassen Auswerten365Erichbru10.01.23 11:56
Re: Zählerstände Strom, Wasser, Gas erfassen Auswerten257Erichbru20.04.23 16:46
Re: Zählerstände Strom, Wasser, Gas erfassen Auswerten364Manfred X20.04.23 21:17
Re: Zählerstände Strom, Wasser, Gas erfassen Auswerten63Erichbru27.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