Hi to you all Computer Expert
I need help in building a simple buy and sell game, what i am stuck on is to difficult but i know some of the guys in here are good at programming. So here it is:


1. I want to get the user to type something in a textbox which will be save as Integer and i want to use the variable for later calculation
What i did is this::

:exclamation
Module:
Public nUnit as String ' nUnit need to be integer'

Private Sub Form1_activate()
nUnit = Textbox.Text
End Sub

but it only work as string only.

2. As all of the buy and sell games must have money, I am stuck on a problem with calculation so here it is:
I have an option button which i want it to be click and calculated with user input numbers and display the result.

Operation must goes like this:
The user click on an option button and the user type in the number in a text box.
Now the user must click a button to process the calculation. This what i do but is wrong:

Module:
Public money as Single
Public nUnit as interger

Private Sub Form1_activate()
money = 200
End Sub


Private Sub Buy_Click()
If Option1.Value = True Then
money = money - (caliorg * nUnit)
backpack.Caption = caliorg & " " & nUnit & "Unit" #Note~ that caliorg is save Integer#
End If
End Sub
:exclamation
This did not work but can you tell me who to fix it please.

3.Why this type of function can only work ones:

Module:
Public days as Integer

Private Sub Form1_Activate()
days = 0
End Sub

Private Sub Sleep_Click()
days = days + 1
label.Caption = "Day " & days #Note~ this button only work once why :question
End Sub
I want it every time i clicked them it will update it every time so the number of days goes up by one.

4.How do i refresh every thing in a FORM ?
5.How do i creat a random number in VB

I hope this will be a easy answer for you Expert
Thank You


I guess no one here is an expert in programmingwish i could help but im no good with basicIt seem that every body can post some easy question but instead of answering some other question and helping people and this is no expert advice at all. I respec Flame GX1_Man Robpeomeroy Dl65 Sidewinder Fed because they actually no something but every one els is nothing but helpless sometime and all they do is add up there post cont WFT.
My question above I really need this to be answer because you cant fine it anywhere on the web
One question member, do you know anybody that is actually good at programming?
1. Replace the textbox with a Masked Edit Control (Project==>Components==>Microsoft Masked Edit Control). You'll be able to force the user to enter numerics into the control; also set it's length. Not sure why you're using the Activate event to get input. Usually you define a button control and use the _click event. Be sure to change nUnit to an integer.

2. By putting money= 200 in a subroutine you're creating a scope problem; code it inline in the module. caliorg is UNDEFINED...you may not have posted enough code.

3. I can't make out from your code what you're trying to do but I THINK days only has scope within the subroutine and reverts back to zero after the subroutine ends. Try making days a global field.

4. Not sure on this; you can always use the unload method on the form followed by the load method. Why WOULD you need to do this? FORMS are updated as the underlying data changes.

5. Use the rand() function.

Good luck. 8-)


Thanks You alot
I have a go at it i reply if i cant do somethingQuote

2. By putting money= 200 in a subroutine you're creating a scope problem; code it inline in the module. caliorg is undefined...you may not have posted enough code.

3. I can't make out from your code what you're trying to do but I think days only has scope within the subroutine and reverts back to zero after the subroutine ends. Try making days a global field.

4. Not sure on this; you can always use the unload method on the form followed by the load method. Why would you need to do this? Forms are updated as the underlying data changes.

5. Use the rand() function.

2 & 3: It's time to start debugging your code. Best way is to set a well placed breakpoint, run the job interactively and as soon as you hit the breakpoint, step into the code and see how the program runs and what values the fields take on. There seems to be some doubt that the _Activate event ever runs. The VB package has a very full and rich help function which should answer most of your questions.

5:
Code: [Select]Public Function Rand(ByVal Low As Long, _
ByVal High As Long) As Long
Rand = Int((High - Low + 1) * Rnd) + Low
End Function

I mistyped RND as RAND in my earlier post. Sorry for the confusion. It might also be wise to execute a RANDOMIZE instruction in the FORM_LOAD event to seed the random number generator.

8-)