#Region ;**** Directives created by AutoIt3Wrapper_GUI **** #AutoIt3Wrapper_Icon=Crear Examen.ico #EndRegion ;**** Directives created by AutoIt3Wrapper_GUI **** #include #include #include #include #include #include #include #include ####################################################################################################### Global $inPreg[30], $inResp[30], $leerPreg[30], $leerResp[30], $leerTtl ####################################################################################################### GUICreate("Crear EXAMEN",1018,707,0,0) GUISetBkColor(0xBDE0EF) GUICtrlSetDefColor(0x000000) ####################################################################################################### ;Botones $btnSlr = GUICtrlCreateButton("Salir",915,5,100,30,$WS_DLGFRAME) GUICtrlSetFont(-1, 10, 600, 0, "Arial") GUICtrlSetColor(-1, 0x010101) $btnLst = GUICtrlCreateButton("Crear Examen",790,5,120,30,$WS_DLGFRAME) GUICtrlSetFont(-1, 11, 600, 0, "Arial") GUICtrlSetColor(-1, 0x010101) ####################################################################################################### $lttlExamen = GUICtrlCreateLabel("Examen de",285,11,115,29,$SS_CENTER) GUICtrlSetFont(-1, 15, 600, 0, "Arial") GUICtrlSetColor(-1, 0x0000FF) $ttlExamen = GUICtrlCreateInput("Nombre del Examen",400,10,300,30) GUICtrlSetFont(-1, 15, 600, 0, "Arial") GUICtrlSetColor(-1, 0x0000FF) ####################################################################################################### ;Tabs GUICtrlCreateTab(3,30,1015,675) Global $inPregIz = 10, $inPregAr = 60, $inPregAnc = 600, $inPregAlt = 20 Global $inRespIz = 10, $inRespAr = 85, $inRespAnc = 1000, $inRespAlt = 20 $pic = GuiCtrlCreatePic(@ScriptDir&"\MuroMLV.bmp",6,54,1006,643) GUICtrlSetState($pic,$GUI_DISABLE) GUICtrlCreateTabItem("PAGINA 1") ####################################################################################################### ;Labels $inPreg[0] = GUICtrlCreateInput("Pregunta No 1",$inPregIz,$inPregAr,$inPregAnc,$inPregAlt) $inResp[0] = GUICtrlCreateInput("Respuesta No 1",$inRespIz,$inPregAr+25,$inRespAnc,$inRespAlt) $inPreg[1] = GUICtrlCreateInput("Pregunta No 2",$inPregIz,$inPregAr+65,$inPregAnc,$inPregAlt) $inResp[1] = GUICtrlCreateInput("Respuesta No 2",$inRespIz,$inPregAr+65+25,$inRespAnc,$inRespAlt) $inPreg[2] = GUICtrlCreateInput("Pregunta No 3",$inPregIz,$inPregAr+130,$inPregAnc,$inPregAlt) $inResp[2] = GUICtrlCreateInput("Respuesta No 3",$inRespIz,$inPregAr+130+25,$inRespAnc,$inRespAlt) $inPreg[3] = GUICtrlCreateInput("Pregunta No 4",$inPregIz,$inPregAr+195,$inPregAnc,$inPregAlt) $inResp[3] = GUICtrlCreateInput("Respuesta No 4",$inRespIz,$inPregAr+195+25,$inRespAnc,$inRespAlt) $inPreg[4] = GUICtrlCreateInput("Pregunta No 5",$inPregIz,$inPregAr+260,$inPregAnc,$inPregAlt) $inResp[4] = GUICtrlCreateInput("Respuesta No 5",$inRespIz,$inPregAr+260+25,$inRespAnc,$inRespAlt) $inPreg[5] = GUICtrlCreateInput("Pregunta No 6",$inPregIz,$inPregAr+325,$inPregAnc,$inPregAlt) $inResp[5] = GUICtrlCreateInput("Respuesta No 6",$inRespIz,$inPregAr+325+25,$inRespAnc,$inRespAlt) $inPreg[6] = GUICtrlCreateInput("Pregunta No 7",$inPregIz,$inPregAr+390,$inPregAnc,$inPregAlt) $inResp[6] = GUICtrlCreateInput("Respuesta No 7",$inRespIz,$inPregAr+390+25,$inRespAnc,$inRespAlt) $inPreg[7] = GUICtrlCreateInput("Pregunta No 8",$inPregIz,$inPregAr+455,$inPregAnc,$inPregAlt) $inResp[7] = GUICtrlCreateInput("Respuesta No 8",$inRespIz,$inPregAr+455+25,$inRespAnc,$inRespAlt) $inPreg[8] = GUICtrlCreateInput("Pregunta No 9",$inPregIz,$inPregAr+520,$inPregAnc,$inPregAlt) $inResp[8] = GUICtrlCreateInput("Respuesta No 9",$inRespIz,$inPregAr+520+25,$inRespAnc,$inRespAlt) $inPreg[9] = GUICtrlCreateInput("Pregunta No 10",$inPregIz,$inPregAr+580,$inPregAnc,$inPregAlt) $inResp[9] = GUICtrlCreateInput("Respuesta No 10",$inRespIz,$inPregAr+580+25,$inRespAnc,$inRespAlt) ####################################################################################################### GUICtrlCreateTabItem("PAGINA 2") ;Labels $inPreg[10] = GUICtrlCreateInput("Pregunta No 11",$inPregIz,$inPregAr,$inPregAnc,$inPregAlt) $inResp[10] = GUICtrlCreateInput("Respuesta No 11",$inRespIz,$inPregAr+25,$inRespAnc,$inRespAlt) $inPreg[11] = GUICtrlCreateInput("Pregunta No 12",$inPregIz,$inPregAr+65,$inPregAnc,$inPregAlt) $inResp[11] = GUICtrlCreateInput("Respuesta No 12",$inRespIz,$inPregAr+65+25,$inRespAnc,$inRespAlt) $inPreg[12] = GUICtrlCreateInput("Pregunta No 13",$inPregIz,$inPregAr+130,$inPregAnc,$inPregAlt) $inResp[12] = GUICtrlCreateInput("Respuesta No 13",$inRespIz,$inPregAr+130+25,$inRespAnc,$inRespAlt) $inPreg[13] = GUICtrlCreateInput("Pregunta No 14",$inPregIz,$inPregAr+195,$inPregAnc,$inPregAlt) $inResp[13] = GUICtrlCreateInput("Respuesta No 14",$inRespIz,$inPregAr+195+25,$inRespAnc,$inRespAlt) $inPreg[14] = GUICtrlCreateInput("Pregunta No 15",$inPregIz,$inPregAr+260,$inPregAnc,$inPregAlt) $inResp[14] = GUICtrlCreateInput("Respuesta No 15",$inRespIz,$inPregAr+260+25,$inRespAnc,$inRespAlt) $inPreg[15] = GUICtrlCreateInput("Pregunta No 16",$inPregIz,$inPregAr+325,$inPregAnc,$inPregAlt) $inResp[15] = GUICtrlCreateInput("Respuesta No 16",$inRespIz,$inPregAr+325+25,$inRespAnc,$inRespAlt) $inPreg[16] = GUICtrlCreateInput("Pregunta No 17",$inPregIz,$inPregAr+390,$inPregAnc,$inPregAlt) $inResp[16] = GUICtrlCreateInput("Respuesta No 17",$inRespIz,$inPregAr+390+25,$inRespAnc,$inRespAlt) $inPreg[17] = GUICtrlCreateInput("Pregunta No 18",$inPregIz,$inPregAr+455,$inPregAnc,$inPregAlt) $inResp[17] = GUICtrlCreateInput("Respuesta No 18",$inRespIz,$inPregAr+455+25,$inRespAnc,$inRespAlt) $inPreg[18] = GUICtrlCreateInput("Pregunta No 19",$inPregIz,$inPregAr+520,$inPregAnc,$inPregAlt) $inResp[18] = GUICtrlCreateInput("Respuesta No 19",$inRespIz,$inPregAr+520+25,$inRespAnc,$inRespAlt) $inPreg[19] = GUICtrlCreateInput("Pregunta No 20",$inPregIz,$inPregAr+580,$inPregAnc,$inPregAlt) $inResp[19] = GUICtrlCreateInput("Respuesta No 20",$inRespIz,$inPregAr+580+25,$inRespAnc,$inRespAlt) ####################################################################################################### GUICtrlCreateTabItem("PAGINA 3") ;Labels $inPreg[20] = GUICtrlCreateInput("Pregunta No 21",$inPregIz,$inPregAr,$inPregAnc,$inPregAlt) $inResp[20] = GUICtrlCreateInput("Respuesta No 21",$inRespIz,$inPregAr+25,$inRespAnc,$inRespAlt) $inPreg[21] = GUICtrlCreateInput("Pregunta No 22",$inPregIz,$inPregAr+65,$inPregAnc,$inPregAlt) $inResp[21] = GUICtrlCreateInput("Respuesta No 22",$inRespIz,$inPregAr+65+25,$inRespAnc,$inRespAlt) $inPreg[22] = GUICtrlCreateInput("Pregunta No 23",$inPregIz,$inPregAr+130,$inPregAnc,$inPregAlt) $inResp[22] = GUICtrlCreateInput("Respuesta No 23",$inRespIz,$inPregAr+130+25,$inRespAnc,$inRespAlt) $inPreg[23] = GUICtrlCreateInput("Pregunta No 24",$inPregIz,$inPregAr+195,$inPregAnc,$inPregAlt) $inResp[23] = GUICtrlCreateInput("Respuesta No 24",$inRespIz,$inPregAr+195+25,$inRespAnc,$inRespAlt) $inPreg[24] = GUICtrlCreateInput("Pregunta No 25",$inPregIz,$inPregAr+260,$inPregAnc,$inPregAlt) $inResp[24] = GUICtrlCreateInput("Respuesta No 25",$inRespIz,$inPregAr+260+25,$inRespAnc,$inRespAlt) $inPreg[25] = GUICtrlCreateInput("Pregunta No 26",$inPregIz,$inPregAr+325,$inPregAnc,$inPregAlt) $inResp[25] = GUICtrlCreateInput("Respuesta No 26",$inRespIz,$inPregAr+325+25,$inRespAnc,$inRespAlt) $inPreg[26] = GUICtrlCreateInput("Pregunta No 27",$inPregIz,$inPregAr+390,$inPregAnc,$inPregAlt) $inResp[26] = GUICtrlCreateInput("Respuesta No 27",$inRespIz,$inPregAr+390+25,$inRespAnc,$inRespAlt) $inPreg[27] = GUICtrlCreateInput("Pregunta No 28",$inPregIz,$inPregAr+455,$inPregAnc,$inPregAlt) $inResp[27] = GUICtrlCreateInput("Respuesta No 28",$inRespIz,$inPregAr+455+25,$inRespAnc,$inRespAlt) $inPreg[28] = GUICtrlCreateInput("Pregunta No 29",$inPregIz,$inPregAr+520,$inPregAnc,$inPregAlt) $inResp[28] = GUICtrlCreateInput("Respuesta No 29",$inRespIz,$inPregAr+520+25,$inRespAnc,$inRespAlt) $inPreg[29] = GUICtrlCreateInput("Pregunta No 30",$inPregIz,$inPregAr+580,$inPregAnc,$inPregAlt) $inResp[29] = GUICtrlCreateInput("Respuesta No 30",$inRespIz,$inPregAr+580+25,$inRespAnc,$inRespAlt) ####################################################################################################### GUISetState(@SW_SHOW) While 1 $nMsg = GUIGetMsg() Switch $nMsg Case $btnLst _leer() _escribir() Case $btnSlr ExitLoop Case $GUI_EVENT_CLOSE ExitLoop EndSwitch WEnd Func _leer() $leerTtl = GuiCtrlRead($ttlExamen,1) $leerPreg[0] = GuiCtrlRead($inPreg[0],1) $leerResp[0] = GuiCtrlRead($inResp[0],1) $leerPreg[1] = GuiCtrlRead($inPreg[1],1) $leerResp[1] = GuiCtrlRead($inResp[1],1) $leerPreg[2] = GuiCtrlRead($inPreg[2],1) $leerResp[2] = GuiCtrlRead($inResp[2],1) $leerPreg[3] = GuiCtrlRead($inPreg[3],1) $leerResp[3] = GuiCtrlRead($inResp[3],1) $leerPreg[4] = GuiCtrlRead($inPreg[4],1) $leerResp[4] = GuiCtrlRead($inResp[4],1) $leerPreg[5] = GuiCtrlRead($inPreg[5],1) $leerResp[5] = GuiCtrlRead($inResp[5],1) $leerPreg[6] = GuiCtrlRead($inPreg[6],1) $leerResp[6] = GuiCtrlRead($inResp[6],1) $leerPreg[7] = GuiCtrlRead($inPreg[7],1) $leerResp[7] = GuiCtrlRead($inResp[7],1) $leerPreg[8] = GuiCtrlRead($inPreg[8],1) $leerResp[8] = GuiCtrlRead($inResp[8],1) $leerPreg[9] = GuiCtrlRead($inPreg[9],1) $leerResp[9] = GuiCtrlRead($inResp[9],1) $leerPreg[10] = GuiCtrlRead($inPreg[10],1) $leerResp[10] = GuiCtrlRead($inResp[10],1) $leerPreg[11] = GuiCtrlRead($inPreg[11],1) $leerResp[11] = GuiCtrlRead($inResp[11],1) $leerPreg[12] = GuiCtrlRead($inPreg[12],1) $leerResp[12] = GuiCtrlRead($inResp[12],1) $leerPreg[13] = GuiCtrlRead($inPreg[13],1) $leerResp[13] = GuiCtrlRead($inResp[13],1) $leerPreg[14] = GuiCtrlRead($inPreg[14],1) $leerResp[14] = GuiCtrlRead($inResp[14],1) $leerPreg[15] = GuiCtrlRead($inPreg[15],1) $leerResp[15] = GuiCtrlRead($inResp[15],1) $leerPreg[16] = GuiCtrlRead($inPreg[16],1) $leerResp[16] = GuiCtrlRead($inResp[16],1) $leerPreg[17] = GuiCtrlRead($inPreg[17],1) $leerResp[17] = GuiCtrlRead($inResp[17],1) $leerPreg[18] = GuiCtrlRead($inPreg[18],1) $leerResp[18] = GuiCtrlRead($inResp[18],1) $leerPreg[19] = GuiCtrlRead($inPreg[19],1) $leerResp[19] = GuiCtrlRead($inResp[19],1) $leerPreg[20] = GuiCtrlRead($inPreg[20],1) $leerResp[20] = GuiCtrlRead($inResp[20],1) $leerPreg[21] = GuiCtrlRead($inPreg[21],1) $leerResp[21] = GuiCtrlRead($inResp[21],1) $leerPreg[22] = GuiCtrlRead($inPreg[22],1) $leerResp[22] = GuiCtrlRead($inResp[22],1) $leerPreg[23] = GuiCtrlRead($inPreg[23],1) $leerResp[23] = GuiCtrlRead($inResp[23],1) $leerPreg[24] = GuiCtrlRead($inPreg[24],1) $leerResp[24] = GuiCtrlRead($inResp[24],1) $leerPreg[25] = GuiCtrlRead($inPreg[25],1) $leerResp[25] = GuiCtrlRead($inResp[25],1) $leerPreg[26] = GuiCtrlRead($inPreg[26],1) $leerResp[26] = GuiCtrlRead($inResp[26],1) $leerPreg[27] = GuiCtrlRead($inPreg[27],1) $leerResp[27] = GuiCtrlRead($inResp[27],1) $leerPreg[28] = GuiCtrlRead($inPreg[28],1) $leerResp[28] = GuiCtrlRead($inResp[28],1) $leerPreg[29] = GuiCtrlRead($inPreg[29],1) $leerResp[29] = GuiCtrlRead($inResp[29],1) EndFunc Func _escribir() IniWrite(@ScriptDir&"\Examen de "&$leerTtl&".ini","Preguntas", "Pregunta No 1", $leerPreg[0]) IniWrite(@ScriptDir&"\Examen de "&$leerTtl&".ini","Respuestas", "Respuesta No 1", $leerResp[0]) IniWrite(@ScriptDir&"\Examen de "&$leerTtl&".ini","Preguntas", "Pregunta No 2", $leerPreg[1]) IniWrite(@ScriptDir&"\Examen de "&$leerTtl&".ini","Respuestas", "Respuesta No 2", $leerResp[1]) IniWrite(@ScriptDir&"\Examen de "&$leerTtl&".ini","Preguntas", "Pregunta No 3", $leerPreg[2]) IniWrite(@ScriptDir&"\Examen de "&$leerTtl&".ini","Respuestas", "Respuesta No 3", $leerResp[2]) IniWrite(@ScriptDir&"\Examen de "&$leerTtl&".ini","Preguntas", "Pregunta No 4", $leerPreg[3]) IniWrite(@ScriptDir&"\Examen de "&$leerTtl&".ini","Respuestas", "Respuesta No 4", $leerResp[3]) IniWrite(@ScriptDir&"\Examen de "&$leerTtl&".ini","Preguntas", "Pregunta No 5", $leerPreg[4]) IniWrite(@ScriptDir&"\Examen de "&$leerTtl&".ini","Respuestas", "Respuesta No 5", $leerResp[4]) IniWrite(@ScriptDir&"\Examen de "&$leerTtl&".ini","Preguntas", "Pregunta No 6", $leerPreg[5]) IniWrite(@ScriptDir&"\Examen de "&$leerTtl&".ini","Respuestas", "Respuesta No 6", $leerResp[5]) IniWrite(@ScriptDir&"\Examen de "&$leerTtl&".ini","Preguntas", "Pregunta No 7", $leerPreg[6]) IniWrite(@ScriptDir&"\Examen de "&$leerTtl&".ini","Respuestas", "Respuesta No 7", $leerResp[6]) IniWrite(@ScriptDir&"\Examen de "&$leerTtl&".ini","Preguntas", "Pregunta No 8", $leerPreg[7]) IniWrite(@ScriptDir&"\Examen de "&$leerTtl&".ini","Respuestas", "Respuesta No 8", $leerResp[7]) IniWrite(@ScriptDir&"\Examen de "&$leerTtl&".ini","Preguntas", "Pregunta No 9", $leerPreg[8]) IniWrite(@ScriptDir&"\Examen de "&$leerTtl&".ini","Respuestas", "Respuesta No 9", $leerResp[8]) IniWrite(@ScriptDir&"\Examen de "&$leerTtl&".ini","Preguntas", "Pregunta No 10", $leerPreg[9]) IniWrite(@ScriptDir&"\Examen de "&$leerTtl&".ini","Respuestas", "Respuesta No 10", $leerResp[9]) IniWrite(@ScriptDir&"\Examen de "&$leerTtl&".ini","Preguntas", "Pregunta No 11", $leerPreg[10]) IniWrite(@ScriptDir&"\Examen de "&$leerTtl&".ini","Respuestas", "Respuesta No 11", $leerResp[10]) IniWrite(@ScriptDir&"\Examen de "&$leerTtl&".ini","Preguntas", "Pregunta No 12", $leerPreg[11]) IniWrite(@ScriptDir&"\Examen de "&$leerTtl&".ini","Respuestas", "Respuesta No 12", $leerResp[11]) IniWrite(@ScriptDir&"\Examen de "&$leerTtl&".ini","Preguntas", "Pregunta No 13", $leerPreg[12]) IniWrite(@ScriptDir&"\Examen de "&$leerTtl&".ini","Respuestas", "Respuesta No 13", $leerResp[12]) IniWrite(@ScriptDir&"\Examen de "&$leerTtl&".ini","Preguntas", "Pregunta No 14", $leerPreg[13]) IniWrite(@ScriptDir&"\Examen de "&$leerTtl&".ini","Respuestas", "Respuesta No 14", $leerResp[13]) IniWrite(@ScriptDir&"\Examen de "&$leerTtl&".ini","Preguntas", "Pregunta No 15", $leerPreg[14]) IniWrite(@ScriptDir&"\Examen de "&$leerTtl&".ini","Respuestas", "Respuesta No 15", $leerResp[14]) IniWrite(@ScriptDir&"\Examen de "&$leerTtl&".ini","Preguntas", "Pregunta No 16", $leerPreg[15]) IniWrite(@ScriptDir&"\Examen de "&$leerTtl&".ini","Respuestas", "Respuesta No 16", $leerResp[15]) IniWrite(@ScriptDir&"\Examen de "&$leerTtl&".ini","Preguntas", "Pregunta No 17", $leerPreg[16]) IniWrite(@ScriptDir&"\Examen de "&$leerTtl&".ini","Respuestas", "Respuesta No 17", $leerResp[16]) IniWrite(@ScriptDir&"\Examen de "&$leerTtl&".ini","Preguntas", "Pregunta No 18", $leerPreg[17]) IniWrite(@ScriptDir&"\Examen de "&$leerTtl&".ini","Respuestas", "Respuesta No 18", $leerResp[17]) IniWrite(@ScriptDir&"\Examen de "&$leerTtl&".ini","Preguntas", "Pregunta No 19", $leerPreg[18]) IniWrite(@ScriptDir&"\Examen de "&$leerTtl&".ini","Respuestas", "Respuesta No 19", $leerResp[18]) IniWrite(@ScriptDir&"\Examen de "&$leerTtl&".ini","Preguntas", "Pregunta No 20", $leerPreg[19]) IniWrite(@ScriptDir&"\Examen de "&$leerTtl&".ini","Respuestas", "Respuesta No 20", $leerResp[19]) IniWrite(@ScriptDir&"\Examen de "&$leerTtl&".ini","Preguntas", "Pregunta No 21", $leerPreg[20]) IniWrite(@ScriptDir&"\Examen de "&$leerTtl&".ini","Respuestas", "Respuesta No 21", $leerResp[20]) IniWrite(@ScriptDir&"\Examen de "&$leerTtl&".ini","Preguntas", "Pregunta No 22", $leerPreg[21]) IniWrite(@ScriptDir&"\Examen de "&$leerTtl&".ini","Respuestas", "Respuesta No 22", $leerResp[21]) IniWrite(@ScriptDir&"\Examen de "&$leerTtl&".ini","Preguntas", "Pregunta No 23", $leerPreg[22]) IniWrite(@ScriptDir&"\Examen de "&$leerTtl&".ini","Respuestas", "Respuesta No 23", $leerResp[22]) IniWrite(@ScriptDir&"\Examen de "&$leerTtl&".ini","Preguntas", "Pregunta No 24", $leerPreg[23]) IniWrite(@ScriptDir&"\Examen de "&$leerTtl&".ini","Respuestas", "Respuesta No 24", $leerResp[23]) IniWrite(@ScriptDir&"\Examen de "&$leerTtl&".ini","Preguntas", "Pregunta No 25", $leerPreg[24]) IniWrite(@ScriptDir&"\Examen de "&$leerTtl&".ini","Respuestas", "Respuesta No 25", $leerResp[24]) IniWrite(@ScriptDir&"\Examen de "&$leerTtl&".ini","Preguntas", "Pregunta No 26", $leerPreg[25]) IniWrite(@ScriptDir&"\Examen de "&$leerTtl&".ini","Respuestas", "Respuesta No 26", $leerResp[25]) IniWrite(@ScriptDir&"\Examen de "&$leerTtl&".ini","Preguntas", "Pregunta No 27", $leerPreg[26]) IniWrite(@ScriptDir&"\Examen de "&$leerTtl&".ini","Respuestas", "Respuesta No 27", $leerResp[26]) IniWrite(@ScriptDir&"\Examen de "&$leerTtl&".ini","Preguntas", "Pregunta No 28", $leerPreg[27]) IniWrite(@ScriptDir&"\Examen de "&$leerTtl&".ini","Respuestas", "Respuesta No 28", $leerResp[27]) IniWrite(@ScriptDir&"\Examen de "&$leerTtl&".ini","Preguntas", "Pregunta No 29", $leerPreg[28]) IniWrite(@ScriptDir&"\Examen de "&$leerTtl&".ini","Respuestas", "Respuesta No 29", $leerResp[28]) IniWrite(@ScriptDir&"\Examen de "&$leerTtl&".ini","Preguntas", "Pregunta No 30", $leerPreg[29]&@CRLF) IniWrite(@ScriptDir&"\Examen de "&$leerTtl&".ini","Respuestas", "Respuesta No 30", $leerResp[29]) EndFunc