Menghitung Luas Segitiga

Private Sub CboAlas_Change()
  LblAlas.Caption = CboAlas
End Sub

Private Sub CboTinggi_Change()
  LblTinggi.Caption = CboTinggi
End Sub

Private Sub CmdHapus_Click()
  CboAlas = ""
  CboTinggi = ""
  TxtHasil = ""
  LblAlas.Caption = "Isi Alas"
  LblTinggi.Caption = "IsiTinggi"
  CboAlas.SetFocus
End Sub

Private Sub CmdHitung_Click()
  If CboAlas = "" Or CboTinggi = "" Then
     MsgBox ("Isi nilai Alas dan Tinggi")
   Else
    Alas = CboAlas
    Tinggi = CboTinggi
    Hasil = (Alas * Tinggi) / 2
    TxtHasil = Hasil
   End If

Form Foto Kiwiiwew

Private Sub CmdBunga_Click()
    'Image Foto, sumber dari folder di lokasi foto
    ImgFoto.Picture = "D:\JESSICA VIII A\1.jpg"
End Sub

Private Sub CmdGunung_Click()
    'Image Foto, sumber dari folder di lokasi foto
    ImgFoto.Picture = "D:\JESSICA VIII A\2.jpg"
End Sub

Private Sub CmdKoala_Click()
    'Image Foto, sumber dari folder di lokasi foto
    ImgFoto.Picture = "D:\JESSICA VIII A\3.jpg"
End Sub

Mencari Luas Persegi Panjang Kiwiwew

Private Sub CmdClose_Click()
DoCmd.Save
 DoCmd.Close

End Sub

Private Sub CmdHapus_Click()
 TxtPanjang = ""
 TxtLebar = ""
 TxtLuas = ""
End Sub
Private Sub CmdHitung_Click()
Dim P, L As Integer
P = TxtPanjang
L = TxtLebar
TxtLuas = P * L
End Sub

Mencari Keliling Lingkaran Kiwiiwew

Private Sub CmdHapus_Click()
TxtPhi = ""
TxtJariJari = ""
TxtKeliling = ""
End Sub

Private Sub CmdHitung_Click()
Dim P, r, K As Integer
P = (22 / 7)
r = TxtJariJari
K = (22 / 7) * 2 * r

TxtPhi = P
TxtJariJari = r
TxtKeliling = K
End Sub

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