Maximum et Minimum des axes d'un Chart

1 pièce(s) jointe(s)

Bonjour,

J’ai développé un programme qui trace une fonction sinus avec un Chart (VB Visual studio 2017)
Je fixe maximun et minumun avec les instruction suivantes:

Code:

1
2
3
4
5
 
        Chart1.ChartAreas(0).AxisX.Maximum = 20                     ' 20 ms
        Chart1.ChartAreas(0).AxisX.Minimum = 0
        Chart1.ChartAreas(0).AxisY.Maximum = 1.5                    ' 1.5 V
        Chart1.ChartAreas(0).AxisY.Minimum = -1.5

Mais le plot est entre pour X (-1,19) et pour Y (-2,+2).
Donc les instructions ci dessus ne fonctionnent pas.

J'ai beau cherché, je ne trouve pas d'autre méthode pour fixer les axes.
Je n'ai pas trouvé de propriété type "Autoscaling", qui neutraliserait ces instructions.

Quelqu'un a t-il déjà rencontrer ce problème ?

Mon code:

Code:

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
 
Public Const nb_samples_max As Integer = 4000
    Public xch1(nb_samples_max) As Single
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Dim chartArea1 As New ChartArea()                       ' Create an Chart Area
        Dim sigch1 As String = "Signal ch1"                     ' signal
 
        chartArea1.Name = sigch1
        Chart1.Legends.Clear()
        Chart1.ChartAreas.Add(chartArea1)
        Chart1.ChartAreas(chartArea1.Name).BackColor = Color.LightGray
        Chart1.Series.Add(sigch1)                               ' display signal
        Chart1.Series(sigch1).ChartArea = chartArea1.Name       'serie is displayed in chartArea1
        Chart1.Series(sigch1).Color = Color.Red
        Chart1.Series(sigch1).ChartType = SeriesChartType.FastLine       ' draw mode line
        Chart1.ChartAreas(0).AxisX.Maximum = 20                     ' 20 ms
        Chart1.ChartAreas(0).AxisX.Minimum = 0
        Chart1.ChartAreas(0).AxisY.Maximum = 1.5                    ' 1.5 V
        Chart1.ChartAreas(0).AxisY.Minimum = -1.5
        Chart1.ChartAreas(0).AxisY.Title = "CH1 SA"
        Chart1.ChartAreas(0).AxisX.Title = "Time (ms)"
        Chart1.Series(0).XValueType = ChartValueType.Int32
        Chart1.Series(0).YValueType = ChartValueType.Single
        Chart1.ChartAreas(0).Position = New ElementPosition(0, 0, 500, 200)
        Chart1.ChartAreas(0).BackColor = Color.LightGray
 
        Dim t As Single
        Dim nsamples = 4000
        Dim acq_per_local As Single = 0.000005
        For i = 0 To nsamples
            t = 1000 * i * acq_per_local
            xch1(i) = 1.5 * Sin(2 * Math.PI * t * 0.75)
            Chart1.Series(0).Points.AddXY(t, xch1(i))
        Next
 
    End Sub

Le plot:
Pièce jointe 527786

Bonjour,

Citation:

Envoyé par jlalexie

Je n'ai pas trouvé de propriété type "Autoscaling", qui neutraliserait ces instructions.

Pour l'autoscaling, il me semble qu'il faut utiliser "auto" au lieu d'une valeur :

Code:

1 2 3 4 5 Chart1.ChartAreas(0).AxisX.Maximum = auto Chart1.ChartAreas(0).AxisX.Minimum = auto Chart1.ChartAreas(0).AxisY.Maximum = auto Chart1.ChartAreas(0).AxisY.Minimum = auto

Tu peux aussi utiliser la fonction chart1.ChartAreas[0].RecalculateAxesScale() soit après avoir fait les changements de propriétés des axes, soit après avoir affiché tes points

Sincèrement

bonjour

le code suivant décale les positions de la vue de "sinusoïde" suivant x et y ,sans changement de tes autres paramétrés (origine x,y du dessin ou plot):
Code:

1 2 3 Chart1.ChartAreas(0).AxisX.ScaleView.Position = 0 Chart1.ChartAreas(0).AxisY.ScaleView.Position = 0
bon code.