Probleme bei Visual Basic (Visual Studio 2015 Community)

Question

Ich habe ein Programm erstellt, damit ich mir meine Schulnoten berechnen kann!!!
Jedoch funktioniert es nur, wenn ich ein gewissen Anzahl von Noten eintrage!
Kann mir jemand beim Code helfen!!! Außerdem weis ich nicht, wie ich dass Programm auf die Anderen Fächer anwenden kann. Bisher hab ich nur die Notenberechnung für das Fach Deutsch programmieren können, jedoch funktioniert es wiegesagt nur, wenn ich alle Spalten mit Noten ausfülle, dass ist aber nicht so von mir vorgesehen. Danke im Voraus!!!
Hier der Code:  

    Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click

        ' Dim (Zahl X)
        Dim zahl1 As Integer = 0
        Dim zahl2 As Integer = 0
        Dim zahl3 As Integer = 0
        Dim zahl4 As Integer = 0
        Dim zahl5 As Integer = 0
        Dim zahl6 As Integer = 0
        Dim zahl7 As Integer = 0
        Dim zahl8 As Integer = 0
        Dim zahl9 As Integer = 0
        Dim zahl10 As Integer = 0
        Dim zahl11 As Integer = 0
        Dim zahl12 As Integer = 0
        Dim zahl13 As Integer = 0
        Dim zahl14 As Integer = 0

        ' Dim (Ergebnis X)
        Dim ergebnis As Single
        Dim ergebnis2 As Single
        Dim ergebnis3 As Single
        Dim ergebnis4 As Single
        Dim ergebnis5 As Single
        Dim ergebnis6 As Single
        Dim ergebnis7 As Single
        Dim ergebnis8 As Single
        Dim ergebnis9 As Single
        Dim ergebnis10 As Single
        Dim ergebnis11 As Single
        Dim ergebnis12 As Single
        Dim ergebnis13 As Single
        Dim ergebnis14 As Single
        Dim ergebnis15 As Single
        Dim ergebnis16 As Single
        Dim ergebnis17 As Single
        Dim ergebnis18 As Single
        Dim ergebnis19 As Single
        Dim ergebnis20 As Single
        Dim ergebnis21 As Single
        Dim ergebnis22 As Single
        Dim ergebnis23 As Single
        Dim ergebnis24 As Single
        Dim ergebnis25 As Single
        Dim ergebnis26 As Single
        Dim ergebnis27 As Single
        Dim ergebnis28 As Single
        Dim ergebnis29 As Single
        Dim ergebnis30 As Single
        Dim ergebnis31 As Single
        Dim ergebnis32 As Single
        Dim ergebnis33 As Single
        Dim ergebnis34 As Single
        Dim ergebnis35 As Single
        Dim ergebnis36 As Single
        Dim ergebnis37 As Single
        Dim ergebnis38 As Single
        Dim ergebnis39 As Single
        Dim ergebnis40 As Single
        Dim ergebnis41 As Single
        Dim ergebnis42 As Single
        Dim ergebnis43 As Single
        Dim ergebnis44 As Single
        Dim ergebnis45 As Single
        Dim ergebnis46 As Single
        Dim ergebnis47 As Single
        Dim ergebnis48 As Single
        Dim ergebnis49 As Single
        Dim ergebnis50 As Single
        Dim ergebnis51 As Single
        Dim ergebnis52 As Single
        Dim ergebnis53 As Single
        Dim ergebnis54 As Single

        ' Try (Zahl X zu Textbox X)
        Try
            zahl1 = Integer.Parse(SA1.Text)
            zahl2 = Integer.Parse(SA2.Text)
            zahl3 = Integer.Parse(SA3.Text)
            zahl4 = Integer.Parse(SA4.Text)
            zahl5 = Integer.Parse(MN1.Text)
            zahl6 = Integer.Parse(MN2.Text)
            zahl7 = Integer.Parse(MN3.Text)
            zahl8 = Integer.Parse(MN4.Text)
            zahl9 = Integer.Parse(MN5.Text)
            zahl10 = Integer.Parse(MN6.Text)
            zahl11 = Integer.Parse(MN7.Text)
            zahl12 = Integer.Parse(MN8.Text)
            zahl13 = Integer.Parse(MN9.Text)
            zahl14 = Integer.Parse(MN10.Text)

            ' Catch X
        Catch ex As System.Exception
            Return

        End Try

        ' Ergebnis (Ergebnis X, 4 SA)
        ergebnis = ((((CType(zahl1, Single) + CType(zahl2, Single) + CType(zahl3, Single) + CType(zahl4, Single)) * 2) / 4) _
                   + ((CType(zahl5, Single) + CType(zahl6, Single) + CType(zahl7, Single) + CType(zahl8, Single) + CType(zahl9, Single) + CType(zahl10, Single) + CType(zahl11, Single) + CType(zahl12, Single) + CType(zahl13, Single) + CType(zahl14, Single)) / 10)) _
                   / 3
        ergebnis2 = ((((CType(zahl1, Single) + CType(zahl2, Single) + CType(zahl3, Single) + CType(zahl4, Single)) * 2) / 4) _
                   + ((CType(zahl5, Single) + CType(zahl6, Single) + CType(zahl7, Single) + CType(zahl8, Single) + CType(zahl9, Single) + CType(zahl10, Single) + CType(zahl11, Single) + CType(zahl12, Single) + CType(zahl13, Single)) / 9)) _
                   / 3
        ergebnis3 = ((((CType(zahl1, Single) + CType(zahl2, Single) + CType(zahl3, Single) + CType(zahl4, Single)) * 2) / 4) _
                   + ((CType(zahl5, Single) + CType(zahl6, Single) + CType(zahl7, Single) + CType(zahl8, Single) + CType(zahl9, Single) + CType(zahl10, Single) + CType(zahl11, Single) + CType(zahl12, Single)) / 8)) _
                   / 3
        ergebnis4 = ((((CType(zahl1, Single) + CType(zahl2, Single) + CType(zahl3, Single) + CType(zahl4, Single)) * 2) / 4) _
                   + ((CType(zahl5, Single) + CType(zahl6, Single) + CType(zahl7, Single) + CType(zahl8, Single) + CType(zahl9, Single) + CType(zahl10, Single) + CType(zahl11, Single)) / 7)) _
                   / 3
        ergebnis5 = ((((CType(zahl1, Single) + CType(zahl2, Single) + CType(zahl3, Single) + CType(zahl4, Single)) * 2) / 4) _
                   + ((CType(zahl5, Single) + CType(zahl6, Single) + CType(zahl7, Single) + CType(zahl8, Single) + CType(zahl9, Single) + CType(zahl10, Single)) / 6)) _
                   / 3
        ergebnis6 = ((((CType(zahl1, Single) + CType(zahl2, Single) + CType(zahl3, Single) + CType(zahl4, Single)) * 2) / 4) _
                   + ((CType(zahl5, Single) + CType(zahl6, Single) + CType(zahl7, Single) + CType(zahl8, Single) + CType(zahl9, Single)) / 5)) _
                   / 3
        ergebnis7 = ((((CType(zahl1, Single) + CType(zahl2, Single) + CType(zahl3, Single) + CType(zahl4, Single)) * 2) / 4) _
                   + ((CType(zahl5, Single) + CType(zahl6, Single) + CType(zahl7, Single) + CType(zahl8, Single)) / 4)) _
                   / 3
        ergebnis8 = ((((CType(zahl1, Single) + CType(zahl2, Single) + CType(zahl3, Single) + CType(zahl4, Single)) * 2) / 4) _
                   + ((CType(zahl5, Single) + CType(zahl6, Single) + CType(zahl7, Single)) / 3)) _
                   / 3
        ergebnis9 = ((((CType(zahl1, Single) + CType(zahl2, Single) + CType(zahl3, Single) + CType(zahl4, Single)) * 2) / 4) _
                   + ((CType(zahl5, Single) + CType(zahl6, Single)) / 2)) _
                   / 3
        ergebnis10 = ((((CType(zahl1, Single) + CType(zahl2, Single) + CType(zahl3, Single) + CType(zahl4, Single)) * 2) / 4) _
                   + CType(zahl5, Single)) _
                   / 3
        ergebnis11 = (((CType(zahl1, Single) + CType(zahl2, Single) + CType(zahl3, Single) + CType(zahl4, Single)) * 2) / 4) _
                   / 2

        ' Ergebnis (Ergebnis X, 3 SA)
        ergebnis12 = ((((CType(zahl1, Single) + CType(zahl2, Single) + CType(zahl3, Single)) * 2) / 3) _
                   + ((CType(zahl5, Single) + CType(zahl6, Single) + CType(zahl7, Single) + CType(zahl8, Single) + CType(zahl9, Single) + CType(zahl10, Single) + CType(zahl11, Single) + CType(zahl12, Single) + CType(zahl13, Single) + CType(zahl14, Single)) / 10)) _
                   / 3
        ergebnis13 = ((((CType(zahl1, Single) + CType(zahl2, Single) + CType(zahl3, Single)) * 2) / 3) _
                   + ((CType(zahl5, Single) + CType(zahl6, Single) + CType(zahl7, Single) + CType(zahl8, Single) + CType(zahl9, Single) + CType(zahl10, Single) + CType(zahl11, Single) + CType(zahl12, Single) + CType(zahl13, Single)) / 9)) _
                   / 3
        ergebnis14 = ((((CType(zahl1, Single) + CType(zahl2, Single) + CType(zahl3, Single)) * 2) / 3) _
                   + ((CType(zahl5, Single) + CType(zahl6, Single) + CType(zahl7, Single) + CType(zahl8, Single) + CType(zahl9, Single) + CType(zahl10, Single) + CType(zahl11, Single) + CType(zahl12, Single)) / 8)) _
                   / 3
        ergebnis15 = ((((CType(zahl1, Single) + CType(zahl2, Single) + CType(zahl3, Single)) * 2) / 3) _
                   + ((CType(zahl5, Single) + CType(zahl6, Single) + CType(zahl7, Single) + CType(zahl8, Single) + CType(zahl9, Single) + CType(zahl10, Single) + CType(zahl11, Single)) / 7)) _
                   / 3
        ergebnis16 = ((((CType(zahl1, Single) + CType(zahl2, Single) + CType(zahl3, Single)) * 2) / 3) _
                   + ((CType(zahl5, Single) + CType(zahl6, Single) + CType(zahl7, Single) + CType(zahl8, Single) + CType(zahl9, Single) + CType(zahl10, Single)) / 6)) _
                   / 3
        ergebnis17 = ((((CType(zahl1, Single) + CType(zahl2, Single) + CType(zahl3, Single)) * 2) / 3) _
                   + ((CType(zahl5, Single) + CType(zahl6, Single) + CType(zahl7, Single) + CType(zahl8, Single) + CType(zahl9, Single)) / 5)) _
                   / 3
        ergebnis18 = ((((CType(zahl1, Single) + CType(zahl2, Single) + CType(zahl3, Single)) * 2) / 3) _
                   + ((CType(zahl5, Single) + CType(zahl6, Single) + CType(zahl7, Single) + CType(zahl8, Single)) / 4)) _
                   / 3
        ergebnis19 = ((((CType(zahl1, Single) + CType(zahl2, Single) + CType(zahl3, Single)) * 2) / 3) _
                   + ((CType(zahl5, Single) + CType(zahl6, Single) + CType(zahl7, Single)) / 3)) _
                   / 3
        ergebnis20 = ((((CType(zahl1, Single) + CType(zahl2, Single) + CType(zahl3, Single)) * 2) / 3) _
                   + ((CType(zahl5, Single) + CType(zahl6, Single)) / 2)) _
                   / 3
        ergebnis21 = ((((CType(zahl1, Single) + CType(zahl2, Single) + CType(zahl3, Single)) * 2) / 3) _
                   + CType(zahl5, Single)) _
                   / 3
        ergebnis22 = (((CType(zahl1, Single) + CType(zahl2, Single) + CType(zahl3, Single)) * 2) / 3) _
                   / 2

        ' Ergebnis (Ergebnis X, 2 SA)
        ergebnis23 = ((((CType(zahl1, Single) + CType(zahl2, Single)) * 2) / 2) _
                   + ((CType(zahl5, Single) + CType(zahl6, Single) + CType(zahl7, Single) + CType(zahl8, Single) + CType(zahl9, Single) + CType(zahl10, Single) + CType(zahl11, Single) + CType(zahl12, Single) + CType(zahl13, Single) + CType(zahl14, Single)) / 10)) _
                   / 3
        ergebnis24 = ((((CType(zahl1, Single) + CType(zahl2, Single)) * 2) / 2) _
                   + ((CType(zahl5, Single) + CType(zahl6, Single) + CType(zahl7, Single) + CType(zahl8, Single) + CType(zahl9, Single) + CType(zahl10, Single) + CType(zahl11, Single) + CType(zahl12, Single) + CType(zahl13, Single)) / 9)) _
                   / 3
        ergebnis25 = ((((CType(zahl1, Single) + CType(zahl2, Single)) * 2) / 2) _
                   + ((CType(zahl5, Single) + CType(zahl6, Single) + CType(zahl7, Single) + CType(zahl8, Single) + CType(zahl9, Single) + CType(zahl10, Single) + CType(zahl11, Single) + CType(zahl12, Single)) / 8)) _
                   / 3
        ergebnis26 = ((((CType(zahl1, Single) + CType(zahl2, Single)) * 2) / 2) _
                   + ((CType(zahl5, Single) + CType(zahl6, Single) + CType(zahl7, Single) + CType(zahl8, Single) + CType(zahl9, Single) + CType(zahl10, Single) + CType(zahl11, Single)) / 7)) _
                   / 3
        ergebnis27 = ((((CType(zahl1, Single) + CType(zahl2, Single)) * 2) / 2) _
                   + ((CType(zahl5, Single) + CType(zahl6, Single) + CType(zahl7, Single) + CType(zahl8, Single) + CType(zahl9, Single) + CType(zahl10, Single)) / 6)) _
                   / 3
        ergebnis28 = ((((CType(zahl1, Single) + CType(zahl2, Single)) * 2) / 2) _
                   + ((CType(zahl5, Single) + CType(zahl6, Single) + CType(zahl7, Single) + CType(zahl8, Single) + CType(zahl9, Single)) / 5)) _
                   / 3
        ergebnis29 = ((((CType(zahl1, Single) + CType(zahl2, Single)) * 2) / 2) _
                   + ((CType(zahl5, Single) + CType(zahl6, Single) + CType(zahl7, Single) + CType(zahl8, Single)) / 4)) _
                   / 3
        ergebnis30 = ((((CType(zahl1, Single) + CType(zahl2, Single)) * 2) / 2) _
                   + ((CType(zahl5, Single) + CType(zahl6, Single) + CType(zahl7, Single)) / 3)) _
                   / 3
        ergebnis31 = ((((CType(zahl1, Single) + CType(zahl2, Single)) * 2) / 2) _
                   + ((CType(zahl5, Single) + CType(zahl6, Single)) / 2)) _
                   / 3
        ergebnis32 = ((((CType(zahl1, Single) + CType(zahl2, Single)) * 2) / 2) _
                   + CType(zahl5, Single)) _
                   / 3
        ergebnis33 = (((CType(zahl1, Single) + CType(zahl2, Single)) * 2) / 2) _
                   / 2

        ' Ergebnis (Ergebnis X, 1 SA)
        ergebnis34 = ((CType(zahl1, Single) * 2) _
                   + ((CType(zahl5, Single) + CType(zahl6, Single) + CType(zahl7, Single) + CType(zahl8, Single) + CType(zahl9, Single) + CType(zahl10, Single) + CType(zahl11, Single) + CType(zahl12, Single) + CType(zahl13, Single) + CType(zahl14, Single)) / 10)) _
                   / 3
        ergebnis35 = ((CType(zahl1, Single) * 2) _
                   + ((CType(zahl5, Single) + CType(zahl6, Single) + CType(zahl7, Single) + CType(zahl8, Single) + CType(zahl9, Single) + CType(zahl10, Single) + CType(zahl11, Single) + CType(zahl12, Single) + CType(zahl13, Single)) / 9)) _
                   / 3
        ergebnis36 = ((CType(zahl1, Single) * 2) _
                   + ((CType(zahl5, Single) + CType(zahl6, Single) + CType(zahl7, Single) + CType(zahl8, Single) + CType(zahl9, Single) + CType(zahl10, Single) + CType(zahl11, Single) + CType(zahl12, Single)) / 8)) _
                   / 3
        ergebnis37 = ((CType(zahl1, Single) * 2) _
                   + ((CType(zahl5, Single) + CType(zahl6, Single) + CType(zahl7, Single) + CType(zahl8, Single) + CType(zahl9, Single) + CType(zahl10, Single) + CType(zahl11, Single)) / 7)) _
                   / 3
        ergebnis38 = ((CType(zahl1, Single) * 2) _
                   + ((CType(zahl5, Single) + CType(zahl6, Single) + CType(zahl7, Single) + CType(zahl8, Single) + CType(zahl9, Single) + CType(zahl10, Single)) / 6)) _
                   / 3
        ergebnis39 = ((CType(zahl1, Single) * 2) _
                   + ((CType(zahl5, Single) + CType(zahl6, Single) + CType(zahl7, Single) + CType(zahl8, Single) + CType(zahl9, Single)) / 5)) _
                   / 3
        ergebnis40 = ((CType(zahl1, Single) * 2) _
                   + ((CType(zahl5, Single) + CType(zahl6, Single) + CType(zahl7, Single) + CType(zahl8, Single)) / 4)) _
                   / 3
        ergebnis41 = ((CType(zahl1, Single) * 2) _
                   + ((CType(zahl5, Single) + CType(zahl6, Single) + CType(zahl7, Single)) / 3)) _
                   / 3
        ergebnis42 = ((CType(zahl1, Single) * 2) _
                   + ((CType(zahl5, Single) + CType(zahl6, Single)) / 2)) _
                   / 3
        ergebnis43 = ((CType(zahl1, Single) * 2) _
                   + CType(zahl5, Single)) _
                   / 3
        ergebnis44 = (CType(zahl1, Single) * 2) _
                   / 2

        ' Ergebnis (Ergebnis X, 0 SA)
        ergebnis45 = (CType(zahl5, Single) + CType(zahl6, Single) + CType(zahl7, Single) + CType(zahl8, Single) + CType(zahl9, Single) + CType(zahl10, Single) + CType(zahl11, Single) + CType(zahl12, Single) + CType(zahl13, Single) + CType(zahl14, Single)) / 10

        ergebnis46 = (CType(zahl5, Single) + CType(zahl6, Single) + CType(zahl7, Single) + CType(zahl8, Single) + CType(zahl9, Single) + CType(zahl10, Single) + CType(zahl11, Single) + CType(zahl12, Single) + CType(zahl13, Single)) / 9

        ergebnis47 = (CType(zahl5, Single) + CType(zahl6, Single) + CType(zahl7, Single) + CType(zahl8, Single) + CType(zahl9, Single) + CType(zahl10, Single) + CType(zahl11, Single) + CType(zahl12, Single)) / 8

        ergebnis48 = (CType(zahl5, Single) + CType(zahl6, Single) + CType(zahl7, Single) + CType(zahl8, Single) + CType(zahl9, Single) + CType(zahl10, Single) + CType(zahl11, Single)) / 7

        ergebnis49 = (CType(zahl5, Single) + CType(zahl6, Single) + CType(zahl7, Single) + CType(zahl8, Single) + CType(zahl9, Single) + CType(zahl10, Single)) / 6

        ergebnis50 = (CType(zahl5, Single) + CType(zahl6, Single) + CType(zahl7, Single) + CType(zahl8, Single) + CType(zahl9, Single)) / 5

        ergebnis51 = (CType(zahl5, Single) + CType(zahl6, Single) + CType(zahl7, Single) + CType(zahl8, Single)) / 4

        ergebnis52 = (CType(zahl5, Single) + CType(zahl6, Single) + CType(zahl7, Single)) / 3

        ergebnis53 = (CType(zahl5, Single) + CType(zahl6, Single)) / 2

        ergebnis54 = (CType(zahl5, Single))

        ' Operationsdefinition Text = String
        Ergebnis1.Text = ergebnis.ToString Or ergebnis2.ToString Or ergebnis3.ToString Or ergebnis4.ToString Or ergebnis5.ToString Or ergebnis6.ToString Or ergebnis7.ToString Or ergebnis8.ToString Or ergebnis9.ToString Or ergebnis10.ToString _
                      Or ergebnis11.ToString Or ergebnis12.ToString Or ergebnis13.ToString Or ergebnis14.ToString Or ergebnis15.ToString Or ergebnis16.ToString Or ergebnis17.ToString Or ergebnis18.ToString Or ergebnis19.ToString Or ergebnis20.ToString _
                      Or ergebnis21.ToString Or ergebnis22.ToString Or ergebnis23.ToString Or ergebnis24.ToString Or ergebnis25.ToString Or ergebnis26.ToString Or ergebnis27.ToString Or ergebnis28.ToString Or ergebnis29.ToString Or ergebnis30.ToString _
                      Or ergebnis31.ToString Or ergebnis32.ToString Or ergebnis33.ToString Or ergebnis34.ToString Or ergebnis35.ToString Or ergebnis36.ToString Or ergebnis37.ToString Or ergebnis38.ToString Or ergebnis39.ToString Or ergebnis40.ToString _
                      Or ergebnis41.ToString Or ergebnis42.ToString Or ergebnis43.ToString Or ergebnis44.ToString Or ergebnis45.ToString Or ergebnis46.ToString Or ergebnis47.ToString Or ergebnis48.ToString Or ergebnis49.ToString Or ergebnis50.ToString _
                      Or ergebnis51.ToString Or ergebnis52.ToString Or ergebnis53.ToString Or ergebnis54.ToString

        Ergebnis1.Text = Math.Round(ergebnis, 2)
        TextBox20.Text = Math.Round(ergebnis)

Bild darf ich leider nicht anhängen, warum auch immer!

Danke für Hilfe im Voraus!

Answer 1

Hallo plygmy,

bevor dir hier irgend jemand weiterhelfen kann, solltest du erstmal genau schildern was gegeben und was dein Programm machen soll. Aus den sehr vielen Variablen für die Ergebnisse kann ich irgendwie nicht wirklich erkennen was genau du da machen möchtest.

Bin ich richtig in der Annahme, dass du für mehrere Fächer die Endnote berechnen möchtest? Kann jedes Fach viele/einige zwischennoten haben die dann als Durschnitt die Gesamtnote ergeben?

---

Gruß
Rudolf

"Der Nachteil der Intelligenz besteht darin, dass man ununterbrochen gezwungen ist, dazuzulernen." Georg Bernhard Shaw