Luas Trapesium ala Sang Bocah

Private Sub CmdHapus_Click()
TxtSejajar = ""
TxtTinggi = ""
TxtHasil = ""
TxtSejajar.SetFocus

End Sub

Private Sub CmdHitung_Click()
Dim S, t, H As Integer
S = TxtSejajar
t = TxtTinggi
H = TxtSejajar * TxtTinggi / 2
TxtSejajar = S
TxtTinggi = t
TxtHasil = H
End Sub

Private Sub CmdKeluar_Click()
DoCmd.Save
DoCmd.Close

End Sub

Read More