Punto decimal y redondeo en texbox

Solo disponible en BuenasTareas
  • Páginas : 3 (709 palabras )
  • Descarga(s) : 8
  • Publicado : 25 de agosto de 2010
Leer documento completo
Vista previa del texto
Punto Decimal y Redondeo en Texbox
Mejorando el Texbox
Introducción
Hola que tal aquí mi primera colaboración una pequeña rutina que dividí en dos funciones que me permite escribir el puntodecimal en un texbox común de visual basic permitiendo solo una entrada de punto decimal, para después redondearlo a dos dígitos.

Como funciona
Estas rutinas la primera chequea punto revisa si hemosescrito un punto decimal en el texbox si existe el punto no permite la entrada de otro punto decimal ya que el permitir la entrada de mas puntos causa errores de operaciones, en caso de escribir elpunto decimal deberá ver que solo existan dos cifras decimales es decir si después del punto escribo tres cifras deberá redondearlo y dejarlo a dos cifras decimales según como escriba es decir si escribo23.878 lo redondeara a 23.88 ;todo esto se hará en el evento change del texbox ante todo debes restringir la entrada de texto al texbox a solo números y el punto decimal como lo muestra el código quepongo a continuación, espero les sea de utilidad.

Nota:
Esto es una nota.
Si quieres, puedes justificar también el texto que se muestre en la nota, de esa forma, los párrafos estarán emparejadosde forma automática... es que tengo que seguir escribiendo para que veas el efecto, si no escribo al menos tres líneas, no se notará que el texto está totalmente justificado (o alineado, si loprefieres).

El código:
Restringir el texbox a solo números y el punto decimal:
Private Sub textbox_KeyPress(KeyAscii As Integer)

If InStr("0123456789.", Chr(KeyAscii)) = 0 Then
IfKeyAscii 8 Then KeyAscii = 0
End If
End Sub

Funciones para hacer el chequeo de punto decimal para después redondearlo de ser necesario:

Function checa_punto(valor As String) As BooleanDim x As Integer, contador As Integer
checa_punto = False
contador = 0
For x = 1 To Len(valor)
If Mid(valor, x, 1) = "." Then contador = contador + 1
Next x
If contador > 1 Then checa_punto =...
tracking img