Bonjour à tous (et à toutes :mrgreen:)
--------------------------------------------------------------------------
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 :mouarf: 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 8-)
--------------------------------------------------------------------------
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):
Un aperçut de ce que ça peut donner:Code:
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
http://nsa33.casimages.com/img/2013/...2857432151.png
Voila, désoler pour ce long et tortueux discours, mais c'était la moindre des chose en tant que nouveau membre ;)
Enjoy ! :ccool:
Dylan.
