ich hab so aus langeweile ein mathe-programm geschrieben was nicht funktionert:
es soll eigentlich eine zufällige zahl generieren und dann soll man eine antwort schreiben mit welcher mal-aufgabe man die zufällige zahl errechnen kann.
aber wenn ich auf den button drücke passiert rein garnix
kann mir da jemand helfen und sagen was ich falsch mache
Edit: hat sich erledigt
es soll eigentlich eine zufällige zahl generieren und dann soll man eine antwort schreiben mit welcher mal-aufgabe man die zufällige zahl errechnen kann.
aber wenn ich auf den button drücke passiert rein garnix
VB.NET-Quellcode
- Public Class Form1
- Dim tmp As New Random
- Public Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
- For i = 1 To 100
- Label2.Text = (tmp.Next(1, 90))
- Dim tmp0 As String = Label2.Text / 2
- If tmp0.Contains(",") Or tmp0.Contains(".") Then
- Label2.Text = (tmp.Next(1, 90))
- i = 100
- End If
- Next
- TextBox1.BackColor = Color.Empty
- TextBox2.BackColor = Color.Empty
- Label3.Text = Nothing
- End Sub
- Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
- If Not TextBox1.Text = Nothing And TextBox2.Text = Nothing Then
- If TextBox1.Text * TextBox2.Text = (Label2.Text.ToString) Then
- Label3.Text = "Richtig!"
- Threading.Thread.Sleep(1000)
- Label3.Text = Nothing
- For i = 1 To 100
- Label2.Text = (tmp.Next(1, 90))
- Dim tmp0 As String = Label2.Text / 2
- If tmp0.Contains(",") Or tmp0.Contains(".") Then
- Label2.Text = (tmp.Next(1, 90))
- i = 100
- End If
- Next
- End If
- End If
- End Sub
- Private Sub TextBox2_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox2.KeyPress
- Select Case Asc(e.KeyChar)
- Case 48 To 57, 8, 32, 46
- Case Else
- e.Handled = True
- End Select
- End Sub
- Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
- Select Case Asc(e.KeyChar)
- Case 48 To 57, 8, 32, 46
- Case Else
- e.Handled = True
- End Select
- End Sub
- End Class
kann mir da jemand helfen und sagen was ich falsch mache
Edit: hat sich erledigt
Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Die Wucht“ ()