Schleifen über Arrays

  • VB.NET

Es gibt 13 Antworten in diesem Thema. Der letzte Beitrag () ist von haiyyu.

    Schleifen über Arrays

    Hallo ich brauche für mein Programm eine Schleife über ein Array in der ich bestimmt Berechnungen erledige.

    Soweit so gut, jemand eine Idee wie ich die Daten die ich vorher in das Array gegeben habe wieder anspreche und einen Mittelwert aus allen Zahlen bilde?!
    Bei mir sieht das im moment so aus:
    (und JA ich bin anfänger ;) )

    VB.NET-Quellcode

    1. ' Berechnungsschleife
    2. Dim File As ArrayList
    3. Dim zeile As Integer = CInt(Console.ReadLine())
    4. Dim i As Double
    5. Dim mse As Double
    8. For i = 0 To UBound(File)
    9. mse = (i + i) / ' Anzahl aller Werte

    Hi,


    VB.NET-Quellcode

    1. Dim strArray(4) As String
    3. strArray(0) = 4
    4. strArray(1) = 12
    5. strArray(2) = 8
    6. strArray(3) = 5
    7. strArray(4) = 3
    9. Dim Value As Double
    11. For i = 0 To strArray.Length - 1
    13. Value = Value + CType(strArray(i).ToString, Double)
    15. Next
    17. Dim Result As Double = Value / strArray.Length - 1



    Grüße

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „ThuCommix“ ()

    @ThuCommix: AAAAAAAAAUUUUUUAAAAAAAA!!!!


    War natürlich dämlich von mir,

    Das ist aber noch geschönt! Und das dann jemandem vorsetzen, der keinen Plan hat und das womöglich für bare Münze nimmt!

    BTW:

    Dim irgendwas(111111) As Double
    Dim Durchschnitt As Dlouble = irgendwas.Average

    We call it a Einzeiler!

    dreist kommt weiter...

    Ich weiß es ist dreist...aber ich komm einfach nicht weiter! Egal wie ich es drehe und wende, immer kommt er mir mit den gleichen Warnungen, aber das nur für bestimmte variablen ?(

    Vielleicht könnt ihr mir ja etwas auf die sprünge helfen....
    vorallem mit der ausgabe in eine textdatei tue ich mich noch sehr schwer...
    bin etwas ratlos ob erst öffnen, dann rein und wieder zu oder diese variante...wobei ich ja noch nicht testen konnte ob es überhaupt klappt ;(

    VB.NET-Quellcode

    1. ' 1.ARRAY
    2. ' datei öffnen 1.Array
    3. Dim fileReader1() As String = System.IO.File.ReadAllLines("D:\DA\Ereignisse.txt")
    4. Dim arrayList1 As New List(Of Integer)
    6. For Each line As String In fileReader1
    7. ' Deklarieren
    8. Dim zahl1 As String
    9. Dim intzahl1 As Double
    10. ' umformen in double
    11. intzahl1 = CDbl(CStr(Double.Parse(CStr(zahl1))))
    12. 'in array list kopieren
    13. arrayList1.Add(CInt(intzahl1))
    15. Next line
    16. End
    17. ' Berechnungsschleife
    18. Dim Array1() As Double
    19. Dim value1 As Double
    20. Dim i As Double
    21. For i = 0 To Array1.Length - 1
    23. value1 = value1 + CType(Array1(CInt(i)).ToString, Integer)
    24. Next
    25. 'Ergebnis
    26. Dim array1Result As Double = value1 / Array1.Length - 1
    29. ' 2.ARRAY!!!
    30. Dim fileReader2() As String = System.IO.File.ReadAllLines("D:\DA\Ereignisse2.txt")
    31. Dim arrayList2 As New List(Of Integer)
    32. For Each line As String In fileReader2
    33. ' Deklarieren
    34. Dim zahl2 As String
    35. Dim intzahl2 As Double
    36. ' umformen in double
    37. zahl2 = CStr(Double.Parse(CStr(intzahl2)))
    38. 'in array list kopieren
    39. arrayList2.Add(CInt(line))
    40. Next line
    41. End
    43. ' Berechnungsschleife
    44. Dim Array2() As String
    45. Dim value2 As Double
    46. Dim k As Double
    47. For k = 0 To Array2.Length - 1
    49. value2 = value2 + CType(Array2(CInt(k)).ToString, Integer)
    50. Next
    51. 'Ergebnis
    52. Dim array2Result As Double = value2 / Array2.Length - 1
    54. 'Vergleich der Ergebnisse
    55. array1Result = CDbl(("1"))
    56. array2Result = CDbl(("2"))
    57. Dim endResult As Double
    58. endResult = (array1Result - array2Result) ^ 2
    60. End
    62. 'Ausgabe in Textdatei
    63. My.Computer.FileSystem.WriteAllText("D:\DA\ausgabe.txt", "Text", True)
    65. End Sub


    Lg
    Leeni und danke euch für die Unterstützung !

    aso und die warnungsmeldungen sehen so aus :

    Warnung 2 Nicht verwendete lokale Variable: "Array1".
    Warnung 3 Nicht verwendete lokale Variable: "value1".
    Warnung 4 Nicht verwendete lokale Variable: "array1Result".
    Warnung 5 Nicht verwendete lokale Variable: "fileReader2".
    Warnung 6 Nicht verwendete lokale Variable: "arrayList2".

    etc....

    Der Compiler gibt dir diese Warnungen, weil du in deinem Programm Variablen deklarierst, die du aber nie verwendest.
    Da das nur unnötigen Speicherplatz verschwendet, kannst du sie getrost löschen.

    Wieso ergibt der Code keinen Sinn mehr, wenn du unverwendete Variablen, die nur Platz verschwenden, löscht?
    Das dürfte überhaupt nichts am Verhalten des Codes ändern.

Facebook
Telefonspende