1.

Solve : Can't figure it out :(?

Answer»

Code: [Select]Public Class Form1

    Private Sub Button1_click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label1.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 :O"
                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 :O"
                Button1.Enabled = False
                TextBox1.Enabled = False
            Else
                Label1.Visible = True
                Label2.Visible = True
                Label3.Visible = True
                Label3.Text = "You lose X("
                Button1.Enabled = False
                TextBox1.Enabled = False
            End If
        ElseIf RadioButton3.Checked = True Then
        End If
        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 :D!"
            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
        If 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 :D!"
                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
        End If
        Label1.Visible = False
        Label2.Visible = False
        Label3.Visible = False
        Label1.Text = Therandom.Next(1, 50)
        If TextBox1.Text = Label1.Text Then
        End If

        If RadioButton1.Checked = True Then
            Label1.Visible = False
            Label2.Visible = False
            Label3.Visible = False
            Label1.Text = Therandom.Next(1, 5)
            Label1.Visible = True
            Label2.Visible = True
            Label3.Visible = True
            Label3.Text = "You are correct :O"
            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
        If 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 :O"
                Button1.Enabled = False
                TextBox1.Enabled = False
            Else
                Label1.Visible = True
                Label2.Visible = True
                Label3.Visible = True
                Label3.Text = "You lose X("
                Button1.Enabled = False
                TextBox1.Enabled = False
            End If
        ElseIf RadioButton3.Checked = True Then
        End If
        Label1.Visible = False
        Label2.Visible = False
        Label3.Visible = False
        Label1.Text = Therandom.Next(1, 50)
        If TextBox1.Text = Label1.Text Then
        End If
        Label1.Visible = True
        Label2.Visible = True
        Label3.Visible = True
        Label3.Text = "You are correct :D!"
        Button1.Enabled = False
        TextBox1.Enabled = False

        Label1.Visible = True
        Label2.Visible = True
        Label3.Visible = True
        Label3.Text = "You lose :(("
        Button1.Enabled = False
        TextBox1.Enabled = False

        If 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 :D!"
                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)
        End If
    End Sub
End Class
Public Class Form1

    Private Sub Button2_click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label1.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

I want to make a litle game called Gues the nomber the PROBLEM is that i don't understand why it gives me this warnings
Warning   1   The type Form1 is made of SEVERAL partial classes in the same file.         

Warning   2   class 'Form1' and partial class 'Form1' declared in 'C:\Documents and Settings\Administrator\Local Settings\Application Data\Temporary Projects\Gues the number!\Form1.Designer.vb' conflict in namespace 'Gues_the_number_', but are being merged because one of them is declared partial.   C:\Documents and Settings\Administrator\Local Settings\Application Data\Temporary Projects\Gues the number!\Form1.vb   Gues the number!

Warning   3   class 'Form1' and partial class 'Form1' declared in 'C:\Documents and Settings\Administrator\Local Settings\Application Data\Temporary Projects\Gues the number!\Form1.Designer.vb' conflict in namespace 'Gues_the_number_', but are being merged because one of them is declared partial.   C:\Documents and Settings\Administrator\Local Settings\Application Data\Temporary Projects\Gues the number!\Form1.vb   Gues the number!

Please tell me what is wrong because i can't FIGURE it out why i get this warnings .



Discussion

No Comment Found