| |
![zurück](../images/b_zurueck.gif)
VB.NET - Ein- und UmsteigerRe: Zählerstände Strom, Wasser, Gas erfassen Auswerten | | ![](../images/trans.gif) | Autor: Erichbru | Datum: 10.01.23 11:56 |
| ist es so richtig verstanden?
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
'Verbräuche ermitteln
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 Meldung As String = "Status:"
Meldung = "Erfassungszeitraum: " & firstdate.ToShortDateString & "" & _
"bis " & lastdate.ToShortDateString & vbCrLf & vbCrLf
'Dann eine Schleife über ein Stringarray das die Zähler-Nummern
' enthält
'und ein Array, das die ermittelten Verbräuche enthält.
Dim counters(2) As Double 'counters(0)="Zählernummer-22007880" usw
Dim consums(2) As Double 'Array mit den Verbräuchen c1, c2, c3
counters = {22007880, 22007881, 22007885}
consums = {C1, C2, C3}
Dim csum As Double
For i = 0 To counters.Length - 1
Meldung &= "Zählernummer " & counters(i) & " Verbrauch: " & _
consums(i).ToString("0.00") & " m³" & vbCrLf
csum += consums(i) 'Summe der Verbräuche
Next i
Meldung &= vbCrLf & "Mittlerer täglicher Verbrauch: "
Meldung &= (csum * 1000 / (lastdate - _
firstdate).TotalDays).ToString("0.00") & " L."
MessageBox.Show(Meldung, "Auswertung:")
Else
Meldung_Wassertabelle()
End If
www google bilder de | ![](../images/trans.gif) |
![](../images/forum/m.gif) Zählerstände Strom, Wasser, Gas erfassen Auswerten | 1.475 | Erichbru | 29.12.22 11:18 | ![](../images/forum/t.gif) ![](../images/forum/m.gif) Re: Zählerstände Strom, Wasser, Gas erfassen Auswerten | 678 | Manfred X | 29.12.22 13:36 | ![](../images/forum/i.gif) ![](../images/forum/l.gif) ![](../images/forum/m.gif) Einfaches Beispiel | 631 | Manfred X | 29.12.22 15:11 | ![](../images/forum/i.gif) ![](../images/trans.gif) ![](../images/forum/l.gif) ![](../images/forum/m.gif) Re: Einfaches Beispiel | 538 | Erichbru | 30.12.22 18:03 | ![](../images/forum/i.gif) ![](../images/trans.gif) ![](../images/trans.gif) ![](../images/forum/l.gif) ![](../images/forum/m.gif) Re: Einfaches Beispiel | 454 | Manfred X | 30.12.22 18:24 | ![](../images/forum/i.gif) ![](../images/trans.gif) ![](../images/trans.gif) ![](../images/trans.gif) ![](../images/forum/l.gif) ![](../images/forum/m.gif) Re: Einfaches Beispiel | 399 | Erichbru | 30.12.22 18:44 | ![](../images/forum/i.gif) ![](../images/trans.gif) ![](../images/trans.gif) ![](../images/trans.gif) ![](../images/trans.gif) ![](../images/forum/l.gif) ![](../images/forum/m.gif) Re: Einfaches Beispiel | 460 | Manfred X | 30.12.22 19:13 | ![](../images/forum/i.gif) ![](../images/trans.gif) ![](../images/trans.gif) ![](../images/trans.gif) ![](../images/trans.gif) ![](../images/trans.gif) ![](../images/forum/l.gif) ![](../images/forum/c.gif) Re: Einfaches Beispiel | 447 | Erichbru | 05.01.23 11:36 | ![](../images/forum/t.gif) ![](../images/forum/m.gif) Re: Zählerstände Strom, Wasser, Gas erfassen Auswerten | 527 | Erichbru | 05.01.23 11:37 | ![](../images/forum/i.gif) ![](../images/forum/l.gif) ![](../images/forum/m.gif) Verbrauchsermittlung in einem Zeitraum / Zählerstands-Interp... | 473 | Manfred X | 06.01.23 06:16 | ![](../images/forum/i.gif) ![](../images/trans.gif) ![](../images/forum/l.gif) ![](../images/forum/m.gif) Re: Verbrauchsermittlung in einem Zeitraum / Zählerstands-In... | 421 | Erichbru | 07.01.23 11:59 | ![](../images/forum/i.gif) ![](../images/trans.gif) ![](../images/trans.gif) ![](../images/forum/l.gif) ![](../images/forum/m.gif) Re: Verbrauchsermittlung in einem Zeitraum / Zählerstands-In... | 425 | Manfred X | 07.01.23 18:41 | ![](../images/forum/i.gif) ![](../images/trans.gif) ![](../images/trans.gif) ![](../images/trans.gif) ![](../images/forum/l.gif) ![](../images/forum/m.gif) Re: Verbrauchsermittlung in einem Zeitraum / Zählerstands-In... | 383 | Erichbru | 09.01.23 16:52 | ![](../images/forum/i.gif) ![](../images/trans.gif) ![](../images/trans.gif) ![](../images/trans.gif) ![](../images/trans.gif) ![](../images/forum/l.gif) ![](../images/forum/m.gif) Re: Verbrauchsermittlung in einem Zeitraum / Zählerstands-In... | 408 | Manfred X | 09.01.23 22:31 | ![](../images/forum/i.gif) ![](../images/trans.gif) ![](../images/trans.gif) ![](../images/trans.gif) ![](../images/trans.gif) ![](../images/trans.gif) ![](../images/forum/l.gif) ![](../images/forum/m.gif) Re: Verbrauchsermittlung in einem Zeitraum / Zählerstands-In... | 382 | Erichbru | 10.01.23 10:46 | ![](../images/forum/i.gif) ![](../images/trans.gif) ![](../images/trans.gif) ![](../images/trans.gif) ![](../images/trans.gif) ![](../images/trans.gif) ![](../images/trans.gif) ![](../images/forum/l.gif) ![](../images/forum/m.gif) Re: Verbrauchsermittlung in einem Zeitraum / Zählerstands-In... | 457 | Manfred X | 10.01.23 11:41 | ![](../images/forum/i.gif) ![](../images/trans.gif) ![](../images/trans.gif) ![](../images/trans.gif) ![](../images/trans.gif) ![](../images/trans.gif) ![](../images/trans.gif) ![](../images/trans.gif) ![](../images/forum/l.gif) ![](../images/forum/c.gif) Re: Verbrauchsermittlung in einem Zeitraum / Zählerstands-In... | 383 | Erichbru | 10.01.23 12:01 | ![](../images/forum/l.gif) ![](../images/forum/m.gif) Re: Zählerstände Strom, Wasser, Gas erfassen Auswerten | 477 | Erichbru | 10.01.23 11:56 | ![](../images/trans.gif) ![](../images/forum/l.gif) ![](../images/forum/m.gif) Re: Zählerstände Strom, Wasser, Gas erfassen Auswerten | 353 | Erichbru | 20.04.23 16:46 | ![](../images/trans.gif) ![](../images/trans.gif) ![](../images/forum/l.gif) ![](../images/forum/m.gif) Re: Zählerstände Strom, Wasser, Gas erfassen Auswerten | 463 | Manfred X | 20.04.23 21:17 | ![](../images/trans.gif) ![](../images/trans.gif) ![](../images/trans.gif) ![](../images/forum/l.gif) ![](../images/forum/c.gif) Re: Zählerstände Strom, Wasser, Gas erfassen Auswerten | 213 | Erichbru | 27.03.24 10:55 |
![](../images/48x48/info.gif) | 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 |
![nach oben](../images/b_top.gif) ![zurück](../images/b_zurueck.gif) |
|
sevISDN 1.0 ![sevISDN f?r VB/VBA und VB.NET](../images/werbung/sevisdn_100x116.gif)
Ü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! sevEingabe 3.0 ![Das Eingabecontrol der Superlative](../images/werbung/sevein20_100x100.jpg)
Einfach stark!
Ein einziges Eingabe-Control für alle benötigten Eingabetypen und -formate, inkl. Kalender-, Taschenrechner und Floskelfunktion, mehrspaltige ComboBox mit DB-Anbindung, ImageComboBox u.v.m. 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
|
|