Bien, bien, bonjour à tous !
Alors, tout d'abord, je tien à préciser que c'est ma première source déposée sur vbfance.
Je lai fait moi-même et bien sûr ma connaissance je lai prise ici, à travers vos sources =)
Bon sinon ce prog sert à envoyer des fichiers de toutes tailles et je dis bien de toutes tailles(même les divix) avec winsock.
Le principe est simple, un client, un serveur, une découpe du fichier à envoyer en paquets dont la taille est configurable.
Notez sur tout que jai fait cette source dans le but de la déposé ici et non pour men servir car une partie du code se trouve dans un programme que je suis en train de mettre au point avec un ami. Donc tout ça pour vous dire car je suis un peu timide... si si ! :)
SOYEZ GENTIL(LES) AVEC MOI...
Jaime les critiques, même les plus nuls du genre "Ca sert à rien ton truck" ou encor "Tu as pris ça sur une autre source", car un critique est une critique et c'est toujours bon à prendre... mais pas dinsultes non plus s'il vous plaît ou de choses qui ridiculise les gens, car c'est ma première source et jespère avoir loccasion den déposer une autre.
Sur ce je tien par avance à m'excuser au près des personnes qui serait tenté de télécharger ma source, pour les innombrables fautes dorthographes qu'il peut y avoir dans les commentaires de la source.
Mwala.
++
Conclusion :
Ah oui ! Il y a beaucoup de bidouillages dans cette source alors si vous trouvez le moyen de faire en sorte que jarrête de me prendre la tête pour des trucks, qui je suis sur sont les plus simples du monde, merci infiniment à vous!!!
Autres choses, jai testé ce prog sur mon réseau et avec plusieurs collègues et il marche parfaitement. Je l' ai même testé sur un p1 133mhz avec win 98 ça marche aussi et ça ne plante pas (je me demande par quel miracle).
Sur ce bonne prog à toutes et à tous :o)
très bonne source, merci, elle va m'être très utile.
10/10
Arondis = Left(FileLen(NomFichier) / PacketSize, InStr(FileLen(NomFichier) / PacketSize, ",") - 1)
If Arondis <> 0 Then
NbrPackets = Arondis
Else
NbrPackets = FileLen(NomFichier) / PacketSize
End If
c'est bien la partie du code qui précise le Nbr de packets?
j'aimerai t'ajouter 2 truc qui te serviront par la suite:
primo : x = A \ B ' x reçoi le resultat de la division entiere de A sur B.
Secondo : R = A Mod B ' R reçoi le reste de la division de A sur B.
Bonne continuation.
Chaque instant... est une chance pour changer sa vie!
@+ et bonne continuation à tt les développeurs !
PS: je monte ma boite de dépannage informatique à domicile et si il ya des gens qui ont déjà bossé ds ce type de boulot je suis ouvert a tt les conseils: mayzz03@hotmail.com
Mon application avence ! Comme promit voila le bout de code que j'ai modifé pour le calcul des paquets ! Le voila :
C'est un function
Function CalculNbPaquet(taillefichier, taillepaquet) As Double
Dim reste As Integer 'Déclaration de la varialbe
Dim Nbpaquet As Double ' Déclaration d ela varialbe
reste = taillefichier Mod taillepaquet 'Calcul du reste grâce à Mod (division ecludiaine) qui retorune le reste
Nbpaquet = (taillefichier - reste) / taillepaquet 'On calucle le nombre de paquets
If reste > 0 Then Nbpaquet = Nbpaquet + 1 'Si reste n'était pas nul on rajoute 1 au nombre de paquets
CalculNbPaquet = Nbpaquet 'On retorune le nombre de paquets
End Function
Voila maintment la cod epour appelr cette fonction :
msgbox CalculNbPaquet(TAILLE DU FICHER EN OCTET, TAILLE DES PAQUETS EN OCTET)
Voila j'espère que ce morceau de code va t'aider à amélioré ta source !
Bonne programmtion à tous
@++
Optitech ^^
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.