Aplikasi Menghitung Luas Bangun Datar

Desain Awal

Coding Form untuk Combobox :

cmx_01.Items.Add("Bujur Sangkar")
cmx_01.Items.Add("Persegi Panjang")
cmx_01.Items.Add("Segitiga")
BtnBru.Enabled = False

Coding Combobox :

If cmx_01.Text = "Bujur Sangkar" Then
label_1.Text = "Sisi"
Label_2.Text = ""
txt_01.Focus()
txt_02.Enabled = False
ElseIf cmx_01.Text = "Persegi Panjang" Then
label_1.Text = "Panjang"
Label_2.Text = "Lebar"
txt_01.Focus()
txt_02.Enabled = True
ElseIf cmx_01.Text = "Segitiga" Then
label_1.Text = "Alas"
Label_2.Text = "Tinggi"
txt_01.Focus()
txt_02.Enabled = True
End If

Coding Button Proses :

Dim BJS, PP, S As String
If cmx_01.Text = "Bujur Sangkar" Then
BJS = Val(txt_01.Text) * Val(txt_01.Text)
lbl_proses.Text = "Luas Bujur Sangkar = " & BJS
End If
If cmx_01.Text = "Persegi Panjang" Then
PP = Val(txt_01.Text) * Val(txt_02.Text)
lbl_proses.Text = "Luas Persegi Panjang = " & PP
End If
If cmx_01.Text = "Segitiga" Then
S = 1 / 2 * (Val(txt_01.Text) * Val(txt_02.Text))
lbl_proses.Text = "Luas Segitiga = " & S
End If
btnPrs.Enabled = False
cmx_01.Enabled = False
BtnBru.Enabled = True

Coding Button Keluar :

If MsgBox("Apakah Anda ingin Keluar dari Aplikasi ini? ", MsgBoxStyle.Question + MsgBoxStyle.YesNo, ) = MsgBoxResult.Yes Then Me.Close()

F5 Debug Preview