Calcul du temps de téléchargement (je me suis inspiré d'une source de se site)

Soyez le premier à donner votre avis sur cette source.

Vue 3 374 fois - Téléchargée 169 fois

Description

Je me suis inspiré d'une source de se site et g ajouter pas mal d'options ...

Codes Sources

A voir également

Ajouter un commentaire

Commentaires

yohan210
Messages postés
42
Date d'inscription
vendredi 20 décembre 2002
Statut
Membre
Dernière intervention
1 juin 2006

je vois que je suis pas le seul a ne pas debuger mes prog.
pitié arreter de mettre des programmes tout miteux, ou quasiment a chaque clicks de sourrie on genere une putain d'erreur, ou alors gerer les erreurs une simple ligne "On error resume next " peut eviter tout ces dessagrement.
merci de votre comprehension
cs_Nestor
Messages postés
182
Date d'inscription
mardi 8 janvier 2002
Statut
Membre
Dernière intervention
2 octobre 2012

je reste tj sur ma fain la..........
tu supposes télécharger à 4,50ko/s que tu divises sur une minute.
jusque la ok ça reste dans la limite du raisonable pour l'opération.

je voudrais savoir maintenant de ou tu sors tes 4.5ko/s, il arrive qu'un modem 56k fait du 2ko/s (c con pour luis mais ça arrive)
tu va me dir maintenant divise 2ko/s sur une minute :D lol

ça aurait été cool dans ton code de voir par exemple à partir d'un fichier placé sur un ftp, la vitesse de téléchargement et la durée du téléchargement sans avoir à passer par le type de modem.
car la tu suppose un chiffre à partir d'un type de modem.

si il existait 150 modems, tu ferais 150 divisions sur une minute sur un chiffre au pif ?

je sais pas si il y a déjà un exemple comme ça tout fait sur ce site, je vais y regardé tien......
varegue
Messages postés
33
Date d'inscription
mercredi 28 juillet 2010
Statut
Membre
Dernière intervention
28 juillet 2010

j'ai pour abitude de ne rien dire quand je voit certaine chose...
mais alors la :)
Nestor cherche y a rien a savoir c juste un calcul de temps
Label4.Caption = "Pour une vitesse moyenne de 4,50 Ko/S"
If Label21.Caption = "Min" Then
Text2.Text = CDec(Text1) / 4.5 / 60
Text2.Text = Round(CDec(Text2.Text), 2)
End If
If Label21.Caption = "Hrs" Then
Text2.Text = CDec(Text1) / 4.5 / 3600
Text2.Text = Round(CDec(Text2.Text), 2)
End If

on a pas osez... il la fait :)
cs_Nestor
Messages postés
182
Date d'inscription
mardi 8 janvier 2002
Statut
Membre
Dernière intervention
2 octobre 2012

comment sa marche ton truc ?
ya pas de fichier à téléchargé pour tester ?

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.