11 replies to this topic

[verion24]

Hi everyone,

I am making a quiz program in Visual Basic 6.0, where the question is answered in a text box, and, if correct, a certain number of marks is added to the displayed score as you go. However, i am confused about what coding for this needs to be done, and what the scored is displayed in (a label perhaps?). So, I ask, could someone give me so example code so i get the idea how to approach this? I know its a amatuer question, but I am having trouble getting my head around what coding to use in certain situations ('if' statements, calculations, etc). Also, could someone give me a good site to learn about this stuff? Also, hints, tips are appreciated.

Many Thanks in advance, I appreciate your help

[verion24]

Hi there thanks for your help.

All questions are on the one form, and are shown in labels. When a user enters the correct answer in the textbox, below the label, I would like the score displaying label to add a certain number of marks, depending on the difficulty of the question. The score doesn't need to be added up at the end, just as-you-go. There will only be one correct answer in each question. The only objects that i assume require coding are the textbox, and the scoring label (and of course the 'exit' button, and one to return to the main menu, but I worked that out). If you could help, that would be great.

[verion24]

Hi there. I found out from another source that an 'if' statement is required. This is what i have done so far for the first question:

Private Sub txtquestion1_Change(Index As Integer)
If txtquestion1.Text = Beijing Then
lblscore.Caption = Format(txtquestion1.Text + 1)
End If
End Sub

The code does not work. The answer is beijing, and i am attempting to make the label add 1 mark if the answer is correct. Is the third line what you call a calulcation?

Thanks

[o0TheNerd0o]

You need an "If" statement only to check if the answer is correct. Example:

Dim strAnswer as String
Dim intScore as Integer

strAnswer = Text1.Text

If strAnswer = "Beijing" then
intScore = intScore + 5 'marks given for particular question
Label1.Caption = "Current score is: " & intScore
End If

[TcM]

o0TheNerd0o said:

You need an "If" statement only to check if the answer is correct. Example:

Dim strAnswer as String
Dim intScore as Integer

strAnswer = Text1.Text

If strAnswer = "Beijing" then
intScore = intScore + 5 'marks given for particular question
Label1.Caption = "Current score is: " & intScore
End If

This one should work just fine. But I think that if you enter beijing instead of Beijing then it would be marked as wrong.

[o0TheNerd0o]

then convert to all lower case using the LCase() function.

If LCase(strAnswer) = "beijing" Then

It will convert the entire string into lower case characters. You can also use th UCase() function which does the opposite. And another sugggestion, why not make the quiz multiple choice? That would solve your upper/lower case problem too.

[TcM]

And will even make easier the coding and the user to answer the quiz.

[o0TheNerd0o]

When building end-user applications... The less they have to do or worry about, the better. If they're concerned with upper or lower case, it becomes a headache for the user. Simple things like this will make your applications more user friendly.

[TcM]

The trick in having an application a success or failure is all in the GUI and user-friendliness. Take Windows as an example!

[o0TheNerd0o]

Didn't I just say that in the previous post? Lol!