Program Visual Basic Toko Kue & Roti

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