Option Base 1
Private Type TPunto
X As Double
Y As Double
End Type
---------------------------------------------------
Private Sub CmdGraficar_Click()
On Error Resume Next
Dim Vx(7) As Double
Dim V(7) As Double
Dim iMayor As Double
Dim Puntos(7) As TPunto
iMayor = 0
Vx(1) = Val(Txt1.Text)
Vx(2) = Val(Txt2.Text)
Vx(3) = Val(Txt3.Text)
Vx(4) = Val(Txt4.Text)
Vx(5) = Val(txt5.Text)
Vx(6) = Val(Txt6.Text)
Vx(7) = Val(Txt7.Text)
For i = 1 To 7
V(i) = Vx(i)
Next
'Acomodar las lineas...
For i = 1 To 7
Puntos(i).X = 10 + (i * 11)
Puntos(i).Y = 60 - (V(i) * 10)
Next
A1.X1 = Puntos(1).X
A1.Y1 = Puntos(1).Y
A1.X2 = Puntos(2).X
A1.Y2 = Puntos(2).Y
'------------------
A2.X1 = Puntos(2).X
A2.Y1 = Puntos(2).Y
A2.X2 = Puntos(3).X
A2.Y2 = Puntos(3).Y
'------------------
A3.X1 = Puntos(3).X
A3.Y1 = Puntos(3).Y
A3.X2 = Puntos(4).X
A3.Y2 = Puntos(4).Y
'------------------
A4.X1 = Puntos(4).X
A4.Y1 = Puntos(4).Y
A4.X2 = Puntos(5).X
A4.Y2 = Puntos(5).Y
'------------------
A5.X1 = Puntos(5).X
A5.Y1 = Puntos(5).Y
A5.X2 = Puntos(6).X
A5.Y2 = Puntos(6).Y
'------------------
A6.X1 = Puntos(6).X
A6.Y1 = Puntos(6).Y
A6.X2 = Puntos(7).X
A6.Y2 = Puntos(7).Y
'------------------
End Sub
