Discussion :

[NeedUHelp]

Bonjour,

J'ai un problème qui peut peut-être se régler très vite, à vous de me le dire...
Je fais l'acquisition de valeurs avec une carte PCI-6024E et je les affiche sur un graphe CWGraph1.
Enfin du moins c'est ce que je fais pour la première acquisition...

Mon problème c'est ça, je ne comprends pas pourquoi les autres valeurs ne s'affichent pas. J'ai l'impression que
"Private Sub CWAI1_AcquiredData(ScaledData As Variant, BinaryCodes As Variant)"
ne se réalise qu'une seule fois. J'ai même testé et c'est bien ça...

Il ne faut faire le start de CWAI qu'une seule fois si je ne me trompe pas.
Alors pourquoi ça ne marche pas ?

[NeedUHelp]

Personne n'a d'idée ?
S'il vous plaît, ça me guiderait au moins un minimum...!

[l_autodidacte]

Ta demande d'aide est très peu explicite. Tout le monde n'a pas le même matériel que toi. D'autre part, tu postes uniquement l'en-tête d'une procédure dont on ignore le contenu Private Sub CWAI1_AcquiredData(ScaledData As Variant, BinaryCodes As Variant).
Pour qu'on puisse peut-être t'aider, fais voir la partie du code en relation avec l'acquisition de données.

[NeedUHelp]

Bonjour,

Voici plus de détails :
- je travaille avec Visual Basic 6.0 et une carte d'acquisition PCI-6024E
- ma fonction d'acquisition ressemble à ç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
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
Private Sub CWAI1_AcquiredData(ScaledData As Variant, BinaryCodes As Variant)
 
    NbScanTotalAcq = NbScanTotalAcq + 1
    ReDim Preserve TableauDuree(1 To NbScanTotalAcq) As Double
 
    ReDim Preserve TableauFichier(0 To 2, 1 To NbScanTotalAcq) As Double
 
    TableauDuree(NbScanTotalAcq) = TextDuree.Text
 
    'stockage des valeurs de l'acquisition dans des tableaux
    'on prend les scans du scan(0) au scan(NbScanAcqVoulu-1)
    For i = 0 To CWAI1.NbScanAcqVoulu - 1
        'on recupère la donnée du scan(i) de la voie0
        Voie0(i) = ScaledData(0, i) * GainEntréeAna0 + OffsetEntréeAna0
        'on recupère la donnée du scan(i) de la voie1
        Voie1(i) = ScaledData(1, i) * GainEntréeAna1 + OffsetEntréeAna1
        'on recupère la donnée du scan(i) de la voie2
        Voie2(i) = ScaledData(2, i) * GainEntréeAna2 + OffsetEntréeAna2
    Next i
 
    'définition des colonnes du tableau TableauFichier
    TableauFichier(0, NbScanTotalAcq) = Voie0
    TableauFichier(1, NbScanTotalAcq) = Voie1
    TableauFichier(2, NbScanTotalAcq) = Voie2
 
    'TRACE DU GRAPHE
    '   courbe obligatoirement tracée
    CWGraph1.Plots(1) = TableauFichier(0)
 
    '   courbe tracée selon le choix fait dans une autre partie du programme
    If Option1.Value = True Then
        CWGraph1.Plots(2) = TableauFichier(1)
        CWGraph1.PlotXvsY TableauDuree, TableauFichier
    End If
    If Option2.Value = True Then
        CWGraph1.Plots(2) = TableauFichier(2)
        CWGraph1.PlotXvsY TableauDuree, TableauFichier
    End If
 
End Sub

En espérant avoir été plus explicite...

[iclic]

Bonjour,

Bizarre.
Un tableau défini a 2 dimensions

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
ReDim Preserve TableauFichier(0 To 2, 1 To NbScanTotalAcq) As Double

... et qui devient Tableau a 1 dimension

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
CWGraph1.Plots(1) = TableauFichier(0)

et 1 tableau a 1 dimension

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
Voie0(i) = ScaledData(0, i) * GainEntréeAna0 + OffsetEntréeAna0

qui devient une variable

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
 TableauFichier(0, NbScanTotalAcq) = Voie0

[NeedUHelp]

En effet, ça fonctionne beaucoup mieux
Merci