Thursday, February 13, 2014

Kalkulator



Private Sub CmdBagi_Click()
    Bil1 = Val(TxtBil1)
    Bil2 = Val(TxtBil2)
 If Bil2 = 0 Then
     MsgBox ("Bilangan 2 tidak boleh Nol")
 Else
    Hasil = Bil1 / Bil2
    TxtHasil = Hasil
 End If
End Sub

Private Sub CmdHapus_Click()
 TxtBil1 = ""
 TxtBil2 = ""
 TxtHasil = ""
 TxtBil1.SetFocus
End Sub

Private Sub CmdKali_Click()
    Bil1 = Val(TxtBil1)
    Bil2 = Val(TxtBil2)
    Hasil = Bil1 * Bil2
    TxtHasil = Hasil
End Sub

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

Private Sub CmdKurang_Click()
    Bil1 = Val(TxtBil1)
    Bil2 = Val(TxtBil2)
    Hasil = Bil1 - Bil2
    TxtHasil = Hasil
End Sub

Private Sub CmdTambah_Click()
    Bil1 = Val(TxtBil1)
    Bil2 = Val(TxtBil2)
    Hasil = Bil1 + Bil2
    TxtHasil = Hasil
End Sub