Persegi Panjang
Berikut adalah coding nya.....
Private Sub Command1_Click()
'Deklarasi variabel luas & keliling
Dim Luas As Double
Dim keliling As Double
'proses pemilihan luas atau keliling
If Option1.Value = True Then
Luas = Text1.Text * Text2.Text
Text3.Text = Luas
Else
keliling = 2 * (Int(Text1.Text) + Int(Text2.Text))
Text3.Text = keliling
End If
End Sub
'Mengosongkan textbox yg sedang aktif
Private Sub Command2_Click()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text1.SetFocus
End Sub
'Menutup form yang aktif
Private Sub Command3_Click()
End
End Sub