Guten Tag, ich muss für dir Schule über die Timer Methode dieses Programm schreiben, nur ist meine Frage nur wie kann ich aus dieser Schleife rauskommen nach 20x Wiederholen? Kann man den Timer irgendwie löschen oder etwas in der Art? Vielen Danke im Voraus!
Public Class Level1
Dim random As New System.Random
Dim Counter1 As Integer
Dim Counter2 As Integer
Dim Counter3 As Integer
Private Sub Button1_Click_1(sender As Object, e As EventArgs) Handles Button1.Click
Menue.Show()
Me.Close()
End Sub
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
Timer1.Start()
Counter1 = Counter1 + 1
Label11.Text = Counter1
Label6.Hide()
Button2.Hide()
TextBox1.Show()
Label1.Text = random.Next(1, 30)
Label2.Text = random.Next(1, 30)
If Label3.Text = "+" Then
Label5.Text = "Löse diese Additions-Aufgabe:"
Else
Label5.Text = "Löse die Subtraktions-Aufgabe:"
End If
Label6.Text = Val(Label1.Text) + Val(Label2.Text)
End Sub
Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
If TextBox1.Text Like Label6.Text Then
TextBox1.Clear()
Counter3 = Counter3 + 1
Label8.Text = Counter3
Timer1.Stop()
Button2.Show()
Button2.PerformClick()
Button2.Hide()
Else
Counter2 = Counter2 + 1
Label7.Text = Counter2
Button2.Show()
Button2.PerformClick()
Button2.Hide()
TextBox1.Clear()
Timer1.Stop()
End If
End Sub
Private Sub Button2_Click()
End Sub
Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
Counter2 = Counter2 + 1
Label7.Text = Counter2
TextBox1.Clear()
Timer1.Stop()
Button2.Show()
Button2.PerformClick()
Button2.Hide()
End Sub
Private Sub Label7_Click(sender As Object, e As EventArgs) Handles Label7.Click
End Sub
End Class
Public Class Level1
Dim random As New System.Random
Dim Counter1 As Integer
Dim Counter2 As Integer
Dim Counter3 As Integer
Private Sub Button1_Click_1(sender As Object, e As EventArgs) Handles Button1.Click
Menue.Show()
Me.Close()
End Sub
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
Timer1.Start()
Counter1 = Counter1 + 1
Label11.Text = Counter1
Label6.Hide()
Button2.Hide()
TextBox1.Show()
Label1.Text = random.Next(1, 30)
Label2.Text = random.Next(1, 30)
If Label3.Text = "+" Then
Label5.Text = "Löse diese Additions-Aufgabe:"
Else
Label5.Text = "Löse die Subtraktions-Aufgabe:"
End If
Label6.Text = Val(Label1.Text) + Val(Label2.Text)
End Sub
Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
If TextBox1.Text Like Label6.Text Then
TextBox1.Clear()
Counter3 = Counter3 + 1
Label8.Text = Counter3
Timer1.Stop()
Button2.Show()
Button2.PerformClick()
Button2.Hide()
Else
Counter2 = Counter2 + 1
Label7.Text = Counter2
Button2.Show()
Button2.PerformClick()
Button2.Hide()
TextBox1.Clear()
Timer1.Stop()
End If
End Sub
Private Sub Button2_Click()
End Sub
Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
Counter2 = Counter2 + 1
Label7.Text = Counter2
TextBox1.Clear()
Timer1.Stop()
Button2.Show()
Button2.PerformClick()
Button2.Hide()
End Sub
Private Sub Label7_Click(sender As Object, e As EventArgs) Handles Label7.Click
End Sub
End Class