Sintaknya :
Private Sub cmdclear_Click()
txtkode.Text = " "
txtjenis.Text = " "
txtharga.Text = " "
txtjumlah.Text = " "
txtpembayaran.Text = " "
txtpotongan.Text = " "
txtppn.Text = " "
txttobay.Text = " "
txtubay.Text = " "
txtukem.Text = " "
txtkode.SetFocus
End Sub
Private Sub Timer1_Timer()
txtwaktu.Text = Time
txttanggal.Text = Format(Date, "dddd,d mmmm yyyy")
End Sub
Private Sub cmdhitung_Click()
txtpembayaran = Val(txtharga.Text) * Val(txtjumlah.Text)
txtpotongan = 0.05 * Val(txtpembayaran.Text)
txtppn = 0.01 * Val(txtpembayaran.Text)
txttobay = (Val(txtpembayaran.Text) - Val(txtpotongan.Text)) + Val(txtppn)
txtubay.SetFocus
End Sub
Private Sub txtubay_Change()
txtukem = Val(txtubay.Text) - Val(txttobay)
End Sub
Private Sub cmdexit_Click()
x = MsgBox("Apa Anda Ingin Keluar Dari Form Ini?", vbQuestion + vbOKCancel, "Informasi")
If x = vbOK Then
End
End If
End Sub
Update Contact :
No Wa/Telepon (puat) : 085267792168
No Wa/Telepon (fajar) : 085369237896
Email : Fajarudinsidik@gmail.com
No Wa/Telepon (puat) : 085267792168
No Wa/Telepon (fajar) : 085369237896
Email: Fajarudinsidik@gmail.com
atau Kirimkan Private messanger melalui email dengan klik tombol order dibawah ini :