timers for a math quiz

[lee123]

i'm new to visual been working on access databases for a while but i would like to create a basic math quiz form to where it has a timer on the bottom to time a certain time and at the end of the time it flashes "times up" and the person taking the quiz is giving a "incorrect' msgbox or a "correct" msgbox response and then the "correct" answer.. this is a prodject for my kids for school i would appriciate anyone who has kids to help me with this one. thank you!!!

[Killer42]

i'm new to visual been working on access databases for a while but i would like to create a basic math quiz form to where it has a timer on the bottom to time a certain time and at the end of the time it flashes "times up" and the person taking the quiz is giving a "incorrect' msgbox or a "correct" msgbox response and then the "correct" answer.. this is a prodject for my kids for school i would appriciate anyone who has kids to help me with this one.

Can you be a bit more specific about what part of this task you need help with?

And are you writing this in Access VBA, or standalone Visual Basic? Which version?

[lee123]

I'm using visual basic 6 acually i want to make this. but don't know how to approch this it would be cool to do. well it could look like this



1- have a start button on top
2- have three text boxes underneath the start button, one for number 1
the next text box for number two, the third box for the answer
on the bottom have text boxes for how many answers right
and how many answers wrong.
4- a check button
5 a timer with a certain time like (60 sec)
6when times up have it say "times up"


well if u can help me that would be great. i could put the text boxes in there but for the codes no i wouldn't now what to put. i just need the codes.

[willakawill]

You can use a timer. Set the interval to a minute and the ontimer event will pop up your message... "too late c: drive deleted" or something friendly like that :)

[lee123]

well what i need is how to set up the timer in the code box and what to put in the code box example when i push the start button i want it to display random numbers in the two text boxes and start the timer so when the person has the two problems he can type in a answer in the answer box and press check to see if he is correct or incorrect with the msgboxes then give the right answer
the moral is to see how many questions they can get right in 60sec. or 120 sec

[willakawill]

Excellent. Let us know how you are getting on with it, and if you get stuck at some point come back and show us how far you have got with the code.

[lee123]

well i got the numbers to answer incorrect or correct but how do you get it to display when the person gets it right to put how many answers he got in the correct box or incorrect box Whatis the code for this and how do I get teh timer to work on the bottome when they press the start button

[Killer42]

well i got the numbers to answer incorrect or correct but how do you get it to display when the person gets it right to put how many answers he got in the correct box or incorrect box Whatis the code for this and how do I get teh timer to work on the bottome when they press the start button

In the start button's click event, set the Enabled property of the timer to True.

[lee123]

you know it is, still nothing may be i'm not getting the answers i need because i keep asking how i would set up the code but no one seems to know how to. is there somewhere or someone you can direct me to to help me get this thing working because so far i got

IN THE STATRBUTTON

number1 = int(rnd*10+1)
number2 = int(rnd *10 +1)

IN THE ANSWERCHECK

dim answer as integer

answer = val(number1) + val(number2)
if answer = useranswer then
msgbox "correct"
else
msgbox "incorrect the correct answer is." & answer
end if

you see all of this works but the timer (textbox) i have on the bottom
of the quiz has nothing so when i click the start button only the
number1 & number2 and answer is working so how can i get the timer to display
in the right (text) box i have made for it to work. because there is nothing in there its blank....

[willakawill]

What do you want to put in your textbox when you click the start button?

[lee123]

well first off i want to put how many answers they got "right" in the correct box and how many they got "wrong" in the incorrect box but thats not all i need to know how i can put a timer on the bottom to time them how would i do that....

[willakawill]

well first off i want to put how many answers they got "right" in the correct box and how many they got "wrong" in the incorrect box but thats not all i need to know how i can put a timer on the bottom to time them how would i do that....

You didn't answer my question

[lee123]

the timer that gives the person (60 seconds) or someother time

[Killer42]

the timer that gives the person (60 seconds) or someother time

The timer doesn't go in the button. It's a separate control on the form. And to quote myself earlier in the thread... In the start button's click event, set the Enabled property of the timer to True.

[lee123]

well in my previous threads i said it was set to true but still nothing so there is something else wrong that im doing or im not understanding what your saying
for example when i click on my start button (not in run mode), either:

1 i look in the property box ( in the start button) and find the "enabled" because it only answers True, or false . right
or.......
2- click on the timer box, which i have and looked in the property box and checked to see if the "enabled " was set to true and it also is.

my timer and start button are separate i thought when i would click on the start button the timer would begain so i thought i could stick a code (in the start button) to make the timer start,,,but if there is something else i could do then tell me or if im doing this all wrong then tell me

[willakawill]

Me.Timer1.Interval = 1500 'one and a half secs
Me.Timer1.Enabled = True

When you enable the timer it counts the time that you have told it to and then raises a timer event

Private Sub Timer1_Timer()
   Me.Label1.Caption = "Time's up. You're done"
End Sub

[lee123]

well i put the code in like this

me.timer1.interval = what ever i put the number as ( p.s ) i haven't put the second code in yet i wanted to see if this work before i did.

when i put (me.) a window pops up so i know that is working
when i put (timer1) a window pops up and thats working

but....

when i start putting (interval) in guess what? a window doesn't pop up the word (interval) isn't on the list so there is something wrong here this is so difficult im going insane here. this is what i have on my form:

1- 1button named (startbutton)
2-three txtboxone named (number1) the next txtbox named (number2) the third txtbox named ( useranswer)
3 one button named (answercheck)
4- 1 txtbox named (txtcorrect)
5- 1 txtbox named (txtincorrect)
6- 1 txtbox named (timer1)


so there it is in a nutshell where is my problem. did i not name my txtboxes right or is there something im missing that you can tell

[willakawill]

You don't have a timer control on the form?

[lee123]

well that worked but can't you see the time counting down in a txtbox or is this to far fetched to do or is there somother way to do it

[lee123]

like a digital timer

[prasadvb]

Write this code for setting the timer to work:(Double click Timer icon & write inside it): code looks something like this....

Private Sub Timer1_Timer()
    var = var + 1
    Text1.Text = Date      
    Text1.Text = Time
End Sub

Important things are: (1)Declare "var" used in timer block as integer in the General section i.e. at the beginning of code window.
(2)Set the Timer Interval in the Timer property to 1000.
(3)Text1.Text = Date gives Date (Where Text1 is name of first text box)
Text1.Text = Time gives Time
Text1.Text = Now gives both Date & Time (Use this if you need both in single text box).
If you do this you should get the right answer.....Let me the progress.

you know it is, still nothing may be i'm not getting the answers i need because i keep asking how i would set up the code but no one seems to know how to. is there somewhere or someone you can direct me to to help me get this thing working because so far i got

IN THE STATRBUTTON

number1 = int(rnd*10+1)
number2 = int(rnd *10 +1)

IN THE ANSWERCHECK

dim answer as integer

answer = val(number1) + val(number2)
if answer = useranswer then
msgbox "correct"
else
msgbox "incorrect the correct answer is." & answer
end if

you see all of this works but the timer (textbox) i have on the bottom
of the quiz has nothing so when i click the start button only the
number1 & number2 and answer is working so how can i get the timer to display
in the right (text) box i have made for it to work. because there is nothing in there its blank....

[willakawill]

You might want to add:

Private Sub Timer1_Timer()
    var = var + 1
    Text1.Text = var & " secs"
    If var = 60 Then
        Timer1.Enabled = False
         var = 0
         Text1.Text = "Time Up!"
    End If
End Sub

[Killer42]

Private Sub Timer1_Timer()
    var = var + 1
    Text1.Text = Date      
    Text1.Text = Time
End Sub

I just hope the OP doesn't copy this code exactly, and expect both date and time in Text1.

[willakawill]

I just hope the OP doesn't copy this code exactly, and expect both date and time in Text1.

OP did not ask for date. Don't know why there would be a date there. This code gives a count of seconds which was what he asked for. Should be able to figure out the rest.

[Killer42]

OP did not ask for date. Don't know why there would be a date there. This code gives a count of seconds which was what he asked for. Should be able to figure out the rest.

It also puts the date in a textbox, then immediately overwrites it with the time. A lot of newbies will expect to see both date and time in the textbox. This idea that putting things in a variable concatenates rather than replacing seems fairly common in the less experienced.

[willakawill]

It also puts the date in a textbox, then immediately overwrites it with the time. A lot of newbies will expect to see both date and time in the textbox. This idea that putting things in a variable concatenates rather than replacing seems fairly common in the less experienced.

I got a bit lost on what you were saying. There is no date in the code snippet that I posted. Of course the code posted with the date and then the time is pointless.

[lee123]

well i'll try what you said and thanks for the help

[Killer42]

...There is no date in the code snippet that I posted...

Never said there was. It was in prasadvb's post.