Conversor de unidades en Visual Basic

En esta nueva entrega les presento una forma para el diseño y creación de un conversor de unidades, este convierte cm, pulgadas, yardas y pies entre ellos, con solo seleccionar el tipo de unidad de entrada y el tipo de unidad de salida, manejando bien el código es posible crear muchas mas combinaciones de unidades diferentes. Para el diseño se hizo uso de dos combobox, en los cuales es posible seleccionar el tipo de unidad, se puede decir que estos combobox son los controles fundamentales de esta aplicación.



'Conversosr de Unidades muy sencillo
'Hecho por Ricardo Pinto
'http://r-pinto.blogspot.com
''2010
Dim entrada As Double
Dim salida As Double

Private Sub btn_convertir_Click()
If cbx_entrada.Text = "Seleccione unidad metrica" Or cbx_salida = "Seleccione unidad metrica" Then
    MsgBox ("Debe indicar el tipo de unidad de medida de entrada y de salida")
    
    Else
entrada = CDbl(Val(txt_valor.Text))
Select Case cbx_entrada.Text
    Case "Centimetros"
        Select Case cbx_salida.Text
            Case "Centimetros"
                salida = entrada * 1
            Case "Pies"
                salida = entrada / 30.48
            Case "Yardas"
                salida = (entrada * 1.094) / 100
            Case "Pulgadas"
                salida = entrada * 0.39
        End Select
    Case "Pies"
        Select Case cbx_salida.Text
            Case "Centimetros"
                salida = entrada * 30.48
            Case "Pies"
                salida = entrada * 1
            Case "Yardas"
                salida = entrada / 3
            Case "Pulgadas"
                salida = entrada * 12
        End Select
    Case "Yardas"
        Select Case cbx_salida.Text
            Case "Centimetros"
                salida = (entrada * 0.914) * 100
            Case "Pies"
                salida = entrada * 3
            Case "Yardas"
                salida = entrada * 1
            Case "Pulgadas"
                salida = entrada * 36
        End Select
    Case "Pulgadas"
        Select Case cbx_salida.Text
            Case "Centimetros"
                salida = entrada * 2.54
            Case "Pies"
                salida = entrada / 12
            Case "Yardas"
                salida = entrada / 36
            Case "Pulgadas"
                salida = entrada * 1
        End Select
End Select
lbl_resultado.Caption = salida
SendKeys "{tab}"
End If
              
End Sub

Private Sub cbx_entrada_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
        SendKeys "{tab}"
End If
End Sub

Private Sub cbx_salida_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
       SendKeys "{tab}"
End If
End Sub

Private Sub Form_Load()
txt_valor.Text = "0"
End Sub

Private Sub txt_valor_KeyPress(KeyAscii As Integer)
If txt_valor.Text = "0" Then
        txt_valor.Text = ""
    End If
If KeyAscii = 13 Then
        KeyAscii = 0
        SendKeys "{tab}"
    Else
    If KeyAscii <> 8 Then
    If Not IsNumeric("0" & txt_valor.Text & Chr(KeyAscii)) Then
            Beep
            KeyAscii = 0
        End If
    End If
    End If
End Sub

DESCARGAR PROYECTO