Foro de elhacker.net

Programación => Programación Visual Basic => Mensaje iniciado por: Kizar en 28 Junio 2005, 21:50 pm



Título: Limitar decimales y winsock
Publicado por: Kizar en 28 Junio 2005, 21:50 pm
Hola

1  Tengo un problema, al pasar de bytes a kbytes divido ente 1024 pero el resultado tiene muchos decimales, ¿como podria acer para que solo me mostrara 2?

2  Cuando no estoy conectado con el server y pulso un boton me da el error de que no estoy en el estado correcto para mandar nada, el problema es que si tengo que poner en todos los botones :

Código:
if ws.state = 7 then
ws.senddata "algo"
else
Msgbox "conectate primero"
end if

¿Hay alguna manera de hacerlo para todos a la vez o directamente que no muestre el error y que no pase nada?

Salu2


Título: Re: Limitar decimales
Publicado por: Ironhorse en 28 Junio 2005, 21:55 pm
Código:
Round(expresión [, númLugaresDecimales])




Título: Re: Limitar decimales y winsock
Publicado por: programatrix en 28 Junio 2005, 22:10 pm
Ponle on error resume next o desactiva los controles para que no se pueda hacer nada


Título: Re: Limitar decimales y winsock
Publicado por: programatrix en 28 Junio 2005, 22:24 pm
Copia y pega es la única manera. Contrl + c (Copiar)
Y Control + v (Pegar) Lo digo para ir mas deprisa que si tienes que andar usando el raton puede darte algo.


Título: Re: Limitar decimales y winsock
Publicado por: Deep_Purple en 28 Junio 2005, 23:17 pm
Hola
Puedes crear una matriz de controles y tratarlos dentro de un bucle.
Suerte.


Título: Re: Limitar decimales y winsock
Publicado por: Slasher-K en 29 Junio 2005, 03:54 am
La función Format sirve para eso:

Código:
      Dim sNumber$, dNumber#

  dNumber = 34324 / 1024

  sNumber = Format$(dNumber, "0.00")

Esa operación daría 33,51953125, pero con la función Format y esa cadena de formato lo reduciría a 33,52

Saludos.