SoloCodigo

Programación General => Visual Basic 6.0 e inferiores => Visual Basic para principiantes => Mensaje iniciado por: banderousky en Jueves 18 de Noviembre de 2010, 04:57

Título: Admitir solo numeros y un solo punto para operaciones
Publicado por: banderousky en Jueves 18 de Noviembre de 2010, 04:57
Hola soy ingeniero electromecanico y estoy realizando un proyecto y estoy utilizando
visual basic 6.0 pero mi gran duda es que... como puedo hacer para que en una caja de texto
me admita solo numeros (esto ya se como hacerlo) y que me admita solamente un punto, ya que
estoy haciendo operaciones matematicas con estas cajas de texto, no deben de llevar mas de un
punto decimal porque me sale un error. saludos y de antemano gracias
Título: Re: Admitir solo numeros y un solo punto para operaciones
Publicado por: m0skit0 en Jueves 18 de Noviembre de 2010, 10:07
Mid (http://msdn.microsoft.com/es-es/library/05e63829%28VS.80%29.aspx)
Título: Re: Admitir solo numeros y un solo punto para operaciones
Publicado por: F_Tanori en Jueves 18 de Noviembre de 2010, 15:29
Creo que te Serviria InStr


Código: PowerBuilder
  1.  
  2.  
  3. strNumero = InputBox("Proporciona un numero:")
  4. if inStr(strNumero,".")>0 then
  5.    MsgBox("Contiene Punto")
  6. else
  7.     MsgBox("No Contiene Punto")
  8. end if
  9.  


Nota: No lo compile

Saludos
Título: Re: Admitir solo numeros y un solo punto para operaciones
Publicado por: banderousky en Jueves 18 de Noviembre de 2010, 17:04
hola muchas gracias, creo que no me especifique bien
miren lo que intento hacer es que en un textbox
me admita numeros y un solo punto, que no se pueda
repetir mas de una vez el punto por ejemplo 12.32
y no 12.32.1.4.2 porque al momento de hacer operaciones
matematicas me produce errores saludos
Título: Re: Admitir solo numeros y un solo punto para operaciones
Publicado por: m0skit0 en Viernes 19 de Noviembre de 2010, 09:33
Cita de: "banderousky"
creo que no me especifique bien
Sólo tienes que modificar ligeramente el ejemplo de F_Tanori, no me seas vago  ;)
Título: Re: Admitir solo numeros y un solo punto para operaciones
Publicado por: F_Tanori en Sábado 20 de Noviembre de 2010, 08:47
:blink:  :whistling:

Creo que hemos entendido tu explicacion desde el principio...  :rolleyes:
es cuestion de razonar un poco....
Título: Re: Admitir solo numeros y un solo punto para operaciones
Publicado por: banderousky en Sábado 20 de Noviembre de 2010, 19:47
estube estudiando un libro de visual basic y llegue
a la siguiente conclusion de como resolver este problema
espero y les sirva a alguien mas, yo lo necesitaba para no ingresar
mas de un punto decimal en las cajas de texto que necesito para hacer
operaciones matematicas, despues me encontre con el problema de cuando
ponia pegar en la caja de texto y podia poner un letas y me cometia errores
por lo que tube qe restringir la itulizacion de pegar o crtl + V
bueno saludos a todos


en el evento keypress de la caja de texto

'Bloqueamos la utilización de pegar o Crtl+V para evitar que se ingresen letras'
'cuando es obligatorio ingresar solamente numeros'
 
 Clipboard.Clear
 Clipboard.SetText ""

'Solo admitimos numeros en la caja de texto y el punto decimal'

If InStr("0123456789." & Chr(8) & Chr(13), Chr(KeyAscii)) = 0 Then
KeyAscii = 0
End If

Dim sCar As String * 1
 sCar = Chr(KeyAscii)

 If sCar = "." Then
 ' comprueba si se ha pulsado el punto'
 KeyAscii = IIf(sDecimal = ",", 44, 46)
 sCar = Chr(KeyAscii)

 ' si ya se ha puesto un punto decimal, no admite otro
 If (InStr(txtC2H2, sCar) > 0) Then
  KeyAscii = 0
  Exit Sub
 End If

 Exit Sub
 End If

If KeyAscii = 13 Then            'Verifica que se pulsa la tecla ENTER'
    SendKeys "{tab}"               'Se pulsa la tecla TAB'
End If



y en el evendo mousedown

'Bloqueamos la utilización de pegar o Crtl+V para evitar que se ingresen letras'
'cuando es obligatorio ingresar solamente numeros'
 
 Clipboard.Clear
 Clipboard.SetText ""

y en el vento load del formulario (yo lo tengo en el evento activate)

'comprueba el formato numérico del sistema
sDecimal = Format(0.1, "#.#")
sDecimal = IIf(InStr(sDecimal, ","), ",", ".")
Título: Re: Admitir solo numeros y un solo punto para operaciones
Publicado por: m0skit0 en Sábado 20 de Noviembre de 2010, 20:16
Efectivamente, funciona. Pero restringir opciones al usuario porque no conoces el lenguaje es una pésima práctica y muy poco profesional.
Título: Re: Admitir solo numeros y un solo punto para operaciones
Publicado por: Nebire en Sábado 20 de Noviembre de 2010, 23:53
Usa el evento validate del textbox. Esto ocurre cuando el textbox pierde el foco, ahí chequeas si tiene más de un punto o letras y por tanto cancelas.... al cancelar, el foco no sale  del textbox.

Código: Visual Basic
  1.  
  2. Private Sub Text1_Validate(Cancel As Boolean)
  3.     Dim n() As Byte
  4.     Dim HayPunto As Boolean
  5.    
  6.     If Text1.Text = "" Then
  7.         MsgBox "La caja de texto no puede quedar vacía, escriba al menos un 0."
  8.         Cancel = True
  9.     Else
  10.  
  11.         n = Text1.Text
  12.         For k = 0 To UBound(n) Step 2
  13.             If n(k) > 47 Then
  14.                 If n(k) > 58 Then
  15.                     MsgBox "No se permiten caracteres, sólo números."
  16.                     Cancel = True
  17.                     Exit Sub
  18.                 End If
  19.             Else
  20.                 If n(k) = 46 Then
  21.                     If HayPunto = False Then
  22.                         HayPunto = True
  23.                     Else
  24.                         MsgBox "Sólo se permite un punto para el número, como separador decimal."
  25.                         Cancel = True
  26.                         Exit Sub
  27.                     End If
  28.                 Else
  29.                     MsgBox "No se permiten caracteres, sólo números."
  30.                     Cancel = True
  31.                     Exit Sub
  32.                 End If
  33.             End If
  34.         Next
  35.     End If
  36. End Sub
  37.  
  38.