vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
 Blitzschnelles Erstellen von grafischen Diagrammen!  
 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: For Next schleife 
Autor: flexxer
Datum: 25.07.21 19:19
Ich muss den Mittelwert der letzten 30 Sekunden bilden.
Damit ich noch alles nachvollziehen kann, habe ich diese 30 Werte in den Labels abgebildet. 
L30.Text = L29.Text
        L29.Text = L28.Text
        L28.Text = L27.Text
        L27.Text = L26.Text
        L26.Text = L25.Text
        L25.Text = L24.Text
        L24.Text = L23.Text
        L23.Text = L22.Text
        L22.Text = L21.Text
        L21.Text = L20.Text
        L20.Text = L19.Text
        L19.Text = L18.Text
        L18.Text = L17.Text
        L17.Text = L16.Text
        L16.Text = L15.Text
        L15.Text = L14.Text
        L14.Text = L13.Text
        L13.Text = L12.Text
        L12.Text = L11.Text
        L11.Text = L10.Text
        L10.Text = L9.Text
        L9.Text = L8.Text
        L8.Text = L7.Text
        L7.Text = L6.Text
        L6.Text = L5.Text
        L5.Text = L4.Text
        L4.Text = L3.Text
        L3.Text = L2.Text
        L2.Text = L1.Text
        L1.Text = Label1.Text
 
        Dim teiler As Decimal = 30
 
        Dim xx As Decimal = (CDec(L1.Text) + CDec(L2.Text) + CDec(L3.Text) + _
          CDec(L4.Text) + CDec(L5.Text) + CDec(L6.Text) + CDec(L7.Text) + CDec( _
          L8.Text) + CDec(L9.Text) + CDec(L10.Text) _
                       + CDec(L11.Text) + CDec(L12.Text) + CDec(L13.Text) + _
                       CDec(L14.Text) + CDec(L15.Text) + CDec(L16.Text) + CDec( _
                       L17.Text) + CDec(L18.Text) + CDec(L19.Text) + CDec( _
                       L20.Text) _
                       + CDec(L21.Text) + CDec(L22.Text) + CDec(L23.Text) + _
                       CDec(L24.Text) + CDec(L25.Text) + CDec(L26.Text) + CDec( _
                       L27.Text) + CDec(L28.Text) + CDec(L29.Text) + CDec( _
                       L30.Text)) / teiler
        Dim txt As String = xx.ToString("0.00")
 
        mittel.Text = txt
Die positiven Werte hätte ich gerne rot dargestellt, die negativen grün.
Leider reichen meine Kenntnisse noch nicht ganz
alle Nachrichten anzeigenGesamtübersicht  |  Zum Thema  |  Suchen

 ThemaViews  AutorDatum
For Next schleife903flexxer25.07.21 10:09
Re: For Next schleife508Manfred X25.07.21 16:00
Re: For Next schleife496flexxer25.07.21 17:01
Re: For Next schleife454Manfred X25.07.21 18:57
Re: For Next schleife427flexxer25.07.21 19:19
Re: For Next schleife421Manfred X25.07.21 19:31
Re: For Next schleife478flexxer25.07.21 20:41
Re: For Next schleife432Manfred X25.07.21 21:05
Re: For Next schleife399flexxer26.07.21 06:35
Daten-Liste an Listbox binden403Manfred X26.07.21 13:29
Re: For Next schleife334flexxer24.10.21 19:34

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