[Rutter]

I am currently tring to write code for a simple maths project, but I am having amazing difficulty trying to remember some of the stuff I learnt in VB when I last studied it, many moons ago (last year actually!).

My problem is I am trying to calculate how many unsucessful attempts have been made a question bfore getting it right.

I thought I could keep track of this by just using y=y+1 stating y as an variable at the begining, but all this does is add from 0 to 1. I have posted my code below and highlighted this problem in red.

My second problem is in trying to find out if the question is right from an answer entered into a text box. I orginally developed the programme to check the answer entered into the text box against the answer which was placed in a label caption.

I then thought, there is no need for that I should be able to just check the text against the Dim variable 'total', this just produces a permenantly wrong answer! This is highlighted in green .

Has anyone got any ideas?

Any Help greatly appreciated
Rutter
________________________________________________________________

Private Sub Form_Load()
Dim x, y, z, total, temp
Dim number1, number2 As Double
Label4.Caption = y
Call NewQ

End Sub
-------------------------------------------------------------------------

Private Sub Command2_Click()
If Text1.Text = total Then
Randomize
z = Int(((4 - 1 + 1) * Rnd) + 1)
If z = 1 Then
MsgBox "Very Good!", vbOKOnly, "MathsTutor"
ElseIf z = 2 Then
MsgBox "Nice Work!", vbOKOnly, "MathsTutor"
ElseIf z = 3 Then
MsgBox "Brilliant!", vbOKOnly, "MathsTutor"
ElseIf z = 4 Then
MsgBox "Excellent!", vbOKOnly, "MathsTutor"
End If
y = 0

Call NewQ

ElseIf Text1.Text = "" Then
MsgBox "Please Enter A Number", vbOKOnly, "MathsTutor"
y = y + 1

Else:
MsgBox "Sorry Wrong Answer!", vbOKOnly, "MathsTutor"

End If
Text1.Text = ""
y = y + 1
Label4.Caption = y
End Sub

[Mosaic1]

Without going into a lot of detail, I would think you would need to remember that a variable and its new data is not remembered or accessible after a particular event is over unless you declare it with a greater scope.

[Rutter]

Sorry not really understanding, how do I decale a variable with greated scope? I presume by this you mean that I need to have VB remember both the variables each time they change . .

Thanks Rutter

[Rutter]

Managed to solve my problem, just in case anyone wanted to know -

I had to declare my variables at the Command1_click event as static variables.

Didn't manage to work out ehy but it works!

[Mosaic1]

This is what scope means. By declaring as Static, the changes in the variable are carried over and available as changed the next time you click. Otherwise they would go back to their original value.

[Rutter]

Yeah, I got it, just while your on the subject or variables, I need to declare a variable that counts up from 0 to how ever many record there are in my text file, then goes back to 0 after the last file, because at the moment when I'm viewing my records they just keep gong up and up.

The problem I have is I need that value to be stored even when the program isn't running, so next time it starts up it can write the next record to the next avaliable space

[Mosaic1]

After you read the last one, reset. Do you have the code for how you are currently doing this?
If you want to store something, you can either store a number in a text file or preferably the registry. Write some code to retreive that variable when you need it and to reset it when you need to do that.