- 'Cette ligne est a ajouter dans les déclaracion
- 'Soit pp est une progressbar
- Private Declare Function GetTickCount Lib "kernel32" () As Long
- dim aa,d,g,et
-
- apres mettez ce code sans une Command par exemple:
-
- For i = 1 To 100 ' ca cest le nombre de boucle
- g = GetTickCount ' on récupere le temps
- pp.Value = i
-
- 'ICI VOUS METTEZ LE CODE A EFFECTUER
- 'exemple :
- open app.path & "\" & i & ".txt" for output
- print #1,"ce que tu veux"
- close #1
-
-
-
- d = GetTickCount ' on récupere une seconde valeur du temps
-
-
- aa = (d - g) * (100 - i) ' on effectue le premier calcul
- et = (Right(aa, 4))
-
- p = InStr(aa, et)
-
- Label2.Caption = (Left(aa, p)) & " Secondes" 'on affiche le resultat
-
- DoEvents
- Next i
'Cette ligne est a ajouter dans les déclaracion
'Soit pp est une progressbar
Private Declare Function GetTickCount Lib "kernel32" () As Long
dim aa,d,g,et
apres mettez ce code sans une Command par exemple:
For i = 1 To 100 ' ca cest le nombre de boucle
g = GetTickCount ' on récupere le temps
pp.Value = i
'ICI VOUS METTEZ LE CODE A EFFECTUER
'exemple :
open app.path & "\" & i & ".txt" for output
print #1,"ce que tu veux"
close #1
d = GetTickCount ' on récupere une seconde valeur du temps
aa = (d - g) * (100 - i) ' on effectue le premier calcul
et = (Right(aa, 4))
p = InStr(aa, et)
Label2.Caption = (Left(aa, p)) & " Secondes" 'on affiche le resultat
DoEvents
Next i