GoFuckYourself.com - Adult Webmaster Forum - Does anyone know Visual Basics?

Ok I'm in the early learning stages so don't laugh.
This is what I have.
'Project: 4.1
'Date: August 28, 2001
'Programmer:
'Description: This project calculates total amount due
'Folder: Ch4

Option Explicit
Dim mcurPrice As Currency
Dim mintTotalClients As Integer
Dim mcurTotalIncome As Currency
Dim mcurTotalDue As Currency

Private Sub cmdCalculate_Click()

Dim curPrice As Currency
Dim curDiscount As Currency
Const curMakeOver As Currency = 125
Const curHairStyling As Currency = 60
Const curManicure As Currency = 35
Const curPerMakeup As Currency = 200
Const curDiscount10 As Currency = 0.9
Const curDiscount20 As Currency = 0.8

If optMakeOver.Value = True Then
curPrice = curMakeOver
ElseIf optHairStyling.Value = True Then
curPrice = curHairStyling
ElseIf optManicure.Value = True Then
curPrice = curManicure
ElseIf optPerMakeup.Value = True Then
curPrice = curPerMakeup
End If

'Display Price before discount
lblSubtotal.Caption = FormatCurrency(curPrice)

'Give Discount if any
If opt10Percent.Value = True Then
curPrice = curPrice * curDiscount10
ElseIf opt20Percent.Value = True Then
curPrice = curPrice * curDiscount20
ElseIf optNone.Value = True Then
curPrice = curPrice
End If
mcurPrice = curPrice
'Display the Total after discount
lblTotalDue.Caption = FormatCurrency(curPrice)

End Sub

Private Sub cmdClear_Click()
'Clear the amounts

optMakeOver.Value = False
optHairStyling.Value = False
optManicure.Value = False
optPerMakeup.Value = False
opt10Percent.Value = False
opt20Percent.Value = False
optNone.Value = False
lblSubtotal.Caption = ""
lblTotalDue.Caption = ""
lblTotalClients.Caption = ""
lblTotalIncome.Caption = ""
End Sub

Private Sub cmdExit_Click()
'Exit the project

End
End Sub

Private Sub cmdNextPatron_Click()
'Clear the current order and add totals
cmdClear_Click
lblSubtotal.Caption = ""
lblTotalDue.Caption = ""

'Add to Totals
If mcurPrice <> 0 Then 'Should be able to add to
'count if no new order
'Prevents accidental
'clicking
mcurTotalIncome = mcurTotalIncome + mcurPrice
mcurPrice = 0
mcurTotalDue = 0 'Reset for next custome
mintTotalClients = mintTotalClients + 1
End If
End Sub

Private Sub cmdPrint_Click()
'Print the form

PrintForm
End Sub

Private Sub cmdSummary_Click()
'Calculate the totals

Dim mintTotalClients

If mintTotalClients > 0 Then
If mcurPrice <> 0 Then
cmdNextPatron_Click 'Make sure last order counted
End If
'Display totals
lblTotalClients.Caption = mintTotalClients + 1
lblTotalIncome.Caption = FormatCurrency(mcurPrice) + mcurPrice
Else
MsgBox "No data to summarize", vbExclamation, "Summary"
End If

End Sub

When someone hits cmd Next Patron I need it to store the current totals and then add all the totals together for the cmd summary. How do I do that?

Thanks http://bbs.gofuckyourself.net/board/smile.gif
gg

------------------
Good Girls Swallow TGP
http://www.porn-candy.com/ggban1a.gif
Good Girls Clean Gallery List
Eraser Cash
Synergy Design & Technologies