KISI-KISI AP2B MEMBUAT APLIKASI PENJUALAN RUMAH

 

 

Koding :
Dim harga, cicil, bunga, cicilan As Currency
Private Sub cmdclear_Click()
MsgBox "Apakah anda ingin menghapus ?", vbYesNo + vbInformation, "PESAN"
If vbYes Then bersih
End Sub

Private Sub cmdexit_Click()
MsgBox "Apakah Anda Yakin Ingin Keluar ?", vbYesNo + vbInformation, "PESAN"
If vbYes Then Unload Me
End Sub

Private Sub hitung()
 Select Case rmh
  Case "BERLIAN, 36/92"
  harga = 150000000
  Case "MUTIARA, 45/90"
  harga = 200000000
  Case "ZAMRUDI, 21/60"
  harga = 100000000
End Select

If optcash.Value = True Then
bunga = 0
cicil = 1
ElseIf opt5th.Value = True Then
bunga = 0.5
cicil = 60
ElseIf opt10th.Value = True Then
bunga = 1.2
cicil = 120
End If

Txttotal.Text = harga + (harga * bunga)
End Sub

Private Sub cmdok_Click()
hitung
End Sub

Private Sub txtdp_change()
Txtcil.Text = (Val(Txttotal.Text) - Val(Txtdp.Text)) \ cicil
End Sub

Private Sub form_load()
rmh.AddItem "BERLIAN, 36/92"
rmh.AddItem "MUTIARA, 45/90"
rmh.AddItem "ZAMRUDI, 21/60"
End Sub

Private Sub bersih()
Txtpem.Text = ""
Txtnm.Text = ""
Txtalamat.Text = ""
rmh.Text = Clear
optcash.Value = False
opt5th.Value = False
opt10th.Value = False
Txttotal.Text = ""
Txtcil.Text = ""
Txtdp.Text = ""
Txtpem.SetFocus
End Sub




HASIL KERJA BERSAMA