Título: Tengo un problema con el visual basic Publicado por: juliowilber en 1 Marzo 2008, 03:44 am Bueno ola a todos, saben he estado tratando de resolver este problema de visual basic pero no encuentro cual es la falla, este programa es para convertir equivalencias de metros a centimetros, pulgadas, pies y yardas asi que lo pongo aqui:
Dim metros As Double, pies As Double, pulgadas As Double Dim yardas As Double, centimetros As DragConstants Private Sub cmdConvertir_Click() On Error GoTo Error centimetros = Val(txtMetros.Text) * 100 pulgadas = centimetros / 2.54 pies = pulgadas / 12: yardas = pies / 3 txtSalida.Text = "Centimetros :" & _ Str(Format(centimetros, "#####.##")) + & _ vbCrLf & "Pulgadas :" + Str(Format(pulgadas, "#####.##")) & _ vbCrLf & "Pies : " + Str(Format(pies, "#####.##")) + vbCrLf & _ "Yardas :" + Str(Format(yardas, "#####.##")) Exit Sub Error: MsgBox Err.Description, vbCritical, "Erro número:" & Err.Number End Sub El problema surge en las filas siguientes: txtSalida.Text = "Centimetros :" & _ Str(Format(centimetros, "#####.##")) + & _ vbCrLf & "Pulgadas :" + Str(Format(pulgadas, "#####.##")) & _ vbCrLf & "Pies : " + Str(Format(pies, "#####.##")) + vbCrLf & _ "Yardas :" + Str(Format(yardas, "#####.##")) Esta filas se marcan de rojo y me manda mensaje de error no lo se por que pero estoy tratando de resolver. Alguna sugerencia. Gracias de antemano. Título: Re: Tengo un problema con el visual basic Publicado por: Sancho.Mazorka en 9 Marzo 2008, 22:16 pm Siempre que postees que te da un error, di el codigo del error y la descripcion del error, es mas facil la solucion, cuando me digas que sucede podre ayudarte!
Sancho.Mazorka :¬¬ Título: Re: Tengo un problema con el visual basic Publicado por: MANULOMM en 14 Abril 2008, 21:49 pm Yo diria que es por la concatenacion de la cadena en una usas + y otras & o las dos juntas... eso no es posible, intenta todas con & solamente....
Atentamente, Juan Manuel Lombana Medellín - Colombia Título: Re: Tengo un problema con el visual basic Publicado por: seba123neo en 15 Abril 2008, 02:21 am Hola,proba asi:
Código: Dim metros As Double, pies As Double, pulgadas As Double saludos. |