Mencari Volume

 

 

Option Compare Database

Private Sub CmdHapusBalok_Click()
TxtPanjang = ""
TxtLebar = ""
TxtTinggi = ""
TxtHasilBalok = ""
End Sub

Private Sub CmdHapusKubus_Click()
TxtSisi = ""
TxtHasilKubus = ""
End Sub

Private Sub CmdHitungBalok_Click()
Dim p, l, t, vb As Integer
p = (TxtPanjang)
l = (TxtLebar)
t = (TxtTinggi)
vb = p * l * t
TxtHasilBalok = vb
End Sub

Private Sub CmdHitungKubus_Click()
Dim s, vk As Integer
s = (TxtSisi)
vk = s * s * s
TxtHasilKubus = vk
End Sub

Private Sub CmdKeluar_Click()
DoCmd.Save
DoCmd.Close
End Sub

Private Sub OptBalok_GotFocus()
FraVolBalok.Visible = True
TxtPanjang.Visible = True
TxtLebar.Visible = True
TxtTinggi.Visible = True
TxtHasilBalok.Visible = True
CmdHapusBalok.Visible = True
CmdHitungBalok.Visible = True
FraVolKubus.Visible = False
TxtSisi.Visible = False
TxtHasilKubus.Visible = False
CmdHapusKubus.Visible = False
CmdHitungKubus.Visible = False
End Sub

Private Sub OptKubus_Click()
FraVolKubus.Visible = True
TxtSisi.Visible = True
TxtHasilKubus.Visible = True
CmdHitungKubus.Visible = True
CmdHapusKubus.Visible = True
FraVolBalok.Visible = False
TxtPanjang.Visible = False
TxtHasilBalok.Visible = False
TxtTinggi.Visible = False
TxtLebar.Visible = False
CmdHapusBalok.Visible = False
CmdHitungBalok.Visible = False
End Sub