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 .
|