probleme avec mschart xyRésolu

Question

bonjour,
j ai un probleme avec mschart xy, je voudrais qu il m affiche 2000 points aleatoires &#224; la suite en me redessinant le graph &#224; chaque fois. (dans la version finale il y aura une temporisation)
A la place j obtiens une droite
les axes x et y sont en autoscale
quelqun voit il pourquoi cela ne marche t il pas?
merci d avance

Dim i As Integer
Dim arr() As Double
ReDim arr(0 To 999, 3)
For i = 0 To 999



    
    arr(i, 0) = " " & i '1&#232;re : c'est le label des points sur axe X
    arr(i, 1) = i '2eme : abscisse du point de la premi&#232;re courbe
    arr(i, 2) = Rnd * 1 - 1 '3eme : ordonn&#233;e du point de la premi&#232;re courbe
MSChart1.ChartData = arr()
Next i

poat · Accepted Answer

pour ceux que ca interresse, g trouve la soluce:


mettre Dim arr() 
ReDim arr(0 To 999, 3)
AU LIEU DE:
Dim arr() As Double
ReDim arr(0 To 999, 3)

allez savoir pourquoi... vive vb!

poat · Answer

attention!!!
je suis desole mais un copie colle du code rique de faire planter vb, la temp est obligatoire:
Public Sub Pause(temps_a_attendre As Double)
Dim endtime As Date
endtime = DateAdd("s", temps_a_attendre, Now)
Do Until Now > endtime
DoEvents
Loop
End Sub

Dim i As Integer
Dim arr() As Double
ReDim arr(0 To 999, 3)
For i = 0 To 999


    Pause (2)
    
    arr(i, 0) = " " & i '1&#232;re : c'est le label des points sur axe X
    arr(i, 1) = i '2eme : abscisse du point de la premi&#232;re courbe
    arr(i, 2) = Rnd * 1 - 1 '3eme : ordonn&#233;e du point de la premi&#232;re courbe
    frmOptimisation.MSChart1.ChartData = arr
Next i

poat · Answer

pour ceux que ca interresse, g trouve la soluce:


mettre Dim arr() 
ReDim arr(0 To 999, 3)

Dim arr() As Double
ReDim arr(0 To 999, 3)

allez savoir pourquoi... vive vb!

Probleme avec mschart xy

3 réponses

Discussions similaires