Portal    Foro    Buscar    FAQ    Registrarse    Conectarse


Publicar nuevo tema  Responder al tema 
Página 1 de 2
Ir a la página 1, 2  Siguiente
 
Ayuda Drawingarea
Autor Mensaje
Responder citando   Descargar mensaje  
Mensaje Ayuda Drawingarea 
 
Hola, estoy haciendo un programilla y necesito que en el drawingarea me salga los mismos puntos que hay en fondo de la siguiente imagen , alguien me ayuda?.  iconos_de_autocad_24959_2_5
 



 
kok - Ver perfil del usuarioEnviar mensaje privado 
Volver arribaPágina inferior
Responder citando   Descargar mensaje  
Mensaje Re: Ayuda Drawingarea 
 
Hola kok.

Necesitas un bucle anidado.
El step marca la separación entre los puntos.

Por ejemplo:

Crea un formulario y añade el componente DrawingArea.
Añade este código:

Public Sub DrawingArea1_Draw()
Dim x As Integer
Dim y As Integer

For x = 0 To DrawingArea1.Width Step 10
  For y = 0 To DrawingArea1.Height Step 10
      Draw.Point(x, y)
  Next
Next
  
End
 


El evento se dispara nada mas arrancar el formulario.Eso a lo mejor tienes que cambiarlo.

Saludos
 




===================
Gambas Básico
"No es un bug, es una característica no documentada"
 
última edición por Shell el Jueves, 10 May 2012, 13:01; editado 1 vez 
Shell - Ver perfil del usuarioEnviar mensaje privadoVisitar sitio web del usuario 
Volver arribaPágina inferior
Responder citando   Descargar mensaje  
Mensaje Re: Ayuda Drawingarea 
 
no me funciona y no te endiendo. me lo podrias explicar?
pd: no hace falta, ya sta gracias
 



 
última edición por kok el Jueves, 10 May 2012, 13:39; editado 1 vez 
kok - Ver perfil del usuarioEnviar mensaje privado 
Volver arribaPágina inferior
Responder citando   Descargar mensaje  
Mensaje Re: Ayuda Drawingarea 
 
otra cosa como podria hacer para que los puntos salieran blancos?
 



 
kok - Ver perfil del usuarioEnviar mensaje privado 
Volver arribaPágina inferior
Responder citando   Descargar mensaje  
Mensaje Re: Ayuda Drawingarea 
 
Te recomiendo que veas el libro de "Beginner Gambas version3, hay un capitulo entero a explicar temas de dibujo con gambas
 




===================
Blog personal
Web: SoloGambas seleccion de articulos dedicados a Gambas
Visita el Curso de Gambas3 ¡¡¡Gratuito!!!
 
jsbsan - Ver perfil del usuarioEnviar mensaje privadoVisitar sitio web del usuario 
Volver arribaPágina inferior
Responder citando   Descargar mensaje  
Mensaje Re: Ayuda Drawingarea 
 
kok:

Baja de paso el manual de gambas en español que lo encontraras en la comunidad.
Aprenderás las nociones básicas para hacer cosas con gambas.

Lo que pides es simple, pero complicado si no sabes conceptos básicos.
Se llama bucle anidado por que es un bucle que se repite uno dentro de otro.

Public Sub Form_Open()
'Bucle simple For
Dim x As Integer

For x = 1 To 5
   Print "Hola" 'Escribe 5 veces "Hola" en la consola
Next
  
End
 


Esto es un bucle anidado, tienes el bucle y dentro del bucle x.

Public Sub Form_Open()
'Ejemplo de bucle anidado para una tabla de multiplicar
Dim x As Integer
Dim y As Integer

For x = 1 To 10
   For y = 1 To 10
      Print x & " * " & y & " = " & (x * y)
   Next
   Print 'Creamos un espacio
Next
  
End
 

Si hubieras escrito el código con un bucle simple.Hubieses necesitado diez bucles para crear cada tabla de multiplicar

Te adjunto el código del Dibujo. Cambiar el color de fondo a un componente que lo permite no es complicado.
Puedes hacer muchas cosas interesante con el componente DrawingArea.

Public Sub DrawingArea1_Draw()
Dim x As Integer
Dim y As Integer

DrawingArea1.Background = Color.Black
Draw.Foreground = Color.White
For x = 0 To DrawingArea1.Width Step 10
  For y = 0 To DrawingArea1.Height Step 10    
      Draw.Point(x, y)
  Next
Next  

End
 


Hay que estudiar.Bienvenido.

Saludos.
 




===================
Gambas Básico
"No es un bug, es una característica no documentada"
 
Shell - Ver perfil del usuarioEnviar mensaje privadoVisitar sitio web del usuario 
Volver arribaPágina inferior
Responder citando   Descargar mensaje  
Mensaje Re: Ayuda Drawingarea 
 
Muchas gracias, me he bajado el libro y me a servido de ayuda. Otra cosa, si no fuera mucho pedir, he encontrado por el libro las propiedades para hacer lineas circulos y tal y lo e probado pero no me funcionan bien, aqui pongo el codigo para que lo mireis haber que esta mal.
PUBLIC SUB Button1_MouseMove()

  Draw.Begin(DrawingArea1)
  Draw.Line(Mouse.X, Mouse.Y)
  Draw.End

END
 

Lo que quiero hacer es que al selecionar un boton pueda dibujar con el raton en un drawingarea.
 



 
kok - Ver perfil del usuarioEnviar mensaje privado 
Volver arribaPágina inferior
Responder citando   Descargar mensaje  
Mensaje Re: Ayuda Drawingarea 
 
En el foro que hay un ejemplo de dibujar a mano alzada ( Enlace )

El error de tu codigo, es que estas dibujando una linea, pero solo le estas dando un punto.

PUBLIC SUB Button1_MouseMove()

 Draw.Begin(DrawingArea1)
 Draw.Line(100, 300,10,50)
 Draw.End

END


Ahora dibujara desde la coordenada 10,50 a 100,300

Saludos
 




===================
Blog personal
Web: SoloGambas seleccion de articulos dedicados a Gambas
Visita el Curso de Gambas3 ¡¡¡Gratuito!!!
 
jsbsan - Ver perfil del usuarioEnviar mensaje privadoVisitar sitio web del usuario 
Volver arribaPágina inferior
Responder citando   Descargar mensaje  
Mensaje Re: Ayuda Drawingarea 
 
Gracias por el post, ya lo habia visto pero yo necesito dibujar una linea recta, no a mano alzada, nose si me entiendes?

Ya que me he explicado algo mal os comento mi intencióm.
En el formulario tengo un boton y un drawingarea y lo que quiero es que al pulsar en el boton, poder dibujar una linea recta en el drawingarea con el raton.
Perdonen y gracias.
 



 
kok - Ver perfil del usuarioEnviar mensaje privado 
Volver arribaPágina inferior
Responder citando   Descargar mensaje  
Mensaje Re: Ayuda Drawingarea 
 
kok:

¿ Quieres dibujar una linea de un punto a otro punto  y que sea una linea recta ?.

En este código, haces clic, creas un punto (para tener una referencia). Haces de nuevo clic y traza la recta.

Private x0 As Integer
Private y0 As Integer
Private x1 As Integer
Private y1 As Integer
Private hacesclick As Boolean

Public Sub _new()

End

Public Sub Form_Open()

x0 = 0
y0 = 0
x1 = 0
y1 = 0
hacesclick = False

End

Public Sub DrawingArea1_MouseDown()
Draw.Begin(DrawingArea1)
  If x0 = 0 And y0 = 0 And hacesclick = False Then
    x0 = Mouse.X
    y0 = Mouse.Y
    Draw.Point(x0, y0)
    hacesclick = True
  Endif
  
  If (x1 = 0 And y1 = 0) And hacesclick = False Then
    x1 = Mouse.X
    y1 = Mouse.Y
  Endif
  
  If x0 <> 0 And y0 <> 0 And x1 <> 0 And y1 <> 0 Then
    Draw.Line(x0, y0, x1, y1)
    x0 = 0
    y0 = 0
    x1 = 0
    y1 = 0
  Endif
  hacesclick = False
Draw.End
End
 


En este código se ha hecho uso de las sentencias condicionales para que unas instrucciones
se ejecuten cuando se cumplen unas condiciones.

Se hace uso de variables comunes para todo el formulario para guardar las coordenadas
de ambos puntos.Cuando tenemos las coordenadas de los dos puntos entonces
traza la recta y luego reinicia los valores para que podamos trazar una linea nueva.

Creo que es lo que quieres. Como dice Julio, necesitas para una recta un comienzo y un final para trazar la recta.
No es valido solo una coordenada de un punto. El evento mas adecuado es MouseDown(). Que es casi como el Click.

Que sigas aprendiendo.

Saludos.
 




===================
Gambas Básico
"No es un bug, es una característica no documentada"
 
última edición por Shell el Domingo, 13 May 2012, 00:11; editado 2 veces 
Shell - Ver perfil del usuarioEnviar mensaje privadoVisitar sitio web del usuario 
Volver arribaPágina inferior
Mostrar mensajes anteriores:    
 
OcultarTemas parecidos
Tema Autor Foro Respuestas último mensaje
No hay nuevos mensajes Imagen En Un Drawingarea nrcefe General 4 Jueves, 24 Septiembre 2009, 22:32 Ver último mensaje
nrcefe
No hay nuevos mensajes ¿Cómo Dibujar Un Polígono En El Drawing... kpo47 Controles/Librerías/Componentes 17 Viernes, 15 Junio 2012, 21:55 Ver último mensaje
tururu
No hay nuevos mensajes Pintar En Un Drawingarea guadafan General 12 Domingo, 28 Julio 2013, 20:53 Ver último mensaje
guadafan
No hay nuevos mensajes Drawingarea + Dibuja Por Codigo + Exportar... tincho General 6 Domingo, 24 Enero 2016, 16:52 Ver último mensaje
tincho
 

Publicar nuevo tema  Responder al tema  Página 1 de 2
Ir a la página 1, 2  Siguiente

Usuarios navegando en este tema: 0 registrados, 0 ocultos y 1 invitado
Usuarios registrados conectados: Ninguno


 
Lista de permisos
No puede crear mensajes
No 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



  

 

cron