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..
:¬¬
usa objeto.circle
ejemplo recien hecho (me tuve que fijar como se usaba circle xq nunca lo habia usado XD):
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
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:
(http://img293.imageshack.us/img293/4702/elipsevi2.png)
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
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...! :D