Estados financieros
Dim x As Double
Dim r As Double
x = Val(txt_cantidad.Text)
Select Case cmb_unidades.SelText
Case "pulgadas a centimetros"
r = x * 2.54
lbl_resultado.Caption ="el resultado es " & Str(r)
Case "pies a centimetros"
r = x * 30.48
lbl_resultado.Caption = "el resultado es " & Str(r)
Case "metros a yardas"
r = x * 1.0936
lbl_resultado.Caption = "elresultado es " & Str(r)
Case "millas a kilometros"
r = x * 1.609
lbl_resultado.Caption = "el resultado es " & Str(r)
Case "millas a pies"
r = x * 5280
lbl_resultado.Caption = "el resultado es " &Str(r)
Case "litros a pies cubicos"
r = x * 0.03531
lbl_resultado.Caption = "el resultado es " & Str(r)
Case "galones a litros"
r = x * 3.786
lbl_resultado.Caption = "el resultado es " & Str(r)
Case"slugs a kilogramos"
r = x * 14.59
lbl_resultado.Caption = "el resultado es " & Str(r)
Case "libras a newtons"
r = x * 4.4482
lbl_resultado.Caption = "el resultado es " & Str(r)
Case"atmosferas a pascales"
r = x * 1.0132
lbl_resultado.Caption = "el resultado es " & Str(r)
Case "calorias a joules"
r = x * 4.18
lbl_resultado.Caption = "el resultado es " & Str(r)
Case "watts a caballosde fuerza"
r = x * 1.341
lbl_resultado.Caption = "el resultado es " & Str(r)
End Select
End Sub
Private Sub lbl_resultado_Click()
End Sub
Private Sub txt_cantidad_Change()
End SubPrivate Sub UserForm_Click()
End Sub
Private Sub UserForm_Initialize()
cmb_unidades.AddItem "pulgadas a centimetros"
cmb_unidades.AddItem "pies a centimetros"
cmb_unidades.AddItem "metros ayardas"
cmb_unidades.AddItem "millas a kilometros"
cmb_unidades.AddItem "millas a pies"
cmb_unidades.AddItem "litros a pies cubicos"
cmb_unidades.AddItem "galones a litros"
cmb_unidades.AddItem"slugs a kilogramos"
cmb_unidades.AddItem "libras a newtons"
cmb_unidades.AddItem "atmosferas a pascales"
cmb_unidades.AddItem "calorias a joules"
cmb_unidades.AddItem "watts a caballos de...
Regístrate para leer el documento completo.