Este foro usa cookies
Este foro utiliza cookies para almacenar su información de inicio de sesión si está registrado y su última visita si no lo está. Las cookies son pequeños documentos de texto almacenados en su computadora; las cookies establecidas por este foro solo se pueden usar en este sitio web y no representan ningún riesgo de seguridad. Las cookies en este foro también rastrean los temas específicos que ha leído y la última vez que los leyó. Si Ud. continúa navegando, entenderemos que acepta todas las cookies.

Se almacenará una cookie en su navegador, independientemente de la elección, para evitar que se le vuelva a hacer esta pregunta. Podrá cambiar la configuración de sus cookies en cualquier momento utilizando el enlace en el pie de página.

Borrar este aviso
El foro antiguo se encuentra accesible desde https://foro.gambas-es.org en modo de solo lectura.

Calificación:
  • 0 voto(s) - 0 Media
  • 1
  • 2
  • 3
  • 4
  • 5

Espiral de Arquímedes
#1

Os dejo este simple codigo para dibujar la Espiral de Arquímedes:

GAMBAS
  1. Private Const KYKLOS As Float = 26.0
  2. Private Const PASOS As Integer = 200
  3. Private incr As Float = 1.0 / PASOS
  4.  
  5.  
  6. Public Sub Form_Open()
  7.  
  8.   With Me
  9.     .W = Screen.AvailableWidth
  10.     .H = Screen.AvailableHeight
  11.     .Center
  12.   With DrAr = New DrawingArea(Me) As "DrAr"
  13.     .X = 0
  14.     .Y = 0
  15.     .W = Me.W
  16.     .H = Me.H
  17.     .Background = Color.White
  18.  
  19.  
  20.  
  21. Public Sub DrAr_Draw()
  22.  
  23.   Dim x, y As Integer
  24.   Dim i As Float
  25.  
  26.   x = DrAr.W / 2
  27.   y = DrAr.H / 2
  28.  
  29.   With Paint
  30.     While i <= KYKLOS * Pi
  31.       .FillRect(x + (A + B * i) * Cos(i), y + (A + B * i) * Sin(i), 2, 2, Color.Red)
  32.       i += incr
  33.     Wend
  34.     .End
  35.  



In praeterita spectando dolenter subfero.
#2

Interesante Vuott, gracias por compartir.
[Imagen: WzzvYln.png]
#3

Hola tincho,
prueba cambiando unos parametros. Shy

In praeterita spectando dolenter subfero.
#4

(16-09-2020, 10:11)vuott escribió:  Hola tincho,
prueba cambiando unos parametros. Shy

ok, cambie algunos parámetros, y si, cambian las cosas, bueno me apunto porque tal vez lo incluya en GauchoCAD.
Saludos.


Salto de foro:


Usuarios navegando en este tema: 1 invitado(s)