Discussion :

[tmp2316]

bonjour a tous je voudrais savoir comment faire une barre de progression avec un comptage en millisecondes

merci

[cpcdos]

Salut,

Dans le fichier PROG\PROGRESS.CPC tu as un exemple, mais en secondes, voici un exemple en millisecondes :

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
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
REM/ Cette variable s'incrementera
FIX/ PASSE = 0

REM/ On cree une fenetre de 400x150 au centre de l'ecran
INI/ FENETRE(
	INI;NOM 	= "FENETRE_PROGRESS"
	INI;TEXTE	= "Test de barre de progression"
	INI;TYPE	= "1"
	INI;COULEUR	= "255,255,255"
	INI;PX		= "MX"
	INI;PY		= "MY"
	INI;TX		= "400"
	INI;TY		= "150"
	CREER/
INI/ FENETRE)

REM/ On cree une barre de progression de 370x20
INI/ PROGRESSION(
	INI;NOM		= "BAR_PROGRESS"
	INI;FENETRE	= "FENETRE_PROGRESS"
	INI;STATUT	= "0"
	INI;TYPE	= "1"
	INI;IMG		= "0"
	INI;COULEUR	= "220,220,220"
	INI;COULEURP	= "255,050,050"
	INI;PX		= "10"
	INI;PY		= "100"
	INI;TX		= "370"
	INI;TY		= "20"
	CREER/
INI/ PROGRESSION)

REM/ On cree un compteur d'une intervalle de 300ms
INI/ COMPTEUR(
	INI;NOM 	= "COMPT_PROGRESS"
	INI;FENETRE	= "FENETRE_PROGRESS"
	INI;INTERVALLE	= "0.300"
	INI;ACTIVE	= "1"
	CREER/
	EV/ %PROG%\PROGRESS.CPC
INI/ COMPTEUR)

rem/ afin d'optimiser on stoppe ici
stop/

REM/ La procedure d'evenement SI le compteur "COMPT_PROGRESS" a atteint son cycle de 300ms
PROC/ COMPT_PROGRESS(CYCLE)
        REM/ On incremente de +3
	FIX/ PASSE = /C %PASSE% + 3

        REM/ Si il depasse 100 alors on quitte
	SI/ %PASSE% > 100 (:ALLER/ FIN:)

        REM/ On place la valeur de PASSE tant que % dans la barre
	INI/ PROGRESSION(
		INI;NOM	= "BAR_PROGRESS"
		INI;STATUT	= "%PASSE%"
		CREER/
	INI/ PROGRESSION
        stop/
FIN/ PROC


:FIN:
REM/ On ferme la fenetre et on affiche le message
fermer/ FENETRE_PROGRESS
Msgbox/ /texte=Fin du comptage! /titre=Message! /mode=1 /alerte=0

[tmp2316]

merci