Fonction WaitingBar

**XtR3m_St4RkY** · 04/12/2013, 17h13

Bonjour à tous (et à toutes

)
--------------------------------------------------------------------------
Etant nouveau, une petite présentation s'impose:

Cela fais trop longtemps que je haire sur Developpez sans jamais me connecter. Mais ce temps là est révolue !
Finie de profiter de vos super programmes sans vous faire profiter des miens !
Finie d'apprendre sans apprendre aux autres !
Bref.

J'ai 14 ans, je suis collégien et je programme depuis mes 11 ans. J'ai pu tester différents langage brièvement tel le C, VB.Net... Mais à mes début, je trouvais ces langage trop difficile, alors j'ai décidé de me tourner vers quelques chose de plus simple. A l'époque, je cherchais à faire des virus inoffensifs, et c'est la que j'ai découvert le Batch. Du coup, j'ai bien accroché et cela fais 3 ans que ça dure

Actuellement, j'ai décider de changer un peu, en me mettant à AutoIt. J'avoue que sa me plais beaucoup.

Trève de bavardage, il est temps de montrer mes talents de programmeur

--------------------------------------------------------------------------

Je vais donc vous présenter une petite fonction que j'ai créé. (Ah j'oubliais, j'ai un niveau assez correct en Batch).

Cette fonction ce nomme WaitingBar, elle permet de générer dynamiquement une barre d'attente avec différents paramètres. (La syntaxe est en commentaire dans le code ci-dessous):

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
@Echo Off
Mode 80,6
SetLocal EnableDelayedExpansion
:: // Call:WaitingBar [Texte] [Couleur Fond/Texte] [Caractère 1/2/3/4]
:: //                [Sous-Caractère 1/2/3/4] [Cadre 1/2] [Pas] [Délais] [Fin]
Call:WaitingBar CHARGEMENT... 1A 3 4 1 2 2 100
Exit
:WaitingBar
  Color %2
  If "%3" EQU "1" Set "Caractère=°"
  If "%3" EQU "2" Set "Caractère=²"
  If "%3" EQU "3" Set "Caractère=Û"
  If "%3" EQU "4" Set "Caractère=±"
  If "%4" EQU "1" Set "Sous-Caractère=°"
  If "%4" EQU "2" Set "Sous-Caractère=²"
  If "%4" EQU "3" Set "Sous-Caractère=Û"
  If "%4" EQU "4" Set "Sous-Caractère=±"
  If "%5" EQU "1" Set "Cadre=ÚÄ¿³ÀÙ"
  If "%5" EQU "2" Set "Cadre=ÉÍ»ºÈ¼"
  For /L %%A In (1,%6,%8) Do (Set "Longueur=%Cadre:~1,1%!Longueur!")
  Set /A "Fin=%8-1"
  For /L %%B In (1,%6,%8) Do (
    Cls
    Echo.
    Echo  %1 [%%B%%%]
    Set "Barre=%Caractère%!Barre!"
    For /L %%C In (%6,%6,!Fin!) Do (Set "#=%Sous-Caractère%!#!")
    Echo !Cadre:~0,1!!Longueur!!Cadre:~2,1!
    Echo !Cadre:~3,1!!Barre!!#!!Cadre:~3,1!
    Echo !Cadre:~4,1!!Longueur!!Cadre:~5,1!
    Set "#="
    Set /A "Fin-=%6"
    Ping 127.0.0.1 -n %7 > Nul
    )
  Goto:Eof