elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.

 

 


Tema destacado: Usando Git para manipular el directorio de trabajo, el índice y commits (segunda parte)


+  Foro de elhacker.net
|-+  Programación
| |-+  Programación General
| | |-+  .NET (C#, VB.NET, ASP) (Moderador: kub0x)
| | | |-+  Tengo un problema con el visual basic
0 Usuarios y 1 Visitante están viendo este tema.
Páginas: [1] Ir Abajo Respuesta Imprimir
Autor Tema: Tengo un problema con el visual basic  (Leído 7,126 veces)
juliowilber

Desconectado Desconectado

Mensajes: 87



Ver Perfil
Tengo un problema con el visual basic
« 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.


« Última modificación: 1 Marzo 2008, 03:48 am por juliowilber » En línea

Sancho.Mazorka


Desconectado Desconectado

Mensajes: 480


Gamer & Programador


Ver Perfil WWW
Re: Tengo un problema con el visual basic
« Respuesta #1 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    :¬¬


En línea

Ganador Xeon Web Server ! ! !    Sancho.Mazorka :D
http://foro.elhacker.net/index.php/topic,171903.75.html


MANULOMM


Desconectado Desconectado

Mensajes: 559


Erepublik.com


Ver Perfil
Re: Tengo un problema con el visual basic
« Respuesta #2 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
En línea


seba123neo


Desconectado Desconectado

Mensajes: 3.621



Ver Perfil WWW
Re: Tengo un problema con el visual basic
« Respuesta #3 en: 15 Abril 2008, 02:21 am »

Hola,proba asi:

Código:
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

saludos.
En línea

Páginas: [1] Ir Arriba Respuesta Imprimir 

Ir a:  

Mensajes similares
Asunto Iniciado por Respuestas Vistas Último mensaje
Ayuda con un problema que tengo en Visual Basic
.NET (C#, VB.NET, ASP)
ScJuan 3 2,139 Último mensaje 3 Septiembre 2018, 22:02 pm
por Serapis
MOVIDO: Ayuda con un problema que tengo en Visual Basic
Programación Visual Basic
Eleкtro 0 1,159 Último mensaje 3 Septiembre 2018, 07:25 am
por Eleкtro
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines