Discussion :

[laichzeit]

Bonjour à tous,

Tout d'abord, je tiens à préciser que j'ai effectué pas mal de recherches mais le vb.net étant encore nouveau pour moi, je n'ai pas réussi à adapter les résultats trouvés à mon cas précis.

Je vous explique la situation :
Via mon application, je fais une acquisition de résultats de mesures. Ces résultats, je les présente sous la forme de courbes dans un chart area.
Les mesures peuvent être au nombre de 15.

Voici le code me permettant ceci :

Code VB :

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

1
2
3
4
5
6
7
8
For j = 1 To nbMes
     For i = 0 To sampCoun - 1
       FormMain.Chart1.Series("Meas" & j).Points.AddXY((i + 1) * sampTim, result(i))
     Next
 
     FormMain.Chart1.Series("Meas" & j).ChartArea = "ChartArea1"
 
Next

Je souhaiterai pouvoir ouvrir un boite de dialogue me proposant de cocher les séries qui m’intéressent et de les exporter dans un fichier .xls ou .dat
J'ai noté la méthode ExportSeriesValues mais j'ai du mal à l'utiliser dans ce cas précis.

En vous remerciant d'avance pour vos réponses et en espérant avoir été clair.

[hunteshiva]

Bonjour,

Avant de répondre à tes questions, je te conseille de prendre ce cours si tu veux t'amuser à faire des chart Sympa
http://plasserre.developpez.com/cours/chart/

Tu verra que la fonction "ExportSeriesValues " ne sert qu'a exporter les données dans un dataSet... (loin du fichier Excel)
voir le détails juste au dessus du chapitre suivant
http://plasserre.developpez.com/cours/chart/#LIII-F

Ensuite ce que je te propose c'est un petit algo fait maison pour exporter tes données

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
             '#####################################################
             '############### Extraction des données ##############
             '#####################################################
            Try
 
                Dim csvFile As String = "C:\Nouveau dossier\Test_10_Couches.csv" 'Creation du fichier
                Dim outFile As IO.StreamWriter = My.Computer.FileSystem.OpenTextFileWriter(csvFile, False)
 
                For j As Integer = 0 To Indice - 1
 
                    Dim Ligne As String = ""
 
                    For i As Integer = 0 To nbrCouches - 1
 
                        Ligne &= Temperature_CP(j, i) & ";"
                    Next
 
                    outFile.WriteLine(Ligne) 'Ajout d'une ligne
                Next
 
                outFile.Close() 'fermeture du fichier
 
            Catch ex As Exception ' en cas d'erreur
                MsgBox(ex.ToString) ' On affiche le message d'erreur
            End Try
 
             '#####################################################
             '#####################################################

le .csv se lit très bien avec Excel, donc ne change rien sur le fichier.
Tu a juste a adapter la boucle For pour la (ou les) séries de ton chart Graphique.
Et si tu veux faire les choses encore mieux, tu rajoute une boite de dialogue pour permettre à l'utilisateur de choisir l'emplacement ainsi que le nom du fichier sous lequel il veux l'enregistrer

Après pour le .dat, je ne sais pas sous quel format tu veux que les données soient stockées, mais tu peux garder le concept je pense