hey im trying to create a program that will convert between metric and standard units.I chose length as my measurement so i have nanometer,millimeter,centimeter,meter,hectometer,kilometer,inc,feet,yard and mile.
i wanted the inpu to be
- number to be converted(text box)
-unit number is in(combo box)
-unit to convert to(combo box)
i know how to do combo boxes,buttons and labels and stuff.
The output is the converted number this is what i have so far but its soooo wrong please help meeeeeeee:(
Public Class Form1
Private Sub Convert_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Convert.Click
Dim Inch, Feet, Yard, Mile As Integer
Dim Nanometer, Millimeter, Centimeter, Meter, Hectometer, Kilometer As Double
Mile = CInt(Text)
Yard = CInt(Text)
Feet = CInt(Text)
Inch = 63360 * Mile + 36 * Yard + 12 * Feet + Inch
Meter = (Inch / 39.37)
Kilometer = (Meter / 1000)
Nanometer = (Meter * 1000000000)
Millimeter = (Meter * 10000)
Centimeter = (Meter * 100)
Hectometer=(Meter/100)
End Sub
End Class