Bonjour,
J'essai d'intégré un chart (pour tracer des courbes de puissance), en VB 2019. La preview est bonne/normale dans "Design", mais une fois compilé, le graphique est tout petit (mais juste ...)
Malgré les nombreux tutos et sujets, je n'arrive pas à trouver la solution pour que graphique occupe toute la place du contrôle/composant Chart inséré dans le programme.
Voici le Designer :
Voici le programme en cours d'exécution :
Voici le code qui génère le Chart :
Voici le code qui génère les courbes :
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 Try ButtonUnconnect.Enabled = False ButtonConnect.Enabled = False TextBoxIP.Enabled = False TextBoxPORT.Enabled = False TextBoxDELAY.Enabled = False ButtonCourbes.Enabled = False ButtonStopCourbes.Enabled = True Timer2.Interval = 5000 'Récupération des données toutes les 10s Timer3.Interval = 200 'Envoi des commandes à l'EcoPV toutes les 200 ms Application.DoEvents() Counter1 = 1 Chart1.ChartAreas.Add(ChartArea1) 'Génération du graphique courbes. 'Chart1.ChartAreas(0).AxisX.Minimum = 0 'Chart1.ChartAreas(0).AxisX.Maximum = 3000 'Chart1.ChartAreas(0).AxisX.Interval = 500 'TextBoxLogToCSV.Clear() TextBoxLogToCSV.AppendText("Compteur;Time;PuissActive;PuissApparente;PuissRoutee;PuissImportee;PuissExportee;" + vbNewLine) TextBoxCourbes.Clear() Timer2.Start() Timer3.Start() Catch ex As Exception
Voilà, si quelqu'un à une idée sur ce problème ... moi je sèche.
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 Try 'Convertion des datas en chiffre Dim pact As Integer = CInt(TextBoxPuissActive.Text) Dim papp As Integer = CInt(TextBoxPuissApparente.Text) Dim prou As Integer = CInt(TextBoxPuissRoutee.Text) Dim pimp As Integer = CInt(TextBoxPuissImportee.Text) Dim pexp As Integer = CInt(TextBoxPuissExportee.Text) 'Ajout des points au graphique Chart1.ChartAreas(0).AxisY.Minimum = 0 Chart1.ChartAreas(0).AxisX.Minimum = 0 'Chart1.ChartAreas(0).AxisY.Maximum = 7000 'Chart1.ChartAreas(0).AxisY.Interval = 500 Chart1.Series("P_active").Points.AddXY(Counter1, pact) Chart1.Series("P_apparente").Points.AddXY(Counter1, papp) Chart1.Series("P_routée").Points.AddXY(Counter1, pimp) Chart1.Series("P_exportée").Points.AddXY(Counter1, pexp) 'TextBoxCourbes.AppendText("P active =" & CStr(pact) + vbNewLine) 'TextBoxCourbes.AppendText("P apparente =" & CStr(papp) + vbNewLine) 'TextBoxCourbes.AppendText("P routée =" & CStr(prou) + vbNewLine) 'TextBoxCourbes.AppendText("P importée =" & CStr(pimp) + vbNewLine) 'TextBoxCourbes.AppendText("P exportée =" & CStr(pexp) + vbNewLine) Catch ex As Exception
Merci.
Stéphane.
Partager