I am trying to make a console application that when you press the number for the planet it displays its info, but i can't get it to display the info?
Code:
Module Module1
Sub Main()
Dim menuSelection As Integer
DisplayMenu(menuSelection)
Select Case menuSelection
Case 1
Mercury()
Case 2
Venus()
Case 3
Earth()
Case 4
Mars()
End Select
End Sub
Private Sub Mercury()
Console.WriteLine(" ------------------------------- ")
Console.WriteLine("Mercury:")
Console.WriteLine("Average Distance from the Sun: 57.9 million kilometers")
Console.WriteLine("Mass: 3.31 x 10^23 kg")
Console.WriteLine("Surface Temperture: -173 to 430 degrees Celsius")
End Sub
Private Sub Venus()
Console.WriteLine(" ------------------------------- ")
Console.WriteLine("Venus:")
Console.WriteLine("Average Distance from the Sun: 108.2 million kilometers")
Console.WriteLine("Mass: 4.87 x 10^24 kg")
Console.WriteLine("Surface Temperture: 472 degreees Celsius")
End Sub
Private Sub Earth()
Console.WriteLine("Earth:")
Console.WriteLine("Average Distance from the Sun: 149.6 million kilometers")
Console.WriteLine("Mass: 5.967 x 10^24 kg")
Console.WriteLine("Surface Temperture: -50 to 50 degrees Celsius")
End Sub
Private Sub Mars()
Console.WriteLine("Mars:")
Console.WriteLine("Average Distance from the Sun: 227.9 million kilometers")
Console.WriteLine("Mass: 0.6424 x 10^24 kg")
Console.WriteLine("Surface Temperture: -140 to 20 degrees Celsius")
End Sub
Private Sub DisplayMenu(ByVal menuSelection As Integer)
Console.WriteLine(" Select a Planet")
Console.WriteLine("1. Mercury")
Console.WriteLine("2. Venus")
Console.WriteLine("3. Earth")
Console.WriteLine("4. Mars")
Console.WriteLine("5. End The Program")
Console.WriteLine()
Console.WriteLine("Enter your selection: ")
menuSelection = CInt(Console.ReadLine())
Do While menuSelection < 1 Or menuSelection > 5
Console.WriteLine("Invalid Selection.")
Console.Write("Please Enter 1 2, 3, or 4: ")
menuSelection = CInt(Console.ReadLine())
Loop
End Sub
End Module