Bestimmte Codezeilen wiederholen lassen

  • VB.NET

Es gibt 5 Antworten in diesem Thema. Der letzte Beitrag () ist von Phil_man.

    Bestimmte Codezeilen wiederholen lassen

    Hi,
    Ich habe meinen Zufalls Kopfrechner nun fast fertig, jedoch gibt es noch ein Problem, wenn die Aufgabe richtig ist, bekommt man einen Punkt und die Zeit wird resettet. Soweit, sogut, aber die neue aufgabe ist dann immer die gleiche. Das liegt wahrscheinlich daran, dass ich da überall return hingemacht haben.

    Nun die Frage ist, kann ich das auch anders Wiederholen lassen? Also ohne Return z.B?
    Bitte Bsp ausfüllen:

    VB.NET-Quellcode

    1. If zeit = 10 then
    2. ' HIER den Code pls einfügen
    3. End If


    Vielen Dank schonmal ^^

    Mhm, ich poste mal den Code, er ist zum Glück noch net so lange. Und nicht wundern, den Ordne ich wenn alles funktioniert. Und lösche alles unnötige dann auch ^^.

    VB.NET-Quellcode

    1. Public Class Form1
    2. Dim rn As New Random
    3. Dim a As Double = rn.Next(0, 20)
    4. Dim b As Double = rn.Next(0, 20)
    5. Dim richtig As Integer
    6. Dim g As String
    7. Dim f As Double
    8. Dim c As Double
    9. Dim inte As Integer
    10. Dim lange As Long
    11. Dim strArr() As String = {"+", "-", "*", "/"}
    12. Dim re As String
    13. Dim zufallsOperator As Integer
    15. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    16. Timer1.Start()
    17. End Sub
    19. Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
    20. zufallsOperator = rn.Next(1, 4)
    21. Select Case strArr(zufallsOperator)
    22. Case "+"
    23. c = a + b
    24. Case "-"
    25. c = a - b
    26. Case "*"
    27. c = a * b
    28. Case "/"
    29. c = a / b
    30. If a < b Then Return
    31. End Select
    32. TextBox1.Text = a
    33. TextBox2.Text = strArr(zufallsOperator)
    34. TextBox3.Text = b
    35. TextBox5.Text = c
    36. lange = TextBox5.Text.Contains(".") Or TextBox5.Text.Contains(",") Or TextBox5.Text.Contains("-")
    37. If lange Then
    38. Return
    39. Else
    40. Timer2.Start()
    41. Timer3.Start()
    42. End If
    43. End Sub
    46. Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick
    47. Timer1.Stop()
    48. g = TextBox4.Text
    49. f = Val(g)
    50. Dim test As Long
    51. test = TextBox1.Text.Contains(".")
    52. If test = f Then Return
    53. If f = c Then
    54. Timer2.Stop()
    55. Timer3.Stop()
    56. richtig += 1
    57. Label7.Text = richtig
    58. TextBox1.Text = ""
    59. TextBox2.Text = ""
    60. TextBox3.Text = ""
    61. TextBox4.Text = ""
    62. Timer1.Start()
    63. Else
    64. Return
    65. End If
    66. End Sub
    68. Private Sub Timer3_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer3.Tick
    69. inte += 1
    70. Label6.Text = inte
    71. If inte = 10 Then
    72. MsgBox("Leider verloren du hast " & richtig & " richtige aufgaben hintereinander gelösst")
    73. Timer2.Stop()
    74. Timer3.Stop()
    75. richtig = 0
    76. inte = 0
    77. End If
    78. End Sub
    80. Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
    81. Timer1.Start()
    82. End Sub
    83. End Class


    EDIT: Ich habe jetzt noch was probiert aber es geht immer noch net. O.o

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

    Versuch mal meine Antwort von gestern als Grundgerüst zu nehmen, da werden bei Button1_click alle aufgaben neu gestellt. Bzw. sieh es dir mal genau an, und überleg, wieso ich die Variablendeklaration und die Wertezuweisung in unterschiedlichen Bereichen durchführe.

Facebook
Telefonspende