KB/s de Entrada y KB/s de salida en frmmain

» 25 Oct 2011 21:38

Bueno, hice este codigo, para que en el frmmain del servidor se muestre los KB/s de entrada y salida.

En el frmmain crean 2 labeles y le ponen de nombre "KBentrada" y "KBsalida"

De caption a "KBentrada" le ponen:

Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo

KB/s entrada:

De caption a "KBsalida" le ponen:

Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo

KB/s salida:

Muestra:

Servidor:

Abajo de todo el Mod_General ponemos:

Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo

Public Function Server_BuildToolTipString() As String
'*****************************************************************
'Builds the tooltip string
'*****************************************************************
    Dim kBpsIn As Single
    Dim kBpsOut As Single
 
    'Display statistics (Kilobytes)
    On Error Resume Next
        kBpsIn = Round((DataKBIn * 0.0009765625) / ((GetTickCount - tInicioServer) * 0.001), 5)
        kBpsOut = Round((DataKBOut * 0.0009765625) / ((GetTickCount - tInicioServer) * 0.001), 5)
    On Error GoTo 0
 
    'Display statistics (Bytes)
    frmMain.KBentrada.Caption = "KB/s entrada: " & kBpsIn
    frmMain.KBsalida.Caption = "KB/s salida: " & kBpsOut
 
End Function

En el Mod_General abajo de Option explicit ponemos:

Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo

' Data coming in and out
Public DataKBIn As Long
Public DataKBOut As Long

Buscamos:

Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo

''
' Handles incoming data.
'
' @param    userIndex The index of the user sending the message.
 
Public Sub HandleIncomingData(ByVal UserIndex As Integer)
'***************************************************
'Author: Juan Martín Sotuyo Dodero (Maraxus)
'Last Modification: 01/09/07
'
'***************************************************
On Error Resume Next
    Dim packetID As Byte
    
    packetID = UserList(UserIndex).incomingData.PeekByte()

Abajo ponemos:

Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo

DataKBIn = Len(packetID)
    
    Call Server_BuildToolTipString

Buscamos:

Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo

Public Sub SendData(ByVal sndRoute As SendTarget, ByVal sndIndex As Integer, ByVal sndData As String)
'**************************************************************
'Author: Juan Martín Sotuyo Dodero (Maraxus) - Rewrite of original
'Last Modify Date: 01/08/2007
'Last modified by: (liquid)
'**************************************************************
On Error Resume Next
    Dim LoopC As Long
    Dim map As Integer

Abajo ponemos:

Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo

DataKBOut = Len(sndData)
    
    Call Server_BuildToolTipString

Saludos

» 25 Oct 2011 21:40

Jaja, sigo sin intender, para qe sirve esto ?

PD: Buen aporte.

» 25 Oct 2011 21:44

[JuliaaN] escribió:Jaja, sigo sin intender, para qe sirve esto ?

PD: Buen aporte.

Muestra la cantidad de Kilobytes, que se recibe el servidor y envia el servidor.

Saludos

» 25 Oct 2011 22:18

Hay algo que no me cierra, en el único lugar que cambias DataKBIn es en:

Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo

DataKBIn = Len(packetID)

Pero packetID es byte, su tamaño es 1 byte entonces DataKBIn siempre es uno.

Otra cosa que no me quedó claro es que si estás contando kb por segundo, no tendrías que ir sumando bytes en algún lado?.

» 25 Oct 2011 22:19

Buen aporte! :ok:

» 25 Oct 2011 22:36

TwIsT escribió:Hay algo que no me cierra, en el único lugar que cambias DataKBIn es en:
Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo
DataKBIn = Len(packetID)

Pero packetID es byte, su tamaño es 1 byte entonces DataKBIn siempre es uno.

Otra cosa que no me quedó claro es que si estás contando kb por segundo, no tendrías que ir sumando bytes en algún lado?.

No suma, muestra kb de cada paquete que envia o recibe. Despues le meto que diga KB/s entrada: 0,0002 = 16,1502, es un ejemplo las cifras, voy hacer que en el igual tome la suma total de kb.

Saludos

» 25 Oct 2011 23:58

Todo lo que hiciste, te lo resumo en "ocxMonitor.ocx", con eso lo hace mucho mas eficiente, mejor y rapido

» 26 Oct 2011 01:12

podrías hacer que cada packet que reciba, lo guarde en una variable sumandole + 1 , osea Kb recibidos (total) = tantos

acordate que el protocolo es binario y cada paquete es un byte (e aquí el byte identificador , que se usa en el enum)

» 26 Oct 2011 01:24

ami no me funciona osea solamente me muestra los byte de entrada que siempre queda en 0 o no me aparecen lso de salida

» 26 Oct 2011 01:41

miqueas150 escribió:ami no me funciona osea solamente me muestra los byte de entrada que siempre queda en 0 o no me aparecen lso de salida

La cosa es que entres al ao para testearlo si abris server, y lo dejas hay es obio que no envia ningun dato.

Saludos

#

Este post ha sido eliminado por Cyrus en 26 Oct 2011 13:15.
Razón: La respuesta era innecesaria. No le agregaba nada nuevo al tema.

» 26 Oct 2011 12:13

Que es la constante esta?: 0.0009765625

» 26 Oct 2011 12:53

miqueas150 escribió:ami no me funciona osea solamente me muestra los byte de entrada que siempre queda en 0 o no me aparecen lso de salida

Deve ser por que lo testiaste con 127.0.0.1 y ahy no carga internet

» 26 Oct 2011 12:56

BiWolf escribió:
miqueas150 escribió:ami no me funciona osea solamente me muestra los byte de entrada que siempre queda en 0 o no me aparecen lso de salida

Deve ser por que lo testiaste con 127.0.0.1 y ahy no carga internet

No digas boludeces, con o sin internet, el envio de datos siempre esta, yo lo testeo con 127.0.0.1 y anda pefecto, seguro no abrio el ao.

Saludos

#

Este post ha sido eliminado por Franeg95 en 26 Oct 2011 14:59.
Razón: La respuesta era un Offtopic, sin relación con la tematica.

KB/s de Entrada y KB/s de salida en frmmain

¿Quién está conectado?