Hola comunidad!.
Hice una breve aplicación con la ayuda de aquellos libros que hoy ya no se ven.Cuando nuestros ordenadores eran los 8 bits.
Os pongo unas capturas. Disculparme si meto la pata, es la primera vez que cuelgo una aplicación en nuestra comunidad. Por si las capturas son grandes.
La aplicación es mejorable al 100%.
Tengo que aprender mucho en general.
Aquí esta para que podáis mejorarla y adaptarla a vuestro gusto.
Flor De Circunferencias
Objetivo: Flor De Circunferencias
última edición por Shell el Jueves, 21 Abril 2011, 10:25; editado 1 vez
última edición por Shell el Jueves, 21 Abril 2011, 10:25; editado 1 vez
FlordeCircunferencias.tar.gz | ||
Descripción: | Descargar |
|
Nombre del archivo: | FlordeCircunferencias.tar.gz | |
Tamaño: | 9.62 KB | |
Descargado: | 41 veces |
FlordeCircunferencias.tar.gz | ||
Descripción: | Descargar |
|
Nombre del archivo: | FlordeCircunferencias.tar.gz | |
Tamaño: | 9.62 KB | |
Descargado: | 41 veces |
FlordeCircunferencias.tar.gz | ||
Descripción: | Descargar |
|
Nombre del archivo: | FlordeCircunferencias.tar.gz | |
Tamaño: | 9.62 KB | |
Descargado: | 41 veces |
Objetivo: Re: Flor De Circunferencias
última edición por jsbsan el Jueves, 21 Abril 2011, 12:57; editado 2 veces
Muy chula tu aplicación, felicitaciones.
Saludos y ha hacer más
Saludos y ha hacer más
última edición por jsbsan el Jueves, 21 Abril 2011, 12:57; editado 2 veces
Objetivo: Re: Flor De Circunferencias
Hola!.
Podemos añadir 3 scrollbars o 3 sliders en algún lugar del formulario que modifiquen tanto el número de circunferencias, el radio de la misma y el radio principal.
No tendremos que pulsar en el botón dibujar y veremos dibujando en tiempo real a cada cambio de estas barras.
Cada barra o slider llama a un código común.
No puedo poner tildes en la llamada al procedimiento.
El código cómun.
PUBLIC SUB Dibujame()
Lienzo.clear
Elipsoide(ScrollBarNumCir.Value, ScrollBarRadCirc.Value, ScrollBarRadPrin.Value)
END
PUBLIC SUB Elipsoide(numc AS Integer, radioc AS Integer, radiop AS Integer)
DIM i AS Integer
DIM centrox, centroy AS Integer
DIM x, y AS Integer
IF ChkLienzo.Value = TRUE THEN Lienzo.Clear
centrox = Lienzo.ClientWidth / 2
centroy = Lienzo.ClientHeight / 2
Draw.Begin(Lienzo)
FOR i = 1 TO numc
x = centrox + radiop * Cos(6.2832 / numc * i)
y = centroy + radiop * Sin(6.2832 / numc * i)
Draw.Circle(x, y, radioc)
NEXT
Draw.End()
END
Cuestión:Llame al procedimiento así:
Dibujame en vez de Dibujame()
El efecto es el mismo, pero, ¿ cual debería ser la manera mas correcta?.
Los valores de cada barra a gusto de cada uno.Dentro de unos limites, claro.
Lo único que hay que tener en cuenta que no nos vale variar el numero de circunferencias si no aumentamos el radio de esta.Primero tendríamos
que usar la barra del radio de cada circunferencia y luego escoger la del numero de circunferencias y o la de radio principal.
El efecto es bueno.
Si usamos la barra del radio de circunferencias y luego la del radio principal,el circulo se desplazara a la derecha.
Ah, un enlace más.
http://www.epsilones.com/
Matemáticas y mucho más.
No creo que por mi parte sea correcto llamarlo elipsoide, cuando son círculos.
Podemos añadir 3 scrollbars o 3 sliders en algún lugar del formulario que modifiquen tanto el número de circunferencias, el radio de la misma y el radio principal.
No tendremos que pulsar en el botón dibujar y veremos dibujando en tiempo real a cada cambio de estas barras.
Cada barra o slider llama a un código común.
No puedo poner tildes en la llamada al procedimiento.
El código cómun.
PUBLIC SUB Dibujame()
Lienzo.clear
Elipsoide(ScrollBarNumCir.Value, ScrollBarRadCirc.Value, ScrollBarRadPrin.Value)
END
PUBLIC SUB Elipsoide(numc AS Integer, radioc AS Integer, radiop AS Integer)
DIM i AS Integer
DIM centrox, centroy AS Integer
DIM x, y AS Integer
IF ChkLienzo.Value = TRUE THEN Lienzo.Clear
centrox = Lienzo.ClientWidth / 2
centroy = Lienzo.ClientHeight / 2
Draw.Begin(Lienzo)
FOR i = 1 TO numc
x = centrox + radiop * Cos(6.2832 / numc * i)
y = centroy + radiop * Sin(6.2832 / numc * i)
Draw.Circle(x, y, radioc)
NEXT
Draw.End()
END
Cuestión:Llame al procedimiento así:
Dibujame en vez de Dibujame()
El efecto es el mismo, pero, ¿ cual debería ser la manera mas correcta?.
Los valores de cada barra a gusto de cada uno.Dentro de unos limites, claro.
Lo único que hay que tener en cuenta que no nos vale variar el numero de circunferencias si no aumentamos el radio de esta.Primero tendríamos
que usar la barra del radio de cada circunferencia y luego escoger la del numero de circunferencias y o la de radio principal.
El efecto es bueno.
Si usamos la barra del radio de circunferencias y luego la del radio principal,el circulo se desplazara a la derecha.
Ah, un enlace más.
http://www.epsilones.com/
Matemáticas y mucho más.
No creo que por mi parte sea correcto llamarlo elipsoide, cuando son círculos.
Objetivo: Re: Flor De Circunferencias
Yo creo que la forma correcta es Dibujame(), ya que los parentesis indican que es una subrutina.
Prodias poner por ejemploy iria a la linea que se llamara
Ademas con los parentesis, indicas que puede llevar parametros, por ejemplo Dibujame("hola"), y asi en la subrutina podias procesar ese parametro:
Saludos
Citar:
Yo creo que la forma correcta es Dibujame(), ya que los parentesis indican que es una subrutina.
Prodias poner por ejemplo
GOTO Dibujame
Dibujame:
Ademas con los parentesis, indicas que puede llevar parametros, por ejemplo Dibujame("hola"), y asi en la subrutina podias procesar ese parametro:
Saludos
Objetivo: Re: Flor De Circunferencias
Ya que estamos con las matemáticas y demás, comparto este enlace:
http://gaussianos.com/
Y hay un libro muy divertido vinculadoa a las matemáticas. Se llama "Locos por las matemáticas"... Tiene cosas muy graciosas tratadas de forma seria... En una de los tantos capítulos por ejemplo tratan de explicar el porqué es habitual que cuando se cae la tostada caiga con el lado de la mermelada hacia abjao...
Por otro lado, muy buena la aplicación!
Saludos!
http://gaussianos.com/
Y hay un libro muy divertido vinculadoa a las matemáticas. Se llama "Locos por las matemáticas"... Tiene cosas muy graciosas tratadas de forma seria... En una de los tantos capítulos por ejemplo tratan de explicar el porqué es habitual que cuando se cae la tostada caiga con el lado de la mermelada hacia abjao...
Por otro lado, muy buena la aplicación!
Saludos!
Objetivo: Re: Flor De Circunferencias
Disculpa mi ignorancia...
Pero si quisiera capturar el contenido de "lienzo" y pasarlo a un objeto image para luego grabarlo... cómo se haría?
Te pregunto porque la verdad que quedo maravillado con las formas que se realizan con el programa, jeje.
Saludos!
Pero si quisiera capturar el contenido de "lienzo" y pasarlo a un objeto image para luego grabarlo... cómo se haría?
Te pregunto porque la verdad que quedo maravillado con las formas que se realizan con el programa, jeje.
Saludos!
Objetivo: Re: Flor De Circunferencias
Ya vi:
En este link encontré información:
http://foro.gambas-es.org/viewtopic.php?f=4&t=373
dim a as new image
a = lienzo.grab()
Genial! Qué fácil era!
En este link encontré información:
http://foro.gambas-es.org/viewtopic.php?f=4&t=373
dim a as new image
a = lienzo.grab()
Genial! Qué fácil era!
Página 1 de 2
No puede crear mensajesNo puede responder temas
No puede editar sus mensajes
No puede borrar sus mensajes
No puede votar en encuestas
No puede adjuntar archivos
Puede descargar archivos
No puede publicar eventos en el calendario
Está utilizando la versión (Lo-Fi). Para ver la versión completa del foro, haga clic aquí.
Powered by Icy Phoenix based on phpBB
Design by DiDiDaDo
Página generada en:: 0.5004s (PHP: -76% SQL: 176%)
Consultas SQL: 48 - Debug off - GZIP Activado