BARRE D'AVANCEMENT DANS UNE APPLICATION CONSOLE

Messages postés
40
Date d'inscription
mercredi 14 septembre 2005
Statut
Membre
Dernière intervention
16 mars 2008
- - Dernière réponse : arnaud2006
Messages postés
6
Date d'inscription
dimanche 7 octobre 2007
Statut
Membre
Dernière intervention
1 juin 2009
- 18 août 2008 à 20:17
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.

https://codes-sources.commentcamarche.net/source/43270-barre-d-avancement-dans-une-application-console

Afficher la suite 
arnaud2006
Messages postés
6
Date d'inscription
dimanche 7 octobre 2007
Statut
Membre
Dernière intervention
1 juin 2009
-
Merci
ghuysmans99
Messages postés
2501
Date d'inscription
jeudi 14 juillet 2005
Statut
Contributeur
Dernière intervention
5 juin 2016
1 -
oops ...

# Private Sub WriteRien(ByVal NOF As Integer)
# Dim i As Integer
# For i = 1 To NOF
# Console.WriteLine(" ")
# Next i
# End Sub
BERGOUGNOUX
Messages postés
40
Date d'inscription
mercredi 14 septembre 2005
Statut
Membre
Dernière intervention
16 mars 2008
-
Oups désolé !
ghuysmans99
Messages postés
2501
Date d'inscription
jeudi 14 juillet 2005
Statut
Contributeur
Dernière intervention
5 juin 2016
1 -
désolé .. au fait : c'est ghuysmans99 et pas GHUYSMANNS99
BERGOUGNOUX
Messages postés
40
Date d'inscription
mercredi 14 septembre 2005
Statut
Membre
Dernière intervention
16 mars 2008
-
Ca ne fonctionnera pas :

1)WriteRien utilise WriteLine et non pas Write : à chaque fois VB sautera une ligne au lieu d'écrire un espace.

2)Utiliser WriteRien 38 ajouterait tous les espaces d'un coup sans attendre d'intervalles, en supposant qu'on utilise Write et non pas WriteLine.

3)Si on utilise For i = 1 To 38, VB recommencera l'opération jusqu'à ce que la variable i valle 38, la barre progressera donc progressivement (c'est le cas de le dire !). Si on utilise ton code, VB ne le fera qu'une fois, vu qu'il n'y a pas de boucle, et on se retrouve donc au 2) : les 38 espaces seront ajoutés en même temps, la barre progressera donc d'un coup.

Voilà, j'espère que mes explications sont compréhensibles...