Timer dans une boucle

Version imprimable

Bonjour
VOila j'ai des valeurs à lire dans un fichier, mais je cherche à savoir combien de valeur ya dans un espace de temps, pr cela j'ai pensé à faire un timer et le regler sur une 1Minute et une boucle pour le calcul des valeurs enregistrées.

Jespere que j été assez clair

voici mon code :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 Sub TEST() Dim NoFichier As Integer Dim NomFichier As String Dim i As Long Dim b As Byte NoFichier = FreeFile NomFichier = "Chemin complet de la dll" Open NomFichier For Binary Access Read Lock Read As #NoFichier i = 0 For i = 1 To 16 Get #NoFichier, , b Cells(i, "A") = b Next fin: Close #NoFichier End Sub

re, pour savoir combien de boucles tu peux effectuer en 1 minute, tu peux essayer ceci

Code:

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
Option Explicit
 
 
Public Declare Function GetTickCount Lib "kernel32" () As Long
 
Sub CombienDeBoucles()
Dim maString As String
Dim Debut As Long, Fin As Long
Dim i As Long
i = 0
 
Debut = GetTickCount()
Fin = Debut + 60000
 
Do While GetTickCount < Fin
    i = i + 1
    TEST
Loop
MsgBox i & " boucles effectuées en 1 minute."
End Sub
Sub TEST()
Dim NoFichier As Integer
Dim NomFichier As String
Dim i As Long
Dim b As Byte
NoFichier = FreeFile
'NomFichier = "Chemin complet de la dll"
 NomFichier = "C:\Program Files\Acer\OrbiCam10\EFVal.dll"
Open NomFichier For Binary Access Read Lock Read As #NoFichier
   i = 0
   'Boucle d'écriture des valeurs sur la feuille
   For i = 1 To 16
   Get #NoFichier, , b
      Cells(i, "A") = b
'pour l'avoir sur une ligne
'Cells(1, i) = b
   Next
Fin:
 
   Close #NoFichier
 
End Sub

:D
@+

24/02/2009, 18h54
Kalvin_20

Moi je cherche à savoir combien d'enregistrement par minute :roll:

Merci à toi fred
24/02/2009, 19h05
fred65200

re
combien d'enregistrements de quoi, tu peux certainement adapter le code donné précédemment.
Sinon, donne plus d'explications, ma boule de cristal est en réparation.:D
@+

Citation:

Envoyé par fred65200

re, pour savoir combien de boucles tu peux effectuer en 1 minute, tu peux essayer ceci

Code:

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
Option Explicit
 
 
Public Declare Function GetTickCount Lib "kernel32" () As Long
 
Sub CombienDeBoucles()
Dim maString As String
Dim Debut As Long, Fin As Long
Dim i As Long
i = 0
 
Debut = GetTickCount()
Fin = Debut + 60000
 
Do While GetTickCount < Fin
    i = i + 1
    TEST
Loop
MsgBox i & " boucles effectuées en 1 minute."
End Sub
Sub TEST()
Dim NoFichier As Integer
Dim NomFichier As String
Dim i As Long
Dim b As Byte
NoFichier = FreeFile
'NomFichier = "Chemin complet de la dll"
 NomFichier = "C:\Program Files\Acer\OrbiCam10\EFVal.dll"
Open NomFichier For Binary Access Read Lock Read As #NoFichier
   i = 0
   'Boucle d'écriture des valeurs sur la feuille
   For i = 1 To 16
   Get #NoFichier, , b
      Cells(i, "A") = b
'pour l'avoir sur une ligne
'Cells(1, i) = b
   Next
Fin:
 
   Close #NoFichier
 
End Sub

:D
@+

merci mais pour la reponse, mais quand je le met sous excel, j'arrive pas à l'enregistrer...je dis le lier à une macro, sauf que sous excel2007 j'y arrive pas et c'est le seul outil que j'ai entre les mains...si vous pouvez me donner un coup de main merci!!

25/02/2009, 23h20
ucfoutu

Bonjour,

Si tu utilises une macro (non dans un module) change (ligne 2) le mot Public par le mot Private.
25/02/2009, 23h22
fred65200

Bonjour Kalvin_20, Ucfoutu,

que veux tu faire exactement.
Cette macro fonctionne sur Excel 2007
@+
25/02/2009, 23h29
Kalvin_20

c'est pas un probleme de private ou public :roll:
j'arrive pas à enregistrer le code...
le prog me renvoi ceci :

les fonctionalités suivantes de peuvent pas etre enregistrer dans de classeurs sans macro :
*Projet VBA

Donc ma question est : comment crée une macro et associé le bout de code avec en excel2007 ?
Merci
25/02/2009, 23h31
fred65200

re
enregistre au format .xlsm
Classeur Excel prenant en charge les macros
ou
au format .xls --> Classeur Excel 97-2003

:D
25/02/2009, 23h34
ucfoutu

Bonsoir, Fred62500,

Ce "chronométrage" ne serait vraiment justifié que dans le cadre de la mise en oeuvre de l'évolution d'une barre de progression.

Mais alors (donc si tel était le cas), une telle méthode n'aurait réellement de sens que si le fichier texte dont il s'agit était un fichier structuré (et dans un tel cas, plus besoin de chronométrer quoi que ce soit ... il suffirait en effet alors de : 1) calculer d'emblée le nombre d'articles en divisant la longueur du fichier par celle de la structure et de donner ce nombre à la valeur maxi de la barre, puis, tout simplement, d'incrémenter d'une unité à chaque Get)