Visual Basic - Problema con convertidor

Life is soft - evento anual de software empresarial
 
Vista:

Problema con convertidor

Publicado por Arisabel (2 intervenciones) el 28/03/2005 00:12:34
No sé mucho de programar, pero estoy intentando hacer un convertidor de unidades porque pense que era más fácil, lo hice con una lista para seleccionar la unidad en la que introduzco los datos y otra para la unidad a la que deseo convertir he puesto mas o menos esto
If (L1S = "milímetros" And L2S = "Centímetros") Then LongOut.Text = LE * 0.1 Else LongOut.Text = ""
If (L1S = "milímetros" And L2S = "Metros") Then LongOut.Text = LE * 0.001 Else LongOut.Text = ""
he intentado muchas cosas, que estoy haciendo mal, porque solamente se me da una de las ejecuciones que pongo.
Porfa ayudenme!
Gracias
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Problema con convertidor

Publicado por A. Fleming (23 intervenciones) el 28/03/2005 00:59:04
quizas no debas colocar 'Else LongOut.Text = ""' ya que siempre te va a borrar el contenido de la caja de texto excepto que se cumpla la ultima condicion.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Problema con convertidor

Publicado por Arisabel (2 intervenciones) el 28/03/2005 01:52:37
Gracias!!

Ya resolví el problemita ahora lo hice asi y funciono

If (L1S = "milímetros" And L2S = "Milímetros") Then FM = 1
If (L1S = "milímetros" And L2S = "Centímetros") Then FM = 0.1
If (L1S = "milímetros" And L2S = "Decímetros") Then FM = 0.01
If (L1S = "milímetros" And L2S = "Metros") Then FM = 0.001
If (L1S = "milímetros" And L2S = "Kilómetros") Then FM = 0.000001
If (L1S = "milímetros" And L2S = "Pulgadas") Then FM = 0.03937
If (L1S = "milímetros" And L2S = "Pies") Then FM = 0.003281
If (L1S = "milímetros" And L2S = "Yardas") Then FM = 0.001094
If (L1S = "milímetros" And L2S = "Millas terrestres") Then FM = 6.2137
If (L1S = "milímetros" And L2S = "Millas naúticas") Then FM = 5.3996
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Problema con convertidor

Publicado por A. Fleming (23 intervenciones) el 28/03/2005 02:07:30
pero te recomiendo que lo hagas de la siguiente manera:
if(L1S = \"milimetros\") then
If (L2S = \"Milímetros\") Then
FM = 1
else if (L2S = \"Centímetros\") Then FM = 0.1
else If (L2S = \"Decímetros\") Then FM = 0.01
else If (L2S = \"Metros\") Then FM = 0.001
else If (L2S = \"Kilómetros\") Then FM = 0.000001
else If (L2S = \"Pulgadas\") Then FM = 0.03937
else If (L2S = \"Pies\") Then FM = 0.003281
else If (L2S = \"Yardas\") Then FM = 0.001094
else If (L2S = \"Millas terrestres\") Then FM = 6.2137
else If (L2S = \"Millas naúticas\") Then FM = 5.3996
end if
end if

... como vez de esta manera te ahorras tiempo. pero funciona igual.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar