Hilfe bei Listbox Daten auslesen

  • VB6

Es gibt 6 Antworten in diesem Thema. Der letzte Beitrag () ist von mxDanger.

    Hilfe bei Listbox Daten auslesen

    [Wir benutzen Visual Basic 6 || ]

    Hallo Leute,

    wir haben im Informatik Unterricht eine Aufgabe bekommen:

    Wir sollen eine Listbox mit Werten füllen und diese auch wieder löschen können. Danach sollen wir mit Hilfe einer geeigneten Schleife und Verzweigung den kleinsten, größten und den durchschnittlichen Wert einer Anzahl von Zahlenwerten aus einer Listbox bestimmen und anzeigen können.

    Ich bräuchte jetzt noch Unterstützung, wie man den kleinsten, größten und den durchschnittlichen Wert ausgeben kann.


    Mein Quellcode:

    Visual Basic-Quellcode

    1. Dim DblMesswerte As Double
    2. Private Sub cmdclear_Click()
    4. LstMesswerte.Clear
    6. End Sub
    8. Private Sub cmdAdd_Click()
    10. DblMesswerte = Val(TxtMesswerte.Text)
    12. LstMesswerte.AddItem DblMesswerte
    14. End Sub
    16. Private Sub cmdDelete_Click()
    18. LstMesswerte.RemoveItem (LstMesswerte.ListIndex)
    20. End Sub


    Ich hoffe Ihr könnt mir helfen ! :D

    Also den größten und kleinsten Wert kann man mit Vergleichen bekommen..
    ​..also man erstellt sich eine Variable z.B. "kleinsterWert" und durchläuft in einer Schleife die gesamten Werte und überprüft ob der jeweilige Wert kleiner ist als der "kleinsteWert"!
    Wenn dieser kleiner ist "kleinsterWert" diesen Wert zuweisen..und mitm größten Wert eben anders herum! ;)

    ​Hmm und beim mittelwert weiß ich nich genau..vllt. alle Werte miteinander addieren und durch die Anzahl der Werte teilen und wer diesem Wert am nächsten kommt ist der Mittelwert!

    Die Lösung ist wohl zu nahe liegend: Der allererste Wert in der Liste. Kommen später kleinere bzw. größere Werte, wird die entsprechende Variable ja mit korrektem Code abgeändert. Logische Schlussfolgerung: Ist der Wert der entsprechenden Variable am Ende unverändert, war der erste Eintrag wohl ein Extremwert. Ein Beispiel. In der Liste steht:
    3
    2
    5
    7
    5
    Du nimmst den ersten Wert als Wert für kleinster_Wert und für größter_Wert. Dann vergleichst Du den 2. Eintrag mit den Werten der beiden Variablen und änderst die ggf. ab (=> größter_Wert bleibt bei 3, kleinster_Wert wird zu 2); 3. Eintrag anschauen, wieder vergleichen, usw.
    Dieser Beitrag wurde bereits 5 mal editiert, zuletzt von „VaporiZed“, mal wieder aus Grammatikgründen.

    Aufgrund spontaner Selbsteintrübung sind all meine Glaskugeln beim Hersteller. Lasst mich daher bitte nicht den Spekulatiusbackmodus wechseln.

    Visual Basic-Quellcode

    1. Dim IntMesswerte As Integer
    2. Dim IntHigh As Integer
    3. Dim IntLow As Integer
    4. Dim IntAverage As Integer
    5. Dim IntCounter As Integer
    6. Dim i As Integer
    8. Private Sub cmdclear_Click()
    9. LstMesswerte.Clear
    11. End Sub
    13. Private Sub cmdAdd_Click()
    14. IntMesswerte = Val(TxtMesswerte.Text)
    16. LstMesswerte.AddItem (IntMesswerte)
    18. End Sub
    20. Private Sub cmdDelete_Click()
    21. LstMesswerte.RemoveItem (LstMesswerte.ListIndex)
    23. End Sub
    25. Private Sub cmdHigh_Click()
    26. IntCounter = LstMesswerte.ListCount
    27. IntHigh = Val(LstMesswerte.List(0))
    29. For i = 1 To IntCounter - 1
    31. If Val(LstMesswerte.List(i)) > IntHigh Then
    32. IntHigh = Val(LstMesswerte.List(i))
    33. Else
    34. End If
    35. Next i
    37. LblHigh.Caption = IntHigh
    38. End Sub
    40. Private Sub cmdLow_Click()
    42. IntCounter = LstMesswerte.ListCount
    43. IntLow = Val(LstMesswerte.List(0))
    45. For i = 1 To IntCounter - 1
    47. If Val(LstMesswerte.List(i)) < IntLow Then
    48. IntLow = Val(LstMesswerte.List(i))
    49. Else
    50. End If
    51. Next i
    53. LblLow.Caption = IntLow
    55. End Sub
    56. ​


    Bin mit Hilfe jetzt zu diesem Ergebnis gekommen und es klappt auch, aber beim Durchschnitt herrscht bei mir noch Verwirrung.

    Dann probier doch erstmal, den ersten Teil von morrisons Vorschlag umzusetzen:

    Morrison schrieb:

    alle Werte miteinander addieren und durch die Anzahl der Werte teilen
    Wie würde der Code dazu lauten können?
    Dieser Beitrag wurde bereits 5 mal editiert, zuletzt von „VaporiZed“, mal wieder aus Grammatikgründen.

    Aufgrund spontaner Selbsteintrübung sind all meine Glaskugeln beim Hersteller. Lasst mich daher bitte nicht den Spekulatiusbackmodus wechseln.

    Habe es geschafft :D

    Visual Basic-Quellcode

    1. ​Private Sub cmdAverage_Click()
    3. If LstMesswerte.ListCount > 0 Then
    5. For i = 0 To LstMesswerte.ListCount - 1
    7. IntSumme = IntSumme + LstMesswerte.List(i)
    8. Next
    10. IntAverage = IntSumme / i
    11. Else
    12. End If
    14. LblAverage.Caption = IntAverage
    15. End Sub

Facebook
Telefonspende