textbox-zahlen

  • VB.NET

Es gibt 4 Antworten in diesem Thema. Der letzte Beitrag () ist von RodFromGermany.

    textbox-zahlen

    hallo Leute :)

    ich weiß ich was hier falsch mache ?

    Eingabe:
    Textbox: 1
    Ausgabe: 2 2 2 2 , 3 3 3 3, 4 4 4 4, 5 5 5 5
    ---------------------------------------------------(funktioniert)
    Eingabe:
    Textbox: 2
    Ausgabe: 3 3 3 3, 4 4 4 4, 5 5 5 5, 6 6 6 6 --> was kann hier machen, dass statt 6 6 6 6, dass das Programm wieder von vorne also bei 1 beginnt

    CODE:

    VB.NET-Quellcode

    1. ​ Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    2. Dim a As Integer = Integer.Parse(TextBox1.Text)
    4. If a >= 5 Then
    5. a = 1
    6. End If
    7. TextBox2.Text &= a.ToString & vbCrLf & TextBox1.Text & vbCrLf & TextBox1.Text & vbCrLf & TextBox1.Text


    und meine If a > ... ANWEISUNG haut nicht hin :D
    habs auch schon mit --> If a = 6 then 5 probiert nichts ... :(

    also mal abstrahieren:
    Es soll 4 mal hochgezählt werden, allerdings unter Anwendung von Modulo 5
    Jede Zahl soll 4 mal in die Ausgabe geschrieben werden

    VB.NET-Quellcode

    1. Private Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button1.Click
    2. Dim output As New List(Of Integer)
    3. Dim a = Integer.Parse(TextBox1.Text)
    4. For i = 0 To 3
    5. a = a Mod 5 + 1
    6. For ii = 0 To 3
    7. output.Add(a)
    8. Next
    9. Next
    10. RichTextBox1.Text = String.Join(Environment.NewLine, output)
    11. End Sub

    Captain schrieb:

    meine If a > ... ANWEISUNG haut nicht hin
    Sie haut schon hin, nur verwendest Du nicht das berechnete Ergebnis a, sondern die Urdaten, den Text aus TextBox1.
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

Facebook
Telefonspende