• Home
 · 
• Math/Dates
 · 
• Light Years - KM Converter

Light Years - KM Converter

Light Years - KM Converter

Rate Light Years - KM Converter

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

Module Module1
    Sub Main()
        Console.WriteLine("Welcome to Lightspeed Calculator")
        Console.WriteLine("<c> copyright 2007 George Maier")
        Do
            Dim light As String = " 299792.459 "
            Dim test As String = "34234"
            Console.Write("Enter the lightyear value:")
            Dim cal As String = Console.ReadLine()
            Dim answer As String = light * 60 * 60 * 24 * 365.25 * cal
            Console.WriteLine("Answer: " & answer & "Km")
            My.Computer.Clipboard.SetText(answer)
            Console.WriteLine("Answer has been copied to clipbord")
        Loop
    End Sub
End Module