Thursday, April 3, 2014

Mencari Luas Lingkaran



Option Compare Database

Private Sub CmdHapus_Click()
TxtJari = ""
TxtHasil = ""
End Sub

Private Sub CmdHitung_Click()
Dim R As Integer
R = TxtJari
Hasil = (22 / 7) * R
TxtHasil = Hasil
End Sub

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

No comments:

Post a Comment