numeros pares

emmerson
Recien Llegado

Desconectado

Mensajes: 7

numeros pares

« en: Enero 16, 2007, 05:55:10 »

hola amigos les quiero acer una consulta ....Quiero q en un textbox solo se pueda ingresar numeros pares x ejemplo 20,34,50,etc y cada vez q ingrese un numero impar x ejemplo 1,11,45,etx me salga un msgbox diciendome q solo se ingrese numeros pares ahh....

y tbn q el boton se active una ves llenado los tres texbox espero su ayuda gracias...


	En línea

hackmexsatelite
Visitante

Re: numeros pares

« Respuesta #1 en: Enero 16, 2007, 08:37:24 »

Puedes hacerlo compoarando el ultimo caracter del
textbox y si es par pasa si no no.

Ahora no tengo tiempo, intenta hacerlo tu mismo, aqui en el
foro hay informacion, solo tienes que buscar

Hoy en dia solo entran al foro a que les respondan
concretamente sus dudas, no digo que este mal
pero si buscaran, encontrarian la respuesta
y no habria tantos post's preguntando lo mismo

Solo hay que esforsarce!!!!!!!!!!!

Para la proxima usa este boton
Necesitas ser usuario para ver los enlaces Crear Usuario Hacer Sesion

Editado:

Para saber si es par solo comparalo con el 2,4,6,8,0


« Última modificación: Enero 16, 2007, 08:39:26 por HackMexSatelite »	En línea

sNipeR-
Visitante

Re: numeros pares

« Respuesta #2 en: Enero 17, 2007, 01:51:37 »

Ola

Mira este codigo por ejemplo:

Código:

Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = Asc("1") Or KeyAscii = Asc("3") Or KeyAscii = Asc("5") Or KeyAscii = Asc("7") Or KeyAscii = Asc("9") Then
KeyAscii = 0
End If
End Sub

Private Sub Text1_Change()
If Len(Text1.Text) = 5 Then
Text2.SetFocus
End If
End Sub

Private Sub Text2_KeyPress(KeyAscii As Integer)
If KeyAscii = Asc("1") Or KeyAscii = Asc("3") Or KeyAscii = Asc("5") Or KeyAscii = Asc("7") Or KeyAscii = Asc("9") Then
KeyAscii = 0
End If
End Sub

Private Sub Text2_Change()
If Len(Text2.Text) = 5 Then
Text3.SetFocus
End If
End Sub

Private Sub Text3_KeyPress(KeyAscii As Integer)
If KeyAscii = Asc("1") Or KeyAscii = Asc("3") Or KeyAscii = Asc("5") Or KeyAscii = Asc("7") Or KeyAscii = Asc("9") Then
KeyAscii = 0
End If
End Sub

Private Sub Text3_Change()
If Len(Text3.Text) = 5 Then
Command1.Enabled = True
End If
End Sub

Ahora k tienes una idea de como se hace lo ajustas a tu proyecto.

Salu2


	En línea

Páginas: [1]

Comunidad Underground Hispana \| Programacion \| Programación \| Visual Basic y Net (Moderador: ANYD00M) \| Tema: numeros pares	« anterior próximo »

	Bienvenido(a), Visitante. Favor de ingresar o registrarse. ¿Perdiste tu email de activación? - Noviembre 18, 2008, 08:00:36