Public Class Form1
Private Sub PictureBox2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox2.Click
End Sub
Private Sub Button10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button10.Click
End
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Label1.Visible = True
Label2.Visible = False
Label3.Visible = False
Label4.Visible = False
Button1.Visible = True
Button2.Visible = True
Button3.Visible = True
Button4.Visible = True
Button5.Visible = False
Button6.Visible = False
Button7.Visible = False
Button8.Visible = False
Button9.Visible = True
Button10.Visible = True
PictureBox1.Visible = False
PictureBox2.Visible = False
PictureBox3.Visible = False
PictureBox4.Visible = False
TextBox1.Visible = False
TextBox2.Visible = False
TextBox3.Visible = False
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Label1.Visible = True
Label2.Visible = True
Label3.Visible = False
Label4.Visible = True
Button1.Visible = True
Button2.Visible = True
Button3.Visible = True
Button4.Visible = True
Button5.Visible = True
Button6.Visible = False
Button7.Visible = False
Button8.Visible = False
Button9.Visible = True
Button10.Visible = True
PictureBox1.Visible = True
PictureBox2.Visible = False
PictureBox3.Visible = False
PictureBox4.Visible = False
TextBox1.Visible = True
TextBox2.Visible = False
TextBox3.Visible = True
Label2.Text = "lado"
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Label1.Visible = True
Label2.Visible = True
Label3.Visible = True
Label4.Visible = True
Button1.Visible = True
Button2.Visible = True
Button3.Visible = True
Button4.Visible = True
Button5.Visible = False
Button6.Visible = True
Button7.Visible = False
Button8.Visible = False
Button9.Visible = True
Button10.Visible = True
PictureBox1.Visible = False
PictureBox2.Visible = True
PictureBox3.Visible = False
PictureBox4.Visible = False
TextBox1.Visible = True
TextBox2.Visible = True
TextBox3.Visible = True
Label2.Text = "largo"
Label3.Text = "ancho"
Label4.Text = "cm2"
TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Label1.Visible = True
Label2.Visible = True
Label3.Visible = True
Label4.Visible = True
Button1.Visible = True
Button2.Visible = True
Button3.Visible = True
Button4.Visible = True
Button5.Visible = False
Button6.Visible = False
Button7.Visible = True
Button8.Visible = False
Button9.Visible = True
Button10.Visible = True
PictureBox1.Visible = False
PictureBox2.Visible = False
PictureBox3.Visible = True
PictureBox4.Visible = False
TextBox1.Visible = True
TextBox2.Visible = True
TextBox3.Visible = True
Label2.Text = "base"
Label3.Text = "altura"
Label4.Text = "cm2"
TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
End Sub
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
Label1.Visible = True
Label2.Visible = True
Label3.Visible = False
Label4.Visible = True
Button1.Visible = True
Button2.Visible = True
Button3.Visible = True
Button4.Visible = True
Button5.Visible = False
Button6.Visible = False
Button7.Visible = False
Button8.Visible = True
Button9.Visible = True
Button10.Visible = True
PictureBox1.Visible = False
PictureBox2.Visible = False
PictureBox3.Visible = False
PictureBox4.Visible = True
TextBox1.Visible = True
TextBox2.Visible = False
TextBox3.Visible = True
Label2.Text = "radio"
Label4.Text = "cm2"
TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
End Sub
Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
TextBox3.Text = Val(TextBox1.Text) * Val(TextBox1.Text)
End Sub
Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
TextBox3.Text = Val(TextBox1.Text) * Val(TextBox2.Text)
End Sub
Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
TextBox3.Text = Val(TextBox1.Text) * Val(TextBox2.Text) / 2
End Sub
Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click
TextBox3.Text = 3.1416 * Val(TextBox1.Text) ^ 2
End Sub
Private Sub Button9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button9.Click
TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
End Sub
End Class
