Discussion :

[Kalvin_20]

Bonjour à tous
je dois faire un programe de lecture d'une DLL d'acquisition, en premier temps j'ai commencé par lire les données enregistrée par la DLL

voici mon code :

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
For j = 1 To j = 16  'lire 16bits
   UINT _lread(     ' j'ai du rouge la
 
    hFile hFile     ' Nom du fichier ou il enregistre les byts^^
 
    LPVOID lpBuffer    ' adresse du fichier
    UINT uBytes     ' le nombre de byts que tu veux lire
    );   ' j'ai du rouge aussi la je presume que c'est un probleme de syntax
    Dim byts As Integer
    timer1.Enabled = True
    If timer1.Value = 60 Then
    Feuil1.Range("1", "j") = byts
    End If
    timer1.Value = 0
    timer1.Enabled = False
Next j

Maintenant il me reste à enregistrer les données de la DLL dans un fichier

est ce que vous auriez une idée de la façon dont il faut le faire ???

Merci

[fred65200]

bonjour, ton code n'est pas du VBA.
un exemple en VBA qui te met les 16 premiers bytes sur la feuille active , colonne A.

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
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
   '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

@+

[Kalvin_20]

Merci fred

Maintenant il me faut une boucle pour calculer combien de valeur Je peux lire en une minute;

est ce que je fais sa avec un timer ? et si oui est ce que le timer dans mn premier code fonctionne ?

[fred65200]

re
c'est une 2ème question, ouvre un autre fil et marque celui-ci comme résolu si c'est le cas.
cordialement