Program Visual Basic PT Raya Travel

Sintaknya :

Private Sub Timer1_Timer()
txtwaktu = time
txttanggal = Format(date, "dddd,d mmmm yyyy")
End Sub

Private Sub cmdclear_Click()
txtkode.Text = " "
txtjumlah.Text = " "
txtjenis.Text = " "
txtharga.Text = " "
txtpembayaran.Text = " "
txtpotongan.Text = " "
txtppn.Text = " "
txtbayar.Text = " "
txtkembali.Text = " "
txttobay.Text = " "
cmdexit.SetFocus
End Sub

Private Sub cmdexit_Click()
X = MsgBox("Are Your Sure To Exit?", vbQuestion + vbYesNoCancel, "Konfirmasi")
If X = vbYes Then
End
End If
End Sub

Private Sub cmdhitung_Click()
txtpembayaran = Val(txtharga.Text) * Val(txtjumlah.Text)
txtpotongan = 0.1 * Val(txtpembayaran.Text)
txtppn = 0.5 * Val(txtpembayaran.Text)
txttobay = (Val(txtpembayaran.Text) - Val(txtpotongan.Text) + Val(txtppn))
txtbayar.SetFocus
End Sub

Private Sub txtbayar_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txtkembali = Val(txtbayar) - Val(txttobay)
End If
End Sub