MS Chart visualisation en X,Y

Citation:

Envoyé par Tanguy91

je n'est pas trouvé la façon de passer les paramètres au control MSChart.

Bonjour,

tu n'as pas du beaucoup chercher, sans parler du tuto sur l'utilisation du controle MSChart, en tapant "mschart x y VB6" sur Google, je trouve pas mal de liens, dont un qui donne un exemple concret que je joins ici :

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
Private Sub Form_Load()
Dim theta_min As Single
Dim theta_max As Single
Dim dtheta As Single
Dim theta As Single
Dim r As Single
Dim values() As Single
Dim i As Integer
Dim num_theta As Integer
 
    theta_min = 0
    theta_max = 3.14159265
    num_theta = 100
    dtheta = theta_max / (num_theta - 1)
    Redim values(1 To num_theta, 1 To 2)
 
    ' Compute the data values.
    theta = theta_min
    For i = 1 To num_theta
        r = Cos(3 * theta)
        values(i, 1) = r * Sin(theta) * 100
        values(i, 2) = r * Cos(theta) * 100
        theta = theta + dtheta
    Next i
 
    ' Send the data to the chart.
    Chart1.chartType = VtChChartType2dXY
    Chart1.RowCount = 2
    Chart1.ColumnCount = num_theta
    Chart1.ChartData = values
End Sub