-
ZahlenRaten
Hab mal ein Spiel gemacht
Link:http://rapidshare.com/files/254671692/game.rar
Code:
Code:
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim Therandom As New Random
If RadioButton1.Checked = True Then
Label1.Visible = False
Label2.Visible = False
Label3.Visible = False
Label1.Text = Therandom.Next(1, 5)
If TextBox1.Text = Label1.Text Then
Label1.Visible = True
Label2.Visible = True
Label3.Visible = True
Label3.Text = "YOU ARE CORRECT!!"
Button1.Enabled = False
TextBox1.Enabled = False
Else
Label1.Visible = True
Label2.Visible = True
Label3.Visible = True
Label3.Text = "YOU LOSE!!"
Button1.Enabled = False
TextBox1.Enabled = False
End If
ElseIf RadioButton2.Checked = True Then
Label1.Visible = False
Label2.Visible = False
Label3.Visible = False
Label1.Text = Therandom.Next(1, 15)
If TextBox1.Text = Label1.Text Then
Label1.Visible = True
Label2.Visible = True
Label3.Visible = True
Label3.Text = "YOU ARE CORRECT!!"
Button1.Enabled = False
TextBox1.Enabled = False
Else
Label1.Visible = True
Label2.Visible = True
Label3.Visible = True
Label3.Text = "YOU LOSE!!"
Button1.Enabled = False
TextBox1.Enabled = False
End If
ElseIf RadioButton3.Checked = True Then
Label1.Visible = False
Label2.Visible = False
Label3.Visible = False
Label1.Text = Therandom.Next(1, 50)
If TextBox1.Text = Label1.Text Then
Label1.Visible = True
Label2.Visible = True
Label3.Visible = True
Label3.Text = "YOU ARE CORRECT!!"
Button1.Enabled = False
TextBox1.Enabled = False
Else
Label1.Visible = True
Label2.Visible = True
Label3.Visible = True
Label3.Text = "YOU LOSE!!"
Button1.Enabled = False
TextBox1.Enabled = False
End If
ElseIf RadioButton4.Checked = True Then
Label1.Visible = False
Label2.Visible = False
Label3.Visible = False
Label1.Text = Therandom.Next(1, 100)
If TextBox1.Text = Label1.Text Then
Label1.Visible = True
Label2.Visible = True
Label3.Visible = True
Label3.Text = "YOU ARE CORRECT!!"
Button1.Enabled = False
TextBox1.Enabled = False
Else
Label1.Visible = True
Label2.Visible = True
Label3.Visible = True
Label3.Text = "YOU LOSE!!"
Button1.Enabled = False
TextBox1.Enabled = False
End If
End If
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Label1.Text = "0"
Label1.Visible = False
Label2.Visible = False
Label3.Visible = False
Button1.Enabled = True
TextBox1.Enabled = True
TextBox1.Text = ""
End Sub
End Class
Das spiel hat 4 Verschieden Schwierigkeitsgrade :
-Leicht Die Zahlen von 1-5
-Mittel Die Zahlen von 1-15
-Schwer Die Zahlen 1-50
-Sehr Schwer Die Zahlen 1-100
Mehr kann ich dazu nicht sagen ^^
Probierts aus und habt Spaß
-
Lustig,^^
gerade eben ein Tutorial für einen Zufallszahlengenerator angekuckt
btt
Schönes Ding!
-
Sieht doch schonmal nicht schlecht aus.
Als nächstes solltest du mal versuchen , dass man mehrere Level spielen kann.
Vielleicht dazu noch ne Highscoreliste.
-
-
Find ich lustig allerdings gibts dafür ein Turorial auf Youtube ;)