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.650Erichbru29.12.22 11:18
Re: Zählerstände Strom, Wasser, Gas erfassen Auswerten774Manfred X29.12.22 13:36
Einfaches Beispiel736Manfred X29.12.22 15:11
Re: Einfaches Beispiel697Erichbru30.12.22 18:03
Re: Einfaches Beispiel537Manfred X30.12.22 18:24
Re: Einfaches Beispiel482Erichbru30.12.22 18:44
Re: Einfaches Beispiel539Manfred X30.12.22 19:13
Re: Einfaches Beispiel534Erichbru05.01.23 11:36
Re: Zählerstände Strom, Wasser, Gas erfassen Auswerten690Erichbru05.01.23 11:37
Verbrauchsermittlung in einem Zeitraum / Zählerstands-Interp...548Manfred X06.01.23 06:16
Re: Verbrauchsermittlung in einem Zeitraum / Zählerstands-In...498Erichbru07.01.23 11:59
Re: Verbrauchsermittlung in einem Zeitraum / Zählerstands-In...503Manfred X07.01.23 18:41
Re: Verbrauchsermittlung in einem Zeitraum / Zählerstands-In...466Erichbru09.01.23 16:52
Re: Verbrauchsermittlung in einem Zeitraum / Zählerstands-In...488Manfred X09.01.23 22:31
Re: Verbrauchsermittlung in einem Zeitraum / Zählerstands-In...460Erichbru10.01.23 10:46
Re: Verbrauchsermittlung in einem Zeitraum / Zählerstands-In...533Manfred X10.01.23 11:41
Re: Verbrauchsermittlung in einem Zeitraum / Zählerstands-In...462Erichbru10.01.23 12:01
Re: Zählerstände Strom, Wasser, Gas erfassen Auswerten603Erichbru10.01.23 11:56
Re: Zählerstände Strom, Wasser, Gas erfassen Auswerten441Erichbru20.04.23 16:46
Re: Zählerstände Strom, Wasser, Gas erfassen Auswerten538Manfred X20.04.23 21:17
Re: Zählerstände Strom, Wasser, Gas erfassen Auswerten355Erichbru27.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