Ayuda con mi codigo

Presentaciones - Mensajes de Bienvenida - Mensagem de Boas-vindas

Ayuda con mi codigo

Notapor wbueso » 29 Ene 2014, 00:55

Estoy escribiendo este programa y al ejecutar ...$FlRut0 = FileOpenDialog("Seleccione un Ejecutable", @DesktopCommonDir, "Ejecutables (*.exe;*.bat;*.com;*.cmd)", 1 + 4 )...Se abre una caja de busqueda y si no se selecciona nungun archivo se ejecuta un msgbox con "Debe seleccionar un Archivo".
lo que quiero saber es como hago para que al cerrar el msgbox vuela a ejecutar FlRut0 = FileOpenDialog("Seleccione un Ejecutable", @DesktopCommonDir, "Ejecutables (*.exe;*.bat;*.com;*.cmd)", 1 + 4 ), o que no se cierre la caja de búsqueda después de cerrar el msgbox, o que al hacer clic en abrir de la caja de búsqueda sin haber seleccionado un archivo aparezca la advertencia de "Debe seleccionar un Archivo".
Les doy el código que quiero mejorar, y agradezco la ayuda que me puedan brindar.
El texto en azul es el codigo que quiero mejorar o aprender a escribir.

Código: Seleccionar todo
Func Add0()
      $FlRut0 = FileOpenDialog("Seleccione un Ejecutable", @DesktopCommonDir, "Ejecutables (*.exe;*.bat;*.com;*.cmd)", 1 + 4 )
       If $FlRut0 = "" Then
       MsgBox(0,"Error","Debe seleccionar un Archivo",5)
       Else
       $FlName0 = InputBox("Programa Agregado","Usted Selecciono el Siguiente Programa"&$FlRut0&@CRLF&@CRLF&"Escriba el Nombre del Programa")
     If $FlName0 = "" Then
       MsgBox(0,"Error","Debe Escribir un Nombre para el Archivo")[/color]
       else
         $Dflt0 = MsgBox(4,"Listo","Desea que el programa se instale por default")
     If $Dflt0 = 6 Then
       $Chckd0 = 1
     Else
       $Chckd0 = 0
     EndIf
       $FlOpn0 = FileOpen("Programas.txt")
       _FileWriteToLine(@ScriptDir&"\Programas.txt",1,$FlName0,1)
       _FileWriteToLine(@ScriptDir&"\Programas.txt",2,$FlRut0,1)
       _FileWriteToLine(@ScriptDir&"\Programas.txt",3,$Chckd0,1)
       FileClose($FlOpn0)
        EndIf
     EndIf
   EndFunc


Me gusta AutoIt y tengo un montón de Ideas, leo todos los códigos a mi disposición y trato de entenderlos, al comienzo no entendía nada, pero ahora comprendo un poquito mas, pero sigo aprendiendo y estoy emocionado.
Última edición por wbueso el 30 Ene 2014, 23:59, editado 2 veces en total
wbueso
Aprendiz de Mago
 
Mensajes: 60
Registrado: 31 Dic 2013, 01:02

Re: Ayuda con mi codigo

Notapor PDF » 29 Ene 2014, 05:37

Buenas !

Según tengo entendido lo que quieres es hacer que la ventana de selección de archivos vuelva a mostrarse en caso de que no se haya seleccionado ningun archivo. Lo primero que puedes hacer es organizar tu código, por ejemplo utilizar otra función para hacer esto, me tome la molestia de modificar tu codigo :smt002 de la siguiente manera:

Código: Seleccionar todo
#include <file.au3>
_Add0()
Func _SelectFile()
Local $FlRut0
Local $FlName0
$FlRut0 = FileOpenDialog("Seleccione un Ejecutable", @DesktopCommonDir, "Ejecutables (*.exe;*.bat;*.com;*.cmd)", 1 + 4)
If @error Or $FlRut0 = "" Then
MsgBox(0, "Error", "Debe seleccionar un Archivo", 5)
_SelectFile() ; Vuelve a ejecutar la funcón hasta que se seleccione un fichero válido
Else
Return $FlRut0 ; Devuelve el directorio de la aplicación
EndIf
EndFunc   ;==>_SelectFile

Func _Add0()
Local $FlRut0 = _SelectFile()
Local $FlName0 = InputBox("Programa Agregado", "Usted Selecciono el Siguiente Programa" & $FlRut0 & @CRLF & @CRLF & "Escriba el Nombre del Programa")
If $FlName0 = "" Then
MsgBox(0, "Error", "Debe Escribir un Nombre para el Archivo")
; _Add() ; Volver a buscar
Else
$Dflt0 = MsgBox(4, "Listo", "Desea que el programa se instale por default")
If $Dflt0 = 6 Then
$Chckd0 = 1
Else
$Chckd0 = 0
EndIf
$FlOpn0 = FileOpen(@ScriptDir&"\Programas.txt",10) ; Borra contenido previo
FileWriteLine($FlOpn0,$FlName0)
FileWriteLine($FlOpn0,$FlRut0)
FileWriteLine($FlOpn0,$Chckd0)
FileClose($FlOpn0)
EndIf
EndFunc   ;==>_Add0


Espero te sirva y bienvenido al mundo de Autoit. Cualquier duda para eso estamos. Saludos!
PDF
Hacker del Foro
 
Mensajes: 152
Registrado: 18 Ene 2013, 23:23

Re: Ayuda con mi codigo

Notapor wbueso » 29 Ene 2014, 22:36

Grasias PDF voy a provarlo ahorita mismo, no lo puedo separar porque son 80 ADD y sus ID son ADD0 hasta ADD79 y no se como aria para usarlo por separado, gracias.
QUiero saber si puedo crear una funcion dentro de otra funcion.
wbueso
Aprendiz de Mago
 
Mensajes: 60
Registrado: 31 Dic 2013, 01:02

Re: Ayuda con mi codigo

Notapor PDF » 30 Ene 2014, 00:40

Hola.

Quieres decir que tienes 79 funciones ADD?.. Lo que deberías hacer es explicar lo quieres hacer para poder ayudarte mejor, y poder simplificar el código. Con respecto a lo de crear funciones dentro de otra no se puede.

Saludos!
PDF
Hacker del Foro
 
Mensajes: 152
Registrado: 18 Ene 2013, 23:23

Re: Ayuda con mi codigo

Notapor wbueso » 30 Ene 2014, 01:26

Escribí el código para el programa y funciona, lo que no me gusta es que tengo que escribir en el script el nombre del programa que se instalara, la dirección o donde esta ubicado el programa y si se instalara por default, al compilarlo ya no puedo cambiar los programas ni los nombres, pero estoy intentando mejorarlo según voy aprendiendo, no se como funcionan los array aun, lo que quiero hacer es poner un botón en la GUI principal para agregar los programas el cual ejecute una segunda GUI donde tengo 80 botones desde BUTTONCERO (BUTTON0) hasta BUTTON79, al hacer clic en uno de los botones lo que quiero que haga es que me permita buscar y seleccionar un programa, después que me permita ponerle un nombre y después que pueda elegir si se instalara por default o no, todo esto lo guarda en un documento de texto en donde escribe en la primera línea el nombre del programa, en la segunda línea el path o dirección del programa y en la tercera línea el numero 1 si se instalara por defaul o sino escribirá el numero 0, mi problema a sido que se ejecuta FileOpenDialog para buscar y seleccionar el programa, pero al no seleccionar ningún archivo y cerrar la caja de búsqueda me muestra el msgbox de que no seleccione ningún programa y el programa continua ejecutándose solicitándome que le escriba un nombre al programa (Pero si no seleccione ningún programa) y al no escribirle el nombre del programa me da msgbox que tengo que escribir el nombre del programa, pero se sigue ejecutando el script y me dice que si quiero que se instale por default.
Quiero que al no seleccionar ningún archivo me avise que no seleccione ningún archivo y que vuelva a la ejecución anterior, y que al no escribirle un nombre al programa me avise de que no he escrito nada y se ejecute de nuevo el inputbox para escribirle el nombre, creo que por lo demás ya casi lo he resuelto todo, pero yo confió en su conocimiento y se que me pueden enseñar mucho, le agradezco a PDF por responder a mis inquietudes, trato de explicarles lo mejor que puedo, pero no conozco mucho aun el lenguaje que ustedes usan para referirse a los temas de programación.
Gracias nuevamente y DIOS los bendiga, adelante con AUTOIT.

PD. como hacen para que los codigos que envian salgan en esas ventanas con barra de desplazamiento, perdon por mi ignorancia.
wbueso
Aprendiz de Mago
 
Mensajes: 60
Registrado: 31 Dic 2013, 01:02

Re: Ayuda con mi codigo

Notapor PDF » 30 Ene 2014, 03:46

A ver lo que puedes hacer en ese caso es mostrar una Caja de Mensaje con la pregunta "Desea cancelar la selección?" ya que al darle cancelar es cuando FileOpenDialog envia "" y establece @error =1 el usuario cancelo la operación. En cuanto al inputbox puedes establecerlo en modo mandatory para que al darle aceptar no haga nada si no se ha escrito el nombre. Quería de esta forma:

Código: Seleccionar todo
Func _ADD0()
   Local $FlRut0
   $FlRut0 = FileOpenDialog("Seleccione un Ejecutable", @DesktopCommonDir, "Ejecutables (*.exe;*.bat;*.com;*.cmd)", 1)
   If @error Then
      $iMsgBoxAnswer = MsgBox(36, "Seleccione un Ejecutable", "Desea cancelar la selección del fichero?")
      Select
         Case $iMsgBoxAnswer = 6 ;Yes
            ; Sale de la función
         Case $iMsgBoxAnswer = 7 ;No
            _ADD0() ; Volver a seleccionar
      EndSelect
   Else
      $IsSelect = 1
      $FlName0 = InputBox("Programa Agregado", "Usted Selecciono el Siguiente Programa" & $FlRut0 & @CRLF & @CRLF & "Escriba el Nombre del Programa", "", " M") ;Input Mandatory
      If $FlName0 = "" Then
         MsgBox(0, "Error", "Ha cancelado la operación")
      Else
         $Dflt0 = MsgBox(4, "Listo", "Desea que el programa se instale por default")
         If $Dflt0 = 6 Then
            $Chckd0 = 1
         Else
            $Chckd0 = 0
         EndIf
         $FlOpn0 = FileOpen(@ScriptDir & "\Programas.txt", 10) ; Borra contenido previo
         FileWriteLine($FlOpn0, $FlName0)
         FileWriteLine($FlOpn0, $FlRut0)
         FileWriteLine($FlOpn0, $Chckd0)
         FileClose($FlOpn0)
      EndIf
   EndIf
EndFunc   ;==>_ADD0


No es necesario que crees una función para cada botón puedes probar con agruparlos si tienen la misma finalidad, basta con utilizar variables pra ello, consulta la ayuda y ve ejemplos.

wbueso escribió:PD. como hacen para que los codigos que envian salgan en esas ventanas con barra de desplazamiento, perdon por mi ignorancia.


Debe seleccionar tu codigo y darle clic al botón Code..

Suerte!
PDF
Hacker del Foro
 
Mensajes: 152
Registrado: 18 Ene 2013, 23:23

Re: Ayuda con mi codigo

Notapor wbueso » 31 Ene 2014, 00:10

Eres un Genio PDF, en realidad me estas ayudando una barbaridad, con lo que me enseñaste hoy se que daré un gran paso en mi aprendizaje, te agradezco que respondas a mis preguntas, luego quiero saber como es que funcionan los array y si puede funcionar en este programa, gracias amigo.
wbueso
Aprendiz de Mago
 
Mensajes: 60
Registrado: 31 Dic 2013, 01:02

Re: Ayuda con mi codigo

Notapor PDF » 31 Ene 2014, 03:32

No hay de que para eso estamos, me da gusto saber que puedo ayudarte, en este foro encontraras mucha información que necesitas, solo tienes que investigar un poco, por ejemplo sobre como funciona un array puedes ver los siguientes temas:

En ingles http://www.autoitscript.com/wiki/Arrays
http://www.emesn.com/autoitforum/viewtopic.php?f=20&t=4007&p=15955&hilit=arrays#p15780

Te recomiendo la documentación de autoit, alli hay muchos scripts de ejemplos que te pueden servir o buscalos en la carpeta examples en el directorio de AutoIt.
En este enlace puedes descargar el archivo de ayuda en español.

Efectivamente como dices, puedes utilizar arrays en el programa que estas desarrollando, debes mirar ejemplos como lo hacen otras pesonas y a partir de alli tomar lo que tu necesitas. Para ello también necesitas aprender sobre los bucles (For..to..next) que te serviran para utilizar los valores de un array.

Tengo entendido que tenias una GUI con varios botones, para simplificar la tarea de crear botones es posible utilizar arrays, mira el siguiente ejemplo:

Código: Seleccionar todo
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>

Global $Button[10]
Global $programas[10] = ["autoit-v3-setup.exe","SciTE4AutoIt3.exe","ChromeSetup.exe","GoogleEarthSetup.exe", "" & _
"aTubeCatcher.exe","avast_free_antivirus_setup.exe","Seleccione Fichero...","Seleccione Fichero...","Seleccione Fichero...","Seleccione Fichero..."]

$Form1 = GUICreate("AutoIt Gui", 615, 437, 192, 124)
$iTop = 31
For $i = 0 To UBound($Button) - 1
   $Button1 = GUICtrlCreateButton($programas[$i], 232, $iTop, 170, 25)
   $iTop += 40
Next
GUISetState(@SW_SHOW)

While 1
   $nMsg = GUIGetMsg()
   Switch $nMsg
      Case $GUI_EVENT_CLOSE
         Exit

   EndSwitch
WEnd


Ten en cuenta que debes modificarlo segun lo que necesitas. Cualquier duda puedes preguntar que con gusto te ayudaremos.
Saludos..
PDF
Hacker del Foro
 
Mensajes: 152
Registrado: 18 Ene 2013, 23:23

Re: Ayuda con mi codigo

Notapor wbueso » 01 Feb 2014, 17:26

PDF Este es el codigo que llevo.
Lo de los array ya entendi como funcionan, pero ahora mi problema es que como se hace para saber en cual de los botones el usuario hace clic para determinada accion, por ejemplo cuando creo un boton para salir "$BtnSlr" uso case $BtnSlr Exit , lo que me saca del programa, pero con los array no se como averiguar en cual de los botones se hizo clic, prove con Case $Btna = [0], Case $Btna[0], eso no fuciona y ya no tengo ni idea de como hacer, podrias ayudarme, te lo agradesco mucho.

Código: Seleccionar todo
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <File.au3>
#include <Array.au3>

$Form1 = GUICreate("Agregar Programas", 650, 490, 200, 150)
$BtnSlr = GUICtrlCreateButton("Salir",5,460,80,20)

##################################################################################################

;Lee las Lineas de un Documento
$Read1 = FileReadLine(@ScriptDir&"\Programas.txt",1)
$Read2 = FileReadLine(@ScriptDir&"\Programas.txt",4)
$Read3 = FileReadLine(@ScriptDir&"\Programas.txt",7)
$Read4 = FileReadLine(@ScriptDir&"\Programas.txt",10)
$Read5 = FileReadLine(@ScriptDir&"\Programas.txt",13)
$Read6 = FileReadLine(@ScriptDir&"\Programas.txt",16)
$Read7 = FileReadLine(@ScriptDir&"\Programas.txt",19)
$Read8 = FileReadLine(@ScriptDir&"\Programas.txt",22)
$Read9 = FileReadLine(@ScriptDir&"\Programas.txt",25)
$Read10 = FileReadLine(@ScriptDir&"\Programas.txt",28)
##################################################################################################

;Crea los botones
Global $Btna[10]
Global $programas1[10] = [$Read1,$Read2,$Read3,$Read4,$Read5,$Read6,$Read7,$Read8,$Read9,$Read10]
Global $BPA1 = 35, $BPI1 = 100 ;$BPA (Boton Posicion Arriba), $BPD (Boton Posicion Izquierda)

For $a = 0 To UBound($Btna) - 1
   $Btna = GUICtrlCreateButton($programas1[$a], $BPI1,$BPA1, 120, 20)
      $BPA1 += 20
   Next

##################################################################################################

GUISetState(@SW_SHOW)

##################################################################################################

;Funsion para cuando se hace clic en los botones
Func _ADD0()
   Local $FlRut0
   $FlRut0 = FileOpenDialog("Seleccione un Ejecutable", @DesktopCommonDir, "Ejecutables (*.exe;*.bat;*.com;*.cmd)", 1)
   If @error Then
      $iMsgBoxAnswer = MsgBox(36, "Seleccione un Ejecutable", "Desea cancelar la selección del fichero?")
      Select
         Case $iMsgBoxAnswer = 6 ;Yes
            ; Sale de la función
         Case $iMsgBoxAnswer = 7 ;No
            _ADD0() ; Volver a seleccionar
      EndSelect
   Else
      $IsSelect = 1
      $FlName0 = InputBox("Programa Agregado", "Usted Selecciono el Siguiente Programa" & $FlRut0 & @CRLF & @CRLF & "Escriba el Nombre del Programa", "", " M") ;Input Mandatory
      If $FlName0 = "" Then
         MsgBox(0, "Error", "Ha cancelado la operación")
      Else
         $Dflt0 = MsgBox(4, "Listo", "Desea que el programa se instale por default")
         If $Dflt0 = 6 Then
            $Chckd0 = 1
         Else
            $Chckd0 = 0
           $FlOpn0 = FileOpen(@ScriptDir&"\Programas.txt",1)
         _FileWritetoLine(@ScriptDir&"\Programas.txt",1,$FlName0);Estas 3 lineas escriben en un documento el nombre del archivo
         _FileWritetoLine(@ScriptDir&"\Programas.txt",2,$FlRut0);La ruta del archivo
         _FileWritetoLine(@ScriptDir&"\Programas.txt",3,$Chckd0);1 si se instalara por defaul o cero si no
         FileClose($FlOpn0)
         EndIf
         EndIf
         EndIf
      EndFunc   ;==>_Add0
##################################################################################################

While 1
   $nMsg = GUIGetMsg()
   Switch $nMsg

  [color=#0000FF] Case $Btna[0]                      ;Aqui es mi problema, no se como hacer para que reconosca en que boton
     MsgBox(0,"Gooood","God Job Willo")     ;se hace clic[/color]

   Case $BtnSlr
     Exit
      Case $GUI_EVENT_CLOSE
         Exit

   EndSwitch
WEnd
wbueso
Aprendiz de Mago
 
Mensajes: 60
Registrado: 31 Dic 2013, 01:02

Re: Ayuda con mi codigo

Notapor Dany » 01 Feb 2014, 20:25

en la parte que creas los controles(botones) no estas asignando al arreglo con su indice. debes hacerlo asi:


Código: Seleccionar todo
For $a = 0 To UBound($Btna) - 1
   $Btna[$a] = GUICtrlCreateButton($programas1[$a], $BPI1,$BPA1, 120, 20)
      $BPA1 += 20
   Next



saludos
    ............................................Imagen
    ......................................Imagen
Avatar de Usuario
Dany
Profesional del Autoit
 
Mensajes: 643
Registrado: 28 Mar 2012, 22:49

Re: Ayuda con mi codigo

Notapor PDF » 01 Feb 2014, 21:16

Hola de nuevo wbueso

Con relacion al problema que tienes, Allí Dany te acaba de dar la respuesta.. Falto el indice para $Btna

Por mi parte puedo sugerirte utilizar un fichero ".ini" para el proyecto en el que estas trabajando. Los ficheros ini se manejan mejor en autoit, y tiene la siguiente estructura:
[Sección]
Clave=valor
Tu por ejemplo tendrías el "programas.ini" de la siguiente forma:

[numero o indice del botón]
Nombre=nombre del programa
Path=directorio del programa
Default=1 ó 0

De esta manera podrías modificar facilmente los datos para los botones con IniWrite o leerlos con IniRead.

Entonces la función Add la puedes modificar de esta forma:

Código: Seleccionar todo
Func _ADD($btnIndex) ; en donde btnindex seria el numero del botón..
   Local $FlRut0
   Local $Chckd0
   $FlRut0 = FileOpenDialog("Seleccione un Ejecutable", @DesktopCommonDir, "Ejecutables (*.exe;*.bat;*.com;*.cmd)", 1)
   If @error Then
      $iMsgBoxAnswer = MsgBox(36, "Seleccione un Ejecutable", "Desea cancelar la selección del fichero?")
      Select
         Case $iMsgBoxAnswer = 6 ;Yes
            ; Sale de la función
         Case $iMsgBoxAnswer = 7 ;No
            _ADD0() ; Volver a seleccionar
      EndSelect
   Else
      $FlName0 = InputBox("Programa Agregado", "Usted Selecciono el Siguiente Programa" & $FlRut0 & @CRLF & @CRLF & "Escriba el Nombre del Programa", "", " M") ;Input Mandatory
      If $FlName0 = "" Then
         MsgBox(0, "Error", "Ha cancelado la operación")
      Else
         $Dflt0 = MsgBox(4, "Listo", "Desea que el programa se instale por default")
         If $Dflt0 = 6 Then
            $Chckd0 = 1
         Else
            $Chckd0 = 0
         EndIf
          IniWrite(@ScriptDir&"\Programas.ini",$btnIndex,"Name",$FlName0)
          IniWrite(@ScriptDir&"\Programas.ini",$btnIndex,"Path",$FlRut0)
          IniWrite(@ScriptDir&"\Programas.ini",$btnIndex,"Default",$Chckd0)
       EndIf
    EndIf
   EndIf
EndFunc   ;==>_Add0


Para llamar a esta función debes hacer lo siguiente( claro luego de hacer lo que te propuso dany)

Código: Seleccionar todo
While 1
   $nMsg = GUIGetMsg()
   Switch $nMsg
   Case $BtnSlr
     Exit
      Case $GUI_EVENT_CLOSE
         Exit
   EndSwitch
   For $i=0 to UBound($Btna) -1
        If $nMsg = $Btna[$i] then
               _ADD[$i]
        Endif
    Next
WEnd


Me cuentas como te fue..
Saludos.

Pd. Le corriges algun error que hubiere o pregunta cualquier duda por que estoy en el móvil y no lo puedo ejecutar..
PDF
Hacker del Foro
 
Mensajes: 152
Registrado: 18 Ene 2013, 23:23

Re: Ayuda con mi codigo

Notapor wbueso » 03 Feb 2014, 07:24

Con lo que he aprendido hasta este momento, esto es lo que he podido hacer, para mi funciona bien, segun vaya aprendiendo lo ire mejorando, les agradesco por la ayuda, espero me sigan ayudando, acepto cualquier observacion o consejo, tengo muchas dudas como que al agregar una imagen de fondo los controles no se pueden usar aunque esten a la vista.

Código: Seleccionar todo
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <File.au3>
#include <Array.au3>
GUICreate("Agregar Programas", 650, 580, 200, 100)
GUICtrlSetDefBkColor(0x6699FF)
GUICtrlCreatePic(@ScriptDir&"\oemlogo.bmp",5,5,85,60)
GUICtrlCreateLabel("Haga clic en cualquiera de los botones para agregar un programa."& _
@CRLF&@CRLF&"Este es mi primer programa es la Version 1.0",5,70,85,300)
$BtnSlr = GUICtrlCreateButton("Salir",5,550,80,25)
$BtnActlzr = GUICtrlCreateButton("Actualizar",5,525,80,25)
$BtnVlvr = GUICtrlCreateButton("Volver",5,500,80,25)
##################################################################################################
;Lee las Lineas de un Documento
$Read1 = FileReadLine(@ScriptDir&"\Programas.txt",1)
$Read2 = FileReadLine(@ScriptDir&"\Programas.txt",4)
$Read3 = FileReadLine(@ScriptDir&"\Programas.txt",7)
$Read4 = FileReadLine(@ScriptDir&"\Programas.txt",10)
$Read5 = FileReadLine(@ScriptDir&"\Programas.txt",13)
$Read6 = FileReadLine(@ScriptDir&"\Programas.txt",16)
$Read7 = FileReadLine(@ScriptDir&"\Programas.txt",19)
$Read8 = FileReadLine(@ScriptDir&"\Programas.txt",22)
$Read9 = FileReadLine(@ScriptDir&"\Programas.txt",25)
$Read10 = FileReadLine(@ScriptDir&"\Programas.txt",28)
$Read11 = FileReadLine(@ScriptDir&"\Programas.txt",31)
$Read12 = FileReadLine(@ScriptDir&"\Programas.txt",34)
$Read13 = FileReadLine(@ScriptDir&"\Programas.txt",37)
$Read14 = FileReadLine(@ScriptDir&"\Programas.txt",40)
$Read15 = FileReadLine(@ScriptDir&"\Programas.txt",43)
$Read16 = FileReadLine(@ScriptDir&"\Programas.txt",46)
$Read17 = FileReadLine(@ScriptDir&"\Programas.txt",49)
$Read18 = FileReadLine(@ScriptDir&"\Programas.txt",52)
$Read19 = FileReadLine(@ScriptDir&"\Programas.txt",55)
$Read20 = FileReadLine(@ScriptDir&"\Programas.txt",58)
$Read21 = FileReadLine(@ScriptDir&"\Programas.txt",61)
$Read22 = FileReadLine(@ScriptDir&"\Programas.txt",64)
$Read23 = FileReadLine(@ScriptDir&"\Programas.txt",67)
$Read24 = FileReadLine(@ScriptDir&"\Programas.txt",70)
$Read25 = FileReadLine(@ScriptDir&"\Programas.txt",73)
$Read26 = FileReadLine(@ScriptDir&"\Programas.txt",76)
$Read27 = FileReadLine(@ScriptDir&"\Programas.txt",79)
$Read28 = FileReadLine(@ScriptDir&"\Programas.txt",82)
$Read29 = FileReadLine(@ScriptDir&"\Programas.txt",85)
$Read30 = FileReadLine(@ScriptDir&"\Programas.txt",88)
$Read31 = FileReadLine(@ScriptDir&"\Programas.txt",91)
$Read32 = FileReadLine(@ScriptDir&"\Programas.txt",94)
$Read33 = FileReadLine(@ScriptDir&"\Programas.txt",97)
$Read34 = FileReadLine(@ScriptDir&"\Programas.txt",100)
$Read35 = FileReadLine(@ScriptDir&"\Programas.txt",103)
$Read36 = FileReadLine(@ScriptDir&"\Programas.txt",106)
$Read37 = FileReadLine(@ScriptDir&"\Programas.txt",109)
$Read38 = FileReadLine(@ScriptDir&"\Programas.txt",112)
$Read39 = FileReadLine(@ScriptDir&"\Programas.txt",115)
$Read40 = FileReadLine(@ScriptDir&"\Programas.txt",118)
$Read41 = FileReadLine(@ScriptDir&"\Programas.txt",121)
$Read42 = FileReadLine(@ScriptDir&"\Programas.txt",124)
$Read43 = FileReadLine(@ScriptDir&"\Programas.txt",127)
$Read44 = FileReadLine(@ScriptDir&"\Programas.txt",130)
$Read45 = FileReadLine(@ScriptDir&"\Programas.txt",133)
$Read46 = FileReadLine(@ScriptDir&"\Programas.txt",136)
$Read47 = FileReadLine(@ScriptDir&"\Programas.txt",139)
$Read48 = FileReadLine(@ScriptDir&"\Programas.txt",142)
$Read49 = FileReadLine(@ScriptDir&"\Programas.txt",145)
$Read50 = FileReadLine(@ScriptDir&"\Programas.txt",148)
$Read51 = FileReadLine(@ScriptDir&"\Programas.txt",151)
$Read52 = FileReadLine(@ScriptDir&"\Programas.txt",154)
$Read53 = FileReadLine(@ScriptDir&"\Programas.txt",157)
$Read54 = FileReadLine(@ScriptDir&"\Programas.txt",160)
$Read55 = FileReadLine(@ScriptDir&"\Programas.txt",163)
$Read56 = FileReadLine(@ScriptDir&"\Programas.txt",166)
$Read57 = FileReadLine(@ScriptDir&"\Programas.txt",169)
$Read58 = FileReadLine(@ScriptDir&"\Programas.txt",172)
$Read59 = FileReadLine(@ScriptDir&"\Programas.txt",175)
$Read60 = FileReadLine(@ScriptDir&"\Programas.txt",178)
$Read61 = FileReadLine(@ScriptDir&"\Programas.txt",181)
$Read62 = FileReadLine(@ScriptDir&"\Programas.txt",184)
$Read63 = FileReadLine(@ScriptDir&"\Programas.txt",187)
$Read64 = FileReadLine(@ScriptDir&"\Programas.txt",190)
$Read65 = FileReadLine(@ScriptDir&"\Programas.txt",193)
$Read66 = FileReadLine(@ScriptDir&"\Programas.txt",196)
$Read67 = FileReadLine(@ScriptDir&"\Programas.txt",199)
$Read68 = FileReadLine(@ScriptDir&"\Programas.txt",202)
$Read69 = FileReadLine(@ScriptDir&"\Programas.txt",205)
$Read70 = FileReadLine(@ScriptDir&"\Programas.txt",208)
$Read71 = FileReadLine(@ScriptDir&"\Programas.txt",211)
$Read72 = FileReadLine(@ScriptDir&"\Programas.txt",214)
$Read73 = FileReadLine(@ScriptDir&"\Programas.txt",217)
$Read74 = FileReadLine(@ScriptDir&"\Programas.txt",220)
$Read75 = FileReadLine(@ScriptDir&"\Programas.txt",223)
$Read76 = FileReadLine(@ScriptDir&"\Programas.txt",226)
$Read77 = FileReadLine(@ScriptDir&"\Programas.txt",229)
$Read78 = FileReadLine(@ScriptDir&"\Programas.txt",232)
$Read79 = FileReadLine(@ScriptDir&"\Programas.txt",235)
$Read80 = FileReadLine(@ScriptDir&"\Programas.txt",238)
##################################################################################################
;Crea los Controles
GUICtrlSetDefColor(0x990000)

Global $Anch = 120, $Alt = 25, $Sep = 25
Global $Btna1[10]
Global $Readsa1[10] = [$Read1,$Read2,$Read3,$Read4,$Read5,$Read6,$Read7,$Read8,$Read9,$Read10]
Global $BPI1 = 100, $BPA1 = 30
For $a1 = 0 To UBound($Btna1) - 1
   $Btna1[$a1] = GUICtrlCreateButton($Readsa1[$a1], $BPI1,$BPA1,$Anch,$Alt)
      $BPA1 += $Sep
  Next

  Global $Btna2[10]
Global $Readsa2[10] = [$Read11,$Read12,$Read13,$Read14,$Read15,$Read16,$Read17,$Read18,$Read19,$Read20]
Global $BPI2 = 100, $BPA2 = 320
For $a2 = 0 To UBound($Btna2) - 1
   $Btna2[$a2] = GUICtrlCreateButton($Readsa2[$a2], $BPI2,$BPA2,$Anch,$Alt)
      $BPA2 += $Sep
  Next

  Global $Btna3[10]
Global $Readsa3[10] = [$Read21,$Read22,$Read23,$Read24,$Read25,$Read26,$Read27,$Read28,$Read29,$Read30]
Global $BPI3 = 240, $BPA3 = 30
For $a3 = 0 To UBound($Btna3) - 1
   $Btna3[$a3] = GUICtrlCreateButton($Readsa3[$a3], $BPI3,$BPA3,$Anch,$Alt)
      $BPA3 += $Sep
  Next

   Global $Btna4[10]
Global $Readsa4[10] = [$Read31,$Read32,$Read33,$Read34,$Read35,$Read36,$Read37,$Read38,$Read39,$Read40]
Global $BPI4 = 240, $BPA4 = 320
For $a4 = 0 To UBound($Btna4) - 1
   $Btna4[$a4] = GUICtrlCreateButton($Readsa4[$a4], $BPI4,$BPA4,$Anch,$Alt)
      $BPA4 += $Sep
  Next

     Global $Btna5[10]
Global $Readsa5[10] = [$Read41,$Read42,$Read43,$Read44,$Read45,$Read46,$Read47,$Read48,$Read49,$Read50]
Global $BPI5 = 380, $BPA5 = 30
For $a5 = 0 To UBound($Btna5) - 1
   $Btna5[$a5] = GUICtrlCreateButton($Readsa5[$a5], $BPI5,$BPA5,$Anch,$Alt)
      $BPA5 += $Sep
  Next

  Global $Btna6[10]
Global $Readsa6[10] = [$Read51,$Read52,$Read53,$Read54,$Read55,$Read56,$Read57,$Read58,$Read59,$Read60]
Global $BPI6 = 380, $BPA6 = 320
For $a6 = 0 To UBound($Btna6) - 1
   $Btna6[$a6] = GUICtrlCreateButton($Readsa6[$a6], $BPI6,$BPA6,$Anch,$Alt)
      $BPA6 += $Sep
  Next

Global $Btna7[10]
Global $Readsa7[10] = [$Read61,$Read62,$Read63,$Read64,$Read65,$Read66,$Read67,$Read68,$Read69,$Read70]
Global $BPI7 = 520, $BPA7 = 30
For $a7 = 0 To UBound($Btna7) - 1
   $Btna7[$a7] = GUICtrlCreateButton($Readsa7[$a7], $BPI7,$BPA7,$Anch,$Alt)
      $BPA7 += $Sep
  Next

Global $Btna8[10]
Global $Readsa8[10] = [$Read71,$Read72,$Read73,$Read74,$Read75,$Read76,$Read77,$Read78,$Read79,$Read80]
Global $BPI8 = 520, $BPA8 = 320
For $a8 = 0 To UBound($Btna8) - 1
   $Btna8[$a8] = GUICtrlCreateButton($Readsa8[$a8], $BPI8,$BPA8,$Anch,$Alt)
      $BPA8 += $Sep
  Next

Global $AncG = 133, $GrsG = 275, $PosI1 = 93, $PosI2 = 233, $PosI3 = 373, $PosI4 = 513, $PosA1 = 10, $PosA2 = 300
Global $ColorG = 0x6699FF, $TamFG = 10, $GrsFG = 600, $AtrbFG = 1, $FontG = "Time New Rodman"

$Conf = GUICtrlCreateGroup("Configuraciónes",$PosI1,$PosA1,$AncG,$GrsG)
GUICtrlSetFont($Conf, $TamFG, $GrsFG, $AtrbFG, $FontG)

$Apli = GUICtrlCreateGroup("Aplicaciónes",$PosI1,$PosA2,$AncG,$GrsG)
GUICtrlSetFont($Apli, $TamFG, $GrsFG, $AtrbFG,$FontG)

$Ofic = GUICtrlCreateGroup("Oficina",$PosI2,$PosA1,$AncG,$GrsG)
GUICtrlSetFont($Ofic, $TamFG, $GrsFG, $AtrbFG,$FontG)

$Repr = GUICtrlCreateGroup("Reproductores",$PosI2,$PosA2,$AncG,$GrsG)
GUICtrlSetFont($Repr, $TamFG, $GrsFG, $AtrbFG,$FontG)

$Edit = GUICtrlCreateGroup("Editores",$PosI3,$PosA1,$AncG,$GrsG)
GUICtrlSetFont($Edit, $TamFG, $GrsFG, $AtrbFG,$FontG)

$Prog = GUICtrlCreateGroup("Programación",$PosI3,$PosA2,$AncG,$GrsG)
GUICtrlSetFont($Prog, $TamFG, $GrsFG, $AtrbFG,$FontG)

$Comp = GUICtrlCreateGroup("Complementos",$PosI4,$PosA1,$AncG,$GrsG)
GUICtrlSetFont($Comp, $TamFG, $GrsFG, $AtrbFG,$FontG)

$Herr = GUICtrlCreateGroup("Herramientas",$PosI4,$PosA2,$AncG,$GrsG)
GUICtrlSetFont($Herr, $TamFG, $GrsFG, $AtrbFG,$FontG)

##################################################################################################
GUISetState(@SW_SHOW)
##################################################################################################
Global $FlRut, $FlName, $FlOpn, $Chckd

Func Actlzr()
WinClose("Agregar Programas")
ShellExecute(@ScriptDir&"\Agregar Programas.exe")
EndFunc

Func _ADD()   ;Funsion para cuando se hace clic en los botones
      $FlRut = FileOpenDialog("Seleccione un Ejecutable",@DesktopCommonDir,"Ejecutables (*.exe;*.bat;*.com;*.cmd)",1)
If @error or $FlRut = "" Then
      $MsgBoxAnswera = MsgBox(36,"Seleccione un Ejecutable","Desea cancelar la selección del fichero?")
Select
   Case $MsgBoxAnswera = 6    ;Yes y Sale de la función
   Case $MsgBoxAnswera = 7    ;No
      _ADD()          ;Volver a seleccionar
EndSelect
Else
      ;$IsSelect = 1
      $FlName = InputBox("Programa Agregado","Usted Selecciono el Siguiente Programa" &$FlRut&@CRLF&@CRLF&"Escriba el Nombre del Programa",""," M") ;Input Mandatory
If @error or $FlName = "" Then
      $MsgBoxAnswerb = MsgBox(36,"Seleccione un Ejecutable","Desea cancelar la selección del fichero?")
Select
   Case $MsgBoxAnswerb = 6    ;Yes y Sale de la función
   Case $MsgBoxAnswerb = 7
      EndSelect
Else
      $Dflt = MsgBox(4, "Listo","Desea que el programa se instale por default")
If $Dflt = 6 Then
      $Chckd = 1
Else
      $Chckd = 0
EndIf
EndIf
EndIf
EndFunc
##################################################################################################
While 1
   $nMsg = GUIGetMsg()
   Switch $nMsg
Case $Btna1[0]
      Call("_ADD")
      $FlOpn = FileOpen(@ScriptDir&"\Programas.txt",1)
      _FileWritetoLine(@ScriptDir&"\Programas.txt",1,$FlName,1)
      _FileWritetoLine(@ScriptDir&"\Programas.txt",2,$FlRut,1)
      _FileWritetoLine(@ScriptDir&"\Programas.txt",3,$Chckd,1)
      FileClose($FlOpn)
      Call("Actlzr")

Case $Btna1[1]
      Call("_ADD")
      $FlOpn = FileOpen(@ScriptDir&"\Programas.txt",1)
      _FileWritetoLine(@ScriptDir&"\Programas.txt",4,$FlName,1)
      _FileWritetoLine(@ScriptDir&"\Programas.txt",5,$FlRut,1)
      _FileWritetoLine(@ScriptDir&"\Programas.txt",6,$Chckd,1)
      FileClose($FlOpn)
      Call("Actlzr")

Case $Btna1[2]
      Call("_ADD")
      $FlOpn = FileOpen(@ScriptDir&"\Programas.txt",1)
      _FileWritetoLine(@ScriptDir&"\Programas.txt",7,$FlName,1)
      _FileWritetoLine(@ScriptDir&"\Programas.txt",8,$FlRut,1)
      _FileWritetoLine(@ScriptDir&"\Programas.txt",9,$Chckd,1)
      FileClose($FlOpn)
      Call("Actlzr")

Case $Btna1[3]
      Call("_ADD")
      $FlOpn = FileOpen(@ScriptDir&"\Programas.txt",1)
      _FileWritetoLine(@ScriptDir&"\Programas.txt",10,$FlName,1)
      _FileWritetoLine(@ScriptDir&"\Programas.txt",11,$FlRut,1)
      _FileWritetoLine(@ScriptDir&"\Programas.txt",12,$Chckd,1)
      FileClose($FlOpn)
      Call("Actlzr")

Case $Btna1[4]
      Call("_ADD")
      $FlOpn = FileOpen(@ScriptDir&"\Programas.txt",1)
      _FileWritetoLine(@ScriptDir&"\Programas.txt",13,$FlName,1)
      _FileWritetoLine(@ScriptDir&"\Programas.txt",14,$FlRut,1)
      _FileWritetoLine(@ScriptDir&"\Programas.txt",15,$Chckd,1)
      FileClose($FlOpn)
      Call("Actlzr")

Case $Btna1[5]
      Call("_ADD")
      $FlOpn = FileOpen(@ScriptDir&"\Programas.txt",1)
      _FileWritetoLine(@ScriptDir&"\Programas.txt",16,$FlName,1)
      _FileWritetoLine(@ScriptDir&"\Programas.txt",17,$FlRut,1)
      _FileWritetoLine(@ScriptDir&"\Programas.txt",18,$Chckd,1)
      FileClose($FlOpn)
      Call("Actlzr")

Case $Btna1[6]
      Call("_ADD")
      $FlOpn = FileOpen(@ScriptDir&"\Programas.txt",1)
      _FileWritetoLine(@ScriptDir&"\Programas.txt",19,$FlName,1)
      _FileWritetoLine(@ScriptDir&"\Programas.txt",20,$FlRut,1)
      _FileWritetoLine(@ScriptDir&"\Programas.txt",21,$Chckd,1)
      FileClose($FlOpn)
      Call("Actlzr")

Case $Btna1[7]
      Call("_ADD")
      $FlOpn = FileOpen(@ScriptDir&"\Programas.txt",1)
      _FileWritetoLine(@ScriptDir&"\Programas.txt",22,$FlName,1)
      _FileWritetoLine(@ScriptDir&"\Programas.txt",23,$FlRut,1)
      _FileWritetoLine(@ScriptDir&"\Programas.txt",24,$Chckd,1)
      FileClose($FlOpn)
      Call("Actlzr")

Case $Btna1[8]
      Call("_ADD")
      $FlOpn = FileOpen(@ScriptDir&"\Programas.txt",1)
      _FileWritetoLine(@ScriptDir&"\Programas.txt",25,$FlName,1)
      _FileWritetoLine(@ScriptDir&"\Programas.txt",26,$FlRut,1)
      _FileWritetoLine(@ScriptDir&"\Programas.txt",27,$Chckd,1)
      FileClose($FlOpn)
      Call("Actlzr")

Case $Btna1[9]
      Call("_ADD")
      $FlOpn = FileOpen(@ScriptDir&"\Programas.txt",1)
      _FileWritetoLine(@ScriptDir&"\Programas.txt",28,$FlName,1)
      _FileWritetoLine(@ScriptDir&"\Programas.txt",29,$FlRut,1)
      _FileWritetoLine(@ScriptDir&"\Programas.txt",30,$Chckd,1)
      FileClose($FlOpn)
      Call("Actlzr")

Case $Btna2[0]
      Call("_ADD")
      $FlOpn = FileOpen(@ScriptDir&"\Programas.txt",1)
      _FileWritetoLine(@ScriptDir&"\Programas.txt",31,$FlName,1)
      _FileWritetoLine(@ScriptDir&"\Programas.txt",32,$FlRut,1)
      _FileWritetoLine(@ScriptDir&"\Programas.txt",33,$Chckd,1)
      FileClose($FlOpn)
      Call("Actlzr")

Case $Btna2[1]
      Call("_ADD")
      $FlOpn = FileOpen(@ScriptDir&"\Programas.txt",1)
      _FileWritetoLine(@ScriptDir&"\Programas.txt",34,$FlName,1)
      _FileWritetoLine(@ScriptDir&"\Programas.txt",35,$FlRut,1)
      _FileWritetoLine(@ScriptDir&"\Programas.txt",36,$Chckd,1)
      FileClose($FlOpn)
      Call("Actlzr")

Case $Btna2[2]
      Call("_ADD")
      $FlOpn = FileOpen(@ScriptDir&"\Programas.txt",1)
      _FileWritetoLine(@ScriptDir&"\Programas.txt",37,$FlName,1)
      _FileWritetoLine(@ScriptDir&"\Programas.txt",38,$FlRut,1)
      _FileWritetoLine(@ScriptDir&"\Programas.txt",39,$Chckd,1)
      FileClose($FlOpn)
      Call("Actlzr")

Case $Btna2[3]
      Call("_ADD")
      $FlOpn = FileOpen(@ScriptDir&"\Programas.txt",1)
      _FileWritetoLine(@ScriptDir&"\Programas.txt",40,$FlName,1)
      _FileWritetoLine(@ScriptDir&"\Programas.txt",41,$FlRut,1)
      _FileWritetoLine(@ScriptDir&"\Programas.txt",42,$Chckd,1)
      FileClose($FlOpn)
      Call("Actlzr")

Case $Btna2[4]
      Call("_ADD")
      $FlOpn = FileOpen(@ScriptDir&"\Programas.txt",1)
      _FileWritetoLine(@ScriptDir&"\Programas.txt",43,$FlName,1)
      _FileWritetoLine(@ScriptDir&"\Programas.txt",44,$FlRut,1)
      _FileWritetoLine(@ScriptDir&"\Programas.txt",45,$Chckd,1)
      FileClose($FlOpn)
      Call("Actlzr")

Case $Btna2[5]
      Call("_ADD")
      $FlOpn = FileOpen(@ScriptDir&"\Programas.txt",1)
      _FileWritetoLine(@ScriptDir&"\Programas.txt",46,$FlName,1)
      _FileWritetoLine(@ScriptDir&"\Programas.txt",47,$FlRut,1)
      _FileWritetoLine(@ScriptDir&"\Programas.txt",48,$Chckd,1)
      FileClose($FlOpn)
      Call("Actlzr")

Case $Btna2[6]
      Call("_ADD")
      $FlOpn = FileOpen(@ScriptDir&"\Programas.txt",1)
      _FileWritetoLine(@ScriptDir&"\Programas.txt",49,$FlName,1)
      _FileWritetoLine(@ScriptDir&"\Programas.txt",50,$FlRut,1)
      _FileWritetoLine(@ScriptDir&"\Programas.txt",51,$Chckd,1)
      FileClose($FlOpn)
      Call("Actlzr")

Case $Btna2[7]
      Call("_ADD")
      $FlOpn = FileOpen(@ScriptDir&"\Programas.txt",1)
      _FileWritetoLine(@ScriptDir&"\Programas.txt",52,$FlName,1)
      _FileWritetoLine(@ScriptDir&"\Programas.txt",53,$FlRut,1)
      _FileWritetoLine(@ScriptDir&"\Programas.txt",54,$Chckd,1)
      FileClose($FlOpn)
      Call("Actlzr")

Case $Btna2[8]
      Call("_ADD")
      $FlOpn = FileOpen(@ScriptDir&"\Programas.txt",1)
      _FileWritetoLine(@ScriptDir&"\Programas.txt",55,$FlName,1)
      _FileWritetoLine(@ScriptDir&"\Programas.txt",56,$FlRut,1)
      _FileWritetoLine(@ScriptDir&"\Programas.txt",57,$Chckd,1)
      FileClose($FlOpn)
      Call("Actlzr")

Case $Btna2[9]
      Call("_ADD")
      $FlOpn = FileOpen(@ScriptDir&"\Programas.txt",1)
      _FileWritetoLine(@ScriptDir&"\Programas.txt",58,$FlName,1)
      _FileWritetoLine(@ScriptDir&"\Programas.txt",59,$FlRut,1)
      _FileWritetoLine(@ScriptDir&"\Programas.txt",60,$Chckd,1)
      FileClose($FlOpn)
      Call("Actlzr")

Case $Btna3[0]
      Call("_ADD")
      $FlOpn = FileOpen(@ScriptDir&"\Programas.txt",1)
      _FileWritetoLine(@ScriptDir&"\Programas.txt",61,$FlName,1)
      _FileWritetoLine(@ScriptDir&"\Programas.txt",62,$FlRut,1)
      _FileWritetoLine(@ScriptDir&"\Programas.txt",63,$Chckd,1)
      FileClose($FlOpn)
      Call("Actlzr")

Case $Btna3[1]
      Call("_ADD")
      $FlOpn = FileOpen(@ScriptDir&"\Programas.txt",1)
      _FileWritetoLine(@ScriptDir&"\Programas.txt",64,$FlName,1)
      _FileWritetoLine(@ScriptDir&"\Programas.txt",65,$FlRut,1)
      _FileWritetoLine(@ScriptDir&"\Programas.txt",66,$Chckd,1)
      FileClose($FlOpn)
      Call("Actlzr")

Case $Btna3[2]
      Call("_ADD")
      $FlOpn = FileOpen(@ScriptDir&"\Programas.txt",1)
      _FileWritetoLine(@ScriptDir&"\Programas.txt",67,$FlName,1)
      _FileWritetoLine(@ScriptDir&"\Programas.txt",68,$FlRut,1)
      _FileWritetoLine(@ScriptDir&"\Programas.txt",69,$Chckd,1)
      FileClose($FlOpn)
      Call("Actlzr")

Case $Btna3[3]
      Call("_ADD")
      $FlOpn = FileOpen(@ScriptDir&"\Programas.txt",1)
      _FileWritetoLine(@ScriptDir&"\Programas.txt",70,$FlName,1)
      _FileWritetoLine(@ScriptDir&"\Programas.txt",71,$FlRut,1)
      _FileWritetoLine(@ScriptDir&"\Programas.txt",72,$Chckd,1)
      FileClose($FlOpn)
      Call("Actlzr")

Case $Btna3[4]
      Call("_ADD")
      $FlOpn = FileOpen(@ScriptDir&"\Programas.txt",1)
      _FileWritetoLine(@ScriptDir&"\Programas.txt",73,$FlName,1)
      _FileWritetoLine(@ScriptDir&"\Programas.txt",74,$FlRut,1)
      _FileWritetoLine(@ScriptDir&"\Programas.txt",75,$Chckd,1)
      FileClose($FlOpn)
      Call("Actlzr")

Case $Btna3[5]
      Call("_ADD")
      $FlOpn = FileOpen(@ScriptDir&"\Programas.txt",1)
      _FileWritetoLine(@ScriptDir&"\Programas.txt",76,$FlName,1)
      _FileWritetoLine(@ScriptDir&"\Programas.txt",77,$FlRut,1)
      _FileWritetoLine(@ScriptDir&"\Programas.txt",78,$Chckd,1)
      FileClose($FlOpn)
      Call("Actlzr")

Case $Btna3[6]
      Call("_ADD")
      $FlOpn = FileOpen(@ScriptDir&"\Programas.txt",1)
      _FileWritetoLine(@ScriptDir&"\Programas.txt",79,$FlName,1)
      _FileWritetoLine(@ScriptDir&"\Programas.txt",80,$FlRut,1)
      _FileWritetoLine(@ScriptDir&"\Programas.txt",81,$Chckd,1)
      FileClose($FlOpn)
      Call("Actlzr")

Case $Btna3[7]
      Call("_ADD")
      $FlOpn = FileOpen(@ScriptDir&"\Programas.txt",1)
      _FileWritetoLine(@ScriptDir&"\Programas.txt",82,$FlName,1)
      _FileWritetoLine(@ScriptDir&"\Programas.txt",83,$FlRut,1)
      _FileWritetoLine(@ScriptDir&"\Programas.txt",84,$Chckd,1)
      FileClose($FlOpn)
      Call("Actlzr")

Case $Btna3[8]
      Call("_ADD")
      $FlOpn = FileOpen(@ScriptDir&"\Programas.txt",1)
      _FileWritetoLine(@ScriptDir&"\Programas.txt",85,$FlName,1)
      _FileWritetoLine(@ScriptDir&"\Programas.txt",86,$FlRut,1)
      _FileWritetoLine(@ScriptDir&"\Programas.txt",87,$Chckd,1)
      FileClose($FlOpn)
      Call("Actlzr")

Case $Btna3[9]
      Call("_ADD")
      $FlOpn = FileOpen(@ScriptDir&"\Programas.txt",1)
      _FileWritetoLine(@ScriptDir&"\Programas.txt",88,$FlName,1)
      _FileWritetoLine(@ScriptDir&"\Programas.txt",89,$FlRut,1)
      _FileWritetoLine(@ScriptDir&"\Programas.txt",90,$Chckd,1)
      FileClose($FlOpn)
      Call("Actlzr")

Case $Btna4[0]
      Call("_ADD")
      $FlOpn = FileOpen(@ScriptDir&"\Programas.txt",1)
      _FileWritetoLine(@ScriptDir&"\Programas.txt",91,$FlName,1)
      _FileWritetoLine(@ScriptDir&"\Programas.txt",92,$FlRut,1)
      _FileWritetoLine(@ScriptDir&"\Programas.txt",93,$Chckd,1)
      FileClose($FlOpn)
      Call("Actlzr")

Case $Btna4[1]
      Call("_ADD")
      $FlOpn = FileOpen(@ScriptDir&"\Programas.txt",1)
      _FileWritetoLine(@ScriptDir&"\Programas.txt",94,$FlName,1)
      _FileWritetoLine(@ScriptDir&"\Programas.txt",95,$FlRut,1)
      _FileWritetoLine(@ScriptDir&"\Programas.txt",96,$Chckd,1)
      FileClose($FlOpn)
      Call("Actlzr")


Case $Btna4[2]
      Call("_ADD")
      $FlOpn = FileOpen(@ScriptDir&"\Programas.txt",1)
      _FileWritetoLine(@ScriptDir&"\Programas.txt",97,$FlName,1)
      _FileWritetoLine(@ScriptDir&"\Programas.txt",98,$FlRut,1)
      _FileWritetoLine(@ScriptDir&"\Programas.txt",99,$Chckd,1)
      FileClose($FlOpn)
      Call("Actlzr")

Case $Btna4[3]
      Call("_ADD")
      $FlOpn = FileOpen(@ScriptDir&"\Programas.txt",1)
      _FileWritetoLine(@ScriptDir&"\Programas.txt",100,$FlName,1)
      _FileWritetoLine(@ScriptDir&"\Programas.txt",101,$FlRut,1)
      _FileWritetoLine(@ScriptDir&"\Programas.txt",102,$Chckd,1)
      FileClose($FlOpn)
      Call("Actlzr")

Case $Btna4[4]
      Call("_ADD")
      $FlOpn = FileOpen(@ScriptDir&"\Programas.txt",1)
      _FileWritetoLine(@ScriptDir&"\Programas.txt",103,$FlName,1)
      _FileWritetoLine(@ScriptDir&"\Programas.txt",104,$FlRut,1)
      _FileWritetoLine(@ScriptDir&"\Programas.txt",105,$Chckd,1)
      FileClose($FlOpn)
      Call("Actlzr")

Case $Btna4[5]
      Call("_ADD")
      $FlOpn = FileOpen(@ScriptDir&"\Programas.txt",1)
      _FileWritetoLine(@ScriptDir&"\Programas.txt",106,$FlName,1)
      _FileWritetoLine(@ScriptDir&"\Programas.txt",107,$FlRut,1)
      _FileWritetoLine(@ScriptDir&"\Programas.txt",108,$Chckd,1)
      FileClose($FlOpn)
      Call("Actlzr")

Case $Btna4[6]
      Call("_ADD")
      $FlOpn = FileOpen(@ScriptDir&"\Programas.txt",1)
      _FileWritetoLine(@ScriptDir&"\Programas.txt",109,$FlName,1)
      _FileWritetoLine(@ScriptDir&"\Programas.txt",110,$FlRut,1)
      _FileWritetoLine(@ScriptDir&"\Programas.txt",111,$Chckd,1)
      FileClose($FlOpn)
      Call("Actlzr")

Case $Btna4[7]
      Call("_ADD")
      $FlOpn = FileOpen(@ScriptDir&"\Programas.txt",1)
      _FileWritetoLine(@ScriptDir&"\Programas.txt",112,$FlName,1)
      _FileWritetoLine(@ScriptDir&"\Programas.txt",113,$FlRut,1)
      _FileWritetoLine(@ScriptDir&"\Programas.txt",114,$Chckd,1)
      FileClose($FlOpn)
      Call("Actlzr")

Case $Btna4[8]
      Call("_ADD")
      $FlOpn = FileOpen(@ScriptDir&"\Programas.txt",1)
      _FileWritetoLine(@ScriptDir&"\Programas.txt",115,$FlName,1)
      _FileWritetoLine(@ScriptDir&"\Programas.txt",116,$FlRut,1)
      _FileWritetoLine(@ScriptDir&"\Programas.txt",117,$Chckd,1)
      FileClose($FlOpn)
      Call("Actlzr")

Case $Btna4[9]
      Call("_ADD")
      $FlOpn = FileOpen(@ScriptDir&"\Programas.txt",1)
      _FileWritetoLine(@ScriptDir&"\Programas.txt",118,$FlName,1)
      _FileWritetoLine(@ScriptDir&"\Programas.txt",119,$FlRut,1)
      _FileWritetoLine(@ScriptDir&"\Programas.txt",120,$Chckd,1)
      FileClose($FlOpn)
      Call("Actlzr")

Case $Btna5[0]
      Call("_ADD")
      $FlOpn = FileOpen(@ScriptDir&"\Programas.txt",1)
      _FileWritetoLine(@ScriptDir&"\Programas.txt",121,$FlName,1)
      _FileWritetoLine(@ScriptDir&"\Programas.txt",122,$FlRut,1)
      _FileWritetoLine(@ScriptDir&"\Programas.txt",123,$Chckd,1)
      FileClose($FlOpn)
      Call("Actlzr")

Case $Btna5[1]
      Call("_ADD")
      $FlOpn = FileOpen(@ScriptDir&"\Programas.txt",1)
      _FileWritetoLine(@ScriptDir&"\Programas.txt",124,$FlName,1)
      _FileWritetoLine(@ScriptDir&"\Programas.txt",125,$FlRut,1)
      _FileWritetoLine(@ScriptDir&"\Programas.txt",126,$Chckd,1)
      FileClose($FlOpn)
      Call("Actlzr")

Case $Btna5[2]
      Call("_ADD")
      $FlOpn = FileOpen(@ScriptDir&"\Programas.txt",1)
      _FileWritetoLine(@ScriptDir&"\Programas.txt",127,$FlName,1)
      _FileWritetoLine(@ScriptDir&"\Programas.txt",128,$FlRut,1)
      _FileWritetoLine(@ScriptDir&"\Programas.txt",129,$Chckd,1)
      FileClose($FlOpn)
      Call("Actlzr")

Case $Btna5[3]
      Call("_ADD")
      $FlOpn = FileOpen(@ScriptDir&"\Programas.txt",1)
      _FileWritetoLine(@ScriptDir&"\Programas.txt",130,$FlName,1)
      _FileWritetoLine(@ScriptDir&"\Programas.txt",131,$FlRut,1)
      _FileWritetoLine(@ScriptDir&"\Programas.txt",132,$Chckd,1)
      FileClose($FlOpn)
      Call("Actlzr")

Case $Btna5[4]
      Call("_ADD")
      $FlOpn = FileOpen(@ScriptDir&"\Programas.txt",1)
      _FileWritetoLine(@ScriptDir&"\Programas.txt",133,$FlName,1)
      _FileWritetoLine(@ScriptDir&"\Programas.txt",134,$FlRut,1)
      _FileWritetoLine(@ScriptDir&"\Programas.txt",135,$Chckd,1)
      FileClose($FlOpn)
      Call("Actlzr")

Case $Btna5[5]
      Call("_ADD")
      $FlOpn = FileOpen(@ScriptDir&"\Programas.txt",1)
      _FileWritetoLine(@ScriptDir&"\Programas.txt",136,$FlName,1)
      _FileWritetoLine(@ScriptDir&"\Programas.txt",137,$FlRut,1)
      _FileWritetoLine(@ScriptDir&"\Programas.txt",138,$Chckd,1)
      FileClose($FlOpn)
      Call("Actlzr")

Case $Btna5[6]
      Call("_ADD")
      $FlOpn = FileOpen(@ScriptDir&"\Programas.txt",1)
      _FileWritetoLine(@ScriptDir&"\Programas.txt",139,$FlName,1)
      _FileWritetoLine(@ScriptDir&"\Programas.txt",140,$FlRut,1)
      _FileWritetoLine(@ScriptDir&"\Programas.txt",141,$Chckd,1)
      FileClose($FlOpn)
      Call("Actlzr")

Case $Btna5[7]
      Call("_ADD")
      $FlOpn = FileOpen(@ScriptDir&"\Programas.txt",1)
      _FileWritetoLine(@ScriptDir&"\Programas.txt",142,$FlName,1)
      _FileWritetoLine(@ScriptDir&"\Programas.txt",143,$FlRut,1)
      _FileWritetoLine(@ScriptDir&"\Programas.txt",144,$Chckd,1)
      FileClose($FlOpn)
      Call("Actlzr")

Case $Btna5[8]
      Call("_ADD")
      $FlOpn = FileOpen(@ScriptDir&"\Programas.txt",1)
      _FileWritetoLine(@ScriptDir&"\Programas.txt",145,$FlName,1)
      _FileWritetoLine(@ScriptDir&"\Programas.txt",146,$FlRut,1)
      _FileWritetoLine(@ScriptDir&"\Programas.txt",147,$Chckd,1)
      FileClose($FlOpn)
      Call("Actlzr")

Case $Btna5[9]
      Call("_ADD")
      $FlOpn = FileOpen(@ScriptDir&"\Programas.txt",1)
      _FileWritetoLine(@ScriptDir&"\Programas.txt",148,$FlName,1)
      _FileWritetoLine(@ScriptDir&"\Programas.txt",149,$FlRut,1)
      _FileWritetoLine(@ScriptDir&"\Programas.txt",150,$Chckd,1)
      FileClose($FlOpn)
      Call("Actlzr")

Case $Btna6[0]
      Call("_ADD")
      $FlOpn = FileOpen(@ScriptDir&"\Programas.txt",1)
      _FileWritetoLine(@ScriptDir&"\Programas.txt",151,$FlName,1)
      _FileWritetoLine(@ScriptDir&"\Programas.txt",152,$FlRut,1)
      _FileWritetoLine(@ScriptDir&"\Programas.txt",153,$Chckd,1)
      FileClose($FlOpn)
      Call("Actlzr")

Case $Btna6[1]
      Call("_ADD")
      $FlOpn = FileOpen(@ScriptDir&"\Programas.txt",1)
      _FileWritetoLine(@ScriptDir&"\Programas.txt",154,$FlName,1)
      _FileWritetoLine(@ScriptDir&"\Programas.txt",155,$FlRut,1)
      _FileWritetoLine(@ScriptDir&"\Programas.txt",156,$Chckd,1)
      FileClose($FlOpn)
      Call("Actlzr")

Case $Btna6[2]
      Call("_ADD")
      $FlOpn = FileOpen(@ScriptDir&"\Programas.txt",1)
      _FileWritetoLine(@ScriptDir&"\Programas.txt",157,$FlName,1)
      _FileWritetoLine(@ScriptDir&"\Programas.txt",158,$FlRut,1)
      _FileWritetoLine(@ScriptDir&"\Programas.txt",159,$Chckd,1)
      FileClose($FlOpn)
      Call("Actlzr")

Case $Btna6[3]
      Call("_ADD")
      $FlOpn = FileOpen(@ScriptDir&"\Programas.txt",1)
      _FileWritetoLine(@ScriptDir&"\Programas.txt",160,$FlName,1)
      _FileWritetoLine(@ScriptDir&"\Programas.txt",161,$FlRut,1)
      _FileWritetoLine(@ScriptDir&"\Programas.txt",162,$Chckd,1)
      FileClose($FlOpn)
      Call("Actlzr")

Case $Btna6[4]
      Call("_ADD")
      $FlOpn = FileOpen(@ScriptDir&"\Programas.txt",1)
      _FileWritetoLine(@ScriptDir&"\Programas.txt",163,$FlName,1)
      _FileWritetoLine(@ScriptDir&"\Programas.txt",164,$FlRut,1)
      _FileWritetoLine(@ScriptDir&"\Programas.txt",165,$Chckd,1)
      FileClose($FlOpn)
      Call("Actlzr")

Case $Btna6[5]
      Call("_ADD")
      $FlOpn = FileOpen(@ScriptDir&"\Programas.txt",1)
      _FileWritetoLine(@ScriptDir&"\Programas.txt",166,$FlName,1)
      _FileWritetoLine(@ScriptDir&"\Programas.txt",167,$FlRut,1)
      _FileWritetoLine(@ScriptDir&"\Programas.txt",168,$Chckd,1)
      FileClose($FlOpn)
      Call("Actlzr")

Case $Btna6[6]
      Call("_ADD")
      $FlOpn = FileOpen(@ScriptDir&"\Programas.txt",1)
      _FileWritetoLine(@ScriptDir&"\Programas.txt",169,$FlName,1)
      _FileWritetoLine(@ScriptDir&"\Programas.txt",170,$FlRut,1)
      _FileWritetoLine(@ScriptDir&"\Programas.txt",171,$Chckd,1)
      FileClose($FlOpn)
      Call("Actlzr")

Case $Btna6[7]
      Call("_ADD")
      $FlOpn = FileOpen(@ScriptDir&"\Programas.txt",1)
      _FileWritetoLine(@ScriptDir&"\Programas.txt",172,$FlName,1)
      _FileWritetoLine(@ScriptDir&"\Programas.txt",173,$FlRut,1)
      _FileWritetoLine(@ScriptDir&"\Programas.txt",174,$Chckd,1)
      FileClose($FlOpn)
      Call("Actlzr")

Case $Btna6[8]
      Call("_ADD")
      $FlOpn = FileOpen(@ScriptDir&"\Programas.txt",1)
      _FileWritetoLine(@ScriptDir&"\Programas.txt",175,$FlName,1)
      _FileWritetoLine(@ScriptDir&"\Programas.txt",176,$FlRut,1)
      _FileWritetoLine(@ScriptDir&"\Programas.txt",177,$Chckd,1)
      FileClose($FlOpn)
      Call("Actlzr")

Case $Btna6[9]
      Call("_ADD")
      $FlOpn = FileOpen(@ScriptDir&"\Programas.txt",1)
      _FileWritetoLine(@ScriptDir&"\Programas.txt",178,$FlName,1)
      _FileWritetoLine(@ScriptDir&"\Programas.txt",179,$FlRut,1)
      _FileWritetoLine(@ScriptDir&"\Programas.txt",180,$Chckd,1)
      FileClose($FlOpn)
      Call("Actlzr")

Case $Btna7[0]
      Call("_ADD")
      $FlOpn = FileOpen(@ScriptDir&"\Programas.txt",1)
      _FileWritetoLine(@ScriptDir&"\Programas.txt",181,$FlName,1)
      _FileWritetoLine(@ScriptDir&"\Programas.txt",182,$FlRut,1)
      _FileWritetoLine(@ScriptDir&"\Programas.txt",183,$Chckd,1)
      FileClose($FlOpn)
      Call("Actlzr")

Case $Btna7[1]
      Call("_ADD")
      $FlOpn = FileOpen(@ScriptDir&"\Programas.txt",1)
      _FileWritetoLine(@ScriptDir&"\Programas.txt",184,$FlName,1)
      _FileWritetoLine(@ScriptDir&"\Programas.txt",185,$FlRut,1)
      _FileWritetoLine(@ScriptDir&"\Programas.txt",186,$Chckd,1)
      FileClose($FlOpn)
      Call("Actlzr")

Case $Btna7[2]
      Call("_ADD")
      $FlOpn = FileOpen(@ScriptDir&"\Programas.txt",1)
      _FileWritetoLine(@ScriptDir&"\Programas.txt",187,$FlName,1)
      _FileWritetoLine(@ScriptDir&"\Programas.txt",188,$FlRut,1)
      _FileWritetoLine(@ScriptDir&"\Programas.txt",189,$Chckd,1)
      FileClose($FlOpn)
      Call("Actlzr")

Case $Btna7[3]
      Call("_ADD")
      $FlOpn = FileOpen(@ScriptDir&"\Programas.txt",1)
      _FileWritetoLine(@ScriptDir&"\Programas.txt",190,$FlName,1)
      _FileWritetoLine(@ScriptDir&"\Programas.txt",191,$FlRut,1)
      _FileWritetoLine(@ScriptDir&"\Programas.txt",192,$Chckd,1)
      FileClose($FlOpn)
      Call("Actlzr")

Case $Btna7[4]
      Call("_ADD")
      $FlOpn = FileOpen(@ScriptDir&"\Programas.txt",1)
      _FileWritetoLine(@ScriptDir&"\Programas.txt",193,$FlName,1)
      _FileWritetoLine(@ScriptDir&"\Programas.txt",194,$FlRut,1)
      _FileWritetoLine(@ScriptDir&"\Programas.txt",195,$Chckd,1)
      FileClose($FlOpn)
      Call("Actlzr")

Case $Btna7[5]
      Call("_ADD")
      $FlOpn = FileOpen(@ScriptDir&"\Programas.txt",1)
      _FileWritetoLine(@ScriptDir&"\Programas.txt",196,$FlName,1)
      _FileWritetoLine(@ScriptDir&"\Programas.txt",197,$FlRut,1)
      _FileWritetoLine(@ScriptDir&"\Programas.txt",198,$Chckd,1)
      FileClose($FlOpn)
      Call("Actlzr")

Case $Btna7[6]
      Call("_ADD")
      $FlOpn = FileOpen(@ScriptDir&"\Programas.txt",1)
      _FileWritetoLine(@ScriptDir&"\Programas.txt",199,$FlName,1)
      _FileWritetoLine(@ScriptDir&"\Programas.txt",200,$FlRut,1)
      _FileWritetoLine(@ScriptDir&"\Programas.txt",201,$Chckd,1)
      FileClose($FlOpn)
      Call("Actlzr")

Case $Btna7[7]
      Call("_ADD")
      $FlOpn = FileOpen(@ScriptDir&"\Programas.txt",1)
      _FileWritetoLine(@ScriptDir&"\Programas.txt",202,$FlName,1)
      _FileWritetoLine(@ScriptDir&"\Programas.txt",203,$FlRut,1)
      _FileWritetoLine(@ScriptDir&"\Programas.txt",204,$Chckd,1)
      FileClose($FlOpn)
      Call("Actlzr")

Case $Btna7[8]
      Call("_ADD")
      $FlOpn = FileOpen(@ScriptDir&"\Programas.txt",1)
      _FileWritetoLine(@ScriptDir&"\Programas.txt",205,$FlName,1)
      _FileWritetoLine(@ScriptDir&"\Programas.txt",206,$FlRut,1)
      _FileWritetoLine(@ScriptDir&"\Programas.txt",207,$Chckd,1)
      FileClose($FlOpn)
      Call("Actlzr")

Case $Btna7[9]
      Call("_ADD")
      $FlOpn = FileOpen(@ScriptDir&"\Programas.txt",1)
      _FileWritetoLine(@ScriptDir&"\Programas.txt",208,$FlName,1)
      _FileWritetoLine(@ScriptDir&"\Programas.txt",209,$FlRut,1)
      _FileWritetoLine(@ScriptDir&"\Programas.txt",210,$Chckd,1)
      FileClose($FlOpn)
      Call("Actlzr")

Case $Btna8[0]
      Call("_ADD")
      $FlOpn = FileOpen(@ScriptDir&"\Programas.txt",1)
      _FileWritetoLine(@ScriptDir&"\Programas.txt",211,$FlName,1)
      _FileWritetoLine(@ScriptDir&"\Programas.txt",212,$FlRut,1)
      _FileWritetoLine(@ScriptDir&"\Programas.txt",213,$Chckd,1)
      FileClose($FlOpn)
      Call("Actlzr")

Case $Btna8[1]
      Call("_ADD")
      $FlOpn = FileOpen(@ScriptDir&"\Programas.txt",1)
      _FileWritetoLine(@ScriptDir&"\Programas.txt",214,$FlName,1)
      _FileWritetoLine(@ScriptDir&"\Programas.txt",215,$FlRut,1)
      _FileWritetoLine(@ScriptDir&"\Programas.txt",216,$Chckd,1)
      FileClose($FlOpn)
      Call("Actlzr")

Case $Btna8[2]
      Call("_ADD")
      $FlOpn = FileOpen(@ScriptDir&"\Programas.txt",1)
      _FileWritetoLine(@ScriptDir&"\Programas.txt",217,$FlName,1)
      _FileWritetoLine(@ScriptDir&"\Programas.txt",218,$FlRut,1)
      _FileWritetoLine(@ScriptDir&"\Programas.txt",219,$Chckd,1)
      FileClose($FlOpn)
      Call("Actlzr")

Case $Btna8[3]
      Call("_ADD")
      $FlOpn = FileOpen(@ScriptDir&"\Programas.txt",1)
      _FileWritetoLine(@ScriptDir&"\Programas.txt",220,$FlName,1)
      _FileWritetoLine(@ScriptDir&"\Programas.txt",221,$FlRut,1)
      _FileWritetoLine(@ScriptDir&"\Programas.txt",222,$Chckd,1)
      FileClose($FlOpn)
      Call("Actlzr")

Case $Btna8[4]
      Call("_ADD")
      $FlOpn = FileOpen(@ScriptDir&"\Programas.txt",1)
      _FileWritetoLine(@ScriptDir&"\Programas.txt",223,$FlName,1)
      _FileWritetoLine(@ScriptDir&"\Programas.txt",224,$FlRut,1)
      _FileWritetoLine(@ScriptDir&"\Programas.txt",225,$Chckd,1)
      FileClose($FlOpn)
      Call("Actlzr")

Case $Btna8[5]
      Call("_ADD")
      $FlOpn = FileOpen(@ScriptDir&"\Programas.txt",1)
      _FileWritetoLine(@ScriptDir&"\Programas.txt",226,$FlName,1)
      _FileWritetoLine(@ScriptDir&"\Programas.txt",227,$FlRut,1)
      _FileWritetoLine(@ScriptDir&"\Programas.txt",228,$Chckd,1)
      FileClose($FlOpn)
      Call("Actlzr")

Case $Btna8[6]
      Call("_ADD")
      $FlOpn = FileOpen(@ScriptDir&"\Programas.txt",1)
      _FileWritetoLine(@ScriptDir&"\Programas.txt",229,$FlName,1)
      _FileWritetoLine(@ScriptDir&"\Programas.txt",230,$FlRut,1)
      _FileWritetoLine(@ScriptDir&"\Programas.txt",231,$Chckd,1)
      FileClose($FlOpn)
      Call("Actlzr")

Case $Btna8[7]
      Call("_ADD")
      $FlOpn = FileOpen(@ScriptDir&"\Programas.txt",1)
      _FileWritetoLine(@ScriptDir&"\Programas.txt",232,$FlName,1)
      _FileWritetoLine(@ScriptDir&"\Programas.txt",233,$FlRut,1)
      _FileWritetoLine(@ScriptDir&"\Programas.txt",234,$Chckd,1)
      FileClose($FlOpn)
      Call("Actlzr")

Case $Btna8[8]
      Call("_ADD")
      $FlOpn = FileOpen(@ScriptDir&"\Programas.txt",1)
      _FileWritetoLine(@ScriptDir&"\Programas.txt",235,$FlName,1)
      _FileWritetoLine(@ScriptDir&"\Programas.txt",236,$FlRut,1)
      _FileWritetoLine(@ScriptDir&"\Programas.txt",237,$Chckd,1)
      FileClose($FlOpn)
      Call("Actlzr")

Case $Btna8[9]
      Call("_ADD")
      $FlOpn = FileOpen(@ScriptDir&"\Programas.txt",1)
      _FileWritetoLine(@ScriptDir&"\Programas.txt",238,$FlName,1)
      _FileWritetoLine(@ScriptDir&"\Programas.txt",239,$FlRut,1)
      _FileWritetoLine(@ScriptDir&"\Programas.txt",240,$Chckd,1)
      FileClose($FlOpn)
      Call("Actlzr")

   Case $BtnActlzr
      WinClose("Agregar Programas")
      ShellExecute("Agregar Programas.exe")

Case $BtnVlvr
   WinClose("Agregar Programas")
   Sleep(1000)
   ShellExecute(@ScriptDir&"\Instalador WBD")
   Case $BtnSlr
      Exit
   Case $GUI_EVENT_CLOSE
      Exit
EndSwitch
WEnd
wbueso
Aprendiz de Mago
 
Mensajes: 60
Registrado: 31 Dic 2013, 01:02

Re: Ayuda con mi codigo

Notapor wbueso » 03 Feb 2014, 07:28

PDF prove con lo que me dieron tu y dany, entendi el codigo un poco y me sirvio para ampliar mis conocimientos, solo que me dio error en _ADD[$i] y no supe como solucionarlo. gracias.

Código: Seleccionar todo
While 1
   $nMsg = GUIGetMsg()
   Switch $nMsg
   Case $BtnSlr
     Exit
      Case $GUI_EVENT_CLOSE
         Exit
   EndSwitch
   For $i=0 to UBound($Btna) -1
        If $nMsg = $Btna[$i] then
               _ADD[$i]  <<============= en esta parte no funciona da un error y no supe como solucionarlo
        Endif
    Next
wbueso
Aprendiz de Mago
 
Mensajes: 60
Registrado: 31 Dic 2013, 01:02

Re: Ayuda con mi codigo

Notapor PDF » 03 Feb 2014, 12:25

Hola!

Vas muy bien, con el tiempo vas a ir mejorando, puedes ir organizando mejor el codigo que llevas, por ejemplo ubicando las funciones luego del bucle while ... Wend, también puedes englobar en un For Next la lectura del fichero programs.txt, de esta forma:

Código: Seleccionar todo
Global $Readsa1[10]
$líne=1
For $a=1 to 10
         $Readsa2[$a] =FileReadLine (@ScriptDir&"\Programas.txt",$líne)
         $líne+=3
Next
; entonces para la siguiente lectura $Readsa2 $lline= 31


PDF probe con lo que me dieron tu y dany, entendi el codigo un poco y me sirvio para ampliar mis conocimientos, solo que me dio error en _ADD[$i] y no supe como solucionarlo


Es que debes cambiar los corchetes [] por paréntesis (), así _ADD ($i)

Deberías de tener en cuenta la sugerencia que te hice con relación a los ficheros ini. Mas tarde podrías ver como funcionan la Gui Modo on event te recomiendo leer la ayuda..

Saludos..
PDF
Hacker del Foro
 
Mensajes: 152
Registrado: 18 Ene 2013, 23:23

Re: Ayuda con mi codigo

Notapor PDF » 03 Feb 2014, 13:25

wbueso escribió:tengo muchas dudas como que al agregar una imagen de fondo los controles no se pueden usar aunque esten a la vista.


Con relación a tu duda puedes dar un ejemplo, ya que a mi no me ha sucedido, es decir , a los controles les agregas imágenes y ssiguen funcionando los eventos a menos que súperpongas un pic a un botón o cualquier otro control..

Saludos!
Pd. Si tienes una duda como esta publicala en el foro de Preguntas sencillas, ya que esta sección es para bienvenida.
PDF
Hacker del Foro
 
Mensajes: 152
Registrado: 18 Ene 2013, 23:23

Re: Ayuda con mi codigo

Notapor wbueso » 07 Feb 2014, 19:22

PDF escribió:
wbueso escribió:tengo muchas dudas como que al agregar una imagen de fondo los controles no se pueden usar aunque esten a la vista.


Con relación a tu duda puedes dar un ejemplo, ya que a mi no me ha sucedido, es decir , a los controles les agregas imágenes y ssiguen funcionando los eventos a menos que súperpongas un pic a un botón o cualquier otro control..

Saludos!
Pd. Si tienes una duda como esta publicala en el foro de Preguntas sencillas, ya que esta sección es para bienvenida.


Código: Seleccionar todo
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <File.au3>
#include <Array.au3>
#################################################################################################################
;Crea la GUI (Ventana)
GUICreate("Instalador WBD", 650, 610, 180, 40)
GUICtrlSetDefBkColor(0x6699FF)
GUICtrlCreatePic(@ScriptDir&"\oemlogo.bmp",5,5,85,60)
GUICtrlCreatePic(@ScriptDir&"\Tiger.jpg",5,5,645,605) ;<<========================== Si la hubico aqui no puedo hacer
                                                               ;clic en los botones, se ven pero
                                                               ;no se pueden utilizar

#################################################################################################################
;Seccion de Botones
$BtnSlr = GUICtrlCreateButton("Salir",5,550,85,25,$WS_DLGFRAME)
GUICtrlSetCursor (-1, 0)
$BtnIns = GUICtrlCreateButton("Instalar",5,520,85,25,$WS_DLGFRAME)
GUICtrlSetCursor (-1, 0)
$BtnDflt = GUICtrlCreateButton("Por Default",5,490,85,25,$WS_DLGFRAME)
GUICtrlSetCursor (-1, 0)
$BtnAgrgr = GUICtrlCreateButton("Agregar Prog",5,460,85,25,$WS_DLGFRAME)
GUICtrlSetCursor (-1, 0)
$BtnCln = GUICtrlCreateButton("Nunguno",5,430,85,25,$WS_DLGFRAME,$GUI_DEFBUTTON)
GUICtrlSetCursor (-1, 0)
$Fin = GUICtrlCreateCheckbox("Cerra al Final",5,400,85,25,$WS_DLGFRAME)
#################################################################################################################
;Linea que lee el archivo Programas.txt para los CheckBox
Global $Anch = 125, $Alt = 25, $Sep = 25

Global $BPA1 = 25, $BPA2 = 300, $BPA4 = 300, $BPA6 = 300, $BPA8 = 300
Global $BPI1 = 100, $BPI3 = 230, $BPI5 = 360, $BPI7 = 490
Global $ReadS1[10], $ReadS2[10], $ReadS3[10], $ReadS4[10], $ReadS5[10], $ReadS6[10], $ReadS7[10], $ReadS8[10]
Global $ChcBx1[10], $ChcBx2[10], $ChcBx3[10], $ChcBx4[10], $ChcBx5[10]
Global $ChcBx6[10], $ChcBx7[10], $ChcBx8[10]

Global $Linea1 = 1
For $r1 = 0 to 9
         $ReadS1[$r1] =FileReadLine ("Programas.txt",$Linea1)
         $Linea1 += 3
    Next
Global $Linea2 = 31
For $r2 = 0 to 9
         $ReadS2[$r2] =FileReadLine ("Programas.txt",$Linea2)
         $Linea2 += 3
   Next
Global $Linea3 = 61
For $r3 = 0 to 9
         $ReadS3[$r3] =FileReadLine ("Programas.txt",$Linea3)
         $Linea3 += 3
   Next
Global $Linea4 = 91
For $r4 = 0 to 9
         $ReadS4[$r4] =FileReadLine ("Programas.txt",$Linea4)
         $Linea4 += 3
   Next
Global $Linea5 = 121
For $r5 = 0 to 9
         $ReadS5[$r5] =FileReadLine ("Programas.txt",$Linea5)
         $Linea5 += 3
   Next
Global $Linea6 = 151
For $r6 = 0 to 9
         $ReadS6[$r6] =FileReadLine ("Programas.txt",$Linea6)
         $Linea6 += 3
   Next
Global $Linea7 = 181
For $r7 = 0 to 9
         $ReadS7[$r7] =FileReadLine ("Programas.txt",$Linea7)
         $Linea7 += 3
   Next
Global $Linea8 = 211
For $r8 = 0 to 9
         $ReadS8[$r8] =FileReadLine ("Programas.txt",$Linea8)
         $Linea8 += 3
   Next
#################################################################################################################
;Crea los CheckBox
Global $Linea3 = 243
Global $BPA1 = 30,$BPI1 = 98
For $c1 = 0 To UBound($ChcBx1) - 1
   $ChcBx1[$c1] = GUICtrlCreateCheckbox($ReadS1[$c1],$BPI1,$BPA1,$Anch,$Alt,$WS_DLGFRAME)
      $BPA1 += $Sep
     GUICtrlSetCursor (-1, 0)
  Next
Global $Linea3 = 273
Global $BPA2 = 320, $BPI2 = 98
For $c2 = 0 To UBound($ChcBx2) - 1
   $ChcBx2[$c2] = GUICtrlCreateCheckbox($ReadS2[$c2],$BPI2,$BPA2,$Anch,$Alt,$WS_DLGFRAME)
       $BPA2 += $Sep
      GUICtrlSetCursor (-1, 0)
  Next
Global $Linea3 = 303
Global $BPA3 = 30, $BPI3 = 238
For $c3 = 0 To UBound($ChcBx3) - 1
   $ChcBx3[$c3] = GUICtrlCreateCheckbox($ReadS3[$c3],$BPI3,$BPA3,$Anch,$Alt,$WS_DLGFRAME)
      $BPA3 += $Sep
     GUICtrlSetCursor (-1, 0)
  Next
Global $BPA4 = 320, $BPI4 = 238
For $c4 = 0 To UBound($ChcBx4) - 1
   $ChcBx4[$c4] = GUICtrlCreateCheckbox($ReadS4[$c4],$BPI4,$BPA4,$Anch,$Alt,$WS_DLGFRAME)
      $BPA4 += $Sep
     GUICtrlSetCursor (-1, 0)
  Next
Global $BPA5 = 30, $BPI5 = 378
For $c5 = 0 To UBound($ChcBx5) - 1
   $ChcBx5[$c5] = GUICtrlCreateCheckbox($ReadS5[$c5],$BPI5,$BPA5,$Anch,$Alt,$WS_DLGFRAME)
      $BPA5 += $Sep
     GUICtrlSetCursor (-1, 0)
Next
Global $BPA6 = 320, $BPI6 = 378
For $c6 = 0 To UBound($ChcBx6) - 1
   $ChcBx6[$c6] = GUICtrlCreateCheckbox($ReadS6[$c6],$BPI6,$BPA6,$Anch,$Alt,$WS_DLGFRAME)
      $BPA6 += $Sep
     GUICtrlSetCursor (-1, 0)
  Next
Global $BPA7 = 30, $BPI7 = 518
For $c7 = 0 To UBound($ChcBx7) - 1
   $ChcBx7[$c7] = GUICtrlCreateCheckbox($ReadS7[$c7],$BPI7,$BPA7,$Anch,$Alt,$WS_DLGFRAME)
      $BPA7 += $Sep
     GUICtrlSetCursor (-1, 0)
Next
Global $BPA8 = 320, $BPI8 = 518
For $c8 = 0 To UBound($ChcBx8) - 1
   $ChcBx8[$c8] = GUICtrlCreateCheckbox($ReadS8[$c8],$BPI8,$BPA8,$Anch,$Alt,$WS_DLGFRAME)
      $BPA8 += $Sep
     GUICtrlSetCursor (-1, 0)
Next
#################################################################################################################
;Crea la barra de progreso y los indicadores de porcentaje
Global $TtlProg = 0
Global $Contar = 0
Global $InfProgre = 0
$InfNumProg = GUICtrlCreateLabel("1/100", 10, 583, 30, 20,$WS_DLGFRAME)
$InfProgre = GUICtrlCreateLabel("100%", 610, 583, 35, 20,$WS_DLGFRAME)
$InfPorc = GUICtrlCreateLabel("0%", 610, 583, 30, 20,$WS_DLGFRAME)
$BarrProg = GUICtrlCreateProgress(45, 580, 620-60, 25,$WS_DLGFRAME)
GUICtrlSetState($InfProgre,$GUI_HIDE)
GUICtrlSetState($InfPorc,$GUI_SHOW)
#################################################################################################################
;Esta linea es de los GRUPOS
Global $AncG = 133, $GrsG = 275, $PosI1 = 93, $PosI2 = 233, $PosI3 = 373, $PosI4 = 513, $PosA1 = 10, $PosA2 = 300
Global $ColorG = 0x6699FF, $TamFG = 10, $GrsFG = 600, $AtrbFG = 1, $FontG = "Time New Rodman"

$Conf = GUICtrlCreateGroup("Configuraciónes",$PosI1,$PosA1,$AncG,$GrsG,$WS_DLGFRAME)
GUICtrlSetFont($Conf, $TamFG, $GrsFG, $AtrbFG, $FontG)
$Apli = GUICtrlCreateGroup("Aplicaciónes",$PosI1,$PosA2,$AncG,$GrsG,$WS_DLGFRAME)
GUICtrlSetFont($Apli, $TamFG, $GrsFG, $AtrbFG,$FontG)
$Ofic = GUICtrlCreateGroup("Oficina",$PosI2,$PosA1,$AncG,$GrsG,$WS_DLGFRAME)
GUICtrlSetFont($Ofic, $TamFG, $GrsFG, $AtrbFG,$FontG)
$Repr = GUICtrlCreateGroup("Reproductores",$PosI2,$PosA2,$AncG,$GrsG,$WS_DLGFRAME)
GUICtrlSetFont($Repr, $TamFG, $GrsFG, $AtrbFG,$FontG)
$Edit = GUICtrlCreateGroup("Editores",$PosI3,$PosA1,$AncG,$GrsG,$WS_DLGFRAME)
GUICtrlSetFont($Edit, $TamFG, $GrsFG, $AtrbFG,$FontG)
$Prog = GUICtrlCreateGroup("Programación",$PosI3,$PosA2,$AncG,$GrsG,$WS_DLGFRAME)
GUICtrlSetFont($Prog, $TamFG, $GrsFG, $AtrbFG,$FontG)
$Comp = GUICtrlCreateGroup("Complementos",$PosI4,$PosA1,$AncG,$GrsG,$WS_DLGFRAME)
GUICtrlSetFont($Comp, $TamFG, $GrsFG, $AtrbFG,$FontG)
$Herr = GUICtrlCreateGroup("Herramientas",$PosI4,$PosA2,$AncG,$GrsG,$WS_DLGFRAME)
GUICtrlSetFont($Herr, $TamFG, $GrsFG, $AtrbFG,$FontG)
#################################################################################################################
GUISetState(@SW_Show)

GUICtrlCreatePic(@ScriptDir&"\Tiger.jpg",5,5,645,605) ;<<======================= Si hubico la imagen aqui, tengo problemas
                                                            ;de que al minimizar la ventana y luego
                                                            ;maximizarla, los botones no se ven, solamente
                                                            ;Cuando paso el puntero sobre ellos aparecen
While 1
   $msg = GUIGetMsg()
   Switch $msg

   Case $BtnSlr
      Exit

   Case $GUI_EVENT_CLOSE
      Exit
#################################################################################################################
EndSwitch
WEnd
wbueso
Aprendiz de Mago
 
Mensajes: 60
Registrado: 31 Dic 2013, 01:02

Re: Ayuda con mi codigo

Notapor Dany » 07 Feb 2014, 19:36

Tenes que hacerlo así:


Código: Seleccionar todo
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <File.au3>
#include <Array.au3>
#################################################################################################################
;Crea la GUI (Ventana)
GUICreate("Instalador WBD", 650, 610, 180, 40)
GUICtrlSetDefBkColor(0x6699FF)
GUICtrlCreatePic(@ScriptDir&"\oemlogo.bmp",5,5,85,60)
GUICtrlCreatePic(@ScriptDir&"\Tiger.jpg",5,5,645,605) ;<<========================== Si la hubico aqui no puedo hacer
                                                               ;clic en los botones, se ven pero
                                                               ;no se pueden utilizar

#################################################################################################################
;Seccion de Botones
$BtnSlr = GUICtrlCreateButton("Salir",5,550,85,25,$WS_DLGFRAME)
GUICtrlSetCursor (-1, 0)
$BtnIns = GUICtrlCreateButton("Instalar",5,520,85,25,$WS_DLGFRAME)
GUICtrlSetCursor (-1, 0)
$BtnDflt = GUICtrlCreateButton("Por Default",5,490,85,25,$WS_DLGFRAME)
GUICtrlSetCursor (-1, 0)
$BtnAgrgr = GUICtrlCreateButton("Agregar Prog",5,460,85,25,$WS_DLGFRAME)
GUICtrlSetCursor (-1, 0)
$BtnCln = GUICtrlCreateButton("Nunguno",5,430,85,25,$WS_DLGFRAME,$GUI_DEFBUTTON)
GUICtrlSetCursor (-1, 0)
$Fin = GUICtrlCreateCheckbox("Cerra al Final",5,400,85,25,$WS_DLGFRAME)
;||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
;||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
;||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
;||||||||||||||||||||||||||||||||||||Aqui Edité Algo|||||||||||||||||||||||||||||||||
;||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
;||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
;||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
;la pones qui y listo
$hPic_background=GUICtrlCreatePic(@ScriptDir&"\Tiger.jpg",5,5,645,605) ;<<======================= Si hubico la imagen aqui, tengo problemas
                                                            ;de que al minimizar la ventana y luego
                                                            ;maximizarla, los botones no se ven, solamente
                                                            ;Cuando paso el puntero sobre ellos aparecen
GUICtrlSetState($hPic_background, $GUI_DISABLE) ;la desactivas para que puedas rpesionar los controles
;||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
;||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
;||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
;||||||||||||||||||||||||||||||||Aqui Terminé de Editar |||||||||||||||||||||||||||||
;||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
;||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
;||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
#################################################################################################################
;Linea que lee el archivo Programas.txt para los CheckBox
Global $Anch = 125, $Alt = 25, $Sep = 25

Global $BPA1 = 25, $BPA2 = 300, $BPA4 = 300, $BPA6 = 300, $BPA8 = 300
Global $BPI1 = 100, $BPI3 = 230, $BPI5 = 360, $BPI7 = 490
Global $ReadS1[10], $ReadS2[10], $ReadS3[10], $ReadS4[10], $ReadS5[10], $ReadS6[10], $ReadS7[10], $ReadS8[10]
Global $ChcBx1[10], $ChcBx2[10], $ChcBx3[10], $ChcBx4[10], $ChcBx5[10]
Global $ChcBx6[10], $ChcBx7[10], $ChcBx8[10]

Global $Linea1 = 1
For $r1 = 0 to 9
         $ReadS1[$r1] =FileReadLine ("Programas.txt",$Linea1)
         $Linea1 += 3
    Next
Global $Linea2 = 31
For $r2 = 0 to 9
         $ReadS2[$r2] =FileReadLine ("Programas.txt",$Linea2)
         $Linea2 += 3
   Next
Global $Linea3 = 61
For $r3 = 0 to 9
         $ReadS3[$r3] =FileReadLine ("Programas.txt",$Linea3)
         $Linea3 += 3
   Next
Global $Linea4 = 91
For $r4 = 0 to 9
         $ReadS4[$r4] =FileReadLine ("Programas.txt",$Linea4)
         $Linea4 += 3
   Next
Global $Linea5 = 121
For $r5 = 0 to 9
         $ReadS5[$r5] =FileReadLine ("Programas.txt",$Linea5)
         $Linea5 += 3
   Next
Global $Linea6 = 151
For $r6 = 0 to 9
         $ReadS6[$r6] =FileReadLine ("Programas.txt",$Linea6)
         $Linea6 += 3
   Next
Global $Linea7 = 181
For $r7 = 0 to 9
         $ReadS7[$r7] =FileReadLine ("Programas.txt",$Linea7)
         $Linea7 += 3
   Next
Global $Linea8 = 211
For $r8 = 0 to 9
         $ReadS8[$r8] =FileReadLine ("Programas.txt",$Linea8)
         $Linea8 += 3
   Next
#################################################################################################################
;Crea los CheckBox
Global $Linea3 = 243
Global $BPA1 = 30,$BPI1 = 98
For $c1 = 0 To UBound($ChcBx1) - 1
   $ChcBx1[$c1] = GUICtrlCreateCheckbox($ReadS1[$c1],$BPI1,$BPA1,$Anch,$Alt,$WS_DLGFRAME)
      $BPA1 += $Sep
     GUICtrlSetCursor (-1, 0)
  Next
Global $Linea3 = 273
Global $BPA2 = 320, $BPI2 = 98
For $c2 = 0 To UBound($ChcBx2) - 1
   $ChcBx2[$c2] = GUICtrlCreateCheckbox($ReadS2[$c2],$BPI2,$BPA2,$Anch,$Alt,$WS_DLGFRAME)
       $BPA2 += $Sep
      GUICtrlSetCursor (-1, 0)
  Next
Global $Linea3 = 303
Global $BPA3 = 30, $BPI3 = 238
For $c3 = 0 To UBound($ChcBx3) - 1
   $ChcBx3[$c3] = GUICtrlCreateCheckbox($ReadS3[$c3],$BPI3,$BPA3,$Anch,$Alt,$WS_DLGFRAME)
      $BPA3 += $Sep
     GUICtrlSetCursor (-1, 0)
  Next
Global $BPA4 = 320, $BPI4 = 238
For $c4 = 0 To UBound($ChcBx4) - 1
   $ChcBx4[$c4] = GUICtrlCreateCheckbox($ReadS4[$c4],$BPI4,$BPA4,$Anch,$Alt,$WS_DLGFRAME)
      $BPA4 += $Sep
     GUICtrlSetCursor (-1, 0)
  Next
Global $BPA5 = 30, $BPI5 = 378
For $c5 = 0 To UBound($ChcBx5) - 1
   $ChcBx5[$c5] = GUICtrlCreateCheckbox($ReadS5[$c5],$BPI5,$BPA5,$Anch,$Alt,$WS_DLGFRAME)
      $BPA5 += $Sep
     GUICtrlSetCursor (-1, 0)
Next
Global $BPA6 = 320, $BPI6 = 378
For $c6 = 0 To UBound($ChcBx6) - 1
   $ChcBx6[$c6] = GUICtrlCreateCheckbox($ReadS6[$c6],$BPI6,$BPA6,$Anch,$Alt,$WS_DLGFRAME)
      $BPA6 += $Sep
     GUICtrlSetCursor (-1, 0)
  Next
Global $BPA7 = 30, $BPI7 = 518
For $c7 = 0 To UBound($ChcBx7) - 1
   $ChcBx7[$c7] = GUICtrlCreateCheckbox($ReadS7[$c7],$BPI7,$BPA7,$Anch,$Alt,$WS_DLGFRAME)
      $BPA7 += $Sep
     GUICtrlSetCursor (-1, 0)
Next
Global $BPA8 = 320, $BPI8 = 518
For $c8 = 0 To UBound($ChcBx8) - 1
   $ChcBx8[$c8] = GUICtrlCreateCheckbox($ReadS8[$c8],$BPI8,$BPA8,$Anch,$Alt,$WS_DLGFRAME)
      $BPA8 += $Sep
     GUICtrlSetCursor (-1, 0)
Next
#################################################################################################################
;Crea la barra de progreso y los indicadores de porcentaje
Global $TtlProg = 0
Global $Contar = 0
Global $InfProgre = 0
$InfNumProg = GUICtrlCreateLabel("1/100", 10, 583, 30, 20,$WS_DLGFRAME)
$InfProgre = GUICtrlCreateLabel("100%", 610, 583, 35, 20,$WS_DLGFRAME)
$InfPorc = GUICtrlCreateLabel("0%", 610, 583, 30, 20,$WS_DLGFRAME)
$BarrProg = GUICtrlCreateProgress(45, 580, 620-60, 25,$WS_DLGFRAME)
GUICtrlSetState($InfProgre,$GUI_HIDE)
GUICtrlSetState($InfPorc,$GUI_SHOW)
#################################################################################################################
;Esta linea es de los GRUPOS
Global $AncG = 133, $GrsG = 275, $PosI1 = 93, $PosI2 = 233, $PosI3 = 373, $PosI4 = 513, $PosA1 = 10, $PosA2 = 300
Global $ColorG = 0x6699FF, $TamFG = 10, $GrsFG = 600, $AtrbFG = 1, $FontG = "Time New Rodman"

$Conf = GUICtrlCreateGroup("Configuraciónes",$PosI1,$PosA1,$AncG,$GrsG,$WS_DLGFRAME)
GUICtrlSetFont($Conf, $TamFG, $GrsFG, $AtrbFG, $FontG)
$Apli = GUICtrlCreateGroup("Aplicaciónes",$PosI1,$PosA2,$AncG,$GrsG,$WS_DLGFRAME)
GUICtrlSetFont($Apli, $TamFG, $GrsFG, $AtrbFG,$FontG)
$Ofic = GUICtrlCreateGroup("Oficina",$PosI2,$PosA1,$AncG,$GrsG,$WS_DLGFRAME)
GUICtrlSetFont($Ofic, $TamFG, $GrsFG, $AtrbFG,$FontG)
$Repr = GUICtrlCreateGroup("Reproductores",$PosI2,$PosA2,$AncG,$GrsG,$WS_DLGFRAME)
GUICtrlSetFont($Repr, $TamFG, $GrsFG, $AtrbFG,$FontG)
$Edit = GUICtrlCreateGroup("Editores",$PosI3,$PosA1,$AncG,$GrsG,$WS_DLGFRAME)
GUICtrlSetFont($Edit, $TamFG, $GrsFG, $AtrbFG,$FontG)
$Prog = GUICtrlCreateGroup("Programación",$PosI3,$PosA2,$AncG,$GrsG,$WS_DLGFRAME)
GUICtrlSetFont($Prog, $TamFG, $GrsFG, $AtrbFG,$FontG)
$Comp = GUICtrlCreateGroup("Complementos",$PosI4,$PosA1,$AncG,$GrsG,$WS_DLGFRAME)
GUICtrlSetFont($Comp, $TamFG, $GrsFG, $AtrbFG,$FontG)
$Herr = GUICtrlCreateGroup("Herramientas",$PosI4,$PosA2,$AncG,$GrsG,$WS_DLGFRAME)
GUICtrlSetFont($Herr, $TamFG, $GrsFG, $AtrbFG,$FontG)
#################################################################################################################



GUISetState(@SW_Show)
While 1
   $msg = GUIGetMsg()
   Switch $msg

   Case $BtnSlr
      Exit

   Case $GUI_EVENT_CLOSE
      Exit
#################################################################################################################
EndSwitch
WEnd



Saludos
    ............................................Imagen
    ......................................Imagen
Avatar de Usuario
Dany
Profesional del Autoit
 
Mensajes: 643
Registrado: 28 Mar 2012, 22:49


Volver a Welcome ¡ Presentación - Bienvenida - Boas-vindas! -Apresentações

¿Quién está conectado?

Usuarios navegando por este Foro: No hay usuarios registrados visitando el Foro y 4 invitados

cron