Add bet to winnings

[Reaper~]

Code Select Expand


If frmAccount.lblWinning1.Caption = "$500" Then
Val (lblWinning1.Caption) + Val(txtBet.Text)
End If

If frmAcount.lblWinning1.Caption = "$300" Then
Val (lblWinning1.Caption) + Val(txtBet.Text)
End If

I tried that but I get a runtime error saying Object Required and it highlights

Code Select Expand


If frmAcount.lblWinning1.Caption = "$300" Then


[Hdx]

Code Select Expand

frmAcount.lblWinning1.Caption
Is that an object? a valid one?
And please keep all your help requests in one thread >.<
~-~(HDX)~-~

[Reaper~]

Code Select Expand

frmAcount.lblWinning1.Caption
Is that an object? a valid one?
And please keep all your help requests in one thread >.<
~-~(HDX)~-~

Guess not, but what would be the way to add it under one of the winning procedures?

Something like...

Code Select Expand


ElseIf (Val(txtNumber.Text) <= Val(lblNumber.Caption) + 5) And (Val(txtNumber.Text) >= Val(lblNumber.Caption) - 5) Then
MsgBox ("5 Away! $300 has been sent to your account!")
frmAccount.lblWinning1.Caption = "$300"
Val(frmAccount.lblWinning1.Caption) = Val(txtBet.Text) + "$300"

?

[NicoQwertyu]

Code Select Expand


frmAccount.lblWinning1.Caption = "$300"
Val(frmAccount.lblWinning1.Caption) = Val(txtBet.Text) + "$300"


There's a couple wierd things going on with that code.

Code Select Expand


Val(frmAccount.lblWinning1.Caption)
Val(txtBet.Text)


1.) Val() will always return 0 because it's including the dollar sign "$".
1a.) Fix it by leaving the first character of the caption out when calling Val.
1b.) Don't know how to do that? Google string manipulation in VB6.

Code Select Expand


Val(txtBet.Text) + "$300"


2.) Why are you trying to do numerical addition using a string?

[Reaper~]

Thanks for the tip on the dollarsign and I got it what I wanted to work by adding:

Code Select Expand


Public Function GetBet()
GetBet = Val(txtBet.Text)
End Function

Then I put 'GetBet' under..

Code Select Expand


frmAccount.lblWinning1.Caption = "$300" + GetBet

So, now it works
All I have to do is add a seperate dollarsign next to where the amount would go in frmAccount...

[Grok]

Actually, it looks like what was wrong with the original code was spelling of frmAccount.

[Stealth]

Use Option Explicit to avoid that happening again, and remember, the Tab key is your friend.

[R.a.B.B.i.T]

So are variables.