Visual Basic - Mostras texto y un resultado en un label

Life is soft - evento anual de software empresarial
 
Vista:

Mostras texto y un resultado en un label

Publicado por Juan (2 intervenciones) el 06/01/2009 15:51:02
Hola a todos.

tengo puesto en un programita que estoy haciendo la siguiente instrucción:

Private Sub Command1_Click()
Label4.Caption = "1:" + (1 + (Sqr(Text2.Text / Text1.Text))) / (1 - (Sqr(Text2.Text / Text1.Text)))

End Sub

Me dá error. LO que quiero conseguir es que en label4 el texto sea: 1: x.xx

donde 1: es un texto predetermidado y las x.xx es el resultado de la formula matemática siguiente.

Si lo hago por separado todo OK pero las dos cosas juntas no se hacerlo

ejemplos:

Private Sub Command1_Click()
Label4.Caption = (1 + (Sqr(Text2.Text / Text1.Text))) / (1 - (Sqr(Text2.Text / Text1.Text)))

End Sub

el resultado de x.xxxxxxxx es el correcto

Private Sub Command1_Click()
Label4.Caption = " 1: "

End Sub

el resultado 1: es el correcto tambien

como debería ser la instruccion para que el resultado fuera : 1:x.xxxxxxxx ???

Muchas gracias a todo aquel que se interese por este asunto y me ayude
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:Mostras texto y un resultado en un label

Publicado por P3L30N2009 (699 intervenciones) el 06/01/2009 17:26:13
Label4.Caption = "1:" & (1 + (Sqr(Text2.Text / Text1.Text))) / (1 - (Sqr(Text2.Text / Text1.Text)))

El concatenador de cadenas en VB es el símbolo de ampersand (&). Tal como lo estás poniendo VB intenta sumar una cadena "1:" a un valor numérico y por eso dá error.
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:MUY AGRADECIDO

Publicado por Juan (2 intervenciones) el 06/01/2009 17:48:48
Muchas gracias por su ayuda. Funcionó a la primera.

Por favor, como dejar solo dos decimales de la formula ??

Feliz año y muchas gracias
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:MUY AGRADECIDO

Publicado por P3L30N2009 (699 intervenciones) el 06/01/2009 18:33:06
Label4.Caption = "1:" & Format( (1 + (Sqr(Text2.Text / Text1.Text))) / (1 - (Sqr(Text2.Text / Text1.Text))) , "#,##0.00")

Salud en 2009
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:MUY AGRADECIDO

Publicado por Hector Castro (27 intervenciones) el 07/01/2009 17:24:41
si hay que darle la gracia a este hombre ami tambien me a ayudado sin numero de veses i simpre acierta en los problema
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