Necesito alguna acesoria de su parte para lograr culminar un proyecto en el cual estoy un tanto estancadolo que estoy haciendo es un generador de cuestionarios por medio de unos formularios gui que el usuario pueda llenar
y además al cual el usuario pueda ingresar nuevas preguntas, para al final sacar un documento.
el script
Code: Select all
;^!F1::
;MSGBOX, EDIT EDITAR
;RETURN
;!p::
#SingleInstance Force
#Persistent
GUI,MyGui:ADD,TEXT,X20 Y260 w380 H150,Nota:!Tenga en cuenta... Existen Tres tipos de preguntas. Al enfrentar una pregunta, es útil descifrar de qué tipo es. ¿Tiene la pregunta una sola contestación definitiva? ¿Es una pregunta que sugiere opciones subjetivas? O, ¿nos requiere la pregunta que consideremos contestaciones que compiten entre sí?
GUI,MyGui:ADD,EDIT,X20 Y30 W150 H20 VPROPOSITOS,TEMA
GUI,MyGui:ADD,BUTTON,X10 Y60 W100 H20 gSistemaFunc,1SISTEMA
GUI,MyGui:ADD,BUTTON,X110 Y60 W100 H20 gSinsistemafunc, 2_SIN_SISTEMA
GUI,MyGui:ADD,BUTTON,X210 Y60 W150 H35 gSistemasconflictofunc, 3_SISTEMAS_EN CONFLICTO
gui,mygui:add,edit, X10 Y90 W150 H20 Vtbuscar,buscar tema
gui,mygui:add,button,x10 y110 w50 h20 gbuscarfunc,BUSCAR
GUI,MyGui:SHOW,X200 Y80 W400 H400,PENSAMIENTO CRITICO
Gui,MyGui: Add, TreeView,
Gui, Add, TreeView
P1 := TV_Add("TEMAS")
P1C1 := TV_Add("Parent 1's first child", P1) ; Specify P1 to be this item's parent.
P2 := TV_Add("Second parent")
P2C1 := TV_Add("Parent 2's first child", P2)
P2C2 := TV_Add("Parent 2's second child", P2)
P2C2C1 := TV_Add("Child 2's first child", P2C2)
Gui +Resize
RETURN
buscarfunc:
FileSelectFolder,OutputVar,C:\Users\Personal\Desktop\entrenamiento autohotkey , 3,
if OutputVar =
MsgBox, You didn't select a folder.
else MsgBox, seleccionaste el foler "%OutputVar%".
return
#SingleInstance
Menu, Tray, Add, &AutoHotkey,!1
Menu, Tray, Add, &Dropbox,!2
Menu, Tray, Add, Edi&torial,!3
!1:: Run, G:\Users\Jack\AutoHotkey
!2:: Run, C:\Users\Jack\Dropbox
!3:: Run, \\JACKSLAPTOP\editorial
!x::Menu, Tray, Show
::EDIT::
EDIT
^F3::RELOAD
^f1::
#SingleInstance ignore
run,C:\Program Files\AutoHotkey\AutoHotkey.chm
WinWait, AutoHotkey Help,
IfWinNotActive, AutoHotkey Help, , WinActivate, AutoHotkey Help,
WinWaitActive, AutoHotkey Help,
controlfocus,SysTabControl32,AutoHotkey Help
sleep,100
send,%clipboard%
SLEEP,100
SEND,{ENTER}
RETURN
!i::
; Pre-load and reuse some images.
; muestra algunas imagenes
Pics := []
; Find some pictures to display.
Loop, Files, %A_WinDir%\Web\Wallpaper\*.jpg, R
{
; Load each picture and add it to the array.
Pics.Push(LoadPicture(A_LoopFileFullPath))
}
if !Pics.Length()
{
; If this happens, edit the path on the Loop line above.
MsgBox, No pictures found! Try a different directory.
ExitApp
}
; Add the picture control, preserving the aspect ratio of the first picture.
Gui, Add, Pic, w600 h-1 vPic +Border, % "HBITMAP:*" Pics.1
Gui, Show
Loop
{
; Switch pictures!
GuiControl, , Pic, % "HBITMAP:*" Pics[Mod(A_Index, Pics.Length())+1]
Sleep 3000
}
return
GuiClosed:
GuiEscape:
ExitApp
SistemaFunc:
CONDI1SYSTEM:
IfExist, D:\%A_scriptdir%\%propositos%\%Propositos%PESTAÑA1.txt
MsgBox, The drive exists
ELSE
GUI MyGui:SUBMIT,NOHIDE
GUI,GUISISTCONCEP:SHOW, X200 Y50 W500 H650, PREGUNTAS DE UN SISTEMA
GUI,GUISISTCONCEP:ADD,TEXT, X10 Y5 W450 H40, 1.Cuestionar metas y propósitos. Todo pensamiento refleja una agenda o propósito. Presuma que usted no comprende del todo el pensar de una persona (incluyendo la suya) hasta que entienda la agenda detrás de todo.
GUI,GUISISTCONCEP:ADD,TEXT, X10 Y45 W450 H30,¿Cómo define en el estudio formal el concepto de %propositos%?
GUI,GUISISTCONCEP:ADD,EDIT, X10 Y56 W400 H50 VUNSYS1
GUI,GUISISTCONCEP:ADD,TEXT, X10 Y105 W500 H30,¿Qué autores respaldan el conceptos formal dominante respecto al tema de %propositos%?
GUI,GUISISTCONCEP:ADD,EDIT, X10 Y120 W400 H50 VUNSYS2
GUI,GUISISTCONCEP:ADD,TEXT, X10 Y180 W400 H30, ¿considera que los autores representan con palabras (conceptualizan) todos los aspectos a tener en cuenta respecto al tema %propositos% ?
GUI,GUISISTCONCEP:ADD,EDIT, X10 Y210 W400 H50 VUNSYS3
GUI,GUISISTCONCEP:ADD,TEXT, X10 Y260 W500 H30, ¿se fundamentas dichos autores a su vez en conceptos incompletos y parciales?¿cuales?
GUI,GUISISTCONCEP:ADD,EDIT, X10 Y280 W400 H50 VUNSYS4
GUI,GUISISTCONCEP:ADD,TEXT, X10 Y330 W400 H30,¿trate de conceptualizar dibuje con palabras (conceptualice) lo que cree que deberia tenerse en cuenta en el tema de %propositos%?
GUI,GUISISTCONCEP:ADD,EDIT, X10 Y360 W400 H50 VUNSYS5
GUI,GUISISTCONCEP:ADD,TEXT, X10 Y410 W400 H30, ¿existen autores no formales que piensan diferente respecto al tema de %propositos%?
GUI,GUISISTCONCEP:ADD,EDIT, X10 Y430x0 W400 H50 VUNSYS6
GUI,GUISISTCONCEP:ADD,TEXT, X10 Y490 W400 H30, ¿cómo fundamentaron sus afirmaciones estos autores?
GUI,GUISISTCONCEP:ADD,EDIT, X10 Y510 W400 H50 VUNSYS7
GUI,GUISISTCONCEP:ADD,TEXT, X10 Y570 W500 H30, ¿porqué no se aceptaron sus conceptualizaciones?
GUI,GUISISTCONCEP:ADD,EDIT, X10 Y590 W400 H50 VUNSYS8
GUI,GUISISTCONCEP:ADD,BUTTON, X430 Y540 W60 H20 gpag1cuesfunc, siguiente
FileCreateDir,%A_scriptdir%\%propositos%\
fileappend,
(
%propositos%
),%A_scriptdir%\%propositos%\%Propositos%PESTAÑA1.txt
RETURN
pag1cuesfunc:
GUI,submit
GUI,UNSISTEMAPREG:SHOW, X200 Y50 W500 H650, CUESTIONE SUS PREGUNTAS
gui,UNSISTEMAPREG:ADD,TEXT, X10 Y5 W500 H40,2. Cuestionar las preguntas. Todo pensamiento responde a una pregunta. Presuma que usted no comprende del todo una idea hasta que entienda la pregunta de dónde salió. Las preguntas que enfocan preguntas sobre el pensar incluyen:
GUI,UNSISTEMAPREG:ADD,TEXT, X10 Y53 W500 H20, ¿cuales son los conceptos relacionados con la secuencia del procedimiento estudiado( glosario)?
GUI,UNSISTEMAPREG:ADD,EDIT, X10 Y66 W400 H50 VUNSYSPG1
GUI,UNSISTEMAPREG:ADD,TEXT, X10 Y114 W500 H30,¿numere la secuencia del sistema que esta estudiando?
GUI,UNSISTEMAPREG:ADD,EDIT, X10 Y140 W400 H50 VUNSYSPG2
GUI,UNSISTEMAPREG:ADD,TEXT, X10 Y190 W400 H20, ¿cuanto tiempo se demora el ciclo sistematico en cada etapa?
GUI,UNSISTEMAPREG:ADD,EDIT, X10 Y210 W400 H50 VUNSYSPG3
GUI,UNSISTEMAPREG:ADD,TEXT, X10 Y260 W400 H20, ¿que requicitos tiene cada etapa?
GUI,UNSISTEMAPREG:ADD,EDIT, X10 Y280 W400 H50 VUNSYSPG4
GUI,UNSISTEMAPREG:ADD,TEXT, X10 Y330 W400 H20,¿que o quienes intervienen en cada requicito?
GUI,UNSISTEMAPREG:ADD,EDIT, X10 Y350 W400 H50 VUNSYSPG5
GUI,UNSISTEMAPREG:ADD,TEXT, X10 Y400 W400 H20, ¿en que etapas se puede anular o reiniciar el ciclo?
GUI,UNSISTEMAPREG:ADD,EDIT, X10 Y420 W400 H50 VUNSYSPG6
GUI,UNSISTEMAPREG:ADD,TEXT, X10 Y470 W400 H20, ¿existe algun tipo de penalizacion y quien lo supervisa?
GUI,UNSISTEMAPREG:ADD,EDIT, X10 Y490 W400 H50 VUNSYSPG7
GUI,UNSISTEMAPREG:ADD,TEXT, X10 Y540 W400 H20, ¿si sale exitosa la secuencia que resultados son posibles?
GUI,UNSISTEMAPREG:ADD,EDIT, X10 Y560 W400 H50 VUNSYSPG8
GUI,UNSISTEMAPREG:ADD,BUTTON, X430 Y540 W60 H20 gpag2cuesfunc, siguiente
fileappend,
(
¿cuales son los conceptos relacionados con la secuencia del procedimiento estudiado( glosario)?
%UNSYSPG1%
¿Qué autores respaldan el conceptos formal dominante respecto al tema de %propositos%?
%UNSYS2%
¿considera que los autores representan con palabras (conceptualizan) todos los aspectos a tener en cuenta respecto al tema %propositos% ?
%UNSYS3%
¿se fundamentas dichos autores a su vez en conceptos incompletos y parciales?¿cuales?
%UNSYS4%
¿trate de conceptualizar dibuje con palabras (conceptualice) lo que cree que deberia tenerse en cuenta en el tema de %propositos%?
%UNSYS5%
¿existen autores no formales que piensan diferente respecto al tema de %propositos%?
%UNSYS6%
¿cómo fundamentaron sus afirmaciones estos autores?
%UNSYS7%
¿porqué no se aceptaron sus conceptualizaciones?
%UNSYS8%
),%A_scriptdir%\%propositos%\cuestionario%A_SPACE%metas%A_SPACE%y%A_SPACE%propositos%propositos%.txt
FILEAPPEND,
(
%UNSYS3%
),%A_scriptdir%\%propositos%\CONCEPTOS%A_space%INCOMPLETOS.txt
FILEAPPEND,
(
¿Qué autores respaldan el conceptos formal dominante respecto al tema de %propositos%?
%UNSYS2%
),%A_scriptdir%\%propositos%\AUTORES%A_space%FORMALES%A_space%%Propositos%.txt
fileappend,
(
¿existen autores no formales que piensan diferente respecto al tema de %propositos%?
UNSYS6
),%A_scriptdir%\%propositos%\AUTORES%A_space%NO%A_space% FORMALES%A_space%%Propositos%.txt
fileappend,
(
¿cuales son los conceptos relacionados con la secuencia del procedimiento estudiado( glosario)?
%UNSYS1%
),%A_scriptdir%\%propositos%\GLOSARIOS%A_space%%Propositos%.txt
RETURN
pag2cuesfunc:
GUI,submit
GUI,UNSISTEMASYS:SHOW, X200 Y50 W500 H650, CUESTIONE SUS PREGUNTAS
GUI,UNSISTEMASYS:ADD,TEXT, X10 Y5 W450 H40,3. Calcule qué información necesita y busque activamente esa información. Haga estas preguntas: ¿Qué información necesito para resolver el problema? ¿Cómo puedo obtener la información?
GUI,UNSISTEMASYS:ADD,TEXT, X10 Y53 W500 H20, ¿de no ser exitoso que pasa?
GUI,UNSISTEMASYS:ADD,EDIT, X10 Y66 W400 H50 VUNSYSPG1
GUI,UNSISTEMASYS:ADD,TEXT, X10 Y114 W500 H30,¿el systema varia por alguna actualizacion ?¿cual/es?
GUI,UNSISTEMASYS:ADD,EDIT, X10 Y140 W400 H50 VUNSYSPG2
GUI,UNSISTEMASYS:ADD,TEXT, X10 Y190 W400 H20, ¿se agregan o eliminan requicitos?
GUI,UNSISTEMASYS:ADD,EDIT, X10 Y210 W400 H50 VUNSYSPG3
GUI,UNSISTEMASYS:ADD,TEXT, X10 Y260 W400 H20, ¿se agregan etapas?
GUI,UNSISTEMASYS:ADD,EDIT, X10 Y280 W400 H50 VUNSYSPG4
GUI,UNSISTEMASYS:ADD,TEXT, X10 Y330 W400 H20,¿de quien depende la informacion que se procesa?
GUI,UNSISTEMASYS:ADD,EDIT, X10 Y350 W400 H50 VUNSYSPG5
GUI,UNSISTEMASYS:ADD,TEXT, X10 Y400 W400 H20, ¿de hallar un problema en la fuente a que hago?
GUI,UNSISTEMASYS:ADD,EDIT, X10 Y420 W400 H50 VUNSYSPG6
GUI,UNSISTEMASYS:ADD,TEXT, X10 Y470 W400 H20, ¿que problemas se encontraron?
GUI,UNSISTEMASYS:ADD,EDIT, X10 Y490 W400 H50 VUNSYSPG7
GUI,UNSISTEMASYS:ADD,TEXT, X10 Y540 W400 H20, ¿que soluciones se proponen?
GUI,UNSISTEMASYS:ADD,EDIT, X10 Y560 W400 H50 VUNSYSPG8
GUI,UNSISTEMASYS:ADD,BUTTON, X430 Y540 W60 H20 gpag3cuesfunc, siguiente
FILEAPPEND,
(
¿de no ser exitoso que pasa?
%UNSYSPG1%
¿el systema varia por alguna actualizacion ?¿cual/es?
%UNSYSPG2%
¿se agregan o eliminan requicitos?
%UNSYSPG3%
¿se agregan etapas?
%UNSYSPG4%
¿de quien depende la informacion que se procesa?
%UNSYSPG5%
¿de hallar un problema en la fuente a quien se le avisa?
%UNSYSPG6%
¿que problemas se encontraron?
%UNSYSPG7%
¿que soluciones se proponen?
%SYSPG8%
),%A_scriptdir%\%propositos%\cuestionr%A_space%sus%A_space%preguntas%A_space%respecto%A_space%a%A_space%%propositos%.txt
return
pag3cuesfunc:
GUI , SUBMIT
GUI,GUICONCEPTOS:ADD,EDIT,X20 Y30 W259 H100 VCONCEPTOS, INGRESAR CONCEPTO O DEFINICION
GUI,GUICONCEPTOS:ADD,EDIT,X20 Y150 W259 H40 VFUENTE, ENGRESE SU AUTOR O FUENTE
Gui, GUICONCEPTOS:Add, Text,X20 Y180 W430 H40,¿QUÉ PREGUNTA O QUE PROBLEMA INTENTA RESPONDER ESTE CONCEPTO?,
GUI,GUICONCEPTOS:ADD,EDIT,X20 Y200 W259 H40 VQUEINTENTARESPONDER,
Gui, GUICONCEPTOS:Add, Text,X20 Y240 W259 H40,¿QUÉ CONCEPTOS ESTAN RELACIONADOS?,
GUI,GUICONCEPTOS:ADD,EDIT,X20 Y260 W259 H40 VCONCEPRELACION,
Gui, GUICONCEPTOS:Add, Text,X20 Y300 W259 H40,¿QUÉ GLOSARIO MANEJA LA MATERIA?,
GUI,GUICONCEPTOS:ADD,EDIT,X20 Y320 W259 H40 VGLOSARIOMATERIA,
Gui, GUICONCEPTOS:Add, Text,X20 Y360 W440 H40,¿CÚALES SON LOS PUNTOS DE VISTA IMPLICADOS Y POR PARTE DE QUIEN?,
GUI,GUICONCEPTOS:ADD,EDIT,X20 Y373 W259 H40 VPUNTOSVISTA,
GUI,GUICONCEPTOS:ADD,BUTTON,X10 Y10 W120 H20, INTRO
Gui, GUICONCEPTOS:Show, W500 H500, CONCEPTOS
return
SETENV, TEMA,%PROPOSITOS%
MSGBOX,%TEMA% COMPARADO CON %PROPOSITOS%
if PROPOSITOS is not alpha ; SI SE INGRESAN NUMEROS EN LUGAR DE LETRAS
{
msgbox,FAVOR INGRESAR SOLO CARACTERES ALFABETICOS
RELOAD
}
MSGBOX,%PROPOSITOS%COMPARAR %TEMA%
IFEQUAL,PROPOSITOS,TEMA ;SI LOS PROPOSITOS TIENEN LA PALABRA TEMA
{
MSGBOX,NO SE LLENO LA CASILLA CON EL TEMA
SLEEP, 100
GOSUB, MENSAJE_ERROR_TEMA
}
else
{
gosub,cond2
}
RETURN
COND2:
MSGBOX,TEMA LLENADO CORRECTAMENTE
msgbox,mi tema%propositos%
IF propositos =
{
MSGBOX,VARIABLE PROPOSITOS ESTA VACIA
GOSUB,MENSAJE_ERROR_TEMA
}
ELSE
{
MSGBOX,%propositos% VARIABLE CON NOMBRE VALIDO
GOSUB,verificar_si_existe_carpeta_temas
;GOSUB,COMPARAR_TEMAS_CREADOS
}
RETURN
verificar_si_existe_carpeta_temas:
ifexist,%A_SCRIPTDIR%\MIS TEMAS\%PROPOSITOS%\conceptos de %propositos%.txt
{
msgbox,existe carpeta temas %PROPOSITOS%
gosub,COMPARAR_TEMAS_CREADOS
}
else
{
msgbox, %PROPOSITOS% no existe se creara
GOSUB,CREAR_ARCHIVO
}
return
COMPARAR_TEMAS_CREADOS:
msgbox,COMPARANDO TEMAS CREADOS
LOOPER:
Loop,
{
FileReadLine, line, %A_SCRIPTDIR%\MIS TEMAS\TEMAS.txt, %A_Index%
if ErrorLevel
break
;msgbox,%propositos%..%line% NUMERO DE LINEA %A_Index%
IFEQUAL,PROPOSITOS,%LINE%
{
msgbox,tema ya creado
ImageListID := IL_Create(100) ; Create an ImageList with initial capacity for 10 icons.
Loop 100 ; Load the ImageList with some standard system icons.
IL_Add(ImageListID, "shell32.dll", A_Index)M
Gui, Add,TreeView, Checked
;Gui, Add,TreeView, ImageList%ImageListID%
P1 := TV_Add(PROPOSITOS,0, "Icon4")
P1C1 := TV_Add("PROPOSITOS",P1,"Icon44 " ) ;OPCIONES PARA TV_ADD DEBEN TENER UN TAB COMILLAS SIGNO + PARA AÑADIR O - PARA QUITAR LA OPSION
P1C2 := TV_Add("SUPOSICIONES",P1,"Icon23" )
P1C3 := TV_Add("DATOS EXPERIENCIAS",P1, -BUTTONS DATOS )
P1C4 := TV_Add("INFERENCIAS INTERPRETACIONES Y CONCLUSIONES",P1,"Icon44" )
P1C5:= TV_Add("SUPOSICIONES Y CREENCIAS",P1,"Icon45" )
P1C6 := TV_Add("CONCEPTOS IDEAS Y TEORIAS",P1,"Icon46" )
P1C7 := TV_Add("PUNTOS DE VISTA Y PERSPECTIVAS",P1,"Icon47")
P1C8 := TV_Add("IMPLICACIONES Y CONSECUENCIAS",P1,"Icon48")
Gui Show
LOOP,
{
GOSUB,CONDISECLECT
}
RETURN
CONDISECLECT:
ItemID = 0 ; Causes the loop's first iteration to start the search at the top of the tree.
Loop
{
ItemID := TV_GetNext(ItemID,"Checked") ; Replace "Full" with "Checked" to find all checkmarked items.
if not ItemID ; No more items in tree.
break
TV_GetText(ItemText, ItemID)
GUI,+parentESCATOLOGIA
GUI,SHOW, W44 H677, ESCANDALO
; MsgBox The next Item is %ItemID%, whose text is "%ItemText%".
BREAK
}
RETURN
GuiClose: ; Exit the script when the user closes the TreeView's GUI window.
ExitApp
BUTTONAceptar:
GUI,SUBMIT
MSGBOX, BOTON ACEPTAR
RETURN
}
}
IFEQUAL,PROPOSITOS,%LINE%
{
msgbox,tema ya creado
;EXITAPP
reload
;GOSUB,CARPETA SUBTEMA
}
else
{
MSGBOX,VERIFICANDO CARPETAS EXISTENTES
setenv,direccion_tema_txt,%A_SCRIPTDIR%\MIS TEMAS\%line%\conceptos de %line%.txt
msgbox,%direccion_tema_txt%
ifexist,%direccion_tema_txt%
{
msgbox, archivo %line%.txt existente
gosub,looper
}
else
{
GOSUB,CREAR_ARCHIVO
}
}
RETURN
CREAR_ARCHIVO:
MSGBOX,CREAR AARCHIVO
FileCreateDir, %A_SCRIPTDIR%\MIS TEMAS\%PROPOSITOS%
MSGBOX, %A_SCRIPTDIR%\MIS TEMAS\
fileappend,
(
),%A_SCRIPTDIR%\MIS TEMAS\%PROPOSITOS%\conceptos de %propositos%.txt
RUN, %A_SCRIPTDIR%\MIS TEMAS\%PROPOSITOS%\conceptos de %propositos%.txt
fileappend,
(
%PROPOSITOS%`r
), %A_SCRIPTDIR%\MIS TEMAS\TEMAS.txt
RUN, %A_SCRIPTDIR%\MIS TEMAS\TEMAS.txt
gosub, cuestionariopropositos
return
cuestionariopropositos:
gui,show, w500 h500, cuestionario %propositos%
return
MENSAJE_ERROR_TEMA:
MSGBOX,INGRESAR TEMA INTENTE DE NUEVO
RELOAD
RETURN
Sinsistemafunc:
msgbox,sin sistema
returnfalencias de este scritp
al darle click en el control de la ventana cerrar no sale del scrip pero si se cierra la ventana
yo quiero que el programa se cierre como lo hace cualquier programa al hacer click en la x roja
y además entender como se hace
bueno, no se si entendi bien pero tengo entendido treeview sirve para ver una serie de objetos ordenados por rangos de importancia padre hijo
yo quiero saber como se hace para que el direcctorio donde se crean las carpetas con cada tema se añada al treeview y pueda mostrar el tema y los formularios
que que ya llenó y que el usuario no tenga que comenzar a llenar de cero
que al seleccionar se abran los gui que le hacen falta llenar
estoy retomando el tema de programación con ahk asi que no estoy seguro de que tango sea compatible con la nueva version
agradezo su colaboración
cualquier sugerencia es bienvenida
Moderator Note: Added code tags. ~ sinkfaze