I made something very similar to this in Batch back in 2012. I've been working with console applications recently and I decided to see if I could remake it in VB. So here it is, I only did level one. The original I made in batch had 10 levels.
*Note: It's missing some try statements, meaning if an invalid charter is entered the program might crash.
Anyways, someone might find some use out of this. Have fun.
*Note: It's missing some try statements, meaning if an invalid charter is entered the program might crash.
Anyways, someone might find some use out of this. Have fun.
Code
Module Module1
Sub Main()
Game()
End Sub
Sub Game()
'Sets Title
Console.Title = "Trivia Master"
'Variables Start
Dim number As Integer = Nothing
'Variables End
'Clears any text in the console
Console.Clear()
'Main Menu
Console.WriteLine("Welcome to the home page!")
Console.WriteLine()
Console.WriteLine("1) Start Trivia Game")
Console.WriteLine("2) Info")
Console.WriteLine("3) Level List")
Console.WriteLine("4) Exit")
Try
number = Console.ReadLine
Catch ex As Exception
Main()
End Try
'Calls selected stub
If number = "1" Then
Trivia()
ElseIf number = "2" Then
Info()
ElseIf number = "3" Then
LevelList()
ElseIf number = "4" Then
End
Else
Console.Clear()
Main()
End If
Console.ReadLine()
End Sub
'START OF TRIVIA
Sub Trivia()
Console.Clear()
Console.WriteLine("Hello! I'm Trivia Bot, I'll be your Game host today!")
Console.WriteLine("Press enter to begin.")
Try
Console.ReadLine()
Catch ex As Exception
LevelOne()
End Try
LevelOne()
End Sub
Sub LevelOne()
Dim answer As Char = Nothing
Console.Clear()
Console.WriteLine("Welcome to level 1! Your first question is as follows")
Console.WriteLine("What is the fastest moving thing in the world?")
Console.WriteLine()
Console.WriteLine("A) Air Plane")
Console.WriteLine("B) Light")
Console.WriteLine("C) A Snail")
Console.WriteLine("D) A car")
answer = Console.ReadLine()
If (answer = "a") Or (answer = "A") Then
Console.Clear()
Console.WriteLine("Wrong!")
Console.WriteLine("Press enter to try again...")
Console.ReadLine()
Console.Clear()
LevelOne()
ElseIf (answer = "b") Or (answer = "B") Then
Console.Clear()
Console.WriteLine("Correct! The fastest moving thing in the world is Light.")
Console.WriteLine("Press enter to continue to the next level")
Console.ReadLine()
Leveltwo()
ElseIf (answer = "c") Or (answer = "C") Then
Console.Clear()
Console.WriteLine("Wrong!")
Console.WriteLine("Press enter to try again...")
Console.ReadLine()
Console.Clear()
LevelOne()
ElseIf (answer = "d") Or (answer = "D") Then
Console.Clear()
Console.WriteLine("Wrong!")
Console.WriteLine("Press enter to try again...")
Console.ReadLine()
Console.Clear()
LevelOne()
End If
End Sub
Sub Leveltwo()
Console.Clear()
Console.WriteLine("Welcome to level two. This is not coded yet.")
Console.WriteLine("")
Console.Write("Press enter to return to the main menu")
Try
Console.ReadLine()
Catch ex As Exception
Game()
End Try
Game()
End Sub
'END OF TRIVIA
Sub Info()
Console.Clear()
Console.WriteLine("A trivia game base in VB Console by Amuse")
Console.WriteLine()
Console.WriteLine("Press enter to return to the main menu")
Console.ReadLine()
Main()
End Sub
Sub LevelList()
Dim answer As Integer = Nothing
Console.Clear()
Console.WriteLine("This is a list of all levels")
Console.WriteLine("Type a levels number and press enter to jump to the selected level")
Console.WriteLine()
Console.WriteLine("1) Level 1")
answer = Console.ReadLine
If answer = "1" Then
LevelOne()
Else
Console.Clear()
Console.WriteLine("That is an invalid level")
Console.WriteLine()
Console.WriteLine("Press enter to continue")
Console.ReadLine()
LevelList()
End If
End Sub
End Module