Imports system.console
Imports Microsoft.Visualbasic
module main
sub main()


'Metric-conversions.org - ;o


dim fran, till, val, Fahrenheit, Celcius as integer

 'F= (C*1.8)+32
 'C= (F-32)*0.5555

	
	Writeline("Detta är ett konverterprogram, klicka valfri knapp för att fortsätta..")
	Readline
	
	Writeline("")
	Writeline("Skriv in nummret på vilken konverterare du vill använda")
	Writeline("1.Celcius till Fahrenheit")
	Writeline("2.Fahrenheit till Celcius")	
	val=readline	


	Writeline("Skriv värdet du vill konvertera från")
	fran=readline

	IF val = 1 then
	write(C-F(fran))
	Else IF val = 2 then
	write(F-C(fran))
	
	End Sub
	
	
	
	
	Function C-F(Byval )

	End Fucntion

	Function F-C(Byval )

	End Function

End Module