Discussion :

[ism10]

Bonjour à tous, j'ai besoin d'un peu d'aide !

Donc j'ai ceci :

Code :

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

1
2
3
4
5
6
7
8
9
10
Dim MyValue As New List(Of KeyValuePair(Of Integer, Double))()
		Dim Separator As Char = CChar(";")
		If FilePath IsNot Nothing Then
			For Each Line As String In System.IO.File.ReadLines(FilePath)
			    MyValue.Add(New KeyValuePair(Of Integer, Double)(CInt(Line.Split(Separator)(0)), CDbl(Line.Split(Separator)(1))))
			Next
		Chart.DataContext = MyValue
		Else
			FilePath = Nothing
		End If

Ceci me permet d'afficher ce qu'il y a dans FilePath (Fichier Csv affiché sous forme de courbe), donc ce qu'il y a dedans est un string, sauf que j'ai dans une autre fénêtre :

Code :

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

CD.FilePath = CM.ItemsSelected

et donc ItemsSelected est de type List(Of String), donc FilePath ne reçoit pas de string mais une liste de string... car ItemsSelected reçoit ce que l'utilisateur a sélectionné, ce sont des items dans une listbox :

Code :

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

1
2
3
			For Each Item As SignalDef In Listbox1.SelectedItems
				ItemsSelected.Add((Item.SignalPath) + "\" + (Item.SignalName))	
			Next

Donc je résume FilePath est une variable globale de type String (Public FilePath As String) et ItemsSelected est aussi une varibale globale de type List(Of String) (Public ItemsSelected As New List(Of String))
Enfin FilePath reçoit les valeurs de ItemsSelected donc reçoit une liste de string or lui est un string et donc vous me direz pourquoi ne pas déclarer FilePath en List(Of String) ? Parce que dans ma boucle For Each j'utilise ReadAllLines(FilePath) et ReadAllLines n'accepte que des string et pas de List(Of String).
J'ai pensé a une boucle dans une boucle du style :

Code :

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

1
2
3
4
5
 For Each "String" in FilePath 'un truc comme ça...			
                        For Each Line As String In System.IO.File.ReadLines(FilePath)
			    MyValue.Add(New KeyValuePair(Of Integer, Double)(CInt(Line.Split(Separator)(0)), CDbl(Line.Split(Separator)(1))))
			Next
 Next

Qu'en pensez vous svp ?? Besoin d'aide ! Posez moi vos questions si vous n'avez pas compris.

[wallace1]

Bonjour,

Pourquoi ne déclares-tu pas une autre propriété (ou champs) de type List(Of String):

Code :

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

CD.SelectedItems

Ensuite tu travailles avec ...... ainsi tu conserves :

Code :

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

CD.FilePath

????

[ism10]

En fait lorsque je fais

Code :

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

CD.FilePath = CM.ItemsSelected

c'est un lien que je fais entre CM.xaml.vb et CD.xaml.vb je m'explique :

Dans ma fenêtre A.xaml.vb j'ai un bouton confirme et lorsque je clique sur confirme alors la liste de string stockée dans la variable ItemsSelected est donnée à la variable FilePath.
ItemsSelected se situe dans CM.xaml.vb et FilePath dans CD.xaml.vb.

Donc tu me dis de créer une nouvelle variable SelectedItems de type List(Of String) dans CD.xaml.vb ? Mais je crois que ça change rien car dans ma boucle j'ai

Code :

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

For Each Line As String In System.IO.File.ReadLines(FilePath)

et ReadAllLines ne prend que des strings. Donc il faut que FilePath soit un string. Or dans ItemsSelected je stock une List(Of String) !

Je sèche... car mm si je créer une nouvelle variable SelectedItems de type List(Of String) dans CD.xaml.vb il faut bien que j'alimente FilePath ???


Edit :

J'ai fait ça mais infructueux vu que ReadAllLines ne peut pas lire plusieurs string... :

Code :

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

1
2
3
4
5
6
7
		Dim MyValue As New List(Of KeyValuePair(Of Integer, Double))()
		Dim Separator As Char = CChar(";")
		Dim SelectedItems As String = String.Join(" + ", FilePath) 'j'ai essayé comme séparateur " , " mais ne fonctionne pas non plus...
		If FilePath IsNot Nothing Then
			For Each Line As String In System.IO.File.ReadLines(SelectedItems)
			    MyValue.Add(New KeyValuePair(Of Integer, Double)(CInt(Line.Split(Separator)(0)), CDbl(Line.Split(Separator)(1))))
			Next

Des idées svp ???!

Je pense à faire un autre boucle qui dirait de selectionner le 1er string dans SelectedItems, puis le 2nd etc... Quelqu'un voit comment faire ?

[wallace1]

A ce stade il faut nous donner davantage de contenu car on ne sait pas comment tu fais pour passer tes références entre formulaires WPF :

- Code complet de CD et CM ?
- et à quel moment tu ouvres chaque forms, l'action menée donc le code ?

A mon avis tu as un gros problème de conception dans ton projet (avec autant de form Wpf)...... ou alors tu ne sais pas passer de valeurs entre tes Forms Wpf grâce au constructeur :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
Public Class CD
 
    'Tu peux aussi le déclarer en public pour que cette variable soit acessible par la suite durant la durée de vie de l'instance de CD.....
    Private m_Items As List(Of String)
 
    Sub New(Items As List(Of String))
        InitializeComponent()
        m_Items = Items
    End Sub
End Class

- Comment déclarer et passer une valeur par le constructeur entre 2 forms

Code :

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

1
2
3
 
  Dim frmCD As New CD(ListBox1.SelectedItems)
  frmCD.ShowDialog()

à suivre.....

[ism10]

Bonjour Merci pour tes réponses,

Donc

- Code complet de CD et CM ?
- et à quel moment tu ouvres chaque forms, l'action menée donc le code ?

Malheureusement je ne peux pas donner le code complet (sinon je l'aurai fait directement) vu que je travaille pour une entreprise connue, le code est donc confidentiel.

Oui il y a pas mal de form, je n'ai pas compté mais minimum une 20aine (peut être 25), c'est un gros logiciel...

A mon avis tu as un gros problème de conception dans ton projet (avec autant de form Wpf)...... ou alors tu ne sais pas passer de valeurs entre tes Forms Wpf grâce au constructeur :

Le projet je ne l'ai pas conçu, je suis dessus depuis décembre et le projet existait déjà. Donc c'est compliqué de rentrer dans un projet en cours...

Donc je vais voir ce que tu m'as donné et je reviens poster !

Merci encore.

[wallace1]

Je comprends pour la close de confidentialité.
Cependant, pourquoi ne pas faire un mini projet exemple (simplifié) car en l'état la problématique se situe entre un fichier .csv (données extraites), une ListBox, 2 variables avec 3 form Wpf ? Tu pourrais reproduire la problématique et je pourrais davantage t'aider si tu communiques ce mini-projet (sans données sensibles bien entendu).
Le fait de faire des mini-projets résous bien des problèmes liés à la conception ou la compréhension.... Oui certes tu perds un peu de tps mais parfois le jeu en vaut la chandelle.

A voir,

[ism10]

(Je signal que je suis débutant, car étudiant (stage))

la problématique se situe entre un fichier .csv (données extraites), une ListBox, 2 variables avec 3 form Wpf ?

c'est ça !

Cependant, pourquoi ne pas faire un mini projet exemple (simplifié)

J'y ai pensé et j'y pense de plus en plus,

Oui certes tu perds un peu de tps mais parfois le jeu en vaut la chandelle.

et tu vises juste, ce qui me freine est le manque de temps malheureusement...

Je termine ce que je suis en train de faire et si cela ne fonctionne pas alors je n'ai pas d'autre choix que de tenter le mini projet lol.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
    Public Sub ShowChart()
		Dim MyValue As New List(Of KeyValuePair(Of Integer, Double))()
		Dim Separator As Char = CChar(";")
		If FilePath IsNot Nothing Then
			For Each item As String In FilePath
				For Each Line As String In System.IO.File.ReadAllLines(item)
				    MyValue.Add(New KeyValuePair(Of Integer, Double)(CInt(Line.Split(Separator)(0)), CDbl(Line.Split(Separator)(1))))
				Next
			Next	
		Chart.DataContext = MyValue
		Else
			FilePath = Nothing
		End If	
    End Sub

J'ai rajouté une boucle For Each item As String In FilePath, qui sélectionne chaque string dans FilePath un par un, cela fonctionne pas de prob sauf que je n'ai pas 2 courbes superposées je te montre :

Courbes 1 (je précise ce sont des courbes bidons inventées par moi mm pour l'exemple) :



Courbe 2 :



Affichage des 2 courbes qui normalement sont superposées donc 2 courbes et non pas une :



Donc je cherche pour le moment à avoir 2 courbes sur le mm plan c'est à dire dans le mm grid.

Edit :
Oui en fait je viens de penser, j'ai la variable "MyValue" qui est la mm pour mes 2 courbes (mes 2 strings (un string contient le chemin d'accès à un csv et donc à partir de ce csv je trace une courbe)).
Il me faudrait peut être une nouvelle variable.

[wallace1]

Bon concrètement :

Ok je crois entrevoir une solution :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
Dim filesPathList As New List(Of String)
filesPathList.Add("D:\File1.Csv")
filesPathList.Add("D:\File2.Csv")
filesPathList.Add("D:\File3.Csv")
 
Dim filePath As String = string.empty
If filesPathList.count > 1 Then
   filePath  = String.Join("|", filesPathList.ToArray)
Elseif filesPathList.count = 1
   filePath = filesPathList(0)
End If

Et là du coup ca pourrait coller :

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
 
 Public Sub ShowChart()
		Dim MyValue As New List(Of KeyValuePair(Of Integer, Double))()
		Dim Separator As Char = CChar(";")
		If FilePath IsNot Nothing Then
                    If FilePath.contains("|") Then
	                For Each item As String In FilePath.Split("|")
	                    For Each Line As String In System.IO.File.ReadAllLines(item)
			       MyValue.Add(New KeyValuePair(Of Integer, Double)(CInt(Line.Split(Separator)(0)), CDbl(Line.Split(Separator)(1))))
			    Next
		        Next	
                    Else
                        For Each Line As String In System.IO.File.ReadAllLines(FilePath)
	                    MyValue.Add(New KeyValuePair(Of Integer, Double)(CInt(Line.Split(Separator)(0)), CDbl(Line.Split(Separator)(1))))
			Next
                    End If
		    Chart.DataContext = MyValue
		Else
	            FilePath = Nothing
		End If	
    End Sub

[ism10]

Merci énormément de prendre le temps de me fournir des codes !!!

Donc j'ai un prob par rapport FilePath.Split("|"), en effet j'ai une erreur ==> Split n'est pas un membre de List(Of String) car FilePath est de type List(Of String) et ce n'est donc pas un string. Cependant j'ai déjà tenté une méthode similaire mais ça n'a pas fonctionné...

Je reviendrai régulièrement pour montrer mon avancement.

Merci sincèrement Wallace1 pour le temps que tu prends pour me répondre !

[wallace1]

Merci énormément de prendre le temps de me fournir des codes !!!

Donc j'ai un prob par rapport FilePath.Split("|"), en effet j'ai une erreur ==> Split n'est pas un membre de List(Of String) car FilePath est de type List(Of String) et ce n'est donc pas un string. Cependant j'ai déjà tenté une méthode similaire mais ça n'a pas fonctionné...

Tu m'as dis plus haut que FilePath est de type String :

Donc je résume FilePath est une variable globale de type String (Public FilePath As String)

????????????????????????????????????????????
??????????????????????????????????????????

Il me faudrait peut être une nouvelle variable.

Ce que je te propose depuis le début.....

[ism10]

J'ai une idée !

Je pense à faire ç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
	Public Sub showChart()
		Dim MyValue As New List(Of KeyValuePair(Of Integer, Double))()
		Dim MyValue2 As New List(Of KeyValuePair(Of Integer, Double))()
		Dim Separator As Char = CChar(";")
		If FilePath IsNot Nothing Then
			For Each item As String In FilePath
				For Each Line As String In System.IO.File.ReadAllLines(item)
				    MyValue.Add(New KeyValuePair(Of Integer, Double)(CInt(Line.Split(Separator)(0)), CDbl(Line.Split(Separator)(1))))
'ici j'ai envie d'utiliser un if qui dirait :" si il y a plusieurs string dans FilePath, donc plusieurs item, alors la boucle 1 ne prend que le 1er item et passe a la boucle suivante qui prend le 2nd item etc...  sinon elle s’arrête et passe à Chart.DataContext = MyValue et Chart.DataContext = MyValue2
				Next
				For Each Line As String In System.IO.File.ReadAllLines(item)
				    MyValue2.Add(New KeyValuePair(Of Integer, Double)(CInt(Line.Split(Separator)(0)), CDbl(Line.Split(Separator)(1))))
				Next
			Next	
		Chart.DataContext = MyValue
		Chart.DataContext = MyValue2
		Else
			FilePath = Nothing
		End If	
	End Sub

Edit :

Tu m'as dis plus haut que FilePath est de type String :

Effectivement c’était bien un string au moment ou je t'avais répondu sauf qu'entre temps j'ai modifié le code et maintenant c'est un type List(Of String). Désolé c'est une erreur de ma part de ne pas l'avoir signalé !

Sinon oui tu avais raison au sujet d'une nouvelle variable. Que dis tu de ce que j'expose un peu plus haut ?

[ism10]

Pour l'instant j'ai fait ça mais c'est pas du tt dynamique...

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
	Public Sub showChart()
 
		Dim MyValue As New List(Of KeyValuePair(Of Integer, Double))()
		Dim MyValue2 As New List(Of KeyValuePair(Of Integer, Double))()
		Dim Separator As Char = CChar(";")
 
		If FilePath IsNot Nothing Then
 
		Dim item As String = FilePath(0)		
		'For Each item In FilePath
				For Each Line As String In System.IO.File.ReadAllLines(item)
				    MyValue.Add(New KeyValuePair(Of Integer, Double)(CInt(Line.Split(Separator)(0)), CDbl(Line.Split(Separator)(1))))
				Next
		Dim item2 As String = FilePath(1)
				For Each Line As String In System.IO.File.ReadAllLines(item2)
				    MyValue2.Add(New KeyValuePair(Of Integer, Double)(CInt(Line.Split(Separator)(0)), CDbl(Line.Split(Separator)(1))))
				Next
		'Next	
		Chart.DataContext = MyValue
		Chart.DataContext = MyValue2
		Else
			FilePath = Nothing
		End If	
	End Sub

Si jamais j'ai 3 ou 4 courbes à surperposer je ne vais pas créer plusieurs items... il faut que je trouve un moyen de le faire dynamiquement avec qu'un seul item et au premier tour de boucle item prend le 1er string de la liste, puis au second tour il prend le 2nd string etc...

By the way ça ne fonctionne pas lol, je n'ai pas d'erreur mais je n'arrive pas a les superposer...

Code :

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

1
2
3
4
5
6
	Public Sub CommandBinding_Confirm (ByVal sender As Object, ByVal e As ExecutedRoutedEventArgs)
		CM.Visibility = Visibility.Collapsed
		CD.Visibility = Visibility.Visible
		CD.FilePath = CM.ItemsSelected
		CD.ShowChart()
	End Sub

C'est ici que j'appelle ShowChart, devrais-je faire une boucle qui dirait d'appeler ShowChart autant de fois qu'il y a d'items ?? Je ne sais pas...
On m'a parlé aussi de "serie" comme on peut le voir sur les photos que j'ai posté hier (le poste de 14h57) on voit marqué Serie 1 à droite de la courbe, si j'ai une deuxième courbe superposée il faudrait peut etre qu'il y ait marqué serie 1 et serie 2 ?
Bref je suis un peu perdu.
Help !

[wallace1]

Si jamais j'ai 3 ou 4 courbes à surperposer je ne vais pas créer plusieurs items... il faut que je trouve un moyen de le faire dynamiquement avec qu'un seul item et au premier tour de boucle item prend le 1er string de la liste, puis au second tour il prend le 2nd string etc...

Ca se traduit comme cela :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
Dim MyValue As New List(Of KeyValuePair(Of Integer, Double))()
Dim Separator As Char = CChar(";")
If FilePath IsNot Nothing Then
    For Each item As String In FilePath
	For Each Line As String In System.IO.File.ReadAllLines(item)
	    MyValue.Add(New KeyValuePair(Of Integer, Double)(CInt(Line.Split(Separator)(0)), CDbl(Line.Split(Separator)(1))))
         Next
    Next	
Else
    FilePath = Nothing
End If	
Chart.DataContext = MyValue

Ca ne fonctionne pas comme ca ??

[ism10]

Bonjour Wallace1,

Si cette méthode fonctionne c'est ce que j'avais fait au début mais en fait avec cette méthode Myvalue récupère les 10 points de mon premier item puis les 10 points de mon second item (il faut savoir que FilePath possède 2 string dans sa liste (car je n'ai fait que 2 sélections) donc 2 strings = 2 items).
Voilà une image afin que tu comprennes ce que je dis :
MyValue lors du 1er tour de boucle donc avec le 1er item :



MyValue lors du 2nd tour de boucle donc 2nd item :



Tu vois qu'il y a les 10 pts de l'item 1 et les 10 autres de l'item 2.

D'où le fait que ShowChart ne me trace qu'une seule courbe. Il aurait fallu 2 variables MyValue la 1ere reçoit les 10 pts de mon 1er item et la seconde variable MyValue2 recoit les 10 pts de mon 2nd item, sauf que ce n'est pas du tt dynamique aussi car il faut autant de variable qu'il y a d'item...

[wallace1]

Je ne sais pas comment fonctionne le DataContext mais si tu le positionne dans le 1er bouclage ca donne quoi :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Dim MyValue As New List(Of KeyValuePair(Of Integer, Double))()
Dim Separator As Char = CChar(";")
If FilePath IsNot Nothing Then
    For Each item As String In FilePath
	For Each Line As String In System.IO.File.ReadAllLines(item)
	    MyValue.Add(New KeyValuePair(Of Integer, Double)(CInt(Line.Split(Separator)(0)), CDbl(Line.Split(Separator)(1))))      
         Next
         Chart.DataContext = MyValue
    Next	
Else
    FilePath = Nothing
End If

Le tracé conserve-t-il uniquement la dernière donnée inscrite ?

[ism10]

Bonne idée mais je viens de tester et il fonctionne de la même manière.

[wallace1]

Donc dans ce cas il faut utiliser un itemsource
Et tu ajoutes tes points grâce à chart.series.add
donc qui dit itemsource dit la mise en place d un bindingsource côté xaml.
Je vais finir par faire un mini projet....

[ism10]

L'xaml est bien chargé !

Je vais finir par faire un mini projet....

Je crois aussi haha

Je reviens ici pour dire ou j'en suis !

Merci encore Wallace1 pour ton aide !

[wallace1]

Pour tes chart tu utilises le Wpf Toolkit ?

[ism10]

Oui Toolkit !

D'ailleurs voici ce que j'ai fait :

ça c'est ce que j'avais (enfin c'est moi qui l'ai fait lol) :

Code :

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

1
2
3
4
5
6
7
8
9
10
<chartingToolkit:Chart.Series>
			<chartingToolkit:LineSeries Name="A" DependentValuePath="Value" IndependentValuePath="Key" ItemsSource="{Binding}" IsSelectionEnabled="True">
                <chartingToolkit:LineSeries.DataPointStyle>
                        <Style TargetType="chartingToolkit:LineDataPoint">
                                <Setter Property="Opacity" Value="0" />
                                <Setter Property="Background" Value="White" />
                        </Style>
                </chartingToolkit:LineSeries.DataPointStyle>
			</chartingToolkit:LineSeries>
</chartingToolkit:Chart.Series>

et ensuite j'ai fait un simple copié collé pour la serie 2 :

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
			<chartingToolkit:Chart.Series>
			<chartingToolkit:LineSeries Name="A" DependentValuePath="Value" IndependentValuePath="Key" ItemsSource="{Binding}" IsSelectionEnabled="True">
                <chartingToolkit:LineSeries.DataPointStyle>
                        <Style TargetType="chartingToolkit:LineDataPoint">
                                <Setter Property="Opacity" Value="0" />
                                <Setter Property="Background" Value="White" />
                        </Style>
                </chartingToolkit:LineSeries.DataPointStyle>
			</chartingToolkit:LineSeries>
			<chartingToolkit:LineSeries Name="B" DependentValuePath="Value" IndependentValuePath="Key" ItemsSource="{Binding}" IsSelectionEnabled="True">
                <chartingToolkit:LineSeries.DataPointStyle>
                        <Style TargetType="chartingToolkit:LineDataPoint">
                                <Setter Property="Opacity" Value="0" />
                                <Setter Property="Background" Value="Red" />
                        </Style>
                </chartingToolkit:LineSeries.DataPointStyle>
			</chartingToolkit:LineSeries>
</chartingToolkit:Chart.Series>

J'obtiens maintenant ça :



ce qui est plutôt pas mal pour l'instant