by George Maier (2 Submissions)
Category: Math/Dates
Compatability: VB.NET
Difficulty: Unknown Difficulty
Originally Published: Thu 20th December 2007
Date Added: Mon 8th February 2021
Rating: (1 Votes)
Light Years - KM Converter
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