Mehrer TextBoxen gleichzeitig ansprechen

  • VB.NET

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

    Mehrer TextBoxen gleichzeitig ansprechen

    Hallo Leute, hab mich lange nicht gemeldet gehabt :) naja egal ...

    VB.NET-Quellcode

    1. Dim a As Integer = Integer.Parse(TextBox1.Text)
    2. For i As Integer = 0 To 49
    3. a = (a + 2) Mod 50
    4. If a = 51 Then
    5. a = 1
    6. ElseIf a = 0 Then
    7. a = +1
    8. End If
    9. TextBox2.Text &= a.ToString & vbCrLf


    bei diesem Code geht's eigentlich um die letze Zeile
    "TextBox2.Text &= a.ToString & vbCrLf"

    Der Code bewirkt folgendes:
    TextBox1 Eingabe = 1 / TextBox2 Ausgabe = 3,5,7,9 ... ODER AUCH
    TextBox1 Eingabe = 2 / TextBox2 Ausgabe = 4,6,8,10...

    also gerade und ungerade Zahlen

    SO... Ich würde jetzt gerne gleich alle bzw. mehrer bestimmte TextBoxen gleich füllen wollen ^^
    anstatt immer wieder im Code die Ausgabe TextBox zu ändern
    mein Ansatz war: "TextBox2.Text &= a.ToString & vbCrLf & TextBox3.Text & TextBox4.Text ..." ohne ERFOLG !

    MFG
    Captain

    Also in TextBox1 steht entweder ne grade oder ne ungrade Zahl, und du willst dann jeweils die Zahlenreihe mit graden /ungraden Zahlen danach, hab ich verstanden. Aber wie willst du das ausgegeben haben ? Erkläre das noch mal, zeige genau wie Input und Output auszusehen hat.
    »There's no need to "teach" atheism. It's the natural result of education without indoctrination.« — Ricky Gervais

    ein Fehler :) nachdem 2 eingegeben worden ist - kommt selbstverständlich 4 / nicht 2 :)



    ich würde gerne die TextBoxen zusammenfassen, es gibt 2 "gruppen"
    Gruppe 1: ALLE textBoxen wo gerade/oder ungerade Zahlen eingegeben werden können UND
    Gruppe 2: ALLE textBoxen wo gerade/oder ungerade Zahlen ausgegeben werden können

    bislang muss ich für jede Zeile diesen Code schreiben:

    VB.NET-Quellcode

    1. ​Dim a As Integer = Integer.Parse(TextBox1.Text)
    2. For i As Integer = 0 To 49
    3. a = (a + 2) Mod 50
    4. If a = 51 Then
    5. a = 1
    6. ElseIf a = 0 Then
    7. a = +1
    8. End If
    9. TextBox2.Text &= a.ToString & vbCrLf
    11. Dim a2 As Integer = Integer.Parse(TextBox3.Text)
    12. For i2 As Integer = 0 To 49
    13. a2 = (a2 + 2) Mod 50
    14. If a2 = 51 Then
    15. a2 = 1
    16. ElseIf a2 = 0 Then
    17. a2 = +1
    18. End If
    19. TextBox4.Text &= a2.ToString & vbCrLf
    21. Dim a3 As Integer = Integer.Parse(TextBox5.Text)
    22. For i3 As Integer = 0 To 49
    23. a3 = (a3 + 2) Mod 50
    24. If a3 = 51 Then
    25. a3 = 1
    26. ElseIf a3 = 0 Then
    27. a3 = +1
    28. End If
    29. TextBox6.Text &= a3.ToString & vbCrLf
    31. Dim a4 As Integer = Integer.Parse(TextBox7.Text)
    32. For i4 As Integer = 0 To 49
    33. a4 = (a4 + 2) Mod 50
    34. If a4 = 51 Then
    35. a4 = 1
    36. ElseIf a4 = 0 Then
    37. a4 = +1
    38. End If
    39. TextBox8.Text &= a4.ToString & vbCrLf



    Dieser Beitrag wurde bereits 2 mal editiert, zuletzt von „Captain“ ()

    Ich würde es so machen:
    - Jeweilige Eingabe und Ausgabe Controls im Dictionary festhalten
    - Je nachdem wann dieser Code ausgeführt werden soll... Event ?
    - Den Algo verschönern:

    C#-Quellcode

    1. ​
    2. var a = int.Parse(TB_XY.Text);
    3. var ints = new List<int> {a};
    4. while (bliblablub) {
    5. ints.Add(ints.Last() + 2);
    6. }
    7. TB_Z.Text = string.Join("\n\r", ints);
    »There's no need to "teach" atheism. It's the natural result of education without indoctrination.« — Ricky Gervais