?alt program?

arkadaslar kolay gelsin

Public Class Form1
Dim alan, cevre, kare, ucgen As Integer
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
ComboBox1.Items.Add("Üçgen")
ComboBox1.Items.Add("Kare")
PictureBox2.Visible = False
PictureBox3.Visible = False
End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

kare1()
ucgen1()

End Sub
Private Sub kare1()
If ComboBox1.Text = "Kare" Then
alan = Val(TextBox5.Text) * Val(TextBox5.Text)
cevre = (Val(TextBox5.Text) + Val(TextBox5.Text)) * 2
MsgBox("Karenin alanı " & alan & " Çevresi " & cevre & " cm'dir")
End If
End Sub
Private Sub ucgen1()
If ComboBox1.Text = "Üçgen" Then
alan = (Val(TextBox1.Text) * Val(TextBox4.Text)) / 2
cevre = Val(TextBox3.Text) + Val(TextBox5.Text) + Val(TextBox2.Text)
MsgBox("Üçgenin alanı " & alan & " Üçgenin Çevresi " & cevre & " cm'dir")
End If
End Sub

Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
If ComboBox1.Text = "Üçgen" Then
PictureBox2.Visible = False
PictureBox3.Visible = True
TextBox1.Visible = True
TextBox2.Visible = True
TextBox3.Visible = True
TextBox4.Visible = True
TextBox5.Visible = True
Label1.Visible = True
Label2.Visible = True
Label3.Visible = True
Label4.Visible = True
Label5.Visible = True
ElseIf ComboBox1.Text = "Kare" Then
PictureBox2.Visible = True
PictureBox3.Visible = False
TextBox1.Visible = False
TextBox2.Visible = False
TextBox3.Visible = False
TextBox4.Visible = False
TextBox5.Visible = True
Label1.Visible = False
Label2.Visible = False
Label3.Visible = False
Label4.Visible = False
Label5.Visible = True
End If
End Sub
End Class

yaptım güsel bi program oldu