[VB.NET]Comment calculer vitesse de transfert de fichier?

Version imprimable

13/01/2006, 16h46
Aspic

[VB.NET]Comment calculer vitesse de transfert de fichier?

Bonjour,

Je voudrais créer une procédure permettant de calculer la vitesse de transfert d'un fichier ( avec les sockets ) que j'envois par packet de 4096 et mettre un timer disant le temps estimé du transfert...

Comment faire :?: :?:

Merci beaucoup
13/01/2006, 18h40
NicolasG

Le principe habituel, c'est de calculer la vitesse moyenne de ce qu'on a déjà reçu et d'en déduire le temps total de transfert à cette vitesse.
Pas besoin d'un timer, le temps se mesure avec DateTime.Now.Ticks.
13/01/2006, 19h20
Aspic

Citation:

Le principe habituel, c'est de calculer la vitesse moyenne de ce qu'on a déjà reçu

et comment on fait ca ?
13/01/2006, 19h27
DeusXL
Citation:

Envoyé par Aspic

Citation:

Le principe habituel, c'est de calculer la vitesse moyenne de ce qu'on a déjà reçu

et comment on fait ca ?

C'est pas compliqué, il te faut un compteur du nombre de bytes envoyés.
Avant de lancer le traitement, tu créé une variable

Code:

Dim startTime As Long = DateTime.Now.Ticks

et ensuite, à chaque envoi de 4096, la vitesse en octets/seconde est donnée par :
Code:

1 2 Dim speed As Long = bytesEnvoyesDepuisLeDebut / (DateTime.Now.Ticks - startTime) speed *= 10000000
En tout cas ça doit ressembler à ça ;)

Si tu veux plus d'infos, colle moi ton code d'envoi...

Ca à pas l'air de marcher...

Tien voici ma procedure d'envoi :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
 
            Dim rest As Integer = 4096
            Dim cptWhile As Integer = 0
            Dim Buffer(rest) As Byte
            Dim startTime As Long = DateTime.Now.Ticks
 
            StreamRead = New FileStream(TextFolder.Text, FileMode.Open, FileAccess.Read)
            Dim data(StreamRead.Length) As Byte
 
            While Not cptWhile = StreamRead.Length \ rest
                cptWhile += 1
                StreamRead.BeginRead(Buffer, 0, rest, AddressOf read, StreamRead)
                PBenvoi.Value = 100 * (cptWhile * rest / data.Length)
                SocketFichierSvr.EnvoyerFichier(Buffer, rest)
                Dim speed As Long = cptWhile * rest / (DateTime.Now.Ticks - startTime)
                speed *= 10000000
                Label3.Text = speed
            End While
 
            'envoi le reste des données
            rest = data.Length - (cptWhile * 4096) - 1
            Buffer = New Byte(rest) {}
            StreamRead.BeginRead(Buffer, 0, rest, AddressOf read, StreamRead)
            If rest > 0 Then SocketFichierSvr.EnvoyerFichier(Buffer, rest)

merci

Citation:
Envoyé par Aspic
Code:

1 2 Dim rest As Integer = 4096 Dim cptWhile As Integer = 0
Si tu déclares ces deux variables en Long :?:
Bon par contre ma connaissance du VB est assez limitée, et je vois pas trop dans ton code :?
Sinon voici un petit code basique qui illustre quelque chose de proche de ce que tu veux faire :
Code:

1 2 3 4 5 6 7 8 9 10 Dim startTime As Long = DateTime.Now.Ticks Dim sizeToSend As Integer = 4096 Dim sent As Long = 0 Dim chance As Random = New Random While True sent += sizeToSend System.Threading.Thread.Sleep(chance.Next(100, 1000)) Dim speed As Long = (sent * 10000000) / (DateTime.Now.Ticks - startTime) Console.WriteLine(speed) End While
PS : Ma première idée est justifiée par le fait que si tu mets "Dim sent As Integer" ici, ça ne marchera pas...

Dernière précision,

Citation:

Ca à pas l'air de marcher...

Cela signifie ? Exception ? Résultat inattendu ? (si oui lequel) ...

13/01/2006, 20h19
Aspic

Sinon y'a pas d'erreur juste le resultat innatendu c'est à dire que c'est toujours 0 que vaut Speed...

j'ai regarder donc la c'est bizarre car la vitesse augmente constament... forcement car

Code:

Dim speed As Long = (cptWhile * rest * 10000000) / (DateTime.Now.Ticks - startTime)

comme cptWhile * rest augmente constament le resultat de la division augmente... je comprends pas ! De plus pourquoi tu multiplies par 10000000 ??
13/01/2006, 20h22
NicolasG

speed est un Long et le calcul donne un nombre très inférieur à 1 -> Le résultat est arrondi à 0 .
speed doit ête un Double.
13/01/2006, 20h30
DeusXL

Citation:

Envoyé par NicolasG

speed est un Long et le calcul donne un nombre très inférieur à 1 -> Le résultat est arrondi à 0 .
speed doit ête un Double.

Moi ça m'a fait ça (dans l'exemple que j'ai montré) si l'un des nombres utilisés était un Integer... Je vois pas pourquoi un Long marcherait pas :? M'enfin c'est vrai que ce qu'il lui affiche ressemble beaucoup à ce que tu dis donc c'est à essayer.
Par contre là où j'avais fait une bêtise c'est séparer la multiplication par 10000000 et c'est à mon avis de là que vient l'erreur... Donc essayes de mettre

Code:

Dim speed As Long = cptWhile * rest * 10000000 / (DateTime.Now.Ticks - startTime)

Ca m'étonnerait que ça ne marche pas mieux !

[Edit pour réagir à l'Edit :)] :

Citation:

comme cptWhile * rest augmente constament le resultat de la division augmente... je comprends pas ! De plus pourquoi tu multiplies par 10000000 ??

Non le résultat de la division n'est pas supposé augmenter (ou pas spécialement en tout cas), je divise par (DateTime.Now.Ticks - startTime) donc au cours du temps, ce nombre augmente !
PS : Je multiplie par 10000000 car le résultat de DateTime.Ticks est en dixième de micro-secondes. Or on ne veut pas un résultat en octet/dixième de micro-seconde :)
13/01/2006, 20h58
Aspic

en le mettant en integer ca a l'air de marcher ( le double marchais aussi mais j'avais 6 chiffres apres la virgule et puis je voulais un nombre rond ou alors avec un chiffre apres la virgule mais je sias pas comment faire ca.. )
Y'a t-il une possibilité de mettre ca dans un timer car dans ma boucle ca la fait ralentir considérablement et donc le transfert est plus lent !!
De plus comment estimer le temps restant du transfert ? ( ce qui me permetrra de verifié si la vitesse est la bonne )

Merci
13/01/2006, 21h25
NicolasG

Une petite révision des proportions ?

On a choisi de calculer la vitesse moyenne V = [taille envoyée (octets)] / [temps écoulé (secondes)]
Le temps de transfert total en secondes est T = [taille fichier en octets]/V
Le temps restant en secondes est donc T-[temps écoulé(secondes)]
13/01/2006, 21h54
Aspic

lool merci bcp :) :wink: :wink: