free pos for pocket pc
Posted: Wed Apr 21, 2004 11:59 pm
Hi
Can you all help me?
I have made pos for pocket pc 2002 and pocket pc 2003?
made in vd for pocket pc.
Option Explicit
Private Sub Command1_Click()
App.End
End Sub
Private Sub Form_OKClick()
App.End
End Sub
Private Sub Total_Click()
'Cls
Dim Change As String
Dim Cash As String
Dim Subttl As String
Dim Total As String
Dim Tax As String
Dim F As String
F = 0
Do
MsgBox "Runnig Total: " & F
Dim QTY As String
Dim Price As String
Dim G As String
Price = InputBox("Enter Price:")
QTY = InputBox("Enter Quantity:")
If Price = 0 Then
Exit Do
End If
F = F + Price * QTY
Loop
Tax = F * 0.08
Total = F + Tax
MsgBox "Tax is = " & Tax
MsgBox "Total is = " & Total
Cash = InputBox("Enter Cash Received = " & Total)
Change = Cash - Total
MsgBox "Change Due: " & Change
End Sub
E-Mail Me At crocker2@cox.net
Thank You!!!
P.S. God Loves God And Have A Good Day!!