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