Module counter / calculating between forms

Hello. this is my 3rd post about the same project in one day :( anyways, I have a program which i have made for a term project that is due Tuesday January 23rd :S

The program is based on the game show "Deal or No Deal". As some of you may be aware the game show consists of 26 cases with different values in each case ranging from 0.01 to 1 million dollars. I am currently working on perfecting my randomization function on another forum ( randomizing array WITHOUT REPEAT) as well as another forum involving the user selecting
their case (if statement dilemma involving command buttons). Now there is only two main thing for me to cover. And they are the rounds of the game (Module counter) and generating an offer (calculating between forms)

For the purpose of my program i need to use a module to keep count of the rounds of my game. As many of you may have seen on the gameshow, "Deal or No Deal" the game is split up into rounds.

they operate as follows in this chart
Round Setup
round 1 = 6 cases are opened and then offer is generated
round 2 = 5 cases are opened and then offer is generated
round 3 = 4 cases are opened and then offer is generated
round 4 = 3 Cases are opened and then offer is generated
round 5 = 2 cases are opened and then offer is generated
round 6 = 1 case is opened and then offer is generated
round 7= 1 case is opened and then offer is generated
round 8 = 1 case is opened and then offer is generated
round 9 = 1 case is opened and then offer is generated
round 10 = User allowed to swap their case with remaining case

What i need to do, is every time a case is chosen (case command button is clicked) a count is added to the module counter. When the counter reaches 6
the user is shown their offer, and if they accept the game is over, if not they continue. now they choose 5 cases at the end of which they are prompted again with another offer, and this process continues according to the Round Setup i posted above.


On another note i need to generate an offer. The calculations to formulate the offer is simple, coding it is the hard part. All you do is start off with the combined total of all the case values together ( $3,418,416.01) and as you open the cases you subtract the value of each case from the overall total. When it comes time to generate an offer (after opening 6 cases for instance) The new total ( $3,418,416.01 - values of all cases chosen to that point) is then divided by the number of remaining cases left in play. If the user denies the offer, the number is set back to before it was divided, and the subtraction of cases continues until the next round is over (5 cases chosen). The new total after round 2 is then divided by the remaining number of cases. This cycle continues until the user either excepts the offer, ending the game, or takes their case. Now that you understand the formula of generating an offer let me now briefly explain how i need it to work.

When a case command is clicked it opens up a "Caseval" form that displays a randomized value for that case in a text box. (the value of the case was pre- determined when the form loads and the command button merely makes "Caseval" visible and it's form "Formcases" invisible) What i need to do is subtract this randomized value from the overall value. The overall value ($3,418,416.01) is stored in a text box in the form "Calculator". Then display the answer in a text box on the form "Money" .Within the Money form i would divide the value of the textbox by the remaining number of cases. obviously for the program to subtract values it has to recognize the characters as numerical values so i would string them as values in my module "DealGenerator"

My project is too big to zip to the forum (contains bitmaps) but here is some of the code if generated so far.

This is code from my opening form that contains all my cases

VB Code:

Private Sub Case1_Click() ' this code is the same for all 26 cases
Formcases.Visible= False   
Caseval.Visible = True          '  where i add one to counter (not sure how)
Case1.Visible = true
 
 
Private Sub Form_Activate()  ' random function (working on abolishing repeats)
Dim Mnyval(25) As String
    Dim CaseCollection As New Collection
    Dim intRand As Integer
    Mnyval(0) = "0.01"
    Mnyval(1) = "1"
    Mnyval(2) = "5"
    Mnyval(3) = "10"
    Mnyval(4) = "25"
    Mnyval(5) = "50"
    Mnyval(6) = "75"
    Mnyval(7) = "100"
    Mnyval(8) = "200"
    Mnyval(9) = "300"
    Mnyval(10) = "400"
    Mnyval(11) = "500"
    Mnyval(12) = "750"
    Mnyval(13) = "1000"
    Mnyval(14) = "5000"
    Mnyval(15) = "10000"
    Mnyval(16) = "25000"
    Mnyval(17) = "50000"
    Mnyval(18) = "75000"
    Mnyval(19) = "100000"
    Mnyval(20) = "200000"
    Mnyval(21) = "300000"
    Mnyval(22) = "400000"
    Mnyval(23) = "500000"
    Mnyval(24) = "750000"
    Mnyval(25) = "1000000"
 
    
    On Error Resume Next
 
    
    Randomize
    Do Until CaseCollection.Count = UBound(Mnyval) + 1
        intRand = Int(Rnd * (UBound(Mnyval) + 1))
        CaseCollection.Add Item:=CStr(intRand), Key:=CStr(intRand)
    Loop
    
    For intRand = 1 To CaseCollection.Count
        Caseval.Text1.Text = Mnyval(CaseCollection.Item(intRand))
    Next
 
End Sub

This is code from my Caseval form where all the randomized values are displayed.

VB Code:

Dim cnt As Integer
 
Private Sub CmdOK_Click()
 
Scoreboard.Visible = True
Caseval.Visible = False
Scoretime.Enabled = True
cnt = 0
If Text1.Text = "0.01" Then
Scoreboard.Label1.BackStyle = Transparent
ElseIf Text1.Text = "1" Then
Scoreboard.Label2.BackStyle = Transparent
ElseIf Text1.Text = "5" Then
Scoreboard.Label3.BackStyle = Transparent
ElseIf Text1.Text = "10" Then
Scoreboard.Label4.BackStyle = Transparent
ElseIf Text1.Text = "25" Then
Scoreboard.Label5.BackStyle = Transparent
ElseIf Text1.Text = "50" Then
Scoreboard.Label6.BackStyle = Transparent
ElseIf Text1.Text = "75" Then
Scoreboard.Label7.BackStyle = Transparent
ElseIf Text1.Text = "100" Then
Scoreboard.Label8.BackStyle = Transparent
ElseIf Text1.Text = "200" Then
Scoreboard.Label9.BackStyle = Transparent
ElseIf Text1.Text = "300" Then
Scoreboard.Label10.BackStyle = Transparent
ElseIf Text1.Text = "400" Then
Scoreboard.Label11.BackStyle = Transparent
ElseIf Text1.Text = "500" Then
Scoreboard.Label12.BackStyle = Transparent
ElseIf Text1.Text = "750" Then
Scoreboard.Label13.BackStyle = Transparent
ElseIf Text1.Text = "1000" Then
Scoreboard.Label14.BackStyle = Transparent
ElseIf Text1.Text = "5000" Then
Scoreboard.Label15.BackStyle = Transparent
ElseIf Text1.Text = "10000" Then
Scoreboard.Label16.BackStyle = Transparent
ElseIf Text1.Text = "25000" Then
Scoreboard.Label17.BackStyle = Transparent
ElseIf Text1.Text = "50000" Then
Scoreboard.Label18.BackStyle = Transparent
ElseIf Text1.Text = "75000" Then
Scoreboard.Label19.BackStyle = Transparent
ElseIf Text1.Text = "100000" Then
Scoreboard.Label20.BackStyle = Transparent
ElseIf Text1.Text = "200000" Then
Scoreboard.Label21.BackStyle = Transparent
ElseIf Text1.Text = "300000" Then
Scoreboard.Label22.BackStyle = Transparent
ElseIf Text1.Text = "400000" Then
Scoreboard.Label23.BackStyle = Transparent
ElseIf Text1.Text = "500000" Then
Scoreboard.Label24.BackStyle = Transparent
ElseIf Text1.Text = "750000" Then
Scoreboard.Label25.BackStyle = Transparent
ElseIf Text1.Text = "1000000" Then
Scoreboard.Label26.BackStyle = Transparent
End If
 
 
End Sub
 
Private Sub Form_Load()
Scoretime.Enabled = False
 
 
End Sub
 
Private Sub Scoretime_Timer()
cnt = cnt + 1
If cnt = 1 Then
Scoreboard.Visible = False
FormCases.Visible = True
 
End If
End Sub
End Sub

This is the module code i have created so far, however it doesn't seem to work

VB Code:

Dim z As Double, s As Double, r As Double
 
Public Sub Offercalc()
 
    z = Val(Calculator.Calc.Text)
    Calculator.Calc.Text = Str(z)
    
    r = Val(Money.Offer.Text)
    Money.Offer.Text = Str(r)
    
    s = Var(Caseval.Text1.Text)
    Caseval.Text1.Text = Str(s)
r = z - s
Money.Offer.Text = r
End Sub

First off, Thanks even for reading all of this. Secondly i know its alot to take in but i need as much input as i can get for this term project as it is worth a HUGE portion of my mark and it is due on TUESDAY JAN 23

please dont take me as being a procrastinator who calls for help when they are rushing to finish. I have spent a huge amount of time just figuring out the complex vb script to write this program, seeing as i am learning Vb script for the first time this year in school. HELP is MUCH appreciated. Thank you all

What are you trying to do with the following?

z = Val(Calculator.Calc.Text)
Calculator.Calc.Text = Str(z)

Calculator is an invisible form that is used to subtract the selected values from the overall total. Within this textbox is the overall value at the beginning of the game ($3,418,416.01). What i need to happen is , that when a random case value is inputed into my Caseval form Textbox it is subtracted from this total. I attempted at doing this by subtracting the value in the text (s) from the value in the text box of my Calculator form (z)

also let me post my new and improved code with the proper working randomize function

Please give me an example of values for z, r and s and what you would expect the result to be.

well first off. i dont think i need the calculator form because i can prob do the calculations using only two textboxes.
This is the equation i wnat to occur (edited to add the other one)

r = z - s

n = r - s

z= $3,418,416.01

ex. s= 10,000 (one of the case values)

ex. r= $3,418,416.01 - 10,000 = $3,408,416.01

ex . r ($3,408,416.01) - 5,000 = $3,403,416.01

ex. n ($3,403,416.01) - 200 = $3,403,216.01

cycle continues

z would be the beginning total $3,418,416.01 and s would be the value of case chosen. r would be the new number formed from this equation. i would then need s to be subtracted from r when another value was chosen. this subtraction of values would have to repeat 6 times ( round 1 complete) and an offer would be generated the equation for the offer being : current total ($3,418,416.01-amount of cases chosen to that point) divided by the number of remaining cases (20). if they accept the offer ("Deal") the game ends . if they decline the offer current total would go back to what it was before the division and the game would continue on and this time 5 cases would be chosen and the equation would repeat again: current total ($3,418,416.01-amount of cases chosen to that point) divided by the number of remaining cases (15). if they decline the offer again the game continues and this time they select 4 cases and this cycle continues (reference to my chart on my first post showing the amount of cases picked each round).

i hope you now understand what i wish for this to do.

Too much information :) Let's try something simple. What am I doing wrong here in this simplified code?

VB Code:

Dim z As Double, s As Double, r As Double
 
    z = 3418416.01
    
'    r = ???
    
    s = 10000
 
r = z - s
 
MsgBox FormatCurrency(r) ' which is $3,408,416.01

well from what i can tell.

FormatCurrency isnt declared

r doesnt have a value

z, r, s arent strung as values (not to sure about that)

and possibly nothing is activating the r = z -s (command button, etc.)

FormatCurrency isnt declared ==> Do you use VB6?

r doesnt have a value ==> Aren't we calculating r?

z, r, s arent strung as values (not to sure about that) ==> for the purposes of my example it shouldn't matter

and possibly nothing is activating the r = z -s (command button, etc.) ==> Ditto

using vb 5.0 :(

That's okay,

MsgBox Format(r, "Currency")

will do the same thing.

so if i put the

r = z - s into a command button it would work the equation would calculate?

Yes.

Is there another way i can send you my project so i can send a bigger zipped file. If you see my program you can understand what im trying to do

Quote:

---

Originally Posted by koolnewb

Is there another way i can send you my project so i can send a bigger zipped file. If you see my program you can understand what im trying to do

---

How big is it when it is put in zip or rar format?

548 kb

548 kb

Out of curiosity, why is it that big?

Bitmaps in my forms and command buttons

How about breaking it into multiple attachments?

k ill do that. heres first part

this is part 2

Okay I've downloaded both parts. When I ran it I found a few things that I would change if it were my program.

• The blue text against the yellow/brown bitmap is hard to read so I'd make it some other color, and
• I would change "Input, into the Text box Number of the Case you wish to be Yours" to something like "Please enter the Case (1 to 26) you wish to be yours", and
• validate the in fact the user enters a number between 1 and 26

But you probably want me to help fix problems you already know about :) so please tell me exactly (with specific numbers, button clicks, etc.) what it takes to produce a wrong result, what that result is, and what it should be.

very good tips. i wanna keep the bitmap because it is the deal or no deal background, but i think im gonna change it.

Well as you saw in my program. When you click a case it sends you to a new form where the value of that case is displayed. and there is a command button entitled "OK" upon pressing this command button would be when the calculations are made. The number in the text box above it (the case value) would be subtracted from the overall total (3418416.01). THen the scoreboard appears and then it returns to the main form. the user clicks another case. they are sent to the caseval you form again. THe value of their case is displayed in the text box. THey press OK and the number in the text box is subtracted from the new total ( 3418416.01 - the value of the first case) scoreboard appears and then returns back to main form. This cycle continues. When 6 cases are open the current total (3418416.01
- the 6 case values) is divided by 20 (the number of remaining cases) creating the first offer which is displayed in the form entitled "Money" . if they accept the offer the game ends. If not the game continues and the user picks 5 cases this time. This cycle follows this order:

round 1. 6 cases till offer is generated
round 2. 5 cases till offer is generated
round 3. 4 cases till offer is generated
round 4. 3 cases till offer is generated
round 5. 2 cases till offer is generated
round 6. 1 cases till offer is generated
round 7. 1 cases till offer is generated
round 8. 1 cases till offer is generated
round 9. 1 cases till offer is generated
round 10. They take the value of their case.

I am currently working on the writeup for this project. My teacher said hed help me with this problem at school but your input would be extremely helpful. I will definatly use those tips you gave me

and again THanks for all you help throughout this weekend

I'm sorry but you still haven't said what that result is, and [particularly] what it should be.

well, with the code i have set up in the program i sent you

the result.. is nothing

nothing happens

the calculations arent made

and it doesnt recognize when a round is over

Most of the code i set up for this is in my module. I think the problem lies there. For some reason the code doesnt execute

the result i wish to happen is what i explained in my last post. For the value of the case (displayed in the Form "Caseval") to be subtracted from the overall total (3418416.01). after 6 casevalues were subtracted from the total it would be divided by the number of remaining cases.. and so on according to my last post.

Well you never call Offercalc.

sorry I am currently busy studying for exams. My teacher is planning to help me out after his exam so if i figure this problem out completely i will submit the answer on this forum

Id also like to thank you Martin very much for you help this past week

You're welcome, however before you show your code to your teacher you should find a place to call your Offercalc procedure.

well i already had to submit it today (teacher will help me after his exam on friday), but for future reference i am not entirely sure how i would go about doing that and where i would input the code.

thank you