| |
VB.NET - Ein- und UmsteigerRe: 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 | |
Zählerstände Strom, Wasser, Gas erfassen Auswerten | 1.361 | Erichbru | 29.12.22 11:18 | Re: Zählerstände Strom, Wasser, Gas erfassen Auswerten | 597 | Manfred X | 29.12.22 13:36 | Einfaches Beispiel | 551 | Manfred X | 29.12.22 15:11 | Re: Einfaches Beispiel | 462 | Erichbru | 30.12.22 18:03 | Re: Einfaches Beispiel | 381 | Manfred X | 30.12.22 18:24 | Re: Einfaches Beispiel | 333 | Erichbru | 30.12.22 18:44 | Re: Einfaches Beispiel | 381 | Manfred X | 30.12.22 19:13 | Re: Einfaches Beispiel | 377 | Erichbru | 05.01.23 11:36 | Re: Zählerstände Strom, Wasser, Gas erfassen Auswerten | 414 | Erichbru | 05.01.23 11:37 | Verbrauchsermittlung in einem Zeitraum / Zählerstands-Interp... | 401 | Manfred X | 06.01.23 06:16 | Re: Verbrauchsermittlung in einem Zeitraum / Zählerstands-In... | 349 | Erichbru | 07.01.23 11:59 | Re: Verbrauchsermittlung in einem Zeitraum / Zählerstands-In... | 354 | Manfred X | 07.01.23 18:41 | Re: Verbrauchsermittlung in einem Zeitraum / Zählerstands-In... | 310 | Erichbru | 09.01.23 16:52 | Re: Verbrauchsermittlung in einem Zeitraum / Zählerstands-In... | 336 | Manfred X | 09.01.23 22:31 | Re: Verbrauchsermittlung in einem Zeitraum / Zählerstands-In... | 312 | Erichbru | 10.01.23 10:46 | Re: Verbrauchsermittlung in einem Zeitraum / Zählerstands-In... | 386 | Manfred X | 10.01.23 11:41 | Re: Verbrauchsermittlung in einem Zeitraum / Zählerstands-In... | 307 | Erichbru | 10.01.23 12:01 | Re: Zählerstände Strom, Wasser, Gas erfassen Auswerten | 390 | Erichbru | 10.01.23 11:56 | Re: Zählerstände Strom, Wasser, Gas erfassen Auswerten | 282 | Erichbru | 20.04.23 16:46 | Re: Zählerstände Strom, Wasser, Gas erfassen Auswerten | 390 | Manfred X | 20.04.23 21:17 | Re: Zählerstände Strom, Wasser, Gas erfassen Auswerten | 96 | Erichbru | 27.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 |
|
|
sevISDN 1.0
Überwachung aller eingehender Anrufe!
Die DLL erkennt alle über die CAPI-Schnittstelle eingehenden Anrufe und teilt Ihnen sogar mit, aus welchem Ortsbereich der Anruf stammt. Weitere Highlights: Online-Rufident, Erkennung der Anrufbehandlung u.v.m. Weitere InfosTipp des Monats Neu! sevPopUp 2.0
Dynamische Kontextmenüs!
Erstellen Sie mit nur wenigen Zeilen Code Kontextmenüs dynamisch zur Laufzeit. Vordefinierte Styles (XP, Office, OfficeXP, Vista oder Windows 8) erleichtern die Anpassung an die eigenen Anwendung... Weitere 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
|
|