Tambah
thisform.txthasil.Value=ROUND(VAL(thisform.txtnilai1.Value)+VAL(thisform.txtnilai2.Value),0)
Kurang
thisform.txthasil.Value=ROUND(VAL(thisform.txtnilai1.Value)-VAL(thisform.txtnilai2.Value),0)
Kali
thisform.txthasil.Value=ROUND(VAL(thisform.txtnilai1.Value)*VAL(thisform.txtnilai2.Value),0)
Bagi
thisform.txthasil.Value=ROUND(VAL(thisform.txtnilai1.Value)/VAL(thisform.txtnilai2.Value),0)
Bersih
thisform.txtnilai1.Value=""thisform.txtnilai2.Value=""thisform.txthasil.Value=""thisform.txtnilai1.setfocus
Exit
thisform.release
0 Response to "Membuat calculator pada visual foxpro(Perintah +-*/)"
Post a Comment