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
  1. Private Sub Text1_KeyPress(KeyAscii As Integer)
  2.    If IsNumeric(Chr(KeyAscii)) = True Then
  3.        Me.Caption = "se esta tecleando Nuemeros"
  4.    Else
  5.        Me.Caption = "se esta tecleando letras"
  6.    End If
  7. End Sub
  8.  

Bastante Censillo  No Te parece?