VB Forum / General / July 2004

See my other reply, it too would be work, but for the short type
of answers in the game, could be made to work....

I forgot to add the dice in the answers string:

40 - 2 two double | 40 - 6 6's six sixes | 20 - die dice

<g>
LFS

Try this... start a new project and add 2 checkboxes; set the Style property
to Graphical for both of them (which makes them look like command buttons).
Paste in this code and watch the immediate window as you run it.

Private Sub Check1_Click()
If Check1.Value = vbChecked Then
 Debug.Print "correct"
 Check1.Value = vbUnchecked
End If
End Sub

Private Sub Check1_KeyUp(KeyCode As Integer, Shift As Integer)
If KeyCode = 13 Then Check1.Value = vbChecked
End Sub

Private Sub Check2_Click()
If Check2.Value = vbChecked Then
 Debug.Print "incorrect"
 Check2.Value = vbUnchecked
End If
End Sub

Private Sub Check2_KeyUp(KeyCode As Integer, Shift As Integer)
If KeyCode = 13 Then Check2.Value = vbChecked
End Sub

Private Sub Form_Load()
Check1.Caption = "&Correct"
'Check1.Style = vbButtonGraphical
Check2.Caption = "&Incorrect"
'Check2.Style = vbButtonGraphical
End Sub

"Top Spin" <ToppSpin@hotmail.com> wrote

You did not say what type of drill it was for.  Your original example was
Trivial Pursuit and that could be multiple choice, and a drill for fun.

If it were a requirement to parse the user answer for correctness, and
the user's score mattered in some tangable (real world) way, (Like a
written driver's test) then I would set up the questions so that short
answers are possible (but not required).

You could then include a string of words to look for in the user's
answer, and give the user points for having included those words.
Each question would have its associated answers list, and you could
set a cutoff value for how many points are required for the user to
get credited as being correct.

For your boxcars example:

40 - 2 two double | 40 - 6 6's six sixes

if you find any one of the first group (2, two double)  you award 40 points,
if you find any one of the second group, you award another 40 points.

Now the user answers "2 sixes" so you parse the answer out and compare
the users list of words, with the answer list.  

The user gets a point value of 80.  If you set your cutoff at 60 points, you
report to the user they credit for the answer because their anwser contained
(and repeat the words you found "2 sixes").  If the user falls short, you should also
add a place for the user to contest the results, for them to give a reason why
their anwer is correct.  If it really matters that they pass, you don't want them
marking their own scores, and if it really matters, someone should be checking
the results, and in this case they can limit themselves to reading the contested
questions and answers and decide if the user should get credit.

But, if you are willing to let the user choose their own score, I can't imagine
the test results matter in any real way.....

LFS