dibujar una elipse punto a punto

[<[(x)]>]

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..

[s E t H]

usa objeto.circle

ejemplo recien hecho (me tuve que fijar como se usaba circle xq nunca lo habia usado XD):

Código (vb) [Seleccionar] Expandir

Private Sub Form_Paint()
Dim i(2) As Long
Me.WindowState = 2
Do
DoEvents
Randomize Timer
i(0) = Rnd * 9000
Randomize Timer
i(1) = Rnd * 9000
Randomize Timer
i(2) = Rnd * 9000

Me.Circle (i(0), i(1)), i(2)
DoEvents
Loop
End Sub

[‭‭‭‭jackl007]

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.

Código (vb) [Seleccionar] Expandir


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:

[vivachapas]

mira, hace poco hice un juego... esta x el foro si lo queres buscar... de todos modos no tiene nada q ver con la elpises
pero antes de hacerlo (mientras estudiaba un poco lo de dibujar xD) lei este manual

http://www.recursosvisualbasic.com.ar/htm/tutoriales/metodos-graficos.htm

esta muy bueno... x ahi para otras cosas tb les sirve...
en fin busca donde estan la elpises, esas funcionan y son muy simples

SALUDOS

[‭‭‭‭jackl007]

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...!