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
