Mirage Engine
Adding Transfer Details - Printable Version

+- Mirage Engine (https://mirage-engine.uk/forums)
+-- Forum: Mirage Source (Nostalgia) (https://mirage-engine.uk/forums/forumdisplay.php?fid=61)
+--- Forum: Archive (2006-2011) (https://mirage-engine.uk/forums/forumdisplay.php?fid=18)
+---- Forum: Resources (https://mirage-engine.uk/forums/forumdisplay.php?fid=49)
+---- Thread: Adding Transfer Details (/showthread.php?tid=51)

Adding Transfer Details - Tutorial Bot - 01-06-2006

Author: 22367rh
Difficulty: 1/5

:: SERVER SIDE ::
In frmServer,
  • Add 2 Textboxes called txtBytesSent and txtBytesRecieved.
  • Add 4 New Menu Items named mnuBytes, mnuKB, mnuMB, mnuGB (with the captions set to Bytes, Kilobytes, Megabytes, Gigabytes)

Find the Data_Arrival section for the game socket. Add this code just before the end:
Code:
BR.Bytes = BR.Bytes + bytesTotal
    BR.KBytes = BR.Bytes / 1024
    BR.MBytes = BR.KBytes / 1024
    BR.GBytes = BR.MBytes / 1024
        DisplayBytesRecieved

Find the Send_Progress section for the game socket. Add:
Code:
BS.Bytes = BS.Bytes + bytesSent
    BS.KBytes = BS.Bytes / 1024
    BS.MBytes = BS.KBytes / 1024
    BS.GBytes = BS.MBytes / 1024
        DisplayBytesSent
At the end of frmServer, add:
Code:
Private Sub mnuBytes_Click()
    ByteMeasure = "Bytes"
    
    UncheckAllMeasurements
    mnuBytes.Checked = True
        DisplayBytesRecieved
        DisplayBytesSent
End Sub

Private Sub mnuGB_Click()
    ByteMeasure = "GigaBytes"
    
    UncheckAllMeasurements
    mnuGB.Checked = True
        DisplayBytesRecieved
        DisplayBytesSent
End Sub

Private Sub mnuKB_Click()
    ByteMeasure = "KiloBytes"
    
    UncheckAllMeasurements
    mnuKB.Checked = True
        DisplayBytesRecieved
        DisplayBytesSent
End Sub

Private Sub mnuMB_Click()
    ByteMeasure = "MegaBytes"
    
    UncheckAllMeasurements
    mnuMB.Checked = True
        DisplayBytesRecieved
        DisplayBytesSent
End Sub
Create modBytes and add:
Code:
Public BS As BytesType
Public BR As BytesType

Public ByteMeasure As String

Public Type BytesType
    Bytes As Long
    KBytes As Long
    MBytes As Long
    GBytes As Long
End Type

Public Function DisplayBytesRecieved()
Dim frm As frmServer
    frmServer.txtBytesRecieved.Text = ""
    
    If ByteMeasure = "Bytes" Then
        frmServer.txtBytesRecieved.Text = BR.Bytes & " B"
        
    ElseIf ByteMeasure = "KiloBytes" Then
        frmServer.txtBytesRecieved.Text = BR.KBytes & " KB"
        
    ElseIf ByteMeasure = "MegaBytes" Then
        frmServer.txtBytesRecieved.Text = BR.MBytes & " MB"
        
    Else    'ByteMeasure = "GigaBytes"
        frmServer.txtBytesRecieved.Text = BR.GBytes & " GB"
        
    End If
End Function

Public Function DisplayBytesSent()
    frmServer.txtBytesSent.Text = ""
    
    If ByteMeasure = "Bytes" Then
        frmServer.txtBytesSent.Text = BS.Bytes & " B"
        
    ElseIf ByteMeasure = "KiloBytes" Then
        frmServer.txtBytesSent.Text = BS.KBytes & " KB"
        
    ElseIf ByteMeasure = "MegaBytes" Then
        frmServer.txtBytesSent.Text = BS.MBytes & " MB"
        
    Else    'ByteMeasure = "GigaBytes"
        frmServer.txtBytesSent.Text = BS.GBytes & " GB"
        
    End If
End Function

Sub UncheckAllMeasurements()
    frmServer.mnuBytes.Checked = False
    frmServer.mnuKB.Checked = False
    frmServer.mnuMB.Checked = False
    frmServer.mnuGB.Checked = False
End Sub
That's all!