Portal    Foro    Buscar    FAQ    Registrarse    Conectarse


Publicar nuevo tema  Responder al tema 
Página 1 de 1
 
 
Ejemplo1 Con Paint
Autor Mensaje
Responder citando   Descargar mensaje  
Mensaje Ejemplo1 Con Paint 
 
Hola Comunidad!.

Me estoy adaptando a la clase Paint.
Se ve que han cambiado cosas que hay que aprender si queremos hacer uso de gráficos.

En este ejemplo, se dibuja un circulo repartido en cuatro porciones, cada una de un color.

 circuloporciones

El código del botón es este:

Public Sub btnCirculoPartes_Click()
  Dim contador As Integer
  Dim anguloinicio As Float  
  Dim centrox As Float
  Dim centroy As Float
  Dim divisor As Float
  
  'Centro de la pizarra
  centrox = Pizarra.Width / 2
  centroy = Pizarra.Height / 2
      
  Paint.Begin(Pizarra)
    anguloinicio = 0
   'Ancho del trazado
    Paint.LineWidth = 6
  
    For contador = 90 To 360 Step 90
      divisor = contador / 90      
      Paint.Arc(centrox, centroy, 100, Rad(- anguloinicio), Rad(-90), True)    
      anguloinicio = contador
      
      'Color segun divisor
      Select Case divisor
        Case 1
          Paint.Brush = Paint.Color(Color.Yellow)
        Case 2
          Paint.Brush = Paint.Color(Color.Blue)
        Case 3
          Paint.Brush = Paint.Color(Color.Red)
        Case 4
          Paint.Brush = Paint.Color(Color.Green)          
      End Select            
      'Rellenar
      Paint.Fill(True)      
      Paint.Brush = Paint.Color(0)
      'Acabamos cada trazado completando cada sector
      Paint.Stroke    
    Next    
  Paint.End
End
 


La manera de como funciona es: primero hace la operación de crear un sector, luego el otro hasta que haga cuatro.
(Ahora siempre hacemos la función de dibujo antes y luego coloreamos con nuestro pincel).
Después de cada trazado, usa los colores. Como veis el parámetro antes del true (para que haga un sector), siempre
es 90. Parte del angulo de inicio que se incrementa y va añadiendo 90. Si usamos un valor positivo coloca los sectores
y colores al revés. Cambiarlo para verlo.

Ah, y usamos la función Rad para que convierta grados a radianes.

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: Ejemplo1 Con Paint 
 
shell:

Esta chulo.
¿a que se ver con mejor definición (trazado de las curvas, etc) usando paint que con draw?

Saludos
 




===================
Blog personal
Web: SoloGambas seleccion de articulos dedicados a Gambas
Visita el Curso de Gambas3 ¡¡¡Gratuito!!!
 
última edición por jsbsan el Miercoles, 09 Enero 2013, 18:26; editado 1 vez 
jsbsan - Ver perfil del usuarioEnviar mensaje privadoVisitar sitio web del usuario 
Volver arribaPágina inferior
Responder citando   Descargar mensaje  
Mensaje Re: Ejemplo1 Con Paint 
 
Hola Julio.

jsbsan escribió: [Ver mensaje]


Esta chulo.
¿a que se ver con mejor definición (trazado de las curvas, etc) usando paint que con draw?


Si, naturalmente.

Me lleve el ejemplo a casa y tuve que bajar la ultima versión de Gambas.
Con la gambas 3.3.4 faltaba el parámetro de hacer el trozo de pastel.

Static Sub Arc ( XC As Float, YC As Float, Radius As Float [ , Angle As Float, Length As Float, Pie As Boolean ] )
 


Y es que en la ayuda online aparece, pero la 3.3.4 no incluye esa posibilidad.

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
Mostrar mensajes anteriores:    
 
OcultarTemas parecidos
Tema Autor Foro Respuestas último mensaje
No hay nuevos mensajes La Clase Paint Es Lenta Alaplancha General 8 Viernes, 10 May 2013, 08:30 Ver último mensaje
shordi
No hay nuevos mensajes VB Evento Paint. ¿ Y En Gambas ? Shell General 0 Domingo, 09 Junio 2013, 10:16 Ver último mensaje
Shell
No hay nuevos mensajes Futuro De La Clase Paint Shell General 9 Martes, 03 Diciembre 2013, 13:17 Ver último mensaje
Shell
No hay nuevos mensajes Draw Vs Paint ahtonio General 3 Domingo, 18 May 2014, 09:59 Ver último mensaje
ahtonio
 

Publicar nuevo tema  Responder al tema  Página 1 de 1
 

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