Limitar decimales y winsock

[Kizar]

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 [Seleccionar] Expandir


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

[Ironhorse]

Código [Seleccionar] Expandir


Round(expresión [, númLugaresDecimales])


[programatrix]

Ponle on error resume next o desactiva los controles para que no se pueda hacer nada

[programatrix]

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.

[Deep_Purple]

Hola
Puedes crear una matriz de controles y tratarlos dentro de un bucle.
Suerte.

[Slasher-K]

La función Format sirve para eso:

Código [Seleccionar] Expandir


      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.