|     Inicio    |   |         |  |   FOROS      |  |      |      
   Elastix - VoIP B4A (Basic4Android) App inventor 2 PHP - MySQL
  Estación meteorológica B4J (Basic4Java) ADB Shell - Android Arduino
   AutoIt (Programación) Visual Basic Script (VBS) FireBase (BD autoactualizable) NodeMCU como Arduino
  Teleco - Emisora de A.M. Visual Basic Cosas de Windows Webs interesantes
Translate:
Búsqueda en este sitio:


.

Autoit en español
Aplicaciones con Autoit - Juan Antonio Villalpando

-- Tutorial de iniciación a Autoit --

Volver al índice del tutorial

____________________________

54.- Dibujo de un cuadrado y un círculo.

- Se dibuja un cuadrado y un círculo rellenos de rojo. Cuando pulsamos los Botones cambian de rojo a azul y viceversa, según el botón pulsado.

Cuadrado y círculo.
				   
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <SendMessage.au3>

#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Gráficos - Juan A. Villalpando", 539, 372, 192, 132)
$Button1 = GUICtrlCreateButton("Button1", 80, 264, 153, 57)
$Button2 = GUICtrlCreateButton("Button2", 312, 264, 153, 57)

$Graphic1 = GUICtrlCreateGraphic(96, 56, 113, 97) ; Cuadrado
GUICtrlSetColor(-1, 0xFF0000)
GUICtrlSetBkColor(-1, 0xFF0000)

$Graphic2 = GUICtrlCreateGraphic(324, 56, 113, 97) ; Círculo
GUICtrlSetGraphic(-1, $GUI_GR_COLOR, 0x000000,  0xFF0000)
GUICtrlSetGraphic(-1, $GUI_GR_ELLIPSE, 10, 0, 100, 100)

GUISetState(@SW_SHOW)
; Juan A. Villalpando. KIO4.COM
#EndRegion ### END Koda GUI section ###


While 1
$msg = GuiGetMsg()
Select
Case $msg = $GUI_EVENT_CLOSE
ExitLoop

   Case $msg = $Button1 ; Rojo
    GUICtrlSetBkColor($Graphic1, 0xFF0000)
    GUICtrlSetGraphic($Graphic1, $GUI_GR_REFRESH)

	GUICtrlSetGraphic($Graphic2, $GUI_GR_COLOR,  0x000000,  0xFF0000)
    GUICtrlSetGraphic(-1, $GUI_GR_ELLIPSE, 10, 0, 100, 100)
    GUICtrlSetGraphic($Graphic2, $GUI_GR_REFRESH)

	Case $msg = $Button2 ; Azul
    GUICtrlSetBkColor($Graphic1, 0x0000FF)
    GUICtrlSetGraphic($Graphic1, $GUI_GR_REFRESH)

	GUICtrlSetGraphic($Graphic2, $GUI_GR_COLOR,  0x000000,  0x0000FF)
    GUICtrlSetGraphic(-1, $GUI_GR_ELLIPSE, 10, 0, 100, 100)
    GUICtrlSetGraphic($Graphic2, $GUI_GR_REFRESH)

EndSelect
Wend
Exit

_________________

- Mi correo:
juana1991@yahoo.com
- KIO4.COM - Política de cookies. Textos e imágenes propiedad del autor:
© Juan A. Villalpando
No se permite la copia de información ni imágenes.
Usamos cookies propias y de terceros que entre otras cosas recogen datos sobre sus hábitos de navegación y realizan análisis de uso de nuestro sitio.
Si continúa navegando consideramos que acepta su uso. Acepto    Más información