hola estuve buscando y no logro encontrar un code que me dibuje una elipse punto a punto.
les agradecería me peden facilitar el acceso a el o simplemente postearlo aki gracias, chaus..

 

esos son circulos...no elipses!

podrias usar las ecuaciones parametricas de la curva de la elipse, reparametrizando a una variable, en este caso seria ang (angulo) que iria de 0 a 360;

osea: (x/a)^2 + (x/b)^2 = 1          Esto es la ecuacion de una Elipse
pues Cos^2 + Sen^2 = 1 : pitagoras
entonces, podemos decir que
 x = aCos(ang); y = bSen(ang)       Cambio de variable

con eso tendrias las posiciones de x y de y

Recien he hecho este codigo aplicando los pocos conocimientos de matematica que tengo, eso es lo bueno de aprender para aplicar.

Private Sub Form_Paint()
 
Elipse 15, 10
 
End Sub
Sub Elipse(a As Double, b As Double)
 
Dim Ang As Double
Const PI = 3.141592654
    Cls 'Limpiar pantalla
 
    'a = Largo
    'b = Ancho
 
Scale (-30, 30)-(30, -30) 'Mi escala, en X y en Y normal
 
'Dibujo mis ejes
Line (-30, 0)-(30, 0)
Line (0, -30)-(0, 30)
 
    'Primer Punto
    CurrentX = a * Cos(0)
    CurrentY = b * Sin(0)
 
For Ang = -0.01 To 2 Step 0.01 'En radianes el angulo va de 0 a 2 * PI
    X = a * Cos(Ang * PI) 'Lo multiplico por PI para que reciba radianes
    Y = b * Sin(Ang * PI)
    Line -(X, Y)
Next Ang
 
End Sub
 
 
 

resultado:

por cierto, tu fuiste el que posteaste el codigo del triangulo que giraba sobre un eje? estubo buenazoo eso, por eso me causo curiosidad y hoy me puse a revisar algo de dibujar lineas, me parece interesante porque se puede aplicar todas las formulas que aprendi...
Asi si vale aprender matematicas, si tienes en donde aplicar formulas...


y ahora resulta que veo este post, por eso hice el codigo con mis escasos conocimientos en lineas, despues me pondre a dedicarle al tema...

por cierto vivaschapas, los manuales estan buenasos, los revisare...!