Foro de elhacker.net

Programación => Programación Visual Basic => Mensaje iniciado por: Zeroql en 27 Julio 2007, 03:24 am

Título: saber si es numero o letras
Publicado por: Zeroql en 27 Julio 2007, 03:24 am

bueno esa es mi pregunta como se si es numeros o letras comparandolo ej:

Código:

if text1=letras or text2=num then 
   funcion
end if

se que con el nivel de programacion que tengo no deberia preguntar esto ni tantas cosa que pregunto en el foro, pero en mi cabeza se mezclan tantas cosas que no se bien que es de que y a veces no la recuardo si las hize hace 5 min.

Título: Re: saber si es numero o letras
Publicado por: NYlOn en 27 Julio 2007, 03:52 am

Usa la funcion IsNumeric.

No importa si tu "nivel de programacion" es bajo, que no te de verguenza preguntar ;).

Saludos.-

Título: Re: saber si es numero o letras
Publicado por: CeLaYa en 27 Julio 2007, 03:52 am

Puedes usar la función "IsNumeric"

Código:

Dim MiVar, MiPrueba
MiVar = "53"                  ' Asigna un valor.
MiPrueba = IsNumeric(MiVar)   ' Devuelve True.
MiVar = "459.95"            ' Asigna valor.
MiPrueba = IsNumeric(MiVar)   ' Devuelve True.
MiVar = "45 Help"            ' Asigna valor.
MiPrueba = IsNumeric(MiVar)   ' Devuelve False.

*** estos ejemplos son de la ayuda del VB

Título: Re: saber si es numero o letras
Publicado por: Zeroql en 27 Julio 2007, 04:23 am

muchas gracias CeLaYa

Título: Re: saber si es numero o letras
Publicado por: WHK en 27 Julio 2007, 06:25 am

Private Sub Text1_Keypress(KeyAscii As Integer)
On Error Resume Next
If Not IsNumeric(Chr$(KeyAscii)) And KeyAscii <> 8 Then KeyAscii = 0
End Sub

Esta funcuón acepta solo números en el textbox asi te das una idea.

Todo esto ya estaba explicado en http://www.elhacker.net/trucosvisual.htm

Título: Re: saber si es numero o letras
Publicado por: Zeroql en 27 Julio 2007, 06:30 am

gracis a todos por su colaboracion, ya he solocionado el problema calro con la instruccion isnumeric

Título: Re: saber si es numero o letras
Publicado por: ActiveSheet en 27 Julio 2007, 06:46 am

esto es lo que nececitas

Código

Private Sub Text1_KeyPress(KeyAscii As Integer)
    If IsNumeric(Chr(KeyAscii)) = True Then
        Me.Caption = "se esta tecleando Nuemeros"
    Else
        Me.Caption = "se esta tecleando letras"
    End If
End Sub

Bastante Censillo No Te parece?