RE: graficar con mschart en xy
Hola Stella.
Para dibujar una recta necesitas usar alguna de sus ecuaciones en forma explícita del estilo
y = A · x + B. La obtención de la ecuación variará en función de los datos que conozcas (dos puntos, un punto y la pendiente, etc, ...) y es pura matemática.
No he usado el control MsChart, pero el siguiente ejemplo te permite dibujar una recta. Para probarlo, añade en un formulario un PictureBox y preferiblemente dale forma cuadrada. Establece su propiedad
Autoredraw=True (muy importante para hacer los gráficos persistentes). Añade también un CommandButton.
Private Sub Command1_Click()
Picture1.Cls
Picture1.Scale (-10, 10)-(10, -10) 20x20
Picture1.Line (-10, 0)-(10, 0) EjeX
Picture1.Line (0, 10)-(0, -10) EjeY
Picture1.Font.Name = "Small Fonts"
Picture1.Font.Size = 6
Dim dblX As Double
For dblX = -10 To 10 Divisiones de los ejes
Picture1.Line (dblX, 0.1)-(dblX, -0.1)
If dblX <> 0 Then Picture1.Print dblX
Picture1.Line (-0.1, dblX)-(0.1, dblX)
Picture1.Print dblX
Next dblX
Dim dblY As Double
For dblX = -10 To 10 Step 0.01
dblY = 4 * dblX + 5 Por ejemplo una recta con ecuación explícita
y = 4 · x + 5
Picture1.PSet (dblX, dblY), vbRed
Next dblX
Picture1.Refresh
End Sub
Espero que este ejemplo te sirva. De todas formas, para dibujar la recta con MsChart, supongo que la lógica será la misma: usar la ecuación explícita de la recta asignando los valores para
x e
y a los
datos y a las
series respectivamente.
Suerte. Abur.
Editado por
Brroz, Viernes, 28 de Noviembre de 2003, 05:46</TR>