Discussion :

[KNouch]

Bonjour,
Voici mon programme :

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
Open NomFichier For Input As #1
            Do While Not EOF(1) 'EOF : "End Of File"
                ligne = ligne + 1
                If ligne <= 11 Then
                    'on charge les 11 lignes de commentaires pour ne pas les prendre en compte par la suite.
                    Input #1, valeurligne
                    'on redimensionne le tableau en gardant les valeurs
                    ReDim Preserve TableauValeur(ligne)
 
                    'on remplit le tableau
                    TableauValeur(ligne) = valeurligne
                Else
                    Input #1, maval1, maval2
                    'on redimensionne les tableaux en gardant les valeurs
                    ReDim Preserve TableauAbscisse(ligne)
                    ReDim Preserve TableauOrdonnée(ligne)
 
                    'on remplit les tableaux
                    TableauAbscisse(ligne) = maval1
                    TableauOrdonnée(ligne)= maval2
 
                End If
            Loop
        Close #1
        'tracé de la courbe
        CWGraph1.Plots(1).ChartXvsY TableauAbscisse, TableauOrdonnée

Lorsque j'ouvre (à part) mon fichier "NomFichier" (.dat), j'ai bien toutes mes valeurs que j'ai précédemment enregistré (pas dans le programme ci-dessus).
Par exemple, j'enregistre 367 valeurs (367 maval1 et 367 maval2).

Mon problème est que la courbe tracée ne comprend que les 199 dernières valeurs...

J'ai pensé que cela pouvait venir de la taille du tableau mais il est redimensionné à la taille "ligne" qui augmente suivant le n° de la ligne parcourue, donc je suppose que non...
J'ai ensuite pensé que le graphe ne permet pas d'afficher autant de valeurs mais un autre programme (donc je me suis inspirée du code) le fait très bien...

Je suis donc à cours d'idée là...
Si quelqu'un en a une, ce serait avec grand plaisir ! ^^

[ProgElecT]

Salut

Première chose à vérifier, le dimensionnement des tableaux TableauAbscisse et TableauOrdonnée en fin de boucle de récupération des données du fichier.

Code :

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

1
2
3
4
5
6
7
        Close #1
        MsgBox "indice le plus bas de TableauAbscisse: " & LBound(TableauAbscisse) & "   le plus haut: " & UBound(TableauAbscisse) & vbNewLine _
            & "Première valeur: " & TableauAbscisse(LBound(TableauAbscisse)) & " dernière: " & TableauAbscisse(UBound(TableauAbscisse)) _
            & vbNewLine _
            & "indice le plus bas de TableauOrdonnée: " & LBound(TableauOrdonnée) & "   le plus haut: " & UBound(TableauOrdonnée) _
            & "Première valeur: " & TableauOrdonnée(LBound(TableauOrdonnée)) & " dernière: " & TableauOrdonnée(UBound(TableauOrdonnée))
        'tracé de la courbe

A éviter/proscrire, les lettres accentuée dans les noms de variables

[KNouch]

Merci pour ce bout de code, j'ai ainsi pu vérifier les tableaux.
Étrangement les valeurs de taille sont correctes (419) donc logiquement je devrais obtenir un graphe complet et non de 199 valeurs...
Je pense donc que le problème vient du graphe mais de quelle propriété...?

[ProgElecT]

Salut

Je n'ai pas utilisé se composant depuis bien longtemps, a vérifié donc

Code :

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

1
2
3
4
5
        'tracé de la courbe
        CWGraph1.RowCount = UBound(TableauAbscisse)
        CWGraph1.ColumnCount= UBound(TableauOrdonnée)
 
        CWGraph1.Plots(1).ChartXvsY TableauAbscisse, TableauOrdonnée]

[KNouch]

Je viens d'essayer, voilà ce qu'on me dit :
"L'objet ne gère pas cette propriété ou cette méthode"

Si cela avait marché qu'aurais-je dû obtenir ?

[KNouch]

Je pense répondre (peut-être mal) à ma question...

" CWGraph1.RowCount = UBound(TableauAbscisse) " permet de définir le nombre de lignes (du graph ?) égal au nombre de ligne du tableau "TableauAbscisse"
et
" CWGraph1.ColumnCount= UBound(TableauOrdonnée) " permet de définir le nombre de colonnes (du graph ?) égal au nombre de ligne du tableau "TableauOrdonnée"

C'est ça ?

[ProgElecT]

CWGraph1, c'est quoi comme composant ?
Je suis parti dans l'idée que cela était un MSChart,

Library MSChart20Lib
C:\Windows\system32\MSCHRT20.oca
Contrôle Microsoft Chart 6.0 (OLEDB)

[KNouch]

J'ai trouvé !!!

En fait, lorsqu'on place un graphe dans une form, on définit ses propriétés.
Le graphe avait un historique de données trop faible par rapport à celui que j'attendais. J'ai donc modifié cette valeur, manuellement :
Propriétés > Graph > Chart history > Fixed = valeur souhaitée

En revanche je n'ai pas réussi à gérer cette valeur automatiquement, suivant la taille de mon tableau...

Un dernier petit détail...il semblerait que le graphe voit un dernier point, revenant à l'origine (0;0). Du coup ma courbe est "rayée" par la jonction entre le dernier point et l'origine.
Auriez-vous une idée pour y remédier ?


PS : ce n'est pas un MSChart mais un outil National Instruments CW (Analysis, DAQ ou UI je ne sais plus)

[ProgElecT]

Je pencherai pour une différence de numérotation d'indice des tableaux, base 1 pour tes tableaux et base 0 pour ton composant.
En commençant

Code :

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

1
2
3
4
Ligne = -1
 Open NomFichier For Input As #1
            Do While Not EOF(1) 'EOF : "End Of File"
                ligne = ligne + 1

ton tableau commencera par indice 0

[KNouch]

C'est nikel !
Merci beaucoup ^^