Loading

How to Create a Local Revision Tool in Visual Basic

Submitted by: 
Language: 
Visitors have accessed this post 1416 times.


Introduction:
Welcome to my tutorial on how to create a Revision Tool program in Visual Basic.

Steps of Creation:
Step 1:

First we need to create a form with...

button1 - add a new question and answer
textbox1 - contain a new question
textbox2 - contain a new answer
textbox3 - contain answer to current question
button2 - begin revision
button3 - check answer
label1 - contain current question.

We also want to create a few variables, they are all self explanatory.

  1. Dim question As New List(Of String)
  2. Dim answers As New List(Of String)
  3. Dim curPos As Integer = -1
  4. Dim rand As New Random

Step 2:
Next we want to create a couple of custom functions. One will simply randomly select the next question to test the user on. The other will check the answer.

  1. Private Function checkAnswer()
  2. If (TextBox3.Text.ToLower() = answers(curPos).ToLower()) Then
  3. MsgBox("Correct!")
  4. Else : MsgBox("Wrong! The right answer is: " & answers(curPos))
  5. End If
  6. End Function
  7. Private Function setNewQuestion()
  8. Dim r As Integer = curPos
  9. Do Until Not r = curPos
  10. r = rand.next(question.Count())
  11. Loop
  12. curPos = r
  13. Label1.Text = question(curPos)
  14. End Function

Step 3:
For the button1 click event action we want to add the new question and answer to our lists...

  1. question.Add(TextBox1.Text)
  2. answers.Add(TextBox2.Text)

Step 4:
The button1 click event action will begin the revision which will lock our add new question and answer controls and select the first question using our custom function setNewQuestion.

  1. If (question.Count() > 0) Then
  2. TextBox1.Enabled = False
  3. TextBox2.Enabled = False
  4. TextBox3.Enabled = True
  5. Button3.Enabled = True
  6. Button1.Enabled = False
  7. Button2.Enabled = False
  8. setNewQuestion()
  9. End If

Step 5:
Finally, the button3 click event action will check the given answer to the current question and select a new question to test next.

  1. checkAnswer()
  2. setNewQuestion()

Project Complete!
Below is the full source code and download to the project files.

  1. Public Class Form1
  2. Dim question As New List(Of String)
  3. Dim answers As New List(Of String)
  4. Dim curPos As Integer = -1
  5. Dim rand As New Random
  6. Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
  7. question.Add(TextBox1.Text)
  8. answers.Add(TextBox2.Text)
  9. End Sub
  10. Private Function checkAnswer()
  11. If (TextBox3.Text.ToLower() = answers(curPos).ToLower()) Then
  12. MsgBox("Correct!")
  13. Else : MsgBox("Wrong! The right answer is: " & answers(curPos))
  14. End If
  15. End Function
  16. Private Function setNewQuestion()
  17. Dim r As Integer = curPos
  18. Do Until Not r = curPos
  19. r = rand.next(question.Count())
  20. Loop
  21. curPos = r
  22. Label1.Text = question(curPos)
  23. End Function
  24.  
  25. Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
  26. If (question.Count() > 0) Then
  27. TextBox1.Enabled = False
  28. TextBox2.Enabled = False
  29. TextBox3.Enabled = True
  30. Button3.Enabled = True
  31. Button1.Enabled = False
  32. Button2.Enabled = False
  33. setNewQuestion()
  34. End If
  35. End Sub
  36.  
  37. Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
  38. checkAnswer()
  39. setNewQuestion()
  40. End Sub
  41. End Class



Note: Due to the size or complexity of this submission, the author has submitted it as a .zip file to shorten your download time. After downloading it, you will need a program like Winzip to decompress it.

Virus note: All files are scanned once-a-day by SourceCodester.com for viruses, but new viruses come out every day, so no prevention program can catch 100% of them.

FOR YOUR OWN SAFETY, PLEASE:

1. Re-scan downloaded files using your personal virus checker before using it.
2. NEVER, EVER run compiled files (.exe's, .ocx's, .dll's etc.)--only run source code.

Add new comment

(If you're a human, don't change the following field)
Your first name.
(If you're a human, don't change the following field)
Your first name.
(If you're a human, don't change the following field)
Your first name.

Filtered HTML

  • You may insert videos with [video:URL]
  • You can enable syntax highlighting of source code with the following tags: <code>, <blockcode>, <asp>, <c>, <cpp>, <csharp>, <css>, <html4strict>, <java>, <javascript>, <mysql>, <php>, <python>, <sql>, <vb>, <vbnet>. The supported tag styles are: <foo>, [foo].
  • Lines and paragraphs break automatically.

Plain text

  • No HTML tags allowed.
  • Lines and paragraphs break automatically.