|     Inicio    |   |         |  |   FOROS      |  |      |      
   Elastix - VoIP B4A (Basic4Android) App inventor 2 PHP - MySQL
  Estación meteorológica B4J (Basic4Java) ADB Shell - Android Arduino
  Raspberry Pi Visual Basic Script (VBS) FireBase (BD autoactualizable) NodeMCU como Arduino
  AutoIt (Programación) 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

____________________________

23.- Deslizable. (Slider). Suma de aritmética- Importar código para el KODA.

suma_aritmetica.exe

- Vamos a sumar cuatro números. El número h lo introduciremos mediante un Input. El número x mediante un Slider1 que tiene unos valores comprendidos entre -10 y 10. El número y mediante un Slider2 que tiene unos valores comprendidos entre -5 y 5. El número z mediante un Slider3 entre 0 y 100.

- La suma aparecerá en el Label9.

- Tenemos tres RadioButton, según el que marquemos así saldrá el color del Label9

---------------------------------------------------------------------------------------------------------------------------

- Koda.

__________________________

- Código completo.

suma_aritmetica.au3

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <SliderConstants.au3>
#include <StaticConstants.au3>
#include <ColorConstants.au3>

#Region ### START Koda GUI section ### Form=
$Formulario = GUICreate("KODA - Juan A. Villalpando", 416, 274, 200, 200)
$Label1 = GUICtrlCreateLabel("H: ", 10, 15, 62, 25)
$Input1 = GUICtrlCreateInput("40", 104, 15, 50, 24, BitOR($GUI_SS_DEFAULT_INPUT,$ES_RIGHT))
$Label2 = GUICtrlCreateLabel("Color:", 10, 45, 40, 25)
$Radio1 = GUICtrlCreateRadio("Rojo", 60, 45, 70, 20)
GUICtrlSetState(-1, $GUI_CHECKED)
$Radio2 = GUICtrlCreateRadio("Verde", 140, 45, 70, 20)
$Radio3 = GUICtrlCreateRadio("Azul", 220, 45, 70, 20)
$Label3 = GUICtrlCreateLabel("X:", 10, 75, 48, 25)
$Slider1 = GUICtrlCreateSlider(92, 75, 200, 25)
GUICtrlSetLimit(-1, 10, -10)
$Label4 = GUICtrlCreateLabel("Y:", 10, 113, 40, 25)
$Slider2 = GUICtrlCreateSlider(92, 113, 200, 25)
GUICtrlSetLimit(-1, 5, -5)
$Label5 = GUICtrlCreateLabel("Z:", 10, 159, 56, 25)
$Slider3 = GUICtrlCreateSlider(92, 151, 200, 25)
$Label6 = GUICtrlCreateLabel("Label6", 320, 72, 45, 20)
$Label7 = GUICtrlCreateLabel("Label7", 320, 112, 45, 20)
$Label8 = GUICtrlCreateLabel("Label8", 320, 152, 45, 20)
$Label9 = GUICtrlCreateLabel("Label9", 112, 224, 45, 20)
GUISetState(@SW_SHOW)
; Juan A. Villalpando
#EndRegion ### END Koda GUI section ###


$x =0
$y = 0
$z = 0
$suma = 0

While 1
$msg = GuiGetMsg()
if $msg = $GUI_EVENT_CLOSE Then Exit

      $h = GUICtrlRead($Input1)
	  $x = GUICtrlRead($Slider1)
      GUICtrlSetData($Label6, $x)
	  $y = GUICtrlRead($Slider2)
      GUICtrlSetData($Label7,$y)
	  $z = GUICtrlRead($Slider3)
	  GUICtrlSetData($Label8,$z)
	  $suma = $h + $x + $y + $z
      GUICtrlSetData($Label9,$suma)

if $msg = $Radio1 Then GUICtrlSetColor($Label9, $COLOR_RED)
if $msg = $Radio2 Then GUICtrlSetColor($Label9, $COLOR_GREEN)
if $msg = $Radio3 Then GUICtrlSetColor($Label9, $COLOR_BLUE)

Sleep(50)
Wend
Exit

________________________________________________

- Comentarios.

- He utilizado If en vez de Case.

- El $GUI_EVENT_CLOSE Then Exit es la X roja para cerrar el formulario.

- Sleep(50) para que no parpadeen mucho los controles.

- En la construcción del Formulario mediante $WS_EX_COMPOSITED y $WS_EX_TRANSPARENT evita el parpadeo (flicker), esto lo veremos en el tutorial 67 de bluetooth.

$Form1 = GUICreate("BT - Juan A. Villalpando", 386, 273, 368, 166, BitOR($WS_MINIMIZEBOX, $WS_SIZEBOX,$WS_EX_COMPOSITED, $WS_EX_TRANSPARENT))

________________________________________________

- Importar códigos de controles al KODA.

- Supongamos que tenemos un código completo de un Script como el que acabamos de ver y queremos tomar la parte de los controles y pasarla al KODA para realizar cambios en los controles.

- Tomamos la parte de los controles con los includes:

koda

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <SliderConstants.au3>
#include <StaticConstants.au3>
#include <ColorConstants.au3>

#Region ### START Koda GUI section ### Form=
$Formulario = GUICreate("KODA - Juan A. Villalpando", 416, 274, 200, 200)
$Label1 = GUICtrlCreateLabel("H: ", 10, 15, 62, 25)
$Input1 = GUICtrlCreateInput("40", 104, 15, 50, 24, BitOR($GUI_SS_DEFAULT_INPUT,$ES_RIGHT))
$Label2 = GUICtrlCreateLabel("Color:", 10, 45, 40, 25)
$Radio1 = GUICtrlCreateRadio("Rojo", 60, 45, 70, 20)
GUICtrlSetState(-1, $GUI_CHECKED)
$Radio2 = GUICtrlCreateRadio("Verde", 140, 45, 70, 20)
$Radio3 = GUICtrlCreateRadio("Azul", 220, 45, 70, 20)
$Label3 = GUICtrlCreateLabel("X:", 10, 75, 48, 25)
$Slider1 = GUICtrlCreateSlider(92, 75, 200, 25)
GUICtrlSetLimit(-1, 10, -10)
$Label4 = GUICtrlCreateLabel("Y:", 10, 113, 40, 25)
$Slider2 = GUICtrlCreateSlider(92, 113, 200, 25)
GUICtrlSetLimit(-1, 5, -5)
$Label5 = GUICtrlCreateLabel("Z:", 10, 159, 56, 25)
$Slider3 = GUICtrlCreateSlider(92, 151, 200, 25)
$Label6 = GUICtrlCreateLabel("Label6", 320, 72, 45, 20)
$Label7 = GUICtrlCreateLabel("Label7", 320, 112, 45, 20)
$Label8 = GUICtrlCreateLabel("Label8", 320, 152, 45, 20)
$Label9 = GUICtrlCreateLabel("Label9", 112, 224, 45, 20)
GUISetState(@SW_SHOW)
; Juan A. Villalpando
#EndRegion ### END Koda GUI section ###

- Vamos al KODA. Archivo / Importar / Importar Autoit GUI. Pulsamos el botón "Process".

- Pegamos el código correspondiente.

_________________
- Propuesta.

-

- 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