Cari Kuadrat ala Sang Bocah

Private Sub Form_Load()
CmdPassword.Caption = "Edit Data" 'Posisi caption tombol pertama kali

Me.AllowEdits = False 'Form tidak dapat di edit
End Sub

Private Sub CmdPassword_Click()
Dim Password As String
Password = "user" ' Isi variable password

If CmdPassword.Caption = "Hasil" Then 'Menguji caption tombol
   Me.AllowEdits = False
   CmdPassword.Caption = "Edit Data" 'Mengembalikan caption semula
   TxtHasilKuadrat = Val(TxtKuadrat ^ 2)
   Else
   If InputBox("Maukkan Password Anda : ", "Password") = "user" Then
   Me.AllowEdits = True 'Form dapat di edit
   TxtKuadrat = ""
   TxtHasilKuadrat = ""
 
   CmdPassword.Caption = "Hasil" 'Mengubah Caption tombol menjadi tombol hasil
   Else
   MsgBox ("Password Anda Salah") 'Menampilkan Message Box
   End If
   End If
 
   End Sub
Private Sub CmdKeluar_Click()
DoCmd.Close
End Sub

Read More

Kalkulator ala Sang Bocah

Private Sub CmdBagi_Click()
Bil1 = Val(TxtBil1)
Bil2 = Val(TxtBil2)
Hasil = Bil1 / Bil2
TxtHasil = Hasil
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 = Val(Bil1) + Val(Bil2)
TxtHasil = Hasil
End Sub

Read More