Autor Tema: text con numeros (Leído 4488 veces)

master33 · « **en:** Miércoles 29 de Abril de 2009, 17:08 »

Hola, tengo unos textbox que almacenan numeros (ingresados por teclado) y lo que necesito es que aparescan los puntos como separdor de miles y no lo se hacer de antemano gracias

Toph

Cita de: "master33"

Hola, tengo unos textbox que almacenan numeros (ingresados por teclado) y lo que necesito es que aparescan los puntos como separdor de miles y no lo se hacer de antemano gracias

tendrias que ir recorriendo el textbox caracter por caracter para que cuando hayas revisado 3 le agregues ahi una coma o punto o un espacio (que es lo que ahora se utiliza para separar miles), con la ayuda de la funcion mid (cadena, inicio, final) puedes partir tu cadena donde lo necesites e introducir ahi la coma o el punto, por ejemplo se introduce el numero 89325 en el textbox para separar los miles y ver 89,325, deberias recortar la cadenas con mid (text1.text,1,2) estarias recortando desde el caracter 1 hasta el 2 o sea 89, luego con mid(text1.text,3,5) obtendrias el 325 y seria de lo que te da el primer mid + ","+ lo que te da el otro mid y ya tendrias el dato deseado, aqui te dejo la rutina, pruebala con dos textbox y un commandbutton

Código: Visual Basic

Private Sub Command1_Click()
a = Len(Text1.Text) 'en text1.text se introduce el numero
dato = Text1.Text
b = a
lazo:
b = b - 3
If b <= 0 Then
GoTo fin
Else
a = Len(dato)
dato1 = Mid(dato, 1, b)
dato2 = Mid(dato, b + 1, a)
dato = dato1 + "," + dato2
End If
GoTo lazo
fin:
Text2.Text = dato 'en text2.text queda el numero separado
End Sub
 

Eso es lo que se me ocurrio

, podrian haber otras formas pero por ahora no veo otra

saludos.

F_Tanori

Puedes usar ademas del codigo de TOPH, la funcion format

Código: Visual Basic

Private Sub Text1_Validate(Cancel As Boolean)
  Me.Text1 = Format(Me.Text1, "###,###,##0.00")
End Sub
 
 

Tambien Existe el control, MaskEditBox

Saludos

Toph

Cita de: "F_Tanori"

Puedes usar ademas del codigo de TOPH, la funcion format

Código: Visual Basic
Private Sub Text1_Validate(Cancel As Boolean)
Me.Text1 = Format(Me.Text1, "###,###,##0.00")
End Sub

Tambien Existe el control, MaskEditBox

Saludos

mucho mas facil asi, una pregunta F_Tanori para utilizar otro tipo de separador como un punto o simplemente un espacio ¿se puede de la misma forma?

EDIT:

me respondo a mi misma pense que era tan facil como cambiar ###.###.##. o poner espacios pero con punto definitivamente no funciona y con espacio da problema en numeros grandes

saludos.

Nebire

Efectivamente, con format$ , además hay que usarlo en el evento validate tal como muestra F_Tanori, pero de paso aprovechamos para comprobar si está dentro de los valores deseados.
Aquí el ejemplo completo que formatea el número pero además controla si el valor introducido está dentro del rango 5-100, esto es no acepta otros valores distintos de los de dicho rango.

Código: Visual Basic

 
Private Sub Text1_Validate(Cancel As Boolean)
    Text1.Text = Format$(Text1.Text, "##,##0.00")
    If (Val(Text1.Text) < 5) Or (Val(Text1.Text) > 100) Then
        Beep
        Cancel = True
    End If
End Sub
 
 

Por supuesto el control text1 debe tener su propiedad CausesValidation a True, de otro modo no recibe dicho evento... (por defecto Causesvalidation se establece a True, por lo que salvo que se cambie desde código no haría falta cambiarlo, pero para prevenir despistes quizás convenga añadir una línea en la carga del formulario:

Código: Visual Basic

 
    Private Sub Form_Load()
    Text1.CausesValidation = True
End Sub
 
y por último si quieres eliminar los decimales cuando estos son ceros el siguiente código lo muestra... sólo lo elimina cuando el valor ha sido 'validado', para no hacer pensar al usuario que el problema son los decimales... 
 
[code=vb]
    Private Sub Text1_Validate(Cancel As Boolean)
    Text1.Text = Format$(Text1.Text, "##,##0.00")
    If (Val(Text1.Text) < 5) Or (Val(Text1.Text) > 100) Then
        Beep
        Cancel = True
    Else
        If Right$(Text1.Text, 2) = "00" Then
            Text1.Text = Format$(Text1.Text, "##,##0")
        End If
    End If
End Sub
 
 

[/code]

Nebire

Cita de: "Toph"

mucho mas facil asi, una pregunta F_Tanori para utilizar otro tipo de separador como un punto o simplemente un espacio ¿se puede de la misma forma?

EDIT: me respondo a mi misma pense que era tan facil como cambiar ###.###.##. o poner espacios pero con punto definitivamente no funciona y con espacio da problema en numeros grandes

saludos.

Si, hay que tener cuidado, piensa que cada '#' representa una cifra, entonces una cifra sólo reconoce números y los signos de puntuación de números. Si los signos de puntuación provocan desbordamiento dará error, en el siguiente ejemplo la idea era colocar dentro del formato la parte: 'H:' precisamente por el error indicado como se ve se trata aparte.
Aunque parezca limitado en realidad no lo es (aunque superar ese límite resulta tedioso), ya que podemos encadenar varios formateos: (texto= formato(a) & formato (b) & ... formato(n))

Código: Visual Basic

' por ejemplo introduce la cadena: 123456789 y saldrá formateada como: 'H: 123 456 789-V', notar como H: convenientemente se ha dejado previo (parte del formato, pero inicial)
Private Sub Text2_Validate(Cancel As Boolean)
    Text2.Text = "H:" & Format$(Text2.Text, " ### ### ###-V")
End Sub
 

Otro ejemplo para terminar... Aquí necesitamos que el usuario ingrese un valor de 7 cifras que luego nosotros formateamos, el formato tiene 12 cifras, sin embargo el usuario nunca podrá escribir más de 7

' previamente en diseño o en la carga del formulario establecemos el límite que deseamos, esto es:
Text4.MaxLength = 7

' antes de dar formato establecemos el nuevo largo (que ya sabemos el tamaño resultante) , luego volvemos a fijar la longitud del 'usuario'
' el resultado es que el usuario no puede ingresar más de 7 caracteres, pero nosotros si podemos mostrarle más...

Código: Visual Basic

Private Sub Text4_Validate(Cancel As Boolean)
    Text4.MaxLength = 12
    Text4.Text = Format$(Text4.Text, "0## #### ###")
    Text4.MaxLength = 7
End Sub
 

Si al ejemplo anterior le cambios el 0 del formato por una X es decir el siguiente código: el formato nunca rellenará hasta 12 caracteres, con la X , sólo pondrá una X
La razón es que hay caracteres literales y caracteres comodín, el '0' es un carácter comodin como lo es '#', pero otros caracteres son comodín de si mismos...
Hay algunos caracteres significativos, por ejemplo format$(texto ">") convierte a mayúsculas el 'texto' y el '<' a minúsculas...

Código: Visual Basic

Private Sub Text4_Validate(Cancel As Boolean)
    Text4.MaxLength = 12
    Text4.Text = Format$(Text4.Text, "X## #### ###")
    Text4.MaxLength = 7
End Sub
 

Nebire

Decir también que hay formatos predefinidos para los tipos generícos de datos, los cuales se pueden invocar por sus nombres i pasar mediante una enumeración..

Un ejemplo que va pasando por diferentes formatos... tras exponer cada formato realiza una pausa de unos 3 segundos...

Código: Visual Basic

 
Private Sub Text5_Validate(Cancel As Boolean)
    Dim t As Single
    ' formato moneda basado en la configuración regional del equipo
    Text5.Text = Format$(Text5.Text, "Currency")
    
    t = Timer
    Do
        DoEvents
    Loop While (Timer - t) < 3
    ' este es equivalente al que solicitaba el usuarioal abrir el post
    Text5.Text = Format$(Text5.Text, "Standard")
    
    t = Timer
    Do
        DoEvents
    Loop While (Timer - t) < 3
    ' con decimales... sin puntuación
    Text5.Text = Format$(Text5.Text, "Fixed")
    
    t = Timer
    Do
        DoEvents
    Loop While (Timer - t) < 3
   ' notación científica
    Text5.Text = Format$(Text5.Text, "Scientific")
    
    t = Timer
    Do
        DoEvents
    Loop While (Timer - t) < 3
    ' sin formato...
    Text5.Text = Format$(Text5.Text, "General Number")
    
    t = Timer
    Do
        DoEvents
    Loop While (Timer - t) < 3
    '  si es cero devuelve false, en otro caso devuelve true
    Text5.Text = Format$(Text5.Text, "True") ' false, on, off
    
End Sub
 
 

Hay más formatos predefinidos, sobretodo usando fechas... pero la idea creo que es ilustrativa...

master33

Gracias por la ayuda y la rapidez por respoder la que use fue la de Neribe

Código: Visual Basic

Private Sub Text4_Validate(Cancel As Boolean)
    Text4.MaxLength = 12
    Text4.Text = Format$(Text4.Text, "0## #### ###")
    Text4.MaxLength = 7
End Sub
 

nada mas que decir gracias

Toph

Cita de: "Nebire"

Si, hay que tener cuidado, piensa que cada '#' representa una cifra, entonces una cifra sólo reconoce números y los signos de puntuación de números. Si los signos de puntuación provocan desbordamiento dará error...

OK

lo que es haber estudiado formalmente programación no como yo que a patadas tuve que aprender

Gracias por tu aporte Nebire

F_Tanori

pues que mas se puede agregar,

sino que... muy buena informacion

Saludos

fraj · « **Respuesta #10 en:** Lunes 4 de Mayo de 2009, 20:08 »

mucha gracias ,por la ayuda

SoloCodigo

Autor Tema: text con numeros (Leído 4488 veces)

master33

text con numeros

Toph

Re: text con numeros

F_Tanori

Re: text con numeros

Toph

Re: text con numeros

Nebire

Re: text con numeros

Nebire

Re: text con numeros

Nebire

Re: text con numeros

master33

Re: text con numeros

Toph

Re: text con numeros

F_Tanori

Re: text con numeros

fraj

Re: text con numeros