Ver Mensaje Individual
  #1 (permalink)  
Antiguo 08/10/2013, 20:53
Avatar de Andelous
Andelous
 
Fecha de Ingreso: enero-2010
Ubicación: En Foros del Web
Mensajes: 114
Antigüedad: 14 años, 3 meses
Puntos: 5
Pregunta Expresar cualquier número en Visual Basic 6

Hola amigos de Foros del Web... Pues, hoy quiero preguntar si alguien sabe acaso algo que me dejaron en el colegio.

El punto es este... debo desarrollar un programa que calcule el área de un triángulo. Todo bien en el área de código, puede calcular sin problemas el área del triángulo, pero, mi duda es: ¿Cómo puedo expresar cualquier número?, ya sea entero o decimal.

Dicho de manera práctica en lo que quiero hacer, es: Si en alguno de los TextBox que uso para introducir la base y la altura del triángulo, hay caracteres diferentes del tipo numérico, que muestre una ventana diciendo "Introduzca datos válidos" o algo así... He hecho algo parecido para los campos en blanco... pero, también quiero hacerlo en caso de que haya alguna letra.

Este es mi código:

Código:
    If TxtBase.Text = "" Or TxtAltura.Text = "" Then
        MsgBox "Por favor introduzca datos correctos.", vbOKOnly, "Aviso"
    Else
        Dim area, base, altura As Double
            
        base = TxtBase.Text
        altura = TxtAltura.Text
        
        area = (base * altura) / 2
        LblRes.Caption = area
    End If
Quiero que muestre el MsgBox diciendo ese texto, cuando se llenen los TextBox con letras, o algún caracter diferente a un número... No sé si me explico...

De antemano, muchas gracias