ZahlenRaten

[Dr. XMas]

Hab mal ein Spiel gemacht
Link:http://rapidshare.com/files/254671692/game.rar

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ß

[bexxter]

Lustig,^^
gerade eben ein Tutorial für einen Zufallszahlengenerator angekuckt

btt

Schönes Ding!

[DeXTer]

Sieht doch schonmal nicht schlecht aus.

Als nächstes solltest du mal versuchen , dass man mehrere Level spielen kann.
Vielleicht dazu noch ne Highscoreliste.

[sunny-boy3]

Sieht ganz lustig aus

[Xenon808]

Find ich lustig allerdings gibts dafür ein Turorial auf Youtube (http://www.youtube.com/watch?v=LDkeEqiqA58) ;)