SoloCodigo

ESTO ES LO QUE TENGO QUE HACER  

1.Crear un programa para realizar conversión de medidas de: Longitud, peso, volumen Capacidad. Utilice como punto de partida desde la Unidad (1) en adelante y realice las conversiones de todos los campos que se le presentan tanto para la Longitud, el Peso, y el Volumen Capacidad.

Y ESTO ES LO QUE TENGO HASTA AHORITA

Public Class frmconversiones
    Public Sub longitud()
        Dim a As Double
        If Me.txtcentimetro.Text = "1oo" And Me.txtkilometros.Text = "0.001" And Me.txtmaritima.Text = "0.0005399" And Me.txtmilimetros.Text = "1000" And Me.txtpie.Text = " 3.28084" And Me.txtpulgada.Text = "39.3701" And Me.txtterrestre.Text = "0.006621" And Me.txtyarda.Text = "1.0936" Then
            a = Me.txtmetros.Text
            Me.txtcentimetro.Text = a * 100
            Me.txtkilometros.Text = a * 0.001
            Me.txtmaritima.Text = a * 0.0005399
            Me.txtmilimetros.Text = a * 1000
            Me.txtpie.Text = a * 3.28084
            Me.txtpulgada.Text = a * 39.3701
            Me.txtterrestre.Text = a * 0.006621
            Me.txtyarda.Text = a * 1.0936

        ElseIf Me.txtcentimetro.Text = "" And Me.txtkilometros.Text = "" And Me.txtmaritima.Text = "" And Me.txtmetros.Text = "" And Me.txtpie.Text = "" And Me.txtpulgada.Text = "" And Me.txtterrestre.Text = "" And Me.txtyarda.Text = "" Then
            a = Me.txtmilimetros.Text
            Me.txtcentimetro.Text = a * 0.1
            Me.txtkilometros.Text = a * 0.000001
            Me.txtmaritima.Text = a * 0.0000005399
            Me.txtmetros.Text = a * 0.001
            Me.txtpie.Text = a * 0.00328084
            Me.txtpulgada.Text = a * 0.0393701
            Me.txtterrestre.Text = a * 0.000006621
            Me.txtyarda.Text = a * 0.0010936

        ElseIf Me.txtcentimetro.Text = "" And Me.txtkilometros.Text = "" And Me.txtmaritima.Text = "" And Me.txtmilimetros.Text = "" And Me.txtpie.Text = "" And Me.txtmetros.Text = "" And Me.txtterrestre.Text = "" And Me.txtyarda.Text = "" Then
            a = Me.txtpulgada.Text
            Me.txtcentimetro.Text = a * 2.54
            Me.txtkilometros.Text = a * 0.0000254
            Me.txtmaritima.Text = a * 0.00001371346
            Me.txtmilimetros.Text = a * 25.4
            Me.txtpie.Text = a * 0.083333336
            Me.txtmetros.Text = a * 0.0254
            Me.txtterrestre.Text = a * 0.0001681734
            Me.txtyarda.Text = a * 0.02777744

        ElseIf Me.txtcentimetro.Text = "" And Me.txtkilometros.Text = "" And Me.txtmaritima.Text = "" And Me.txtmilimetros.Text = "" And Me.txtpulgada.Text = "" And Me.txtmetros.Text = "" And Me.txtterrestre.Text = "" And Me.txtyarda.Text = "" Then
            a = Me.txtpie.Text
            Me.txtcentimetro.Text = a * 30.48
            Me.txtkilometros.Text = a * 0.0003048
            Me.txtmaritima.Text = a * 0.000016456152
            Me.txtmilimetros.Text = a * 304.8
            Me.txtpulgada.Text = a * 12
            Me.txtmetros.Text = a * 0.3048
            Me.txtterrestre.Text = a * 0.0020180808
            Me.txtyarda.Text = a * 0.33332928
        End If
    End Sub

    Private Sub btncalcular_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btncalcular.Click
        longitud()
    End Sub

    Private Sub frmconversiones_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub

    Private Sub btnborrar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnborrar.Click
        Me.TextBox11.Clear()


    End Sub
End Class