#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_Icon=Examen.ico
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <StaticConstants.au3>
#include <File.au3>
#include <Array.au3>
#include <UpDownConstants.au3>
#include <EditConstants.au3>
;#include <WorD).au3>
##############################################################################################################
;Declaraciones
Global $preg[30], $resp[30], $resul[30], $letra[30], $txt[30], $ttlpreg[30], $res[30][4], $opc[30][4], $Arreglo22
##############################################################################################################
_Seleccionar()

##############################################################################################################
GUICreate($Arreglo22,1015,705,1,1)
GUISetBkColor(0xBDE0EF)
GUICtrlSetDefColor(0x000000)
$lTitulo = GUICtrlCreateLabel($Arreglo22,350,5,400,25,$SS_CENTER)
GUICtrlSetFont(-1, 18, 600, 0, "Arial")
GUICtrlSetColor(-1, 0x0000FF)
##############################################################################################################
Global $aviso, $nombre, $fecha, $titulo, $horario, $ttlselec, $lselec, $lttlSelec, $clrRd = "0xA1CAE0"
Global $res, $contar, $corr = "Correcto", $inco = "Incorrecto", $ltitulo, $contar = 0, $file
##############################################################################################################
Global $grupIzq = 5, $grup1Ar = 100, $grupLrg = 335, $grupAlt = 150
Global $radIzq =12, $radAr = 125, $radLrg = 325, $radAlt = 30
##############################################################################################################
;Botones

;$btnSelec = GUICtrlCreateButton("Seleccionar Examen",830,25,180,30)
;GUICtrlSetFont(-1, 12, 600, 0, "Arial")
;GUICtrlSetColor(-1, 0x006600)

$btnIngrestDat = GUICtrlCreateButton("Ingresar Datos",830,5,180,30)
GUICtrlSetFont(-1, 12, 600, 0, "Arial")
GUICtrlSetColor(-1, 0x006600)
;GUICtrlSetState($btnIngrestDat,$GUI_HIDE)

$btnComExa = GUICtrlCreateButton("Comenzar el Examen",830,5,180,30)
GUICtrlSetFont(-1, 12, 600, 0, "Arial")
GUICtrlSetColor(-1, 0x006600)
GUICtrlSetState($btnComExa,$GUI_HIDE)

$btnRevisar = GUICtrlCreateButton("Revisar el Examen",830,5,180,30)
GUICtrlSetFont(-1, 12, 600, 0, "Arial")
GUICtrlSetColor(-1, 0x006600)
GUICtrlSetState($btnRevisar,$GUI_HIDE)

$btnslr = GUICtrlCreateButton("Salir",830,40,180,30)
GUICtrlSetFont(-1, 12, 600, 0, "Arial")
GUICtrlSetColor(-1, 0x0000FF)
##############################################################################################################
;Informaciones

;$lSelec = GUICtrlCreateLabel("Haga clic en el botón [ Seleccionar Examen ] y seleccione el examen que llenara",200,70,600,25)
;GUICtrlSetFont(-1, 11, 600, 0, "Arial")
;GUICtrlSetColor(-1, 0xFF0000)
;GUICtrlSetState($lSelec,$GUI_HIDE)

$lIngresDat = GUICtrlCreateLabel("Haga clic en el boton [ Ingresar Datos ] e ingrese sus datos",250,76,470,20,$SS_CENTER)
GUICtrlSetFont(-1, 12, 600, 0, "Arial")
GUICtrlSetColor(-1, 0x0000FF)
;GUICtrlSetState($lIngresDat,$GUI_HIDE)

$lComExa = GUICtrlCreateLabel("Haga clic en el botón [ COMENZAR EXAMEN ]",300,76,500,20,$SS_CENTER)
GUICtrlSetFont(-1, 12, 600, 0, "Arial")
GUICtrlSetColor(-1, 0x0000FF)
GUICtrlSetState($lComExa,$GUI_HIDE)

$lselecComEx = GUICtrlCreateLabel("Llene los datos y haga clic en el boton [ COMENZAR EXAMEN ]",250,76,510,20,$SS_CENTER)
GUICtrlSetFont(-1, 12, 600, 0, "Arial")
GUICtrlSetColor(-1, 0x0000FF)
GUICtrlSetState($lselecComEx,$GUI_HIDE)

$lttlSelec = GUICtrlCreateLabel("Seleccione las respuestas correctas y luego haga clic en el botón [ REVISAR EL EXAMEN ]",210,76,630,18,$SS_CENTER)
GUICtrlSetFont(-1, 10, 600, 0, "Arial")
GUICtrlSetColor(-1, 0x0000FF)
GUICtrlSetState($lttlSelec,$GUI_HIDE)

$lCompare = GUICtrlCreateLabel("Las correctas estan activadas y las que usted selecciono desactivadas",230,76,485,18,$SS_CENTER)
GUICtrlSetFont(-1, 10, 600, 0, "Arial")
GUICtrlSetColor(-1, 0x0000FF)
GUICtrlSetState($lCompare,$GUI_HIDE)

##############################################################################################################
;Area de Datos
$lNombre = GUICtrlCreateLabel("Nombre: ",10,45,65,25)
GUICtrlSetFont(-1, 12, 600, 0, "Arial")
GUICtrlSetColor(-1, 0x0000FF)

$inNombre = GUICtrlCreateInput("Ingrese aqui su Nombre",80,45,200,20)
GUICtrlSetState($inNombre,$GUI_DISABLE)

$lFecha = GUICtrlCreateLabel("Fecha: ",290,45,55,25)
GUICtrlSetFont(-1, 12, 600, 0, "Arial")
GUICtrlSetColor(-1, 0x0000FF)

$fecha = @MDAY
$mes = @MON
$ano = @YEAR

$InFecha = GUICtrlCreateInput($fecha&"/"&$mes&"/"&$ano,348,45,80,20)
GUICtrlSetState($InFecha,$GUI_DISABLE)

$dia = GUICtrlCreateCombo("",710,45,100,20)
GUICtrlSetData(-1, "Martes P.M.|Miércoles P.M.|Jueves P.M.|Viernes P.M.|Sábado A).M.|Sábado P.M.|Domingo A).M.|Domingo P.M.", "Martes P.M.")
GUICtrlSetState($dia,$GUI_DISABLE)
;$lselec = GUICtrlCreateLabel("Seleccione la respuesta correcta",370,110,350,25)

GUICtrlCreateGroup("Nivel",435,32,270,35)
GUICtrlSetColor(-1, 0x00FF00)
$nivel1 = GUICtrlCreateRadio("1er Nivel ",440,45,60,20)
$nivel2 = GUICtrlCreateRadio("2do Nivel ",505,45,62,20)
$nivel3 = GUICtrlCreateRadio("3er Nivel ",575,45,60,20)
$nivel4 = GUICtrlCreateRadio("4to Nivel ",640,45,60,20)
GUICtrlSetState($nivel1,$GUI_CHECKED)
GUICtrlSetState($nivel1,$GUI_DISABLE)
GUICtrlSetState($nivel2,$GUI_DISABLE)
GUICtrlSetState($nivel3,$GUI_DISABLE)
GUICtrlSetState($nivel4,$GUI_DISABLE)

##############################################################################################################
;Preguntas y Respuestas
$preg[0] = IniRead(@ScriptDir&"\"&$Arreglo22&".ini","Preguntas","Pregunta No 1","")
$resp[0] = IniRead(@ScriptDir&"\"&$Arreglo22&".ini","Respuestas","Respuesta No 1","")
$preg[1] = IniRead(@ScriptDir&"\"&$Arreglo22&".ini","Preguntas","Pregunta No 2","")
$resp[1] = IniRead(@ScriptDir&"\"&$Arreglo22&".ini","Respuestas","Respuesta No 2","")
$preg[2] = IniRead(@ScriptDir&"\"&$Arreglo22&".ini","Preguntas","Pregunta No 3","")
$resp[2] = IniRead(@ScriptDir&"\"&$Arreglo22&".ini","Respuestas","Respuesta No 3","")
$preg[3] = IniRead(@ScriptDir&"\"&$Arreglo22&".ini","Preguntas","Pregunta No 4","")
$resp[3] = IniRead(@ScriptDir&"\"&$Arreglo22&".ini","Respuestas","Respuesta No 4","")
$preg[4] = IniRead(@ScriptDir&"\"&$Arreglo22&".ini","Preguntas","Pregunta No 5","")
$resp[4] = IniRead(@ScriptDir&"\"&$Arreglo22&".ini","Respuestas","Respuesta No 5","")
$preg[5] = IniRead(@ScriptDir&"\"&$Arreglo22&".ini","Preguntas","Pregunta No 6","")
$resp[5] = IniRead(@ScriptDir&"\"&$Arreglo22&".ini","Respuestas","Respuesta No 6","")
$preg[6] = IniRead(@ScriptDir&"\"&$Arreglo22&".ini","Preguntas","Pregunta No 7","")
$resp[6] = IniRead(@ScriptDir&"\"&$Arreglo22&".ini","Respuestas","Respuesta No 7","")
$preg[7] = IniRead(@ScriptDir&"\"&$Arreglo22&".ini","Preguntas","Pregunta No 8","")
$resp[7] = IniRead(@ScriptDir&"\"&$Arreglo22&".ini","Respuestas","Respuesta No 8","")
$preg[8] = IniRead(@ScriptDir&"\"&$Arreglo22&".ini","Preguntas","Pregunta No 9","")
$resp[8] = IniRead(@ScriptDir&"\"&$Arreglo22&".ini","Respuestas","Respuesta No 9","")
$preg[9] = IniRead(@ScriptDir&"\"&$Arreglo22&".ini","Preguntas","Pregunta No 10","")
$resp[9] = IniRead(@ScriptDir&"\"&$Arreglo22&".ini","Respuestas","Respuesta No 10","")
$preg[10] = IniRead(@ScriptDir&"\"&$Arreglo22&".ini","Preguntas","Pregunta No 11","")
$resp[10] = IniRead(@ScriptDir&"\"&$Arreglo22&".ini","Respuestas","Respuesta No 11","")
$preg[11] = IniRead(@ScriptDir&"\"&$Arreglo22&".ini","Preguntas","Pregunta No 12","")
$resp[11] = IniRead(@ScriptDir&"\"&$Arreglo22&".ini","Respuestas","Respuesta No 12","")
$preg[12] = IniRead(@ScriptDir&"\"&$Arreglo22&".ini","Preguntas","Pregunta No 13","")
$resp[12] = IniRead(@ScriptDir&"\"&$Arreglo22&".ini","Respuestas","Respuesta No 13","")
$preg[13] = IniRead(@ScriptDir&"\"&$Arreglo22&".ini","Preguntas","Pregunta No 14","")
$resp[13] = IniRead(@ScriptDir&"\"&$Arreglo22&".ini","Respuestas","Respuesta No 14","")
$preg[14] = IniRead(@ScriptDir&"\"&$Arreglo22&".ini","Preguntas","Pregunta No 15","")
$resp[14] = IniRead(@ScriptDir&"\"&$Arreglo22&".ini","Respuestas","Respuesta No 15","")
$preg[15] = IniRead(@ScriptDir&"\"&$Arreglo22&".ini","Preguntas","Pregunta No 16","")
$resp[15] = IniRead(@ScriptDir&"\"&$Arreglo22&".ini","Respuestas","Respuesta No 16","")
$preg[16] = IniRead(@ScriptDir&"\"&$Arreglo22&".ini","Preguntas","Pregunta No 17","")
$resp[16] = IniRead(@ScriptDir&"\"&$Arreglo22&".ini","Respuestas","Respuesta No 17","")
$preg[17] = IniRead(@ScriptDir&"\"&$Arreglo22&".ini","Preguntas","Pregunta No 18","")
$resp[17] = IniRead(@ScriptDir&"\"&$Arreglo22&".ini","Respuestas","Respuesta No 18","")
$preg[18] = IniRead(@ScriptDir&"\"&$Arreglo22&".ini","Preguntas","Pregunta No 19","")
$resp[18] = IniRead(@ScriptDir&"\"&$Arreglo22&".ini","Respuestas","Respuesta No 19","")
$preg[19] = IniRead(@ScriptDir&"\"&$Arreglo22&".ini","Preguntas","Pregunta No 20","")
$resp[19] = IniRead(@ScriptDir&"\"&$Arreglo22&".ini","Respuestas","Respuesta No 20","")
$preg[20] = IniRead(@ScriptDir&"\"&$Arreglo22&".ini","Preguntas","Pregunta No 21","")
$resp[20] = IniRead(@ScriptDir&"\"&$Arreglo22&".ini","Respuestas","Respuesta No 21","")
$preg[21] = IniRead(@ScriptDir&"\"&$Arreglo22&".ini","Preguntas","Pregunta No 22","")
$resp[21] = IniRead(@ScriptDir&"\"&$Arreglo22&".ini","Respuestas","Respuesta No 22","")
$preg[22] = IniRead(@ScriptDir&"\"&$Arreglo22&".ini","Preguntas","Pregunta No 23","")
$resp[22] = IniRead(@ScriptDir&"\"&$Arreglo22&".ini","Respuestas","Respuesta No 23","")
$preg[23] = IniRead(@ScriptDir&"\"&$Arreglo22&".ini","Preguntas","Pregunta No 24","")
$resp[23] = IniRead(@ScriptDir&"\"&$Arreglo22&".ini","Respuestas","Respuesta No 24","")
$preg[24] = IniRead(@ScriptDir&"\"&$Arreglo22&".ini","Preguntas","Pregunta No 25","")
$resp[24] = IniRead(@ScriptDir&"\"&$Arreglo22&".ini","Respuestas","Respuesta No 25","")
$preg[25] = IniRead(@ScriptDir&"\"&$Arreglo22&".ini","Preguntas","Pregunta No 26","")
$resp[25] = IniRead(@ScriptDir&"\"&$Arreglo22&".ini","Respuestas","Respuesta No 26","")
$preg[26] = IniRead(@ScriptDir&"\"&$Arreglo22&".ini","Preguntas","Pregunta No 27","")
$resp[26] = IniRead(@ScriptDir&"\"&$Arreglo22&".ini","Respuestas","Respuesta No 27","")
$preg[27] = IniRead(@ScriptDir&"\"&$Arreglo22&".ini","Preguntas","Pregunta No 28","")
$resp[27] = IniRead(@ScriptDir&"\"&$Arreglo22&".ini","Respuestas","Respuesta No 28","")
$preg[28] = IniRead(@ScriptDir&"\"&$Arreglo22&".ini","Preguntas","Pregunta No 29","")
$resp[28] = IniRead(@ScriptDir&"\"&$Arreglo22&".ini","Respuestas","Respuesta No 29","")
$preg[29] = IniRead(@ScriptDir&"\"&$Arreglo22&".ini","Preguntas","Pregunta No 30","")
$resp[29] = IniRead(@ScriptDir&"\"&$Arreglo22&".ini","Respuestas","Respuesta No 30","")
##############################################################################################################
GUICtrlCreateTab(1,75,1014,630)

;$pic = GUICtrlCreatePic(@ScriptDir&"\arte abstracto.jpg",8,100,1000,600)
;GUICtrlSetState($pic,$GUI_DISABLE)
GUICtrlSetDefColor(0x000000)
##############################################################################################################
GUICtrlCreateTabItem("PAGINA 1")
;Pregunta 1
$ttlpreg[0] = GUICtrlCreateGroup("1. "&$Preg[0],$grupIzq,$grup1Ar,$grupLrg,$grupAlt)

$opc[0][0] = GUICtrlCreateRadio("A). "&$resp[7],$radIzq,$radAr,$radLrg,$radAlt,$BS_MULTILINE)
GUICtrlSetBkColor(-1,$clrRd)
$opc[0][1] = GUICtrlCreateRadio("B). "&$resp[0],$radIzq,$radAr+30,$radLrg,$radAlt,$BS_MULTILINE)
GUICtrlSetBkColor(-1,$clrRd)
$opc[0][2] = GUICtrlCreateRadio("C). "&$resp[14],$radIzq,$radAr+(30*2),$radLrg,$radAlt,$BS_MULTILINE)
GUICtrlSetBkColor(-1,$clrRd)
$opc[0][3] = GUICtrlCreateRadio("D). "&$resp[21],$radIzq,$radAr+(30*3),$radLrg,$radAlt,$BS_MULTILINE)
GUICtrlSetBkColor(-1,$clrRd)
##############################################################################################################
;Pregunta 2
$ttlpreg[1] = GUICtrlCreateGroup("2. "&$Preg[1],$grupIzq+335,$grup1Ar,$grupLrg,$grupAlt,$WS_DLGFRAME)

$opc[1][0] = GUICtrlCreateRadio("A). "&$resp[28],$radIzq+335,$radAr,$radLrg,$radAlt,$BS_MULTILINE)
GUICtrlSetBkColor(-1,$clrRd)
$opc[1][1] = GUICtrlCreateRadio("B). "&$resp[6],$radIzq+335,$radAr+30,$radLrg,$radAlt,$BS_MULTILINE)
GUICtrlSetBkColor(-1,$clrRd)
$opc[1][2] = GUICtrlCreateRadio("C). "&$resp[13],$radIzq+335,$radAr+(30*2),$radLrg,$radAlt,$BS_MULTILINE)
GUICtrlSetBkColor(-1,$clrRd)
$opc[1][3] = GUICtrlCreateRadio("D). "&$resp[1],$radIzq+335,$radAr+(30*3),$radLrg,$radAlt,$BS_MULTILINE)
GUICtrlSetBkColor(-1,$clrRd)
##############################################################################################################
;Pregunta 3
$ttlpreg[2] = GUICtrlCreateGroup("3. "&$Preg[2],$grupIzq+(335*2),$grup1Ar,$grupLrg,$grupAlt,$WS_DLGFRAME)

$opc[2][0] = GUICtrlCreateRadio("A). "&$resp[20],$radIzq+(335*2),$radAr,$radLrg,$radAlt,$BS_MULTILINE )
GUICtrlSetBkColor(-1,$clrRd)
$opc[2][1] = GUICtrlCreateRadio("B). "&$resp[2],$radIzq+(335*2),$radAr+30,$radLrg,$radAlt,$BS_MULTILINE )
GUICtrlSetBkColor(-1,$clrRd)
$opc[2][2] = GUICtrlCreateRadio("C). "&$resp[27],$radIzq+(335*2),$radAr+(30*2),$radLrg,$radAlt,$BS_MULTILINE )
GUICtrlSetBkColor(-1,$clrRd)
$opc[2][3] = GUICtrlCreateRadio("D). "&$resp[5],$radIzq+(335*2),$radAr+(30*3),$radLrg,$radAlt,$BS_MULTILINE )
GUICtrlSetBkColor(-1,$clrRd)
##############################################################################################################
;Pregunta 4
$ttlpreg[3] = GUICtrlCreateGroup("4. "&$Preg[3],$grupIzq,$grup1Ar+150,$grupLrg,$grupAlt,$WS_DLGFRAME)

$opc[3][0] = GUICtrlCreateRadio("A). "&$resp[12],$radIzq,$radAr+150,$radLrg,$radAlt,$BS_MULTILINE )
GUICtrlSetBkColor(-1,$clrRd)
$opc[3][1] = GUICtrlCreateRadio("B). "&$resp[19],$radIzq,$radAr+30+150,$radLrg,$radAlt,$BS_MULTILINE )
GUICtrlSetBkColor(-1,$clrRd)
$opc[3][2] = GUICtrlCreateRadio("C). "&$resp[3],$radIzq,$radAr+(30*2)+150,$radLrg,$radAlt,$BS_MULTILINE )
GUICtrlSetBkColor(-1,$clrRd)
$opc[3][3] = GUICtrlCreateRadio("D). "&$resp[26],$radIzq,$radAr+(30*3)+150,$radLrg,$radAlt,$BS_MULTILINE )
GUICtrlSetBkColor(-1,$clrRd)
##############################################################################################################
;Pregunta 5
$ttlpreg[4] = GUICtrlCreateGroup("5. "&$Preg[4],$grupIzq+335,$grup1Ar+150,$grupLrg,$grupAlt,$WS_DLGFRAME)

$opc[4][0] = GUICtrlCreateRadio("A). "&$resp[4],$radIzq+335,$radAr+150,$radLrg,$radAlt,$BS_MULTILINE )
GUICtrlSetBkColor(-1,$clrRd)
$opc[4][1] = GUICtrlCreateRadio("B). "&$resp[11],$radIzq+335,$radAr+30+150,$radLrg,$radAlt,$BS_MULTILINE )
GUICtrlSetBkColor(-1,$clrRd)
$opc[4][2] = GUICtrlCreateRadio("C). "&$resp[18],$radIzq+335,$radAr+(30*2)+150,$radLrg,$radAlt,$BS_MULTILINE )
GUICtrlSetBkColor(-1,$clrRd)
$opc[4][3] = GUICtrlCreateRadio("D). "&$resp[25],$radIzq+335,$radAr+(30*3)+150,$radLrg,$radAlt,$BS_MULTILINE )
GUICtrlSetBkColor(-1,$clrRd)
##############################################################################################################
;Pregunta 6
$ttlpreg[5] = GUICtrlCreateGroup("6. "&$Preg[5],$grupIzq+(335*2),$grup1Ar+150,$grupLrg,$grupAlt,$WS_DLGFRAME)

$opc[5][0] = GUICtrlCreateRadio("A). "&$resp[3],$radIzq+(335*2),$radAr+150,$radLrg,$radAlt,$BS_MULTILINE )
GUICtrlSetBkColor(-1,$clrRd)
$opc[5][1] = GUICtrlCreateRadio("B). "&$resp[5],$radIzq+(335*2),$radAr+30+150,$radLrg,$radAlt,$BS_MULTILINE )
GUICtrlSetBkColor(-1,$clrRd)
$opc[5][2] = GUICtrlCreateRadio("C). "&$resp[10],$radIzq+(335*2),$radAr+(30*2)+150,$radLrg,$radAlt,$BS_MULTILINE )
GUICtrlSetBkColor(-1,$clrRd)
$opc[5][3] = GUICtrlCreateRadio("D). "&$resp[17],$radIzq+(335*2),$radAr+(30*3)+150,$radLrg,$radAlt,$BS_MULTILINE )
GUICtrlSetBkColor(-1,$clrRd)
##############################################################################################################
;Pregunta 7
$ttlpreg[6] = GUICtrlCreateGroup("7. "&$Preg[6],$grupIzq,$grup1Ar+(150*2),$grupLrg,$grupAlt,$WS_DLGFRAME)

$opc[6][0] = GUICtrlCreateRadio("A). "&$resp[24],$radIzq,$radAr+(150*2),$radLrg,$radAlt,$BS_MULTILINE )
GUICtrlSetBkColor(-1,$clrRd)
$opc[6][1] = GUICtrlCreateRadio("B). "&$resp[2],$radIzq,$radAr+30+(150*2),$radLrg,$radAlt,$BS_MULTILINE )
GUICtrlSetBkColor(-1,$clrRd)
$opc[6][2] = GUICtrlCreateRadio("C). "&$resp[9],$radIzq,$radAr+(30*2)+(150*2),$radLrg,$radAlt,$BS_MULTILINE )
GUICtrlSetBkColor(-1,$clrRd)
$opc[6][3] = GUICtrlCreateRadio("D). "&$resp[6],$radIzq,$radAr+(30*3)+(150*2),$radLrg,$radAlt,$BS_MULTILINE )
GUICtrlSetBkColor(-1,$clrRd)
##############################################################################################################
;Pregunta 8
$ttlpreg[7] = GUICtrlCreateGroup("8. "&$Preg[7],$grupIzq+335,$grup1Ar+(150*2),$grupLrg,$grupAlt,$WS_DLGFRAME)

$opc[7][0] = GUICtrlCreateRadio("A). "&$resp[16],$radIzq+335,$radAr+(150*2),$radLrg,$radAlt,$BS_MULTILINE )
GUICtrlSetBkColor(-1,$clrRd)
$opc[7][1] = GUICtrlCreateRadio("B). "&$resp[23],$radIzq+335,$radAr+30+(150*2),$radLrg,$radAlt,$BS_MULTILINE )
GUICtrlSetBkColor(-1,$clrRd)
$opc[7][2] = GUICtrlCreateRadio("C). "&$resp[7],$radIzq+335,$radAr+(30*2)+(150*2),$radLrg,$radAlt,$BS_MULTILINE )
GUICtrlSetBkColor(-1,$clrRd)
$opc[7][3] = GUICtrlCreateRadio("D). "&$resp[1],$radIzq+335,$radAr+(30*3)+(150*2),$radLrg,$radAlt,$BS_MULTILINE )
GUICtrlSetBkColor(-1,$clrRd)
##############################################################################################################
;Pregunta 9
$ttlpreg[8] = GUICtrlCreateGroup("9. "&$Preg[8],$grupIzq+(335*2),$grup1Ar+(150*2),$grupLrg,$grupAlt,$WS_DLGFRAME)

$opc[8][0] = GUICtrlCreateRadio("A). "&$resp[8],$radIzq+(335*2),$radAr+(150*2),$radLrg,$radAlt,$BS_MULTILINE )
GUICtrlSetBkColor(-1,$clrRd)
$opc[8][1] = GUICtrlCreateRadio("B). "&$resp[15],$radIzq+(335*2),$radAr+30+(150*2),$radLrg,$radAlt,$BS_MULTILINE )
GUICtrlSetBkColor(-1,$clrRd)
$opc[8][2] = GUICtrlCreateRadio("C). "&$resp[22],$radIzq+(335*2),$radAr+(30*2)+(150*2),$radLrg,$radAlt,$BS_MULTILINE )
GUICtrlSetBkColor(-1,$clrRd)
$opc[8][3] = GUICtrlCreateRadio("D). "&$resp[29],$radIzq+(335*2),$radAr+(30*3)+(150*2),$radLrg,$radAlt,$BS_MULTILINE )
GUICtrlSetBkColor(-1,$clrRd)
##############################################################################################################
;Pregunta 10
$ttlpreg[9] = GUICtrlCreateGroup("10. "&$Preg[9],$grupIzq,$grup1Ar+(150*3),$grupLrg,$grupAlt,$WS_DLGFRAME)

$opc[9][0] = GUICtrlCreateRadio("A). "&$resp[0],$radIzq,$radAr+(150*3),$radLrg,$radAlt,$BS_MULTILINE )
GUICtrlSetBkColor(-1,$clrRd)
$opc[9][1] = GUICtrlCreateRadio("B). "&$resp[7],$radIzq,$radAr+30+(150*3),$radLrg,$radAlt,$BS_MULTILINE )
GUICtrlSetBkColor(-1,$clrRd)
$opc[9][2] = GUICtrlCreateRadio("C). "&$resp[14],$radIzq,$radAr+(30*2)+(150*3),$radLrg,$radAlt,$BS_MULTILINE )
GUICtrlSetBkColor(-1,$clrRd)
$opc[9][3] = GUICtrlCreateRadio("D). "&$resp[9],$radIzq,$radAr+(30*3)+(150*3),$radLrg,$radAlt,$BS_MULTILINE )
GUICtrlSetBkColor(-1,$clrRd)
##############################################################################################################
;Pregunta 11
$ttlpreg[10] = GUICtrlCreateGroup("11. "&$Preg[10],$grupIzq+335,$grup1Ar+(150*3),$grupLrg,$grupAlt,$WS_DLGFRAME)

$opc[10][0] = GUICtrlCreateRadio("A). "&$resp[21],$radIzq+335,$radAr+(150*3),$radLrg,$radAlt,$BS_MULTILINE )
GUICtrlSetBkColor(-1,$clrRd)
$opc[10][1] = GUICtrlCreateRadio("B). "&$resp[28],$radIzq+335,$radAr+30+(150*3),$radLrg,$radAlt,$BS_MULTILINE )
GUICtrlSetBkColor(-1,$clrRd)
$opc[10][2] = GUICtrlCreateRadio("C). "&$resp[10],$radIzq+335,$radAr+(30*2)+(150*3),$radLrg,$radAlt,$BS_MULTILINE )
GUICtrlSetBkColor(-1,$clrRd)
$opc[10][3] = GUICtrlCreateRadio("D). "&$resp[6],$radIzq+335,$radAr+(30*3)+(150*3),$radLrg,$radAlt,$BS_MULTILINE )
GUICtrlSetBkColor(-1,$clrRd)
##############################################################################################################
;Pregunta 12
$ttlpreg[11] = GUICtrlCreateGroup("12. "&$Preg[11],$grupIzq+(335*2),$grup1Ar+(150*3),$grupLrg,$grupAlt,$WS_DLGFRAME)

$opc[11][0] = GUICtrlCreateRadio("A). "&$resp[11],$radIzq+(335*2),$radAr+(150*3),$radLrg,$radAlt,$BS_MULTILINE )
GUICtrlSetBkColor(-1,$clrRd)
$opc[11][1] = GUICtrlCreateRadio("B). "&$resp[13],$radIzq+(335*2),$radAr+30+(150*3),$radLrg,$radAlt,$BS_MULTILINE )
GUICtrlSetBkColor(-1,$clrRd)
$opc[11][2] = GUICtrlCreateRadio("C). "&$resp[20],$radIzq+(335*2),$radAr+(30*2)+(150*3),$radLrg,$radAlt,$BS_MULTILINE )
GUICtrlSetBkColor(-1,$clrRd)
$opc[11][3] = GUICtrlCreateRadio("D). "&$resp[27],$radIzq+(335*2),$radAr+(30*3)+(150*3),$radLrg,$radAlt,$BS_MULTILINE )
GUICtrlSetBkColor(-1,$clrRd)
##############################################################################################################
GUICtrlCreateTabItem("PAGINA 2")

;Pregunta 13
$ttlpreg[12] = GUICtrlCreateGroup("13. "&$Preg[12],$grupIzq,$grup1Ar,$grupLrg,$grupAlt,$WS_DLGFRAME)

$opc[12][0] = GUICtrlCreateRadio("A). "&$resp[5],$radIzq,$radAr,$radLrg,$radAlt,$BS_MULTILINE )
GUICtrlSetBkColor(-1,$clrRd)
$opc[12][1] = GUICtrlCreateRadio("B). "&$resp[12],$radIzq,$radAr+30,$radLrg,$radAlt,$BS_MULTILINE )
GUICtrlSetBkColor(-1,$clrRd)
$opc[12][2] = GUICtrlCreateRadio("C). "&$resp[19],$radIzq,$radAr+(30*2),$radLrg,$radAlt,$BS_MULTILINE )
GUICtrlSetBkColor(-1,$clrRd)
$opc[12][3] = GUICtrlCreateRadio("D). "&$resp[26],$radIzq,$radAr+(30*3),$radLrg,$radAlt,$BS_MULTILINE )
GUICtrlSetBkColor(-1,$clrRd)
##############################################################################################################
;Pregunta 14
$ttlpreg[13] = GUICtrlCreateGroup("14. "&$Preg[13],$grupIzq+335,$grup1Ar,$grupLrg,$grupAlt,$WS_DLGFRAME)

$opc[13][0] = GUICtrlCreateRadio("A). "&$resp[4],$radIzq+335,$radAr,$radLrg,$radAlt,$BS_MULTILINE )
GUICtrlSetBkColor(-1,$clrRd)
$opc[13][1] = GUICtrlCreateRadio("B). "&$resp[13],$radIzq+335,$radAr+30,$radLrg,$radAlt,$BS_MULTILINE )
GUICtrlSetBkColor(-1,$clrRd)
$opc[13][2] = GUICtrlCreateRadio("C). "&$resp[11],$radIzq+335,$radAr+(30*2),$radLrg,$radAlt,$BS_MULTILINE )
GUICtrlSetBkColor(-1,$clrRd)
$opc[13][3] = GUICtrlCreateRadio("D). "&$resp[18],$radIzq+335,$radAr+(30*3),$radLrg,$radAlt,$BS_MULTILINE )
GUICtrlSetBkColor(-1,$clrRd)
##############################################################################################################
;Pregunta 15
$ttlpreg[14] = GUICtrlCreateGroup("15. "&$Preg[14],$grupIzq+(335*2),$grup1Ar,$grupLrg,$grupAlt,$WS_DLGFRAME)

$opc[14][0] = GUICtrlCreateRadio("A). "&$resp[25],$radIzq+(335*2),$radAr,$radLrg,$radAlt,$BS_MULTILINE )
GUICtrlSetBkColor(-1,$clrRd)
$opc[14][1] = GUICtrlCreateRadio("B). "&$resp[3],$radIzq+(335*2),$radAr+30,$radLrg,$radAlt,$BS_MULTILINE )
GUICtrlSetBkColor(-1,$clrRd)
$opc[14][2] = GUICtrlCreateRadio("C). "&$resp[10],$radIzq+(335*2),$radAr+(30*2),$radLrg,$radAlt,$BS_MULTILINE )
GUICtrlSetBkColor(-1,$clrRd)
$opc[14][3] = GUICtrlCreateRadio("D). "&$resp[14],$radIzq+(335*2),$radAr+(30*3),$radLrg,$radAlt,$BS_MULTILINE )
GUICtrlSetBkColor(-1,$clrRd)
##############################################################################################################
;Pregunta 16
$ttlpreg[15] = GUICtrlCreateGroup("16. "&$Preg[15],$grupIzq,$grup1Ar+150,$grupLrg,$grupAlt,$WS_DLGFRAME)

$opc[15][0] = GUICtrlCreateRadio("A). "&$resp[17],$radIzq,$radAr+150,$radLrg,$radAlt,$BS_MULTILINE )
GUICtrlSetBkColor(-1,$clrRd)
$opc[15][1] = GUICtrlCreateRadio("B). "&$resp[24],$radIzq,$radAr+30+150,$radLrg,$radAlt,$BS_MULTILINE )
GUICtrlSetBkColor(-1,$clrRd)
$opc[15][2] = GUICtrlCreateRadio("C). "&$resp[15],$radIzq,$radAr+(30*2)+150,$radLrg,$radAlt,$BS_MULTILINE )
GUICtrlSetBkColor(-1,$clrRd)
$opc[15][3] = GUICtrlCreateRadio("D). "&$resp[2],$radIzq,$radAr+(30*3)+150,$radLrg,$radAlt,$BS_MULTILINE )
GUICtrlSetBkColor(-1,$clrRd)
##############################################################################################################
;Pregunta 17
$ttlpreg[16] = GUICtrlCreateGroup("17. "&$Preg[16],$grupIzq+335,$grup1Ar+150,$grupLrg,$grupAlt,$WS_DLGFRAME)

$opc[16][0] = GUICtrlCreateRadio("A). "&$resp[16],$radIzq+335,$radAr+150,$radLrg,$radAlt,$BS_MULTILINE )
GUICtrlSetBkColor(-1,$clrRd)
$opc[16][1] = GUICtrlCreateRadio("B). "&$resp[9],$radIzq+335,$radAr+30+150,$radLrg,$radAlt,$BS_MULTILINE )
GUICtrlSetBkColor(-1,$clrRd)
$opc[16][2] = GUICtrlCreateRadio("C). "&$resp[16],$radIzq+335,$radAr+(30*2)+150,$radLrg,$radAlt,$BS_MULTILINE )
GUICtrlSetBkColor(-1,$clrRd)
$opc[16][3] = GUICtrlCreateRadio("D). "&$resp[23],$radIzq+335,$radAr+(30*3)+150,$radLrg,$radAlt,$BS_MULTILINE )
GUICtrlSetBkColor(-1,$clrRd)
##############################################################################################################
;Pregunta 18
$ttlpreg[17] = GUICtrlCreateGroup("18. "&$Preg[17],$grupIzq+(335*2),$grup1Ar+150,$grupLrg,$grupAlt,$WS_DLGFRAME)

$opc[17][0] = GUICtrlCreateRadio("A). "&$resp[1],$radIzq+(335*2),$radAr+150,$radLrg,$radAlt,$BS_MULTILINE )
GUICtrlSetBkColor(-1,$clrRd)
$opc[17][1] = GUICtrlCreateRadio("B). "&$resp[8],$radIzq+(335*2),$radAr+30+150,$radLrg,$radAlt,$BS_MULTILINE )
GUICtrlSetBkColor(-1,$clrRd)
$opc[17][2] = GUICtrlCreateRadio("C). "&$resp[17],$radIzq+(335*2),$radAr+(30*2)+150,$radLrg,$radAlt,$BS_MULTILINE )
GUICtrlSetBkColor(-1,$clrRd)
$opc[17][3] = GUICtrlCreateRadio("D). "&$resp[15],$radIzq+(335*2),$radAr+(30*3)+150,$radLrg,$radAlt,$BS_MULTILINE )
GUICtrlSetBkColor(-1,$clrRd)
##############################################################################################################
;Pregunta 19
$ttlpreg[18] = GUICtrlCreateGroup("19. "&$Preg[18],$grupIzq,$grup1Ar+(150*2),$grupLrg,$grupAlt,$WS_DLGFRAME)

$opc[18][0] = GUICtrlCreateRadio("A). "&$resp[22],$radIzq,$radAr+(150*2),$radLrg,$radAlt,$BS_MULTILINE )
GUICtrlSetBkColor(-1,$clrRd)
$opc[18][1] = GUICtrlCreateRadio("B). "&$resp[29],$radIzq,$radAr+30+(150*2),$radLrg,$radAlt,$BS_MULTILINE )
GUICtrlSetBkColor(-1,$clrRd)
$opc[18][2] = GUICtrlCreateRadio("C). "&$resp[7],$radIzq,$radAr+(30*2)+(150*2),$radLrg,$radAlt,$BS_MULTILINE )
GUICtrlSetBkColor(-1,$clrRd)
$opc[18][3] = GUICtrlCreateRadio("D). "&$resp[18],$radIzq,$radAr+(30*3)+(150*2),$radLrg,$radAlt,$BS_MULTILINE )
GUICtrlSetBkColor(-1,$clrRd)
##############################################################################################################
;Pregunta 20
$ttlpreg[19] = GUICtrlCreateGroup("20. "&$Preg[19],$grupIzq+335,$grup1Ar+(150*2),$grupLrg,$grupAlt,$WS_DLGFRAME)

$opc[19][0] = GUICtrlCreateRadio("A). "&$resp[14],$radIzq+335,$radAr+(150*2),$radLrg,$radAlt,$BS_MULTILINE )
GUICtrlSetBkColor(-1,$clrRd)
$opc[19][1] = GUICtrlCreateRadio("B). "&$resp[19],$radIzq+335,$radAr+30+(150*2),$radLrg,$radAlt,$BS_MULTILINE )
GUICtrlSetBkColor(-1,$clrRd)
$opc[19][2] = GUICtrlCreateRadio("C). "&$resp[21],$radIzq+335,$radAr+(30*2)+(150*2),$radLrg,$radAlt,$BS_MULTILINE )
GUICtrlSetBkColor(-1,$clrRd)
$opc[19][3] = GUICtrlCreateRadio("D). "&$resp[28],$radIzq+335,$radAr+(30*3)+(150*2),$radLrg,$radAlt,$BS_MULTILINE )
GUICtrlSetBkColor(-1,$clrRd)
##############################################################################################################
;Pregunta 21
$ttlpreg[20] = GUICtrlCreateGroup("21. "&$Preg[20],$grupIzq+(335*2),$grup1Ar+(150*2),$grupLrg,$grupAlt,$WS_DLGFRAME)

$opc[20][0] = GUICtrlCreateRadio("A). "&$resp[20],$radIzq+(335*2),$radAr+(150*2),$radLrg,$radAlt,$BS_MULTILINE )
GUICtrlSetBkColor(-1,$clrRd)
$opc[20][1] = GUICtrlCreateRadio("B). "&$resp[6],$radIzq+(335*2),$radAr+30+(150*2),$radLrg,$radAlt,$BS_MULTILINE )
GUICtrlSetBkColor(-1,$clrRd)
$opc[20][2] = GUICtrlCreateRadio("C). "&$resp[13],$radIzq+(335*2),$radAr+(30*2)+(150*2),$radLrg,$radAlt,$BS_MULTILINE )
GUICtrlSetBkColor(-1,$clrRd)
$opc[20][3] = GUICtrlCreateRadio("D). "&$resp[20],$radIzq+(335*2),$radAr+(30*3)+(150*2),$radLrg,$radAlt,$BS_MULTILINE )
GUICtrlSetBkColor(-1,$clrRd)
##############################################################################################################
;Pregunta 22
$ttlpreg[21] = GUICtrlCreateGroup("22. "&$Preg[21],$grupIzq,$grup1Ar+(150*3),$grupLrg,$grupAlt,$WS_DLGFRAME)

$opc[21][0] = GUICtrlCreateRadio("A). "&$resp[27],$radIzq,$radAr+(150*3),$radLrg,$radAlt,$BS_MULTILINE )
GUICtrlSetBkColor(-1,$clrRd)
$opc[21][1] = GUICtrlCreateRadio("B). "&$resp[5],$radIzq,$radAr+30+(150*3),$radLrg,$radAlt,$BS_MULTILINE )
GUICtrlSetBkColor(-1,$clrRd)
$opc[21][2] = GUICtrlCreateRadio("C). "&$resp[21],$radIzq,$radAr+(30*2)+(150*3),$radLrg,$radAlt,$BS_MULTILINE )
GUICtrlSetBkColor(-1,$clrRd)
$opc[21][3] = GUICtrlCreateRadio("D). "&$resp[12],$radIzq,$radAr+(30*3)+(150*3),$radLrg,$radAlt,$BS_MULTILINE )
GUICtrlSetBkColor(-1,$clrRd)
##############################################################################################################
;Pregunta 23
$ttlpreg[22] = GUICtrlCreateGroup("23. "&$Preg[22],$grupIzq+335,$grup1Ar+(150*3),$grupLrg,$grupAlt,$WS_DLGFRAME)

$opc[22][0] = GUICtrlCreateRadio("A). "&$resp[22],$radIzq+335,$radAr+(150*3),$radLrg,$radAlt,$BS_MULTILINE )
GUICtrlSetBkColor(-1,$clrRd)
$opc[22][1] = GUICtrlCreateRadio("B). "&$resp[19],$radIzq+335,$radAr+30+(150*3),$radLrg,$radAlt,$BS_MULTILINE )
GUICtrlSetBkColor(-1,$clrRd)
$opc[22][2] = GUICtrlCreateRadio("C). "&$resp[26],$radIzq+335,$radAr+(30*2)+(150*3),$radLrg,$radAlt,$BS_MULTILINE )
GUICtrlSetBkColor(-1,$clrRd)
$opc[22][3] = GUICtrlCreateRadio("D). "&$resp[4],$radIzq+335,$radAr+(30*3)+(150*3),$radLrg,$radAlt,$BS_MULTILINE )
GUICtrlSetBkColor(-1,$clrRd)
##############################################################################################################
;Pregunta 24
$ttlpreg[23] = GUICtrlCreateGroup("24. "&$Preg[23],$grupIzq+(335*2),$grup1Ar+(150*3),$grupLrg,$grupAlt,$WS_DLGFRAME)

$opc[23][0] = GUICtrlCreateRadio("A). "&$resp[11],$radIzq+(335*2),$radAr+(150*3),$radLrg,$radAlt,$BS_MULTILINE )
GUICtrlSetBkColor(-1,$clrRd)
$opc[23][1] = GUICtrlCreateRadio("B). "&$resp[23],$radIzq+(335*2),$radAr+30+(150*3),$radLrg,$radAlt,$BS_MULTILINE )
GUICtrlSetBkColor(-1,$clrRd)
$opc[23][2] = GUICtrlCreateRadio("C). "&$resp[18],$radIzq+(335*2),$radAr+(30*2)+(150*3),$radLrg,$radAlt,$BS_MULTILINE )
GUICtrlSetBkColor(-1,$clrRd)
$opc[23][3] = GUICtrlCreateRadio("D). "&$resp[25],$radIzq+(335*2),$radAr+(30*3)+(150*3),$radLrg,$radAlt,$BS_MULTILINE )
GUICtrlSetBkColor(-1,$clrRd)
##############################################################################################################
GUICtrlCreateTabItem("PAGINA 3")

;Pregunta 25
$ttlpreg[24] = GUICtrlCreateGroup("25. "&$Preg[24],$grupIzq,$grup1Ar,$grupLrg,$grupAlt,$WS_DLGFRAME)

$opc[24][0] = GUICtrlCreateRadio("A). "&$resp[3],$radIzq,$radAr,$radLrg,$radAlt,$BS_MULTILINE )
GUICtrlSetBkColor(-1,$clrRd)
$opc[24][1] = GUICtrlCreateRadio("B). "&$resp[10],$radIzq,$radAr+30,$radLrg,$radAlt,$BS_MULTILINE )
GUICtrlSetBkColor(-1,$clrRd)
$opc[24][2] = GUICtrlCreateRadio("C). "&$resp[17],$radIzq,$radAr+(30*2),$radLrg,$radAlt,$BS_MULTILINE )
GUICtrlSetBkColor(-1,$clrRd)
$opc[24][3] = GUICtrlCreateRadio("D). "&$resp[24],$radIzq,$radAr+(30*3),$radLrg,$radAlt,$BS_MULTILINE )
GUICtrlSetBkColor(-1,$clrRd)
##############################################################################################################
;Pregunta 26
$ttlpreg[25] = GUICtrlCreateGroup("26. "&$Preg[25],$grupIzq+335,$grup1Ar,$grupLrg,$grupAlt,$WS_DLGFRAME)

$opc[25][0] = GUICtrlCreateRadio("A). "&$resp[25],$radIzq+335,$radAr,$radLrg,$radAlt,$BS_MULTILINE )
GUICtrlSetBkColor(-1,$clrRd)
$opc[25][1] = GUICtrlCreateRadio("B). "&$resp[2],$radIzq+335,$radAr+30,$radLrg,$radAlt,$BS_MULTILINE )
GUICtrlSetBkColor(-1,$clrRd)
$opc[25][2] = GUICtrlCreateRadio("C). "&$resp[9],$radIzq+335,$radAr+(30*2),$radLrg,$radAlt,$BS_MULTILINE )
GUICtrlSetBkColor(-1,$clrRd)
$opc[25][3] = GUICtrlCreateRadio("D). "&$resp[16],$radIzq+335,$radAr+(30*3),$radLrg,$radAlt,$BS_MULTILINE )
GUICtrlSetBkColor(-1,$clrRd)
##############################################################################################################
;Pregunta 27
$ttlpreg[26] = GUICtrlCreateGroup("27. "&$Preg[26],$grupIzq+(335*2),$grup1Ar,$grupLrg,$grupAlt,$WS_DLGFRAME)

$opc[26][0] = GUICtrlCreateRadio("A). "&$resp[23],$radIzq+(335*2),$radAr,$radLrg,$radAlt,$BS_MULTILINE )
GUICtrlSetBkColor(-1,$clrRd)
$opc[26][1] = GUICtrlCreateRadio("B). "&$resp[26],$radIzq+(335*2),$radAr+30,$radLrg,$radAlt,$BS_MULTILINE )
GUICtrlSetBkColor(-1,$clrRd)
$opc[26][2] = GUICtrlCreateRadio("C). "&$resp[1],$radIzq+(335*2),$radAr+(30*2),$radLrg,$radAlt,$BS_MULTILINE )
GUICtrlSetBkColor(-1,$clrRd)
$opc[26][3] = GUICtrlCreateRadio("D). "&$resp[8],$radIzq+(335*2),$radAr+(30*3),$radLrg,$radAlt,$BS_MULTILINE )
GUICtrlSetBkColor(-1,$clrRd)
##############################################################################################################
;Pregunta 28
$ttlpreg[27] = GUICtrlCreateGroup("28. "&$Preg[27],$grupIzq,$grup1Ar+150,$grupLrg,$grupAlt,$WS_DLGFRAME)

$opc[27][0] = GUICtrlCreateRadio("A). "&$resp[15],$radIzq,$radAr+150,$radLrg,$radAlt,$BS_MULTILINE )
GUICtrlSetBkColor(-1,$clrRd)
$opc[27][1] = GUICtrlCreateRadio("B). "&$resp[22],$radIzq,$radAr+30+150,$radLrg,$radAlt,$BS_MULTILINE )
GUICtrlSetBkColor(-1,$clrRd)
$opc[27][2] = GUICtrlCreateRadio("C). "&$resp[29],$radIzq,$radAr+(30*2)+150,$radLrg,$radAlt,$BS_MULTILINE )
GUICtrlSetBkColor(-1,$clrRd)
$opc[27][3] = GUICtrlCreateRadio("D). "&$resp[27],$radIzq,$radAr+(30*3)+150,$radLrg,$radAlt,$BS_MULTILINE )
GUICtrlSetBkColor(-1,$clrRd)
##############################################################################################################
;Pregunta 29
$ttlpreg[28] = GUICtrlCreateGroup("29. "&$Preg[28],$grupIzq+335,$grup1Ar+150,$grupLrg,$grupAlt,$WS_DLGFRAME)

$opc[28][0] = GUICtrlCreateRadio("A). "&$resp[7],$radIzq+335,$radAr+150,$radLrg,$radAlt,$BS_MULTILINE )
GUICtrlSetBkColor(-1,$clrRd)
$opc[28][1] = GUICtrlCreateRadio("B). "&$resp[14],$radIzq+335,$radAr+30+150,$radLrg,$radAlt,$BS_MULTILINE )
GUICtrlSetBkColor(-1,$clrRd)
$opc[28][2] = GUICtrlCreateRadio("C). "&$resp[28],$radIzq+335,$radAr+(30*2)+150,$radLrg,$radAlt,$BS_MULTILINE )
GUICtrlSetBkColor(-1,$clrRd)
$opc[28][3] = GUICtrlCreateRadio("D). "&$resp[21],$radIzq+335,$radAr+(30*3)+150,$radLrg,$radAlt,$BS_MULTILINE )
GUICtrlSetBkColor(-1,$clrRd)
##############################################################################################################
;Pregunta 30
$ttlpreg[29] = GUICtrlCreateGroup("30. "&$Preg[29],$grupIzq+(335*2),$grup1Ar+150,$grupLrg,$grupAlt,$WS_DLGFRAME)

$opc[29][0] = GUICtrlCreateRadio("A). "&$resp[28],$radIzq+(335*2),$radAr+150,$radLrg,$radAlt,$BS_MULTILINE )
GUICtrlSetBkColor(-1,$clrRd)
$opc[29][1] = GUICtrlCreateRadio("B). "&$resp[6],$radIzq+(335*2),$radAr+30+150,$radLrg,$radAlt,$BS_MULTILINE )
GUICtrlSetBkColor(-1,$clrRd)
$opc[29][2] = GUICtrlCreateRadio("C). "&$resp[13],$radIzq+(335*2),$radAr+(30*2)+150,$radLrg,$radAlt,$BS_MULTILINE )
GUICtrlSetBkColor(-1,$clrRd)
$opc[29][3] = GUICtrlCreateRadio("D). "&$resp[29],$radIzq+(335*2),$radAr+(30*3)+150,$radLrg,$radAlt,$BS_MULTILINE )
GUICtrlSetBkColor(-1,$clrRd)
##############################################################################################################
#cs
;Grupo 11a
GUICtrlCreateGroup($Preg7,$grupIzq,$grup1Ar+(150*2),$grupLrg,$grupAlt,$WS_DLGFRAME)

$res7a = GUICtrlCreateRadio("A). "&$resp1,$radIzq,$radAr+(150*2),$radLrg,$radAlt,$BS_MULTILINE )
$res7b = GUICtrlCreateRadio("B). "&$resp1,$radIzq,$radAr+30+(150*2),$radLrg,$radAlt,$BS_MULTILINE )
$res7c = GUICtrlCreateRadio("C). "&$resp1,$radIzq,$radAr+(30*2)+(150*2),$radLrg,$radAlt,$BS_MULTILINE )
$res7d = GUICtrlCreateRadio("D). "&$resp1,$radIzq,$radAr+(30*3)+(150*2),$radLrg,$radAlt,$BS_MULTILINE )

;Grupo 11b
GUICtrlCreateGroup($Preg8,$grupIzq+335,$grup1Ar+(150*2),$grupLrg,$grupAlt,$WS_DLGFRAME)

$res5a = GUICtrlCreateRadio("A). "&$resp1,$radIzq+335,$radAr+(150*2),$radLrg,$radAlt,$BS_MULTILINE )
$res5b = GUICtrlCreateRadio("B). "&$resp1,$radIzq+335,$radAr+30+(150*2),$radLrg,$radAlt,$BS_MULTILINE )
$res5c = GUICtrlCreateRadio("C). "&$resp1,$radIzq+335,$radAr+(30*2)+(150*2),$radLrg,$radAlt,$BS_MULTILINE )
$res5d = GUICtrlCreateRadio("D). "&$resp1,$radIzq+335,$radAr+(30*3)+(150*2),$radLrg,$radAlt,$BS_MULTILINE )

;Grupo 11c
GUICtrlCreateGroup($Preg9,$grupIzq+(335*2),$grup1Ar+(150*2),$grupLrg,$grupAlt,$WS_DLGFRAME)

$res6a = GUICtrlCreateRadio("A). "&$resp1,$radIzq+(335*2),$radAr+(150*2),$radLrg,$radAlt,$BS_MULTILINE )
$res6b = GUICtrlCreateRadio("B). "&$resp1,$radIzq+(335*2),$radAr+30+(150*2),$radLrg,$radAlt,$BS_MULTILINE )
$res6c = GUICtrlCreateRadio("C). "&$resp1,$radIzq+(335*2),$radAr+(30*2)+(150*2),$radLrg,$radAlt,$BS_MULTILINE )
$res6d = GUICtrlCreateRadio("D). "&$resp1,$radIzq+(335*2),$radAr+(30*3)+(150*2),$radLrg,$radAlt,$BS_MULTILINE )
##############################################################################################################
;Grupo 12a
GUICtrlCreateGroup($Preg10,$grupIzq,$grup1Ar+(150*3),$grupLrg,$grupAlt,$WS_DLGFRAME)

$res7a = GUICtrlCreateRadio("A). "&$resp1,$radIzq,$radAr+(150*3),$radLrg,$radAlt,$BS_MULTILINE )
$res7b = GUICtrlCreateRadio("B). "&$resp1,$radIzq,$radAr+30+(150*3),$radLrg,$radAlt,$BS_MULTILINE )
$res7c = GUICtrlCreateRadio("C). "&$resp1,$radIzq,$radAr+(30*2)+(150*3),$radLrg,$radAlt,$BS_MULTILINE )
$res7d = GUICtrlCreateRadio("D). "&$resp1,$radIzq,$radAr+(30*3)+(150*3),$radLrg,$radAlt,$BS_MULTILINE )

;Grupo 12b
GUICtrlCreateGroup($Preg11,$grupIzq+335,$grup1Ar+(150*3),$grupLrg,$grupAlt,$WS_DLGFRAME)

$res5a = GUICtrlCreateRadio("A). "&$resp1,$radIzq+335,$radAr+(150*3),$radLrg,$radAlt,$BS_MULTILINE )
$res5b = GUICtrlCreateRadio("B). "&$resp1,$radIzq+335,$radAr+30+(150*3),$radLrg,$radAlt,$BS_MULTILINE )
$res5c = GUICtrlCreateRadio("C). "&$resp1,$radIzq+335,$radAr+(30*2)+(150*3),$radLrg,$radAlt,$BS_MULTILINE )
$res5d = GUICtrlCreateRadio("D). "&$resp1,$radIzq+335,$radAr+(30*3)+(150*3),$radLrg,$radAlt,$BS_MULTILINE )

;Grupo 12c
GUICtrlCreateGroup($Preg12,$grupIzq+(335*2),$grup1Ar+(150*3),$grupLrg,$grupAlt,$WS_DLGFRAME)

$res6a = GUICtrlCreateRadio("A). "&$resp1,$radIzq+(335*2),$radAr+(150*3),$radLrg,$radAlt,$BS_MULTILINE )
$res6b = GUICtrlCreateRadio("B). "&$resp1,$radIzq+(335*2),$radAr+30+(150*3),$radLrg,$radAlt,$BS_MULTILINE )
$res6c = GUICtrlCreateRadio("C). "&$resp1,$radIzq+(335*2),$radAr+(30*2)+(150*3),$radLrg,$radAlt,$BS_MULTILINE )
$res6d = GUICtrlCreateRadio("D). "&$resp1,$radIzq+(335*2),$radAr+(30*3)+(150*3),$radLrg,$radAlt,$BS_MULTILINE )
#ce
##############################################################################################################

GUISetState(@SW_SHOW)

Global $Accion1 = $GUI_DISABLE, $Accion2 = $GUI_ENABLE
_desactivados($Accion1)
;_correctas()

While 1

	$nMsg = GUIGetMsg()

Switch $nMsg

Case $btnIngrestDat
	GUICtrlSetState($btnIngrestDat,$GUI_HIDE)
	GUICtrlSetState($btnComExa,$GUI_SHOW)
	GUICtrlSetState($lselecComEx,$GUI_SHOW)
	GUICtrlSetState($lIngresDat,$GUI_HIDE)
	_activarUsuario()

Case $btnComExa
	If GUICtrlRead($inNombre) = "" or GUICtrlRead($inNombre) = "Ingrese aqui su Nombre" Then
		MsgBox(0,"Advertencia","Debe ingresar su nombre")
	Else
	GUICtrlSetState($lselecComEx,$GUI_HIDE)
	GUICtrlSetState($btnComExa,$GUI_HIDE)
	GUICtrlSetState($btnRevisar,$GUI_SHOW)
	GUICtrlSetState($lttlSelec,$GUI_SHOW)
	_comenzar($Accion2)
	_desactivarUsuario()
EndIf
Case $btnRevisar
	GUICtrlSetState($lttlSelec,$GUI_HIDE)
	GUICtrlSetState($lIngresDat,$GUI_HIDE)
	GUICtrlSetState($btnRevisar,$GUI_DISABLE)
	GUICtrlSetState($lselecComEx,$GUI_HIDE)
	GUICtrlSetState($lCompare,$GUI_SHOW)
	_desactivados($Accion1)
	;_contar()
	_estado()
	_imprimir()
	_erroneas()

If $contar > 28 Then
	$aviso = "Felicidades "&GUICtrlRead($inNombre,1)&", eres un genio, tu esfuerzo a dado frutos"&@CRLF&@CRLF&"Estoy orgulloso de ti"
EndIf
If $contar > 19 and $contar < 28 Then
	$aviso = "Muy bien "&GUICtrlRead($inNombre,1)&", pero puedes hacerlo mejor"&@CRLF&@CRLF&"Yo se que tienes el poder de hacerlo"
EndIf
If $contar > 14 and $contar < 20 Then
	$aviso = "Debes mejorar "&GUICtrlRead($inNombre,1)&", preocupate y esfuerzate mas"&@CRLF&@CRLF&"Dedicale un poco mas de tiempo a los estudios"
EndIf
If $contar < 15 Then
	$aviso = "Tienes que estudiar mas "&GUICtrlRead($inNombre,1)&", tus calificaciones son muy bajas"&@CRLF&@CRLF&"Si deseas ayuda, dimelo que con mucho gusto te ayudare"
EndIf
MsgBox(0,"Examen del Teclado","Su puntuacion es de "&$contar&" puntos de 30"&@CRLF&@CRLF&$aviso)

	_verdaderas()
	GUICtrlCreateLabel("Su puntuación es de "&$contar&" puntos de 30",10,10,300,25)
		GUICtrlSetFont(-1, 12, 600, 0, "Arial")
		GUICtrlSetColor(-1, 0xFF0000)
Case $btnslr
	Exit

Case $GUI_EVENT_CLOSE
	Exit

EndSwitch
WEnd

Func _desactivados($Desac)

	   For $x = 0 To UBound($opc) - 1 ; nş de preguntas para recorrer.
      For $y = 0 To UBound($opc, 2) - 1 ; suma de pregunta y nş de respuestas. Si en vez de empezar en 0 empieza en 1 no desactiva el texto, solo las respuestas
         GUICtrlSetState($opc[$x][$y], $Desac)
      Next
  Next
EndFunc

Func _activarUsuario()
	GUICtrlSetState($inNombre,$GUI_ENABLE)
	GUICtrlSetState($inFecha,$GUI_ENABLE)
	GUICtrlSetState($nivel1,$GUI_ENABLE)
	GUICtrlSetState($nivel2,$GUI_ENABLE)
	GUICtrlSetState($nivel3,$GUI_ENABLE)
	GUICtrlSetState($nivel4,$GUI_ENABLE)
	GUICtrlSetState($dia,$GUI_ENABLE)
EndFunc

Func _desactivarUsuario()
	GUICtrlSetState($inNombre,$GUI_DISABLE)
	GUICtrlSetState($inFecha,$GUI_DISABLE)
	GUICtrlSetState($nivel1,$GUI_DISABLE)
	GUICtrlSetState($nivel2,$GUI_DISABLE)
	GUICtrlSetState($nivel3,$GUI_DISABLE)
	GUICtrlSetState($nivel4,$GUI_DISABLE)
	GUICtrlSetState($dia,$GUI_DISABLE)
EndFunc

Func _estado()

#############################################################################################################
;Respuesta 1
$res[0][0] = GUICtrlRead($opc[0][0])	;Lee el estado de los checkbox
If $res[0][0] = 1 Then
	$resul[0] = $inco
	$letra[0] = "A"
EndIf
$res[0][1] = GUICtrlRead($opc[0][1])
If $res[0][1] = 1 Then
    $contar = $contar + 1
	$resul[0] = $corr
    $letra[0] = "B"
EndIf
$res[0][2] = GUICtrlRead($opc[0][2])
If $res[0][2] = 1 Then
    $resul[0] = $inco
    $letra[0] = "C"
EndIf
$res[0][3] = GUICtrlRead($opc[0][3])
If $res[0][3] = 1 Then
    $resul[0] = $inco
    $letra[0] = "D"
EndIf
#############################################################################################################
;Respuesta 2
$res[1][0] = GUICtrlRead($opc[1][0])
If $res[1][0] = 1 Then
    $resul[1] = $inco
    $letra[1] = "A"
EndIf
$res[1][1] = GUICtrlRead($opc[1][1])
If $res[1][1] = 1 Then
    $resul[1] = $inco
    $letra[1] = "B"
EndIf
$res[1][2] = GUICtrlRead($opc[1][2])
If $res[1][2] = 1 Then
	$resul[1] = $inco
    $letra[1] = "C"
EndIf
$res[1][3] = GUICtrlRead($opc[1][3])
If $res[1][3] = 1 Then
    $contar = $contar + 1
    $resul[1] = $corr
    $letra[1] = "D"
EndIf
#############################################################################################################
;Respuesta 3
$res[2][0] = GUICtrlRead($opc[2][0])
If $res[2][0] = 1 Then
	$resul[2] = $inco
    $letra[2] = "A"
EndIf
$res[2][1] = GUICtrlRead($opc[2][1])
If $res[2][1] = 1 Then
    $contar = $contar + 1
    $resul[2] = $corr
    $letra[2] = "B"
EndIf
$res[2][2] = GUICtrlRead($opc[2][2])
If $res[2][2] = 1 Then
    $resul[2] = $inco
    $letra[2] = "C"
EndIf
$res[2][3] = GUICtrlRead($opc[2][3])
If $res[2][3] = 1 Then
    $resul[2] = $inco
    $letra[2] = "D"
EndIf
#############################################################################################################
;Respuesta 4
$res[3][0] = GUICtrlRead($opc[3][0])
If $res[3][0] = 1 Then
	$resul[3] = $inco
    $letra[3] = "A"
EndIf
$res[3][1] = GUICtrlRead($opc[3][1])
If $res[3][1] = 1 Then
    $resul[3] = $inco
    $letra[3] = "B"
EndIf
$res[3][2] = GUICtrlRead($opc[3][2])
If $res[3][2] = 1 Then
    $contar = $contar + 1
    $resul[3] = $corr
    $letra[3] = "C"
EndIf
$res[3][3] = GUICtrlRead($opc[3][3])
If $res[3][3] = 1 Then
    $resul[3] = $inco
    $letra[3] = "D"
EndIf
#############################################################################################################
;Respuesta 5
$res[4][0] = GUICtrlRead($opc[4][0])
If $res[4][0] = 1 Then
	$contar = $contar + 1
    $resul[4] = $corr
    $letra[4] = "A"
EndIf
$res[4][1] = GUICtrlRead($opc[4][1])
If $res[4][1] = 1 Then
    $resul[4] = $inco
    $letra[4] = "B"
EndIf
$res[4][2] = GUICtrlRead($opc[4][2])
If $res[4][2] = 1 Then
    $resul[4] = $inco
    $letra[4] = "C"
EndIf
$res[4][3] = GUICtrlRead($opc[4][3])
If $res[4][3] = 1 Then
    $resul[4] = $inco
    $letra[4] = "D"
EndIf
#############################################################################################################
;Respuesta 6
$res[5][0] = GUICtrlRead($opc[5][0])
If $res[5][0] = 1 Then
    $resul[5] = $inco
    $letra[5] = "A"
EndIf
$res[5][1] = GUICtrlRead($opc[5][1])
If $res[5][1] = 1 Then
    $contar = $contar + 1
    $resul[5] = $corr
    $letra[5] = "B"
EndIf
$res[5][2] = GUICtrlRead($opc[5][2])
If $res[5][2] = 1 Then
	$resul[5] = $inco
    $letra[5] = "C"
EndIf
$res[5][3] = GUICtrlRead($opc[5][3])
If $res[5][3] = 1 Then
    $resul[5] = $inco
    $letra[5] = "D"
EndIf
#############################################################################################################
;Respuesta 7
$res[6][0] = GUICtrlRead($opc[6][0])
If $res[6][0] = 1 Then
    $resul[6] = $inco
    $letra[6] = "A"
EndIf
$res[6][1] = GUICtrlRead($opc[6][1])
If $res[6][1] = 1 Then
    $resul[6] = $inco
    $letra[6] = "B"
EndIf
$res[6][2] = GUICtrlRead($opc[6][2])
If $res[6][2] = 1 Then
    $resul[6] = $inco
    $letra[6] = "C"
EndIf
$res[6][3] = GUICtrlRead($opc[6][3])
If $res[6][3] = 1 Then
	$contar = $contar + 1
    $resul[6] = $corr
    $letra[6] = "D"
EndIf
#############################################################################################################
;Respuesta 8
$res[7][0] = GUICtrlRead($opc[7][0])
If $res[7][0] = 1 Then
    $resul[7] = $inco
    $letra[7] = "A"
EndIf
$res[7][1] = GUICtrlRead($opc[7][1])
If $res[7][1] = 1 Then
	$resul[7] = $inco
    $letra[7] = "B"
EndIf
$res[7][2] = GUICtrlRead($opc[7][2])
If $res[7][2] = 1 Then
    $contar = $contar + 1
    $resul[7] = $corr
    $letra[7] = "C"
EndIf
$res[7][3] = GUICtrlRead($opc[7][3])
If $res[7][3] = 1 Then
    $resul[7] = $inco
    $letra[7] = "D"
EndIf
#############################################################################################################
;Respuesta 9
$res[8][0] = GUICtrlRead($opc[8][0])
If $res[8][0] = 1 Then
    $contar = $contar + 1
    $resul[8] = $corr
    $letra[8] = "A"
EndIf
$res[8][1] = GUICtrlRead($opc[8][1])
If $res[8][1] = 1 Then
    $resul[8] = $inco
    $letra[8] = "B"
EndIf
$res[8][2] = GUICtrlRead($opc[8][2])
If $res[8][2] = 1 Then
	$resul[8] = $inco
    $letra[8] = "C"
EndIf
$res[8][3] = GUICtrlRead($opc[8][3])
If $res[8][3] = 1 Then
    $resul[8] = $inco
    $letra[8] = "D"
EndIf
#############################################################################################################
;Respuesta 10
$res[9][0] = GUICtrlRead($opc[9][0])
If $res[9][0] = 1 Then
	$resul[9] = $inco
    $letra[9] = "A"
EndIf
$res[9][1] = GUICtrlRead($opc[9][1])
If $res[9][1] = 1 Then
    $resul[9] = $inco
    $letra[9] = "B"
EndIf
$res[9][2] = GUICtrlRead($opc[9][2])
If $res[9][2] = 1 Then
    $resul[9] = $inco
    $letra[9] = "C"
EndIf
$res[9][3] = GUICtrlRead($opc[9][3])
If $res[9][3] = 1 Then
    $contar = $contar + 1
    $resul[9] = $corr
    $letra[9] = "D"
EndIf
#############################################################################################################
;Respuesta 11
$res[10][0] = GUICtrlRead($opc[10][0])
If $res[10][0] = 1 Then
    $resul[10] = $inco
    $letra[10] = "A"
EndIf
$res[10][1] = GUICtrlRead($opc[10][1])
If $res[10][1] = 1 Then
	$resul[10] = $inco
    $letra[10] = "B"
EndIf
$res[10][2] = GUICtrlRead($opc[10][2])
If $res[10][2] = 1 Then
    $contar = $contar + 1
    $resul[10] = $corr
    $letra[10] = "C"
EndIf
$res[10][3] = GUICtrlRead($opc[10][3])
If $res[10][3] = 1 Then
    $resul[10] = $inco
    $letra[10] = "D"
EndIf
#############################################################################################################
;Respuesta 12
$res[11][0] = GUICtrlRead($opc[11][0])
If $res[11][0] = 1 Then
    $contar = $contar + 1
    $resul[11] = $corr
    $letra[11] = "A"
EndIf
$res[11][1] = GUICtrlRead($opc[11][1])
If $res[11][1] = 1 Then
    $resul[11] = $inco
    $letra[11] = "B"
EndIf
$res[11][2] = GUICtrlRead($opc[11][2])
If $res[11][2] = 1 Then
    $resul[11] = $inco
    $letra[11] = "C"
EndIf
$res[11][3] = GUICtrlRead($opc[11][3])
If $res[11][3] = 1 Then
	$resul[11] = $inco
    $letra[11] = "D"
EndIf
#############################################################################################################
;Respuesta 13
$res[12][0] = GUICtrlRead($opc[12][0])
If $res[12][0] = 1 Then
	$resul[12] = $inco
    $letra[12] = "A"
EndIf
$res[12][1] = GUICtrlRead($opc[12][1])
If $res[12][1] = 1 Then
    $contar = $contar + 1
    $resul[12] = $corr
    $letra[12] = "B"
EndIf
$res[12][2] = GUICtrlRead($opc[12][2])
If $res[12][2] = 1 Then
    $resul[12] = $inco
    $letra[12] = "C"
EndIf
$res[12][3] = GUICtrlRead($opc[12][3])
If $res[12][3] = 1 Then
    $resul[12] = $inco
    $letra[12] = "D"
EndIf
#############################################################################################################
;Respuesta 14
$res[13][0] = GUICtrlRead($opc[13][0])
If $res[13][0] = 1 Then
    $resul[13] = $inco
    $letra[13] = "A"
EndIf
$res[13][1] = GUICtrlRead($opc[13][1])
If $res[13][1] = 1 Then
	$contar = $contar + 1
    $resul[13] = $corr
    $letra[13] = "B"
EndIf
$res[13][2] = GUICtrlRead($opc[13][2])
If $res[13][2] = 1 Then
    $resul[13] = $inco
    $letra[13] = "C"
EndIf
$res[13][3] = GUICtrlRead($opc[13][3])
If $res[13][3] = 1 Then
    $resul[13] = $inco
    $letra[13] = "D"
EndIf
#############################################################################################################
;Respuesta 15
$res[14][0] = GUICtrlRead($opc[14][0])
If $res[14][0] = 1 Then
	$resul[14] = $inco
    $letra[14] = "A"
EndIf
$res[14][1] = GUICtrlRead($opc[14][1])
If $res[14][1] = 1 Then
    $resul[14] = $inco
    $letra[14] = "B"
EndIf
$res[14][2] = GUICtrlRead($opc[14][2])
If $res[14][2] = 1 Then
    $resul[14] = $inco
    $letra[14] = "C"
EndIf
$res[14][3] = GUICtrlRead($opc[14][3])
If $res[14][3] = 1 Then
    $contar = $contar + 1
    $resul[14] = $corr
    $letra[14] = "D"
EndIf
#############################################################################################################
;Respuesta 16
$res[15][0] = GUICtrlRead($opc[15][0])
If $res[15][0] = 1 Then
    $resul[15] = $inco
    $letra[15] = "A"
EndIf
$res[15][1] = GUICtrlRead($opc[15][1])
If $res[15][1] = 1 Then
    $resul[15] = $inco
    $letra[15] = "B"
EndIf
$res[15][2] = GUICtrlRead($opc[15][2])
If $res[15][2] = 1 Then
	$contar = $contar + 1
    $resul[15] = $corr
    $letra[15] = "C"
EndIf
$res[15][3] = GUICtrlRead($opc[15][3])
If $res[15][3] = 1 Then
    $resul[15] = $inco
    $letra[15] = "D"
EndIf
#############################################################################################################
;Respuesta 17
$res[16][0] = GUICtrlRead($opc[16][0])
If $res[16][0] = 1 Then
    $contar = $contar + 1
    $resul[16] = $corr
    $letra[16] = "A"
EndIf
$res[16][1] = GUICtrlRead($opc[16][1])
If $res[16][1] = 1 Then
    $resul[16] = $inco
    $letra[16] = "B"
EndIf
$res[16][2] = GUICtrlRead($opc[16][2])
If $res[16][2] = 1 Then
    $resul[16] = $inco
    $letra[16] = "C"
EndIf
$res[16][3] = GUICtrlRead($opc[16][3])
If $res[16][3] = 1 Then
	$resul[16] = $inco
    $letra[16] = "D"
EndIf
#############################################################################################################
;Respuesta 18
$res[17][0] = GUICtrlRead($opc[17][0])
If $res[17][0] = 1 Then
    $resul[17] = $inco
    $letra[17] = "A"
EndIf
$res[17][1] = GUICtrlRead($opc[17][1])
If $res[17][1] = 1 Then
	$resul[17] = $inco
    $letra[17] = "B"
EndIf
$res[17][2] = GUICtrlRead($opc[17][2])
If $res[17][2] = 1 Then
    $contar = $contar + 1
    $resul[17] = $corr
    $letra[17] = "C"
EndIf
$res[17][3] = GUICtrlRead($opc[17][3])
If $res[17][3] = 1 Then
    $resul[17] = $inco
    $letra[17] = "D"
EndIf
#############################################################################################################
;Respuesta 19
$res[18][0] = GUICtrlRead($opc[18][0])
If $res[18][0] = 1 Then
	$resul[18] = $inco
    $letra[18] = "A"
EndIf
$res[18][1] = GUICtrlRead($opc[18][1])
If $res[18][1] = 1 Then
    $resul[18] = $inco
    $letra[18] = "B"
EndIf
$res[18][2] = GUICtrlRead($opc[18][2])
If $res[18][2] = 1 Then
    $resul[18] = $inco
    $letra[18] = "C"
EndIf
$res[18][3] = GUICtrlRead($opc[18][3])
If $res[18][3] = 1 Then
    $contar = $contar + 1
    $resul[18] = $corr
    $letra[18] = "D"
EndIf
#############################################################################################################
;Respuesta 20
$res[19][0] = GUICtrlRead($opc[19][0])
If $res[19][0] = 1 Then
    $resul[19] = $inco
    $letra[19] = "A"
EndIf
$res[19][1] = GUICtrlRead($opc[19][1])
If $res[19][1] = 1 Then
    $contar = $contar + 1
    $resul[19] = $corr
    $letra[19] = "B"
EndIf
$res[19][2] = GUICtrlRead($opc[19][2])
If $res[19][2] = 1 Then
	$resul[19] = $inco
    $letra[19] = "C"
EndIf
$res[19][3] = GUICtrlRead($opc[19][3])
If $res[19][3] = 1 Then
    $resul[19] = $inco
    $letra[19] = "D"
EndIf
#############################################################################################################
;Respuesta 21
$res[20][0] = GUICtrlRead($opc[20][0])
If $res[20][0] = 1 Then
	$contar = $contar + 1
    $resul[20] = $corr
    $letra[20] = "A"
EndIf
$res[20][1] = GUICtrlRead($opc[20][1])
If $res[20][1] = 1 Then
    $resul[20] = $inco
    $letra[20] = "B"
EndIf
$res[20][2] = GUICtrlRead($opc[20][2])
If $res[20][2] = 1 Then
    $resul[20] = $inco
    $letra[20] = "C"
EndIf
$res[20][3] = GUICtrlRead($opc[20][3])
If $res[20][3] = 1 Then
    $resul[20] = $inco
    $letra[20] = "D"
EndIf
#############################################################################################################
;Respuesta 22
$res[21][0] = GUICtrlRead($opc[21][0])
If $res[21][0] = 1 Then
    $resul[21] = $inco
    $letra[21] = "A"
EndIf
$res[21][1] = GUICtrlRead($opc[21][1])
If $res[21][1] = 1 Then
    $resul[21] = $inco
    $letra[21] = "B"
EndIf
$res[21][2] = GUICtrlRead($opc[21][2])
If $res[21][2] = 1 Then
    $contar = $contar + 1
    $resul[21] = $corr
    $letra[21] = "C"
EndIf
$res[21][3] = GUICtrlRead($opc[21][3])
If $res[21][3] = 1 Then
	$resul[21] = $inco
    $letra[21] = "D"
EndIf
#############################################################################################################
;Respuesta 23
$res[22][0] = GUICtrlRead($opc[22][0])
If $res[22][0] = 1 Then
	$contar = $contar + 1
    $resul[22] = $corr
    $letra[22] = "A"
EndIf
$res[22][1] = GUICtrlRead($opc[22][1])
If $res[22][1] = 1 Then
    $resul[22] = $inco
    $letra[22] = "B"
EndIf
$res[22][2] = GUICtrlRead($opc[22][2])
If $res[22][2] = 1 Then
    $resul[22] = $inco
    $letra[22] = "C"
EndIf
$res[22][3] = GUICtrlRead($opc[22][3])
If $res[22][3] = 1 Then
    $resul[22] = $inco
    $letra[22] = "D"
EndIf
#############################################################################################################
;Respuesta 24
$res[23][0] = GUICtrlRead($opc[23][0])
If $res[23][0] = 1 Then
    $resul[23] = $inco
    $letra[23] = "A"
EndIf
$res[23][1] = GUICtrlRead($opc[23][1])
If $res[23][1] = 1 Then
    $contar = $contar + 1
    $resul[23] = $corr
    $letra[23] = "B"
EndIf
$res[23][2] = GUICtrlRead($opc[23][2])
If $res[23][2] = 1 Then
	$resul[23] = $inco
    $letra[23] = "C"
EndIf
$res[23][3] = GUICtrlRead($opc[23][3])
If $res[23][3] = 1 Then
    $resul[23] = $inco
    $letra[23] = "D"
EndIf
#############################################################################################################
;Respuesta 25
$res[24][0] = GUICtrlRead($opc[24][0])
If $res[24][0] = 1 Then
    $resul[24] = $inco
    $letra[24] = "A"
EndIf
$res[24][1] = GUICtrlRead($opc[24][1])
If $res[24][1] = 1 Then
	$resul[24] = $inco
    $letra[24] = "B"
EndIf
$res[24][2] = GUICtrlRead($opc[24][2])
If $res[24][2] = 1 Then
    $resul[24] = $inco
    $letra[24] = "C"
EndIf
$res[24][3] = GUICtrlRead($opc[24][3])
If $res[24][3] = 1 Then
    $contar = $contar + 1
    $resul[24] = $corr
    $letra[24] = "D"
EndIf
#############################################################################################################
;Respuesta 26
$res[25][0] = GUICtrlRead($opc[25][0])
If $res[25][0] = 1 Then
    $contar = $contar + 1
    $resul[25] = $corr
    $letra[25] = "A"
EndIf
$res[25][1] = GUICtrlRead($opc[25][1])
If $res[25][1] = 1 Then
    $resul[25] = $inco
    $letra[25] = "B"
EndIf
$res[25][2] = GUICtrlRead($opc[25][2])
If $res[25][2] = 1 Then
	$resul[25] = $inco
    $letra[25] = "C"
EndIf
$res[25][3] = GUICtrlRead($opc[25][3])
If $res[25][3] = 1 Then
    $resul[25] = $inco
    $letra[25] = "D"
EndIf
#############################################################################################################
;Respuesta 27
$res[26][0] = GUICtrlRead($opc[26][0])
If $res[26][0] = 1 Then
    $resul[26] = $inco
    $letra[26] = "A"
EndIf
$res[26][1] = GUICtrlRead($opc[26][1])
If $res[26][1] = 1 Then
    $contar = $contar + 1
    $resul[26] = $corr
    $letra[26] = "B"
EndIf
$res[26][2] = GUICtrlRead($opc[26][2])
If $res[26][2] = 1 Then
	$resul[26] = $inco
    $letra[26] = "C"
EndIf
$res[26][3] = GUICtrlRead($opc[26][3])
If $res[26][3] = 1 Then
    $resul[26] = $inco
    $letra[26] = "D"
EndIf
#############################################################################################################
;Respuesta 28
$res[27][0] = GUICtrlRead($opc[27][0])
If $res[27][0] = 1 Then
	$resul[27] = $inco
    $letra[27] = "A"
EndIf
$res[27][1] = GUICtrlRead($opc[27][1])
If $res[27][1] = 1 Then
    $resul[27] = $inco
    $letra[27] = "B"
EndIf
$res[27][2] = GUICtrlRead($opc[27][2])
If $res[27][2] = 1 Then
    $resul[27] = $inco
    $letra[27] = "C"
EndIf
$res[27][3] = GUICtrlRead($opc[27][3])
If $res[27][3] = 1 Then
    $contar = $contar + 1
    $resul[27] = $corr
    $letra[27] = "D"
EndIf
#############################################################################################################
;Respuesta 29
$res[28][0] = GUICtrlRead($opc[28][0])
If $res[28][0] = 1 Then
    $resul[28] = $inco
    $letra[28] = "A"
EndIf
$res[28][1] = GUICtrlRead($opc[28][1])
If $res[28][1] = 1 Then
    $resul[28] = $inco
    $letra[28] = "B"
EndIf
$res[28][2] = GUICtrlRead($opc[28][2])
If $res[28][2] = 1 Then
	$contar = $contar + 1
    $resul[28] = $corr
    $letra[28] = "C"
EndIf
$res[28][3] = GUICtrlRead($opc[28][3])
If $res[28][3] = 1 Then
    $resul[28] = $inco
    $letra[28] = "D"
EndIf
#############################################################################################################
;Respuesta 30
$res[29][0] = GUICtrlRead($opc[29][0])
If $res[29][0] = 1 Then
    $resul[29] = $inco
    $letra[29] = "A"
EndIf
$res[29][1] = GUICtrlRead($opc[29][1])
If $res[29][1] = 1 Then
    $resul[29] = $inco
    $letra[29] = "B"
EndIf
$res[29][2] = GUICtrlRead($opc[29][2])
If $res[29][2] = 1 Then
	$resul[29] = $inco
    $letra[29] = "C"
EndIf
$res[29][3] = GUICtrlRead($opc[29][3])
If $res[29][3] = 1 Then
    $contar = $contar + 1
    $resul[29] = $corr
    $letra[29] = "D"
EndIf

#############################################################################################################
EndFunc

Func _comenzar($Activ)

		For $x = 0 To UBound($opc) - 1 ; nş de preguntas para recorrer.
		For $y = 0 To UBound($opc, 2) - 1 ; suma de pregunta y nş de respuestas. Si en vez de empezar en 0 empieza en 1 no desactiva el texto, solo las respuestas
			GUICtrlSetState($opc[$x][$y], $Activ)
	 Next
	 Next
 EndFunc

Func _verdaderas()

	GUICtrlSetState($opc[0][1],$GUI_ENABLE)
	GUICtrlSetState($opc[1][3],$GUI_ENABLE)
	GUICtrlSetState($opc[2][1],$GUI_ENABLE)
	GUICtrlSetState($opc[3][2],$GUI_ENABLE)
	GUICtrlSetState($opc[4][0],$GUI_ENABLE)
	GUICtrlSetState($opc[5][1],$GUI_ENABLE)
	GUICtrlSetState($opc[6][3],$GUI_ENABLE)
	GUICtrlSetState($opc[7][2],$GUI_ENABLE)
	GUICtrlSetState($opc[8][0],$GUI_ENABLE)
	GUICtrlSetState($opc[9][3],$GUI_ENABLE)
	GUICtrlSetState($opc[10][2],$GUI_ENABLE)
	GUICtrlSetState($opc[11][0],$GUI_ENABLE)
	GUICtrlSetState($opc[12][1],$GUI_ENABLE)
	GUICtrlSetState($opc[13][1],$GUI_ENABLE)
	GUICtrlSetState($opc[14][3],$GUI_ENABLE)
	GUICtrlSetState($opc[15][2],$GUI_ENABLE)
	GUICtrlSetState($opc[16][0],$GUI_ENABLE)
	GUICtrlSetState($opc[17][2],$GUI_ENABLE)
	GUICtrlSetState($opc[18][3],$GUI_ENABLE)
	GUICtrlSetState($opc[19][1],$GUI_ENABLE)
	GUICtrlSetState($opc[20][0],$GUI_ENABLE)
	GUICtrlSetState($opc[21][2],$GUI_ENABLE)
	GUICtrlSetState($opc[22][0],$GUI_ENABLE)
	GUICtrlSetState($opc[23][1],$GUI_ENABLE)
	GUICtrlSetState($opc[24][3],$GUI_ENABLE)
	GUICtrlSetState($opc[25][0],$GUI_ENABLE)
	GUICtrlSetState($opc[26][1],$GUI_ENABLE)
	GUICtrlSetState($opc[27][3],$GUI_ENABLE)
	GUICtrlSetState($opc[28][2],$GUI_ENABLE)
	GUICtrlSetState($opc[29][3],$GUI_ENABLE)
EndFunc

Func _Imprimir()

		 If GUICtrlRead($nivel1) = 1 Then
		 $nivel = "Nivel 1"
		 EndIf
		 If GUICtrlRead($nivel2) = 1 Then
		 $nivel = "Nivel 2"
		 EndIf
		 If GUICtrlRead($nivel3) = 1 Then
		 $nivel = "Nivel 3"
		 EndIf
		 If GUICtrlRead($nivel4) = 1 Then
		 $nivel = "Nivel 4"
	  	 EndIf
	  $nombre = GUICtrlRead($inNombre)
	  $fecha = GUICtrlRead($inFecha)
	  $titulo = GUICtrlRead($lTitulo)
	  $horario = GUICtrlRead($dia)
	  $ttlSelec = GUICtrlRead($lttlSelec)

	$arreglo = StringTrimRight($ttlSelec,52)

	$file = FileOpen(@DesktopCommonDir&"\Examen Teclado "&$nombre&".doc",1)
	Sleep(2000)

$txtttl = "					"&$titulo&@CRLF&@CRLF&"Puntuacion total: "&$contar&" puntos de 30"&@CRLF&@CRLF&"Nombre: "&$nombre&"		Fecha: "&$fecha&@CRLF&@CRLF&"Nivel: "&$nivel&"		Horario de clases: "&$horario&@CRLF&@CRLF&"				"&$arreglo&@CRLF&@CRLF

$txt[0] = GUICtrlRead($ttlpreg[0])&@CRLF&@CRLF&GUICtrlRead($opc[0][0],1)&@CRLF&GUICtrlRead($opc[0][1],1)&@CRLF&GUICtrlRead($opc[0][2],1)&@CRLF&GUICtrlRead($opc[0][3],1)&@CRLF&@CRLF&"Opción: "&$letra[0]&" "&$resul[0]&@CRLF
$txt[1] = GUICtrlRead($ttlpreg[1])&@CRLF&@CRLF&GUICtrlRead($opc[1][0],1)&@CRLF&GUICtrlRead($opc[1][1],1)&@CRLF&GUICtrlRead($opc[1][2],1)&@CRLF&GUICtrlRead($opc[1][3],1)&@CRLF&@CRLF&"Opción: "&$letra[1]&" "&$resul[1]&@CRLF
$txt[2] = GUICtrlRead($ttlpreg[2])&@CRLF&@CRLF&GUICtrlRead($opc[2][0],1)&@CRLF&GUICtrlRead($opc[2][1],1)&@CRLF&GUICtrlRead($opc[2][2],1)&@CRLF&GUICtrlRead($opc[2][3],1)&@CRLF&@CRLF&"Opción: "&$letra[2]&" "&$resul[2]&@CRLF
$txt[3] = GUICtrlRead($ttlpreg[3])&@CRLF&@CRLF&GUICtrlRead($opc[3][0],1)&@CRLF&GUICtrlRead($opc[3][1],1)&@CRLF&GUICtrlRead($opc[3][2],1)&@CRLF&GUICtrlRead($opc[3][3],1)&@CRLF&@CRLF&"Opción: "&$letra[3]&" "&$resul[3]&@CRLF
$txt[4] = GUICtrlRead($ttlpreg[4])&@CRLF&@CRLF&GUICtrlRead($opc[4][0],1)&@CRLF&GUICtrlRead($opc[4][1],1)&@CRLF&GUICtrlRead($opc[4][2],1)&@CRLF&GUICtrlRead($opc[4][3],1)&@CRLF&@CRLF&"Opción: "&$letra[4]&" "&$resul[4]&@CRLF
$txt[5] = GUICtrlRead($ttlpreg[5])&@CRLF&@CRLF&GUICtrlRead($opc[5][0],1)&@CRLF&GUICtrlRead($opc[5][1],1)&@CRLF&GUICtrlRead($opc[5][2],1)&@CRLF&GUICtrlRead($opc[5][3],1)&@CRLF&@CRLF&"Opción: "&$letra[5]&" "&$resul[5]&@CRLF
$txt[6] = GUICtrlRead($ttlpreg[6])&@CRLF&@CRLF&GUICtrlRead($opc[6][0],1)&@CRLF&GUICtrlRead($opc[6][1],1)&@CRLF&GUICtrlRead($opc[6][2],1)&@CRLF&GUICtrlRead($opc[6][3],1)&@CRLF&@CRLF&"Opción: "&$letra[6]&" "&$resul[6]&@CRLF
$txt[7] = GUICtrlRead($ttlpreg[7])&@CRLF&@CRLF&GUICtrlRead($opc[7][0],1)&@CRLF&GUICtrlRead($opc[7][1],1)&@CRLF&GUICtrlRead($opc[7][2],1)&@CRLF&GUICtrlRead($opc[7][3],1)&@CRLF&@CRLF&"Opción: "&$letra[7]&" "&$resul[7]&@CRLF
$txt[8] = GUICtrlRead($ttlpreg[8])&@CRLF&@CRLF&GUICtrlRead($opc[8][0],1)&@CRLF&GUICtrlRead($opc[8][1],1)&@CRLF&GUICtrlRead($opc[8][2],1)&@CRLF&GUICtrlRead($opc[8][3],1)&@CRLF&@CRLF&"Opción: "&$letra[8]&" "&$resul[8]&@CRLF
$txt[9] = GUICtrlRead($ttlpreg[9])&@CRLF&@CRLF&GUICtrlRead($opc[9][0],1)&@CRLF&GUICtrlRead($opc[9][1],1)&@CRLF&GUICtrlRead($opc[9][2],1)&@CRLF&GUICtrlRead($opc[9][3],1)&@CRLF&@CRLF&"Opción: "&$letra[9]&" "&$resul[9]&@CRLF
$txt[10] = GUICtrlRead($ttlpreg[10])&@CRLF&@CRLF&GUICtrlRead($opc[10][0],1)&@CRLF&GUICtrlRead($opc[10][1],1)&@CRLF&GUICtrlRead($opc[10][2],1)&@CRLF&GUICtrlRead($opc[10][3],1)&@CRLF&@CRLF&"Opción: "&$letra[10]&" "&$resul[10]&@CRLF
$txt[11] = GUICtrlRead($ttlpreg[11])&@CRLF&@CRLF&GUICtrlRead($opc[11][0],1)&@CRLF&GUICtrlRead($opc[11][1],1)&@CRLF&GUICtrlRead($opc[11][2],1)&@CRLF&GUICtrlRead($opc[11][3],1)&@CRLF&@CRLF&"Opción: "&$letra[11]&" "&$resul[11]&@CRLF
$txt[12] = GUICtrlRead($ttlpreg[12])&@CRLF&@CRLF&GUICtrlRead($opc[12][0],1)&@CRLF&GUICtrlRead($opc[12][1],1)&@CRLF&GUICtrlRead($opc[12][2],1)&@CRLF&GUICtrlRead($opc[12][3],1)&@CRLF&@CRLF&"Opción: "&$letra[12]&" "&$resul[12]&@CRLF
$txt[13] = GUICtrlRead($ttlpreg[13])&@CRLF&@CRLF&GUICtrlRead($opc[13][0],1)&@CRLF&GUICtrlRead($opc[13][1],1)&@CRLF&GUICtrlRead($opc[13][2],1)&@CRLF&GUICtrlRead($opc[13][3],1)&@CRLF&@CRLF&"Opción: "&$letra[13]&" "&$resul[13]&@CRLF
$txt[14] = GUICtrlRead($ttlpreg[14])&@CRLF&@CRLF&GUICtrlRead($opc[14][0],1)&@CRLF&GUICtrlRead($opc[14][1],1)&@CRLF&GUICtrlRead($opc[14][2],1)&@CRLF&GUICtrlRead($opc[14][3],1)&@CRLF&@CRLF&"Opción: "&$letra[14]&" "&$resul[14]&@CRLF
$txt[15] = GUICtrlRead($ttlpreg[15])&@CRLF&@CRLF&GUICtrlRead($opc[15][0],1)&@CRLF&GUICtrlRead($opc[15][1],1)&@CRLF&GUICtrlRead($opc[15][2],1)&@CRLF&GUICtrlRead($opc[15][3],1)&@CRLF&@CRLF&"Opción: "&$letra[15]&" "&$resul[15]&@CRLF
$txt[16] = GUICtrlRead($ttlpreg[16])&@CRLF&@CRLF&GUICtrlRead($opc[16][0],1)&@CRLF&GUICtrlRead($opc[16][1],1)&@CRLF&GUICtrlRead($opc[16][2],1)&@CRLF&GUICtrlRead($opc[16][3],1)&@CRLF&@CRLF&"Opción: "&$letra[16]&" "&$resul[16]&@CRLF
$txt[17] = GUICtrlRead($ttlpreg[17])&@CRLF&@CRLF&GUICtrlRead($opc[17][0],1)&@CRLF&GUICtrlRead($opc[17][1],1)&@CRLF&GUICtrlRead($opc[17][2],1)&@CRLF&GUICtrlRead($opc[17][3],1)&@CRLF&@CRLF&"Opción: "&$letra[17]&" "&$resul[17]&@CRLF
$txt[18] = GUICtrlRead($ttlpreg[18])&@CRLF&@CRLF&GUICtrlRead($opc[18][0],1)&@CRLF&GUICtrlRead($opc[18][1],1)&@CRLF&GUICtrlRead($opc[18][2],1)&@CRLF&GUICtrlRead($opc[18][3],1)&@CRLF&@CRLF&"Opción: "&$letra[18]&" "&$resul[18]&@CRLF
$txt[19] = GUICtrlRead($ttlpreg[19])&@CRLF&@CRLF&GUICtrlRead($opc[19][0],1)&@CRLF&GUICtrlRead($opc[19][1],1)&@CRLF&GUICtrlRead($opc[19][2],1)&@CRLF&GUICtrlRead($opc[19][3],1)&@CRLF&@CRLF&"Opción: "&$letra[19]&" "&$resul[19]&@CRLF
$txt[20] = GUICtrlRead($ttlpreg[20])&@CRLF&@CRLF&GUICtrlRead($opc[20][0],1)&@CRLF&GUICtrlRead($opc[20][1],1)&@CRLF&GUICtrlRead($opc[20][2],1)&@CRLF&GUICtrlRead($opc[20][3],1)&@CRLF&@CRLF&"Opción: "&$letra[20]&" "&$resul[20]&@CRLF
$txt[21] = GUICtrlRead($ttlpreg[21])&@CRLF&@CRLF&GUICtrlRead($opc[21][0],1)&@CRLF&GUICtrlRead($opc[21][1],1)&@CRLF&GUICtrlRead($opc[21][2],1)&@CRLF&GUICtrlRead($opc[21][3],1)&@CRLF&@CRLF&"Opción: "&$letra[21]&" "&$resul[21]&@CRLF
$txt[22] = GUICtrlRead($ttlpreg[22])&@CRLF&@CRLF&GUICtrlRead($opc[22][0],1)&@CRLF&GUICtrlRead($opc[22][1],1)&@CRLF&GUICtrlRead($opc[22][2],1)&@CRLF&GUICtrlRead($opc[22][3],1)&@CRLF&@CRLF&"Opción: "&$letra[22]&" "&$resul[22]&@CRLF
$txt[23] = GUICtrlRead($ttlpreg[23])&@CRLF&@CRLF&GUICtrlRead($opc[23][0],1)&@CRLF&GUICtrlRead($opc[23][1],1)&@CRLF&GUICtrlRead($opc[23][2],1)&@CRLF&GUICtrlRead($opc[23][3],1)&@CRLF&@CRLF&"Opción: "&$letra[23]&" "&$resul[23]&@CRLF
$txt[24] = GUICtrlRead($ttlpreg[24])&@CRLF&@CRLF&GUICtrlRead($opc[24][0],1)&@CRLF&GUICtrlRead($opc[24][1],1)&@CRLF&GUICtrlRead($opc[24][2],1)&@CRLF&GUICtrlRead($opc[24][3],1)&@CRLF&@CRLF&"Opción: "&$letra[24]&" "&$resul[24]&@CRLF
$txt[25] = GUICtrlRead($ttlpreg[25])&@CRLF&@CRLF&GUICtrlRead($opc[25][0],1)&@CRLF&GUICtrlRead($opc[25][1],1)&@CRLF&GUICtrlRead($opc[25][2],1)&@CRLF&GUICtrlRead($opc[25][3],1)&@CRLF&@CRLF&"Opción: "&$letra[25]&" "&$resul[25]&@CRLF
$txt[26] = GUICtrlRead($ttlpreg[26])&@CRLF&@CRLF&GUICtrlRead($opc[26][0],1)&@CRLF&GUICtrlRead($opc[26][1],1)&@CRLF&GUICtrlRead($opc[26][2],1)&@CRLF&GUICtrlRead($opc[26][3],1)&@CRLF&@CRLF&"Opción: "&$letra[26]&" "&$resul[26]&@CRLF
$txt[27] = GUICtrlRead($ttlpreg[27])&@CRLF&@CRLF&GUICtrlRead($opc[27][0],1)&@CRLF&GUICtrlRead($opc[27][1],1)&@CRLF&GUICtrlRead($opc[27][2],1)&@CRLF&GUICtrlRead($opc[27][3],1)&@CRLF&@CRLF&"Opción: "&$letra[27]&" "&$resul[27]&@CRLF
$txt[28] = GUICtrlRead($ttlpreg[28])&@CRLF&@CRLF&GUICtrlRead($opc[28][0],1)&@CRLF&GUICtrlRead($opc[28][1],1)&@CRLF&GUICtrlRead($opc[28][2],1)&@CRLF&GUICtrlRead($opc[28][3],1)&@CRLF&@CRLF&"Opción: "&$letra[28]&" "&$resul[28]&@CRLF
$txt[29] = GUICtrlRead($ttlpreg[29])&@CRLF&@CRLF&GUICtrlRead($opc[29][0],1)&@CRLF&GUICtrlRead($opc[29][1],1)&@CRLF&GUICtrlRead($opc[29][2],1)&@CRLF&GUICtrlRead($opc[29][3],1)&@CRLF&@CRLF&"Opción: "&$letra[29]&" "&$resul[29]&@CRLF

FileWrite($file,$txtttl)
FileWrite($file,"********************************************************************"&@CRLF)
FileWrite($file,$txt[0])
FileWrite($file,"********************************************************************"&@CRLF)
FileWrite($file,$txt[1])
FileWrite($file,"********************************************************************"&@CRLF)
FileWrite($file,$txt[2])
FileWrite($file,"********************************************************************"&@CRLF)
FileWrite($file,$txt[3])
FileWrite($file,"********************************************************************"&@CRLF)
FileWrite($file,$txt[4])
FileWrite($file,"********************************************************************"&@CRLF)
FileWrite($file,$txt[5])
FileWrite($file,"********************************************************************"&@CRLF)
FileWrite($file,$txt[6])
FileWrite($file,"********************************************************************"&@CRLF)
FileWrite($file,$txt[7])
FileWrite($file,"********************************************************************"&@CRLF)
FileWrite($file,$txt[8])
FileWrite($file,"********************************************************************"&@CRLF)
FileWrite($file,$txt[9])
FileWrite($file,"********************************************************************"&@CRLF)
FileWrite($file,$txt[10])
FileWrite($file,"********************************************************************"&@CRLF)
FileWrite($file,$txt[11])
FileWrite($file,"********************************************************************"&@CRLF)
FileWrite($file,$txt[12])
FileWrite($file,"********************************************************************"&@CRLF)
FileWrite($file,$txt[13])
FileWrite($file,"********************************************************************"&@CRLF)
FileWrite($file,$txt[14])
FileWrite($file,"********************************************************************"&@CRLF)
FileWrite($file,$txt[15])
FileWrite($file,"********************************************************************"&@CRLF)
FileWrite($file,$txt[16])
FileWrite($file,"********************************************************************"&@CRLF)
FileWrite($file,$txt[17])
FileWrite($file,"********************************************************************"&@CRLF)
FileWrite($file,$txt[18])
FileWrite($file,"********************************************************************"&@CRLF)
FileWrite($file,$txt[19])
FileWrite($file,"********************************************************************"&@CRLF)
FileWrite($file,$txt[20])
FileWrite($file,"********************************************************************"&@CRLF)
FileWrite($file,$txt[21])
FileWrite($file,"********************************************************************"&@CRLF)
FileWrite($file,$txt[22])
FileWrite($file,"********************************************************************"&@CRLF)
FileWrite($file,$txt[23])
FileWrite($file,"********************************************************************"&@CRLF)
FileWrite($file,$txt[24])
FileWrite($file,"********************************************************************"&@CRLF)
FileWrite($file,$txt[25])
FileWrite($file,"********************************************************************"&@CRLF)
FileWrite($file,$txt[26])
FileWrite($file,"********************************************************************"&@CRLF)
FileWrite($file,$txt[27])
FileWrite($file,"********************************************************************"&@CRLF)
FileWrite($file,$txt[28])
FileWrite($file,"********************************************************************"&@CRLF)
FileWrite($file,$txt[29])
	Sleep(2000)
	FileSetAttrib(@DesktopCommonDir&"\Examen Teclado "&$nombre&".doc","+RS")
	FileClose($file)

	$file = FileOpen(@MyDocumentsDir&"\Examen Teclado "&$nombre&".doc",1)
	Sleep(2000)

$txtttl = "					"&$titulo&@CRLF&@CRLF&"Puntuacion total: "&$contar&" puntos de 30"&@CRLF&@CRLF&"Nombre: "&$nombre&"		Fecha: "&$fecha&@CRLF&@CRLF&"Nivel: "&$nivel&"		Horario de clases: "&$horario&@CRLF&@CRLF&"				"&$arreglo&@CRLF&@CRLF

$txt[0] = GUICtrlRead($ttlpreg[0])&@CRLF&@CRLF&GUICtrlRead($opc[0][0],1)&@CRLF&GUICtrlRead($opc[0][1],1)&@CRLF&GUICtrlRead($opc[0][2],1)&@CRLF&GUICtrlRead($opc[0][3],1)&@CRLF&@CRLF&"Opción: "&$letra[0]&" "&$resul[0]&@CRLF
$txt[1] = GUICtrlRead($ttlpreg[1])&@CRLF&@CRLF&GUICtrlRead($opc[1][0],1)&@CRLF&GUICtrlRead($opc[1][1],1)&@CRLF&GUICtrlRead($opc[1][2],1)&@CRLF&GUICtrlRead($opc[1][3],1)&@CRLF&@CRLF&"Opción: "&$letra[1]&" "&$resul[1]&@CRLF
$txt[2] = GUICtrlRead($ttlpreg[2])&@CRLF&@CRLF&GUICtrlRead($opc[2][0],1)&@CRLF&GUICtrlRead($opc[2][1],1)&@CRLF&GUICtrlRead($opc[2][2],1)&@CRLF&GUICtrlRead($opc[2][3],1)&@CRLF&@CRLF&"Opción: "&$letra[2]&" "&$resul[2]&@CRLF
$txt[3] = GUICtrlRead($ttlpreg[3])&@CRLF&@CRLF&GUICtrlRead($opc[3][0],1)&@CRLF&GUICtrlRead($opc[3][1],1)&@CRLF&GUICtrlRead($opc[3][2],1)&@CRLF&GUICtrlRead($opc[3][3],1)&@CRLF&@CRLF&"Opción: "&$letra[3]&" "&$resul[3]&@CRLF
$txt[4] = GUICtrlRead($ttlpreg[4])&@CRLF&@CRLF&GUICtrlRead($opc[4][0],1)&@CRLF&GUICtrlRead($opc[4][1],1)&@CRLF&GUICtrlRead($opc[4][2],1)&@CRLF&GUICtrlRead($opc[4][3],1)&@CRLF&@CRLF&"Opción: "&$letra[4]&" "&$resul[4]&@CRLF
$txt[5] = GUICtrlRead($ttlpreg[5])&@CRLF&@CRLF&GUICtrlRead($opc[5][0],1)&@CRLF&GUICtrlRead($opc[5][1],1)&@CRLF&GUICtrlRead($opc[5][2],1)&@CRLF&GUICtrlRead($opc[5][3],1)&@CRLF&@CRLF&"Opción: "&$letra[5]&" "&$resul[5]&@CRLF
$txt[6] = GUICtrlRead($ttlpreg[6])&@CRLF&@CRLF&GUICtrlRead($opc[6][0],1)&@CRLF&GUICtrlRead($opc[6][1],1)&@CRLF&GUICtrlRead($opc[6][2],1)&@CRLF&GUICtrlRead($opc[6][3],1)&@CRLF&@CRLF&"Opción: "&$letra[6]&" "&$resul[6]&@CRLF
$txt[7] = GUICtrlRead($ttlpreg[7])&@CRLF&@CRLF&GUICtrlRead($opc[7][0],1)&@CRLF&GUICtrlRead($opc[7][1],1)&@CRLF&GUICtrlRead($opc[7][2],1)&@CRLF&GUICtrlRead($opc[7][3],1)&@CRLF&@CRLF&"Opción: "&$letra[7]&" "&$resul[7]&@CRLF
$txt[8] = GUICtrlRead($ttlpreg[8])&@CRLF&@CRLF&GUICtrlRead($opc[8][0],1)&@CRLF&GUICtrlRead($opc[8][1],1)&@CRLF&GUICtrlRead($opc[8][2],1)&@CRLF&GUICtrlRead($opc[8][3],1)&@CRLF&@CRLF&"Opción: "&$letra[8]&" "&$resul[8]&@CRLF
$txt[9] = GUICtrlRead($ttlpreg[9])&@CRLF&@CRLF&GUICtrlRead($opc[9][0],1)&@CRLF&GUICtrlRead($opc[9][1],1)&@CRLF&GUICtrlRead($opc[9][2],1)&@CRLF&GUICtrlRead($opc[9][3],1)&@CRLF&@CRLF&"Opción: "&$letra[9]&" "&$resul[9]&@CRLF
$txt[10] = GUICtrlRead($ttlpreg[10])&@CRLF&@CRLF&GUICtrlRead($opc[10][0],1)&@CRLF&GUICtrlRead($opc[10][1],1)&@CRLF&GUICtrlRead($opc[10][2],1)&@CRLF&GUICtrlRead($opc[10][3],1)&@CRLF&@CRLF&"Opción: "&$letra[10]&" "&$resul[10]&@CRLF
$txt[11] = GUICtrlRead($ttlpreg[11])&@CRLF&@CRLF&GUICtrlRead($opc[11][0],1)&@CRLF&GUICtrlRead($opc[11][1],1)&@CRLF&GUICtrlRead($opc[11][2],1)&@CRLF&GUICtrlRead($opc[11][3],1)&@CRLF&@CRLF&"Opción: "&$letra[11]&" "&$resul[11]&@CRLF
$txt[12] = GUICtrlRead($ttlpreg[12])&@CRLF&@CRLF&GUICtrlRead($opc[12][0],1)&@CRLF&GUICtrlRead($opc[12][1],1)&@CRLF&GUICtrlRead($opc[12][2],1)&@CRLF&GUICtrlRead($opc[12][3],1)&@CRLF&@CRLF&"Opción: "&$letra[12]&" "&$resul[12]&@CRLF
$txt[13] = GUICtrlRead($ttlpreg[13])&@CRLF&@CRLF&GUICtrlRead($opc[13][0],1)&@CRLF&GUICtrlRead($opc[13][1],1)&@CRLF&GUICtrlRead($opc[13][2],1)&@CRLF&GUICtrlRead($opc[13][3],1)&@CRLF&@CRLF&"Opción: "&$letra[13]&" "&$resul[13]&@CRLF
$txt[14] = GUICtrlRead($ttlpreg[14])&@CRLF&@CRLF&GUICtrlRead($opc[14][0],1)&@CRLF&GUICtrlRead($opc[14][1],1)&@CRLF&GUICtrlRead($opc[14][2],1)&@CRLF&GUICtrlRead($opc[14][3],1)&@CRLF&@CRLF&"Opción: "&$letra[14]&" "&$resul[14]&@CRLF
$txt[15] = GUICtrlRead($ttlpreg[15])&@CRLF&@CRLF&GUICtrlRead($opc[15][0],1)&@CRLF&GUICtrlRead($opc[15][1],1)&@CRLF&GUICtrlRead($opc[15][2],1)&@CRLF&GUICtrlRead($opc[15][3],1)&@CRLF&@CRLF&"Opción: "&$letra[15]&" "&$resul[15]&@CRLF
$txt[16] = GUICtrlRead($ttlpreg[16])&@CRLF&@CRLF&GUICtrlRead($opc[16][0],1)&@CRLF&GUICtrlRead($opc[16][1],1)&@CRLF&GUICtrlRead($opc[16][2],1)&@CRLF&GUICtrlRead($opc[16][3],1)&@CRLF&@CRLF&"Opción: "&$letra[16]&" "&$resul[16]&@CRLF
$txt[17] = GUICtrlRead($ttlpreg[17])&@CRLF&@CRLF&GUICtrlRead($opc[17][0],1)&@CRLF&GUICtrlRead($opc[17][1],1)&@CRLF&GUICtrlRead($opc[17][2],1)&@CRLF&GUICtrlRead($opc[17][3],1)&@CRLF&@CRLF&"Opción: "&$letra[17]&" "&$resul[17]&@CRLF
$txt[18] = GUICtrlRead($ttlpreg[18])&@CRLF&@CRLF&GUICtrlRead($opc[18][0],1)&@CRLF&GUICtrlRead($opc[18][1],1)&@CRLF&GUICtrlRead($opc[18][2],1)&@CRLF&GUICtrlRead($opc[18][3],1)&@CRLF&@CRLF&"Opción: "&$letra[18]&" "&$resul[18]&@CRLF
$txt[19] = GUICtrlRead($ttlpreg[19])&@CRLF&@CRLF&GUICtrlRead($opc[19][0],1)&@CRLF&GUICtrlRead($opc[19][1],1)&@CRLF&GUICtrlRead($opc[19][2],1)&@CRLF&GUICtrlRead($opc[19][3],1)&@CRLF&@CRLF&"Opción: "&$letra[19]&" "&$resul[19]&@CRLF
$txt[20] = GUICtrlRead($ttlpreg[20])&@CRLF&@CRLF&GUICtrlRead($opc[20][0],1)&@CRLF&GUICtrlRead($opc[20][1],1)&@CRLF&GUICtrlRead($opc[20][2],1)&@CRLF&GUICtrlRead($opc[20][3],1)&@CRLF&@CRLF&"Opción: "&$letra[20]&" "&$resul[20]&@CRLF
$txt[21] = GUICtrlRead($ttlpreg[21])&@CRLF&@CRLF&GUICtrlRead($opc[21][0],1)&@CRLF&GUICtrlRead($opc[21][1],1)&@CRLF&GUICtrlRead($opc[21][2],1)&@CRLF&GUICtrlRead($opc[21][3],1)&@CRLF&@CRLF&"Opción: "&$letra[21]&" "&$resul[21]&@CRLF
$txt[22] = GUICtrlRead($ttlpreg[22])&@CRLF&@CRLF&GUICtrlRead($opc[22][0],1)&@CRLF&GUICtrlRead($opc[22][1],1)&@CRLF&GUICtrlRead($opc[22][2],1)&@CRLF&GUICtrlRead($opc[22][3],1)&@CRLF&@CRLF&"Opción: "&$letra[22]&" "&$resul[22]&@CRLF
$txt[23] = GUICtrlRead($ttlpreg[23])&@CRLF&@CRLF&GUICtrlRead($opc[23][0],1)&@CRLF&GUICtrlRead($opc[23][1],1)&@CRLF&GUICtrlRead($opc[23][2],1)&@CRLF&GUICtrlRead($opc[23][3],1)&@CRLF&@CRLF&"Opción: "&$letra[23]&" "&$resul[23]&@CRLF
$txt[24] = GUICtrlRead($ttlpreg[24])&@CRLF&@CRLF&GUICtrlRead($opc[24][0],1)&@CRLF&GUICtrlRead($opc[24][1],1)&@CRLF&GUICtrlRead($opc[24][2],1)&@CRLF&GUICtrlRead($opc[24][3],1)&@CRLF&@CRLF&"Opción: "&$letra[24]&" "&$resul[24]&@CRLF
$txt[25] = GUICtrlRead($ttlpreg[25])&@CRLF&@CRLF&GUICtrlRead($opc[25][0],1)&@CRLF&GUICtrlRead($opc[25][1],1)&@CRLF&GUICtrlRead($opc[25][2],1)&@CRLF&GUICtrlRead($opc[25][3],1)&@CRLF&@CRLF&"Opción: "&$letra[25]&" "&$resul[25]&@CRLF
$txt[26] = GUICtrlRead($ttlpreg[26])&@CRLF&@CRLF&GUICtrlRead($opc[26][0],1)&@CRLF&GUICtrlRead($opc[26][1],1)&@CRLF&GUICtrlRead($opc[26][2],1)&@CRLF&GUICtrlRead($opc[26][3],1)&@CRLF&@CRLF&"Opción: "&$letra[26]&" "&$resul[26]&@CRLF
$txt[27] = GUICtrlRead($ttlpreg[27])&@CRLF&@CRLF&GUICtrlRead($opc[27][0],1)&@CRLF&GUICtrlRead($opc[27][1],1)&@CRLF&GUICtrlRead($opc[27][2],1)&@CRLF&GUICtrlRead($opc[27][3],1)&@CRLF&@CRLF&"Opción: "&$letra[27]&" "&$resul[27]&@CRLF
$txt[28] = GUICtrlRead($ttlpreg[28])&@CRLF&@CRLF&GUICtrlRead($opc[28][0],1)&@CRLF&GUICtrlRead($opc[28][1],1)&@CRLF&GUICtrlRead($opc[28][2],1)&@CRLF&GUICtrlRead($opc[28][3],1)&@CRLF&@CRLF&"Opción: "&$letra[28]&" "&$resul[28]&@CRLF
$txt[29] = GUICtrlRead($ttlpreg[29])&@CRLF&@CRLF&GUICtrlRead($opc[29][0],1)&@CRLF&GUICtrlRead($opc[29][1],1)&@CRLF&GUICtrlRead($opc[29][2],1)&@CRLF&GUICtrlRead($opc[29][3],1)&@CRLF&@CRLF&"Opción: "&$letra[29]&" "&$resul[29]&@CRLF

FileWrite($file,$txtttl)
FileWrite($file,"********************************************************************"&@CRLF)
FileWrite($file,$txt[0])
FileWrite($file,"********************************************************************"&@CRLF)
FileWrite($file,$txt[1])
FileWrite($file,"********************************************************************"&@CRLF)
FileWrite($file,$txt[2])
FileWrite($file,"********************************************************************"&@CRLF)
FileWrite($file,$txt[3])
FileWrite($file,"********************************************************************"&@CRLF)
FileWrite($file,$txt[4])
FileWrite($file,"********************************************************************"&@CRLF)
FileWrite($file,$txt[5])
FileWrite($file,"********************************************************************"&@CRLF)
FileWrite($file,$txt[6])
FileWrite($file,"********************************************************************"&@CRLF)
FileWrite($file,$txt[7])
FileWrite($file,"********************************************************************"&@CRLF)
FileWrite($file,$txt[8])
FileWrite($file,"********************************************************************"&@CRLF)
FileWrite($file,$txt[9])
FileWrite($file,"********************************************************************"&@CRLF)
FileWrite($file,$txt[10])
FileWrite($file,"********************************************************************"&@CRLF)
FileWrite($file,$txt[11])
FileWrite($file,"********************************************************************"&@CRLF)
FileWrite($file,$txt[12])
FileWrite($file,"********************************************************************"&@CRLF)
FileWrite($file,$txt[13])
FileWrite($file,"********************************************************************"&@CRLF)
FileWrite($file,$txt[14])
FileWrite($file,"********************************************************************"&@CRLF)
FileWrite($file,$txt[15])
FileWrite($file,"********************************************************************"&@CRLF)
FileWrite($file,$txt[16])
FileWrite($file,"********************************************************************"&@CRLF)
FileWrite($file,$txt[17])
FileWrite($file,"********************************************************************"&@CRLF)
FileWrite($file,$txt[18])
FileWrite($file,"********************************************************************"&@CRLF)
FileWrite($file,$txt[19])
FileWrite($file,"********************************************************************"&@CRLF)
FileWrite($file,$txt[20])
FileWrite($file,"********************************************************************"&@CRLF)
FileWrite($file,$txt[21])
FileWrite($file,"********************************************************************"&@CRLF)
FileWrite($file,$txt[22])
FileWrite($file,"********************************************************************"&@CRLF)
FileWrite($file,$txt[23])
FileWrite($file,"********************************************************************"&@CRLF)
FileWrite($file,$txt[24])
FileWrite($file,"********************************************************************"&@CRLF)
FileWrite($file,$txt[25])
FileWrite($file,"********************************************************************"&@CRLF)
FileWrite($file,$txt[26])
FileWrite($file,"********************************************************************"&@CRLF)
FileWrite($file,$txt[27])
FileWrite($file,"********************************************************************"&@CRLF)
FileWrite($file,$txt[28])
FileWrite($file,"********************************************************************"&@CRLF)
FileWrite($file,$txt[29])
	Sleep(2000)
	FileSetAttrib(@MyDocumentsDir&"\Examen Teclado "&$nombre&".doc","+RS")
	FileClose($file)

$file = FileOpen("\\servidor\Mis documentos\Examen Teclado "&$nombre&".doc",1)
	Sleep(2000)

$txtttl = "					"&$titulo&@CRLF&@CRLF&"Puntuacion total: "&$contar&" puntos de 30"&@CRLF&@CRLF&"Nombre: "&$nombre&"		Fecha: "&$fecha&@CRLF&@CRLF&"Nivel: "&$nivel&"		Horario de clases: "&$horario&@CRLF&@CRLF&"				"&$arreglo&@CRLF&@CRLF

$txt[0] = GUICtrlRead($ttlpreg[0])&@CRLF&@CRLF&GUICtrlRead($opc[0][0],1)&@CRLF&GUICtrlRead($opc[0][1],1)&@CRLF&GUICtrlRead($opc[0][2],1)&@CRLF&GUICtrlRead($opc[0][3],1)&@CRLF&@CRLF&"Opción: "&$letra[0]&" "&$resul[0]&@CRLF
$txt[1] = GUICtrlRead($ttlpreg[1])&@CRLF&@CRLF&GUICtrlRead($opc[1][0],1)&@CRLF&GUICtrlRead($opc[1][1],1)&@CRLF&GUICtrlRead($opc[1][2],1)&@CRLF&GUICtrlRead($opc[1][3],1)&@CRLF&@CRLF&"Opción: "&$letra[1]&" "&$resul[1]&@CRLF
$txt[2] = GUICtrlRead($ttlpreg[2])&@CRLF&@CRLF&GUICtrlRead($opc[2][0],1)&@CRLF&GUICtrlRead($opc[2][1],1)&@CRLF&GUICtrlRead($opc[2][2],1)&@CRLF&GUICtrlRead($opc[2][3],1)&@CRLF&@CRLF&"Opción: "&$letra[2]&" "&$resul[2]&@CRLF
$txt[3] = GUICtrlRead($ttlpreg[3])&@CRLF&@CRLF&GUICtrlRead($opc[3][0],1)&@CRLF&GUICtrlRead($opc[3][1],1)&@CRLF&GUICtrlRead($opc[3][2],1)&@CRLF&GUICtrlRead($opc[3][3],1)&@CRLF&@CRLF&"Opción: "&$letra[3]&" "&$resul[3]&@CRLF
$txt[4] = GUICtrlRead($ttlpreg[4])&@CRLF&@CRLF&GUICtrlRead($opc[4][0],1)&@CRLF&GUICtrlRead($opc[4][1],1)&@CRLF&GUICtrlRead($opc[4][2],1)&@CRLF&GUICtrlRead($opc[4][3],1)&@CRLF&@CRLF&"Opción: "&$letra[4]&" "&$resul[4]&@CRLF
$txt[5] = GUICtrlRead($ttlpreg[5])&@CRLF&@CRLF&GUICtrlRead($opc[5][0],1)&@CRLF&GUICtrlRead($opc[5][1],1)&@CRLF&GUICtrlRead($opc[5][2],1)&@CRLF&GUICtrlRead($opc[5][3],1)&@CRLF&@CRLF&"Opción: "&$letra[5]&" "&$resul[5]&@CRLF
$txt[6] = GUICtrlRead($ttlpreg[6])&@CRLF&@CRLF&GUICtrlRead($opc[6][0],1)&@CRLF&GUICtrlRead($opc[6][1],1)&@CRLF&GUICtrlRead($opc[6][2],1)&@CRLF&GUICtrlRead($opc[6][3],1)&@CRLF&@CRLF&"Opción: "&$letra[6]&" "&$resul[6]&@CRLF
$txt[7] = GUICtrlRead($ttlpreg[7])&@CRLF&@CRLF&GUICtrlRead($opc[7][0],1)&@CRLF&GUICtrlRead($opc[7][1],1)&@CRLF&GUICtrlRead($opc[7][2],1)&@CRLF&GUICtrlRead($opc[7][3],1)&@CRLF&@CRLF&"Opción: "&$letra[7]&" "&$resul[7]&@CRLF
$txt[8] = GUICtrlRead($ttlpreg[8])&@CRLF&@CRLF&GUICtrlRead($opc[8][0],1)&@CRLF&GUICtrlRead($opc[8][1],1)&@CRLF&GUICtrlRead($opc[8][2],1)&@CRLF&GUICtrlRead($opc[8][3],1)&@CRLF&@CRLF&"Opción: "&$letra[8]&" "&$resul[8]&@CRLF
$txt[9] = GUICtrlRead($ttlpreg[9])&@CRLF&@CRLF&GUICtrlRead($opc[9][0],1)&@CRLF&GUICtrlRead($opc[9][1],1)&@CRLF&GUICtrlRead($opc[9][2],1)&@CRLF&GUICtrlRead($opc[9][3],1)&@CRLF&@CRLF&"Opción: "&$letra[9]&" "&$resul[9]&@CRLF
$txt[10] = GUICtrlRead($ttlpreg[10])&@CRLF&@CRLF&GUICtrlRead($opc[10][0],1)&@CRLF&GUICtrlRead($opc[10][1],1)&@CRLF&GUICtrlRead($opc[10][2],1)&@CRLF&GUICtrlRead($opc[10][3],1)&@CRLF&@CRLF&"Opción: "&$letra[10]&" "&$resul[10]&@CRLF
$txt[11] = GUICtrlRead($ttlpreg[11])&@CRLF&@CRLF&GUICtrlRead($opc[11][0],1)&@CRLF&GUICtrlRead($opc[11][1],1)&@CRLF&GUICtrlRead($opc[11][2],1)&@CRLF&GUICtrlRead($opc[11][3],1)&@CRLF&@CRLF&"Opción: "&$letra[11]&" "&$resul[11]&@CRLF
$txt[12] = GUICtrlRead($ttlpreg[12])&@CRLF&@CRLF&GUICtrlRead($opc[12][0],1)&@CRLF&GUICtrlRead($opc[12][1],1)&@CRLF&GUICtrlRead($opc[12][2],1)&@CRLF&GUICtrlRead($opc[12][3],1)&@CRLF&@CRLF&"Opción: "&$letra[12]&" "&$resul[12]&@CRLF
$txt[13] = GUICtrlRead($ttlpreg[13])&@CRLF&@CRLF&GUICtrlRead($opc[13][0],1)&@CRLF&GUICtrlRead($opc[13][1],1)&@CRLF&GUICtrlRead($opc[13][2],1)&@CRLF&GUICtrlRead($opc[13][3],1)&@CRLF&@CRLF&"Opción: "&$letra[13]&" "&$resul[13]&@CRLF
$txt[14] = GUICtrlRead($ttlpreg[14])&@CRLF&@CRLF&GUICtrlRead($opc[14][0],1)&@CRLF&GUICtrlRead($opc[14][1],1)&@CRLF&GUICtrlRead($opc[14][2],1)&@CRLF&GUICtrlRead($opc[14][3],1)&@CRLF&@CRLF&"Opción: "&$letra[14]&" "&$resul[14]&@CRLF
$txt[15] = GUICtrlRead($ttlpreg[15])&@CRLF&@CRLF&GUICtrlRead($opc[15][0],1)&@CRLF&GUICtrlRead($opc[15][1],1)&@CRLF&GUICtrlRead($opc[15][2],1)&@CRLF&GUICtrlRead($opc[15][3],1)&@CRLF&@CRLF&"Opción: "&$letra[15]&" "&$resul[15]&@CRLF
$txt[16] = GUICtrlRead($ttlpreg[16])&@CRLF&@CRLF&GUICtrlRead($opc[16][0],1)&@CRLF&GUICtrlRead($opc[16][1],1)&@CRLF&GUICtrlRead($opc[16][2],1)&@CRLF&GUICtrlRead($opc[16][3],1)&@CRLF&@CRLF&"Opción: "&$letra[16]&" "&$resul[16]&@CRLF
$txt[17] = GUICtrlRead($ttlpreg[17])&@CRLF&@CRLF&GUICtrlRead($opc[17][0],1)&@CRLF&GUICtrlRead($opc[17][1],1)&@CRLF&GUICtrlRead($opc[17][2],1)&@CRLF&GUICtrlRead($opc[17][3],1)&@CRLF&@CRLF&"Opción: "&$letra[17]&" "&$resul[17]&@CRLF
$txt[18] = GUICtrlRead($ttlpreg[18])&@CRLF&@CRLF&GUICtrlRead($opc[18][0],1)&@CRLF&GUICtrlRead($opc[18][1],1)&@CRLF&GUICtrlRead($opc[18][2],1)&@CRLF&GUICtrlRead($opc[18][3],1)&@CRLF&@CRLF&"Opción: "&$letra[18]&" "&$resul[18]&@CRLF
$txt[19] = GUICtrlRead($ttlpreg[19])&@CRLF&@CRLF&GUICtrlRead($opc[19][0],1)&@CRLF&GUICtrlRead($opc[19][1],1)&@CRLF&GUICtrlRead($opc[19][2],1)&@CRLF&GUICtrlRead($opc[19][3],1)&@CRLF&@CRLF&"Opción: "&$letra[19]&" "&$resul[19]&@CRLF
$txt[20] = GUICtrlRead($ttlpreg[20])&@CRLF&@CRLF&GUICtrlRead($opc[20][0],1)&@CRLF&GUICtrlRead($opc[20][1],1)&@CRLF&GUICtrlRead($opc[20][2],1)&@CRLF&GUICtrlRead($opc[20][3],1)&@CRLF&@CRLF&"Opción: "&$letra[20]&" "&$resul[20]&@CRLF
$txt[21] = GUICtrlRead($ttlpreg[21])&@CRLF&@CRLF&GUICtrlRead($opc[21][0],1)&@CRLF&GUICtrlRead($opc[21][1],1)&@CRLF&GUICtrlRead($opc[21][2],1)&@CRLF&GUICtrlRead($opc[21][3],1)&@CRLF&@CRLF&"Opción: "&$letra[21]&" "&$resul[21]&@CRLF
$txt[22] = GUICtrlRead($ttlpreg[22])&@CRLF&@CRLF&GUICtrlRead($opc[22][0],1)&@CRLF&GUICtrlRead($opc[22][1],1)&@CRLF&GUICtrlRead($opc[22][2],1)&@CRLF&GUICtrlRead($opc[22][3],1)&@CRLF&@CRLF&"Opción: "&$letra[22]&" "&$resul[22]&@CRLF
$txt[23] = GUICtrlRead($ttlpreg[23])&@CRLF&@CRLF&GUICtrlRead($opc[23][0],1)&@CRLF&GUICtrlRead($opc[23][1],1)&@CRLF&GUICtrlRead($opc[23][2],1)&@CRLF&GUICtrlRead($opc[23][3],1)&@CRLF&@CRLF&"Opción: "&$letra[23]&" "&$resul[23]&@CRLF
$txt[24] = GUICtrlRead($ttlpreg[24])&@CRLF&@CRLF&GUICtrlRead($opc[24][0],1)&@CRLF&GUICtrlRead($opc[24][1],1)&@CRLF&GUICtrlRead($opc[24][2],1)&@CRLF&GUICtrlRead($opc[24][3],1)&@CRLF&@CRLF&"Opción: "&$letra[24]&" "&$resul[24]&@CRLF
$txt[25] = GUICtrlRead($ttlpreg[25])&@CRLF&@CRLF&GUICtrlRead($opc[25][0],1)&@CRLF&GUICtrlRead($opc[25][1],1)&@CRLF&GUICtrlRead($opc[25][2],1)&@CRLF&GUICtrlRead($opc[25][3],1)&@CRLF&@CRLF&"Opción: "&$letra[25]&" "&$resul[25]&@CRLF
$txt[26] = GUICtrlRead($ttlpreg[26])&@CRLF&@CRLF&GUICtrlRead($opc[26][0],1)&@CRLF&GUICtrlRead($opc[26][1],1)&@CRLF&GUICtrlRead($opc[26][2],1)&@CRLF&GUICtrlRead($opc[26][3],1)&@CRLF&@CRLF&"Opción: "&$letra[26]&" "&$resul[26]&@CRLF
$txt[27] = GUICtrlRead($ttlpreg[27])&@CRLF&@CRLF&GUICtrlRead($opc[27][0],1)&@CRLF&GUICtrlRead($opc[27][1],1)&@CRLF&GUICtrlRead($opc[27][2],1)&@CRLF&GUICtrlRead($opc[27][3],1)&@CRLF&@CRLF&"Opción: "&$letra[27]&" "&$resul[27]&@CRLF
$txt[28] = GUICtrlRead($ttlpreg[28])&@CRLF&@CRLF&GUICtrlRead($opc[28][0],1)&@CRLF&GUICtrlRead($opc[28][1],1)&@CRLF&GUICtrlRead($opc[28][2],1)&@CRLF&GUICtrlRead($opc[28][3],1)&@CRLF&@CRLF&"Opción: "&$letra[28]&" "&$resul[28]&@CRLF
$txt[29] = GUICtrlRead($ttlpreg[29])&@CRLF&@CRLF&GUICtrlRead($opc[29][0],1)&@CRLF&GUICtrlRead($opc[29][1],1)&@CRLF&GUICtrlRead($opc[29][2],1)&@CRLF&GUICtrlRead($opc[29][3],1)&@CRLF&@CRLF&"Opción: "&$letra[29]&" "&$resul[29]&@CRLF

FileWrite($file,$txtttl)
FileWrite($file,"********************************************************************"&@CRLF)
FileWrite($file,$txt[0])
FileWrite($file,"********************************************************************"&@CRLF)
FileWrite($file,$txt[1])
FileWrite($file,"********************************************************************"&@CRLF)
FileWrite($file,$txt[2])
FileWrite($file,"********************************************************************"&@CRLF)
FileWrite($file,$txt[3])
FileWrite($file,"********************************************************************"&@CRLF)
FileWrite($file,$txt[4])
FileWrite($file,"********************************************************************"&@CRLF)
FileWrite($file,$txt[5])
FileWrite($file,"********************************************************************"&@CRLF)
FileWrite($file,$txt[6])
FileWrite($file,"********************************************************************"&@CRLF)
FileWrite($file,$txt[7])
FileWrite($file,"********************************************************************"&@CRLF)
FileWrite($file,$txt[8])
FileWrite($file,"********************************************************************"&@CRLF)
FileWrite($file,$txt[9])
FileWrite($file,"********************************************************************"&@CRLF)
FileWrite($file,$txt[10])
FileWrite($file,"********************************************************************"&@CRLF)
FileWrite($file,$txt[11])
FileWrite($file,"********************************************************************"&@CRLF)
FileWrite($file,$txt[12])
FileWrite($file,"********************************************************************"&@CRLF)
FileWrite($file,$txt[13])
FileWrite($file,"********************************************************************"&@CRLF)
FileWrite($file,$txt[14])
FileWrite($file,"********************************************************************"&@CRLF)
FileWrite($file,$txt[15])
FileWrite($file,"********************************************************************"&@CRLF)
FileWrite($file,$txt[16])
FileWrite($file,"********************************************************************"&@CRLF)
FileWrite($file,$txt[17])
FileWrite($file,"********************************************************************"&@CRLF)
FileWrite($file,$txt[18])
FileWrite($file,"********************************************************************"&@CRLF)
FileWrite($file,$txt[19])
FileWrite($file,"********************************************************************"&@CRLF)
FileWrite($file,$txt[20])
FileWrite($file,"********************************************************************"&@CRLF)
FileWrite($file,$txt[21])
FileWrite($file,"********************************************************************"&@CRLF)
FileWrite($file,$txt[22])
FileWrite($file,"********************************************************************"&@CRLF)
FileWrite($file,$txt[23])
FileWrite($file,"********************************************************************"&@CRLF)
FileWrite($file,$txt[24])
FileWrite($file,"********************************************************************"&@CRLF)
FileWrite($file,$txt[25])
FileWrite($file,"********************************************************************"&@CRLF)
FileWrite($file,$txt[26])
FileWrite($file,"********************************************************************"&@CRLF)
FileWrite($file,$txt[27])
FileWrite($file,"********************************************************************"&@CRLF)
FileWrite($file,$txt[28])
FileWrite($file,"********************************************************************"&@CRLF)
FileWrite($file,$txt[29])
	FileSetAttrib("\\servidor\Mis documentos\Examen Teclado "&$nombre&".doc","+RS")
	FileClose($file)

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

EndFunc

Func _correctas()

	GUICtrlSetState($opc[0][1],$GUI_CHECKED)
	GUICtrlSetState($opc[1][3],$GUI_CHECKED)
	GUICtrlSetState($opc[2][1],$GUI_CHECKED)
	GUICtrlSetState($opc[3][2],$GUI_CHECKED)
	GUICtrlSetState($opc[4][0],$GUI_CHECKED)
	GUICtrlSetState($opc[5][1],$GUI_CHECKED)
	GUICtrlSetState($opc[6][3],$GUI_CHECKED)
	GUICtrlSetState($opc[7][2],$GUI_CHECKED)
	GUICtrlSetState($opc[8][0],$GUI_CHECKED)
	GUICtrlSetState($opc[9][3],$GUI_CHECKED)
	GUICtrlSetState($opc[10][2],$GUI_CHECKED)
	GUICtrlSetState($opc[11][0],$GUI_CHECKED)
	GUICtrlSetState($opc[12][1],$GUI_CHECKED)
	GUICtrlSetState($opc[13][1],$GUI_CHECKED)
	GUICtrlSetState($opc[14][3],$GUI_CHECKED)
	GUICtrlSetState($opc[15][2],$GUI_CHECKED)
	GUICtrlSetState($opc[16][0],$GUI_CHECKED)
	GUICtrlSetState($opc[17][2],$GUI_CHECKED)
	GUICtrlSetState($opc[18][3],$GUI_CHECKED)
	GUICtrlSetState($opc[19][1],$GUI_CHECKED)
	GUICtrlSetState($opc[20][0],$GUI_CHECKED)
	GUICtrlSetState($opc[21][2],$GUI_CHECKED)
	GUICtrlSetState($opc[22][0],$GUI_CHECKED)
	GUICtrlSetState($opc[23][1],$GUI_CHECKED)
	GUICtrlSetState($opc[24][3],$GUI_CHECKED)
	GUICtrlSetState($opc[25][0],$GUI_CHECKED)
	GUICtrlSetState($opc[26][1],$GUI_CHECKED)
	GUICtrlSetState($opc[27][3],$GUI_CHECKED)
	GUICtrlSetState($opc[28][2],$GUI_CHECKED)
	GUICtrlSetState($opc[29][3],$GUI_CHECKED)
EndFunc

Func _Seleccionar()

	$Ruta = FileOpenDialog("Seleccione un EXAMEN", @ScriptDir, "Archivos (*.ini)", 22)
	  If @error or $Ruta = "" Then
      $iMsgBoxAnswer = MsgBox(0, "Seleccione un EXAMEN", "Se a cancelado la seleccion del EXAMEN")
      Select
         Case $iMsgBoxAnswer = 6 ;Yes

         Case $iMsgBoxAnswer = 7 ;No

      EndSelect
   Else
      ;$IsSelect = 22
	  $sFile = FileFindFirstFile($Ruta) ; Busqueda para saber el nombre del ejecutable
	  $nFile = FileFindNextFile($sFile) ; Esto es nada mas para que te muestre un nombre por default en el input
	  $Arreglo22 = StringTrimRight($nFile,4)
      $Nombre = MsgBox(0,"Examen Seleccionado", "Usted Selecciono el Siguiente EXAMEN" & @CRLF & @CRLF &$Arreglo22) ;Input Mandatory
	  EndIf

EndFunc

Func _erroneas()

#############################################################################################################
;Respuesta 1
$res[0][0] = GUICtrlRead($opc[0][0])	;Lee el estado de los checkbox
If $res[0][0] = 1 Then
	GUICtrlSetData($opc[0][0],GUICtrlRead($opc[0][0],1)&" <== INCORRECTO")
	GUICtrlSetState($opc[0][0],$GUI_ENABLE)
EndIf
$res[0][2] = GUICtrlRead($opc[0][2])
If $res[0][2] = 1 Then
    GUICtrlSetData($opc[0][2],GUICtrlRead($opc[0][2],1)&" <== INCORRECTO")
	GUICtrlSetState($opc[0][2],$GUI_ENABLE)
EndIf
$res[0][3] = GUICtrlRead($opc[0][3])
If $res[0][3] = 1 Then
   GUICtrlSetData($opc[0][3],GUICtrlRead($opc[0][3],1)&" <== INCORRECTO")
	GUICtrlSetState($opc[0][3],$GUI_ENABLE)
EndIf
#############################################################################################################
;Respuesta 2
$res[1][0] = GUICtrlRead($opc[1][0])
If $res[1][0] = 1 Then
    GUICtrlSetData($opc[1][0],GUICtrlRead($opc[1][0],1)&" <== INCORRECTO")
	GUICtrlSetState($opc[1][0],$GUI_ENABLE)
EndIf
$res[1][1] = GUICtrlRead($opc[1][1])
If $res[1][1] = 1 Then
    GUICtrlSetData($opc[1][1],GUICtrlRead($opc[1][1],1)&" <== INCORRECTO")
	GUICtrlSetState($opc[1][1],$GUI_ENABLE)
EndIf
$res[1][2] = GUICtrlRead($opc[1][2])
If $res[1][2] = 1 Then
	GUICtrlSetData($opc[1][2],GUICtrlRead($opc[1][2],1)&" <== INCORRECTO")
	GUICtrlSetState($opc[1][2],$GUI_ENABLE)
EndIf
#############################################################################################################
;Respuesta 3
$res[2][0] = GUICtrlRead($opc[2][0])
If $res[2][0] = 1 Then
	GUICtrlSetData($opc[2][0],GUICtrlRead($opc[2][0],1)&" <== INCORRECTO")
	GUICtrlSetState($opc[2][0],$GUI_ENABLE)
EndIf
$res[2][2] = GUICtrlRead($opc[2][2])
If $res[2][2] = 1 Then
    GUICtrlSetData($opc[2][2],GUICtrlRead($opc[2][2],1)&" <== INCORRECTO")
	GUICtrlSetState($opc[2][2],$GUI_ENABLE)
EndIf
$res[2][3] = GUICtrlRead($opc[2][3])
If $res[2][3] = 1 Then
    GUICtrlSetData($opc[2][3],GUICtrlRead($opc[2][3],1)&" <== INCORRECTO")
	GUICtrlSetState($opc[2][3],$GUI_ENABLE)
EndIf
#############################################################################################################
;Respuesta 4
$res[3][0] = GUICtrlRead($opc[3][0])
If $res[3][0] = 1 Then
	GUICtrlSetData($opc[3][0],GUICtrlRead($opc[3][0],1)&" <== INCORRECTO")
	GUICtrlSetState($opc[3][0],$GUI_ENABLE)
EndIf
$res[3][1] = GUICtrlRead($opc[3][1])
If $res[3][1] = 1 Then
    GUICtrlSetData($opc[3][1],GUICtrlRead($opc[3][1],1)&" <== INCORRECTO")
	GUICtrlSetState($opc[3][1],$GUI_ENABLE)
EndIf
$res[3][3] = GUICtrlRead($opc[3][3])
If $res[3][3] = 1 Then
    GUICtrlSetData($opc[3][3],GUICtrlRead($opc[3][3],1)&" <== INCORRECTO")
	GUICtrlSetState($opc[3][3],$GUI_ENABLE)
EndIf
#############################################################################################################
;Respuesta 5
$res[4][1] = GUICtrlRead($opc[4][1])
If $res[4][1] = 1 Then
    GUICtrlSetData($opc[4][1],GUICtrlRead($opc[4][1],1)&" <== INCORRECTO")
	GUICtrlSetState($opc[4][1],$GUI_ENABLE)
EndIf
$res[4][2] = GUICtrlRead($opc[4][2])
If $res[4][2] = 1 Then
    GUICtrlSetData($opc[4][2],GUICtrlRead($opc[4][2],1)&" <== INCORRECTO")
	GUICtrlSetState($opc[4][2],$GUI_ENABLE)
EndIf
$res[4][3] = GUICtrlRead($opc[4][3])
If $res[4][3] = 1 Then
    GUICtrlSetData($opc[4][3],GUICtrlRead($opc[4][3],1)&" <== INCORRECTO")
	GUICtrlSetState($opc[4][3],$GUI_ENABLE)
EndIf
#############################################################################################################
;Respuesta 6
$res[5][0] = GUICtrlRead($opc[5][0])
If $res[5][0] = 1 Then
    GUICtrlSetData($opc[5][0],GUICtrlRead($opc[5][0],1)&" <== INCORRECTO")
	GUICtrlSetState($opc[5][0],$GUI_ENABLE)
EndIf
$res[5][2] = GUICtrlRead($opc[5][2])
If $res[5][2] = 1 Then
	GUICtrlSetData($opc[5][2],GUICtrlRead($opc[5][2],1)&" <== INCORRECTO")
	GUICtrlSetState($opc[5][2],$GUI_ENABLE)
EndIf
$res[5][3] = GUICtrlRead($opc[5][3])
If $res[5][3] = 1 Then
    GUICtrlSetData($opc[5][3],GUICtrlRead($opc[5][3],1)&" <== INCORRECTO")
	GUICtrlSetState($opc[5][3],$GUI_ENABLE)
EndIf
#############################################################################################################
;Respuesta 7
$res[6][0] = GUICtrlRead($opc[6][0])
If $res[6][0] = 1 Then
    GUICtrlSetData($opc[6][0],GUICtrlRead($opc[6][0],1)&" <== INCORRECTO")
	GUICtrlSetState($opc[6][0],$GUI_ENABLE)
EndIf
$res[6][1] = GUICtrlRead($opc[6][1])
If $res[6][1] = 1 Then
    GUICtrlSetData($opc[6][1],GUICtrlRead($opc[6][1],1)&" <== INCORRECTO")
	GUICtrlSetState($opc[6][1],$GUI_ENABLE)
EndIf
$res[6][2] = GUICtrlRead($opc[6][2])
If $res[6][2] = 1 Then
    GUICtrlSetData($opc[6][2],GUICtrlRead($opc[6][2],1)&" <== INCORRECTO")
	GUICtrlSetState($opc[6][2],$GUI_ENABLE)
EndIf
#############################################################################################################
;Respuesta 8
$res[7][0] = GUICtrlRead($opc[7][0])
If $res[7][0] = 1 Then
    GUICtrlSetData($opc[7][0],GUICtrlRead($opc[7][0],1)&" <== INCORRECTO")
	GUICtrlSetState($opc[7][0],$GUI_ENABLE)
EndIf
$res[7][1] = GUICtrlRead($opc[7][1])
If $res[7][1] = 1 Then
	GUICtrlSetData($opc[7][1],GUICtrlRead($opc[7][1],1)&" <== INCORRECTO")
	GUICtrlSetState($opc[7][1],$GUI_ENABLE)
EndIf
$res[7][3] = GUICtrlRead($opc[7][3])
If $res[7][3] = 1 Then
    GUICtrlSetData($opc[7][3],GUICtrlRead($opc[7][3],1)&" <== INCORRECTO")
	GUICtrlSetState($opc[7][3],$GUI_ENABLE)
EndIf
#############################################################################################################
;Respuesta 9
$res[8][1] = GUICtrlRead($opc[8][1])
If $res[8][1] = 1 Then
    GUICtrlSetData($opc[8][1],GUICtrlRead($opc[8][1],1)&" <== INCORRECTO")
	GUICtrlSetState($opc[8][1],$GUI_ENABLE)
EndIf
$res[8][2] = GUICtrlRead($opc[8][2])
If $res[8][2] = 1 Then
	GUICtrlSetData($opc[8][2],GUICtrlRead($opc[8][2],1)&" <== INCORRECTO")
	GUICtrlSetState($opc[8][2],$GUI_ENABLE)
EndIf
$res[8][3] = GUICtrlRead($opc[8][3])
If $res[8][3] = 1 Then
    GUICtrlSetData($opc[8][3],GUICtrlRead($opc[8][3],1)&" <== INCORRECTO")
	GUICtrlSetState($opc[8][3],$GUI_ENABLE)
EndIf
#############################################################################################################
;Respuesta 10
$res[9][0] = GUICtrlRead($opc[9][0])
If $res[9][0] = 1 Then
	GUICtrlSetData($opc[9][0],GUICtrlRead($opc[9][0],1)&" <== INCORRECTO")
	GUICtrlSetState($opc[9][0],$GUI_ENABLE)
EndIf
$res[9][1] = GUICtrlRead($opc[9][1])
If $res[9][1] = 1 Then
    GUICtrlSetData($opc[9][1],GUICtrlRead($opc[9][1],1)&" <== INCORRECTO")
	GUICtrlSetState($opc[9][1],$GUI_ENABLE)
EndIf
$res[9][2] = GUICtrlRead($opc[9][2])
If $res[9][2] = 1 Then
    GUICtrlSetData($opc[9][2],GUICtrlRead($opc[9][2],1)&" <== INCORRECTO")
	GUICtrlSetState($opc[9][2],$GUI_ENABLE)
EndIf
#############################################################################################################
;Respuesta 11
$res[10][0] = GUICtrlRead($opc[10][0])
If $res[10][0] = 1 Then
    GUICtrlSetData($opc[10][0],GUICtrlRead($opc[10][0],1)&" <== INCORRECTO")
	GUICtrlSetState($opc[10][0],$GUI_ENABLE)
EndIf
$res[10][1] = GUICtrlRead($opc[10][1])
If $res[10][1] = 1 Then
	GUICtrlSetData($opc[10][1],GUICtrlRead($opc[10][1],1)&" <== INCORRECTO")
	GUICtrlSetState($opc[10][1],$GUI_ENABLE)
EndIf
$res[10][3] = GUICtrlRead($opc[10][3])
If $res[10][3] = 1 Then
    GUICtrlSetData($opc[10][3],GUICtrlRead($opc[10][3],1)&" <== INCORRECTO")
	GUICtrlSetState($opc[10][3],$GUI_ENABLE)
EndIf
#############################################################################################################
;Respuesta 12
$res[11][1] = GUICtrlRead($opc[11][1])
If $res[11][1] = 1 Then
    GUICtrlSetData($opc[11][1],GUICtrlRead($opc[11][1],1)&" <== INCORRECTO")
	GUICtrlSetState($opc[11][1],$GUI_ENABLE)
EndIf
$res[11][2] = GUICtrlRead($opc[11][2])
If $res[11][2] = 1 Then
    GUICtrlSetData($opc[11][2],GUICtrlRead($opc[11][2],1)&" <== INCORRECTO")
	GUICtrlSetState($opc[11][2],$GUI_ENABLE)
EndIf
$res[11][3] = GUICtrlRead($opc[11][3])
If $res[11][3] = 1 Then
	GUICtrlSetData($opc[11][3],GUICtrlRead($opc[11][3],1)&" <== INCORRECTO")
	GUICtrlSetState($opc[11][3],$GUI_ENABLE)
EndIf
#############################################################################################################
;Respuesta 13
$res[12][0] = GUICtrlRead($opc[12][0])
If $res[12][0] = 1 Then
	GUICtrlSetData($opc[12][0],GUICtrlRead($opc[12][0],1)&" <== INCORRECTO")
	GUICtrlSetState($opc[12][0],$GUI_ENABLE)
EndIf
$res[12][2] = GUICtrlRead($opc[12][2])
If $res[12][2] = 1 Then
    GUICtrlSetData($opc[12][2],GUICtrlRead($opc[12][2],1)&" <== INCORRECTO")
	GUICtrlSetState($opc[12][2],$GUI_ENABLE)
EndIf
$res[12][3] = GUICtrlRead($opc[12][3])
If $res[12][3] = 1 Then
    GUICtrlSetData($opc[12][3],GUICtrlRead($opc[12][3],1)&" <== INCORRECTO")
	GUICtrlSetState($opc[12][3],$GUI_ENABLE)
EndIf
#############################################################################################################
;Respuesta 14
$res[13][0] = GUICtrlRead($opc[13][0])
If $res[13][0] = 1 Then
    GUICtrlSetData($opc[13][0],GUICtrlRead($opc[13][0],1)&" <== INCORRECTO")
	GUICtrlSetState($opc[13][0],$GUI_ENABLE)
EndIf
$res[13][2] = GUICtrlRead($opc[13][2])
If $res[13][2] = 1 Then
    GUICtrlSetData($opc[13][2],GUICtrlRead($opc[13][2],1)&" <== INCORRECTO")
	GUICtrlSetState($opc[13][2],$GUI_ENABLE)
EndIf
$res[13][3] = GUICtrlRead($opc[13][3])
If $res[13][3] = 1 Then
    GUICtrlSetData($opc[13][3],GUICtrlRead($opc[13][3],1)&" <== INCORRECTO")
	GUICtrlSetState($opc[13][3],$GUI_ENABLE)
EndIf
#############################################################################################################
;Respuesta 15
$res[14][0] = GUICtrlRead($opc[14][0])
If $res[14][0] = 1 Then
	GUICtrlSetData($opc[14][0],GUICtrlRead($opc[14][0],1)&" <== INCORRECTO")
	GUICtrlSetState($opc[14][0],$GUI_ENABLE)
EndIf
$res[14][1] = GUICtrlRead($opc[14][1])
If $res[14][1] = 1 Then
    GUICtrlSetData($opc[14][1],GUICtrlRead($opc[14][1],1)&" <== INCORRECTO")
	GUICtrlSetState($opc[14][1],$GUI_ENABLE)
EndIf
$res[14][2] = GUICtrlRead($opc[14][2])
If $res[14][2] = 1 Then
    GUICtrlSetData($opc[14][2],GUICtrlRead($opc[14][2],1)&" <== INCORRECTO")
	GUICtrlSetState($opc[14][2],$GUI_ENABLE)
EndIf
#############################################################################################################
;Respuesta 16
$res[15][0] = GUICtrlRead($opc[15][0])
If $res[15][0] = 1 Then
    GUICtrlSetData($opc[15][0],GUICtrlRead($opc[15][0],1)&" <== INCORRECTO")
	GUICtrlSetState($opc[15][0],$GUI_ENABLE)
EndIf
$res[15][1] = GUICtrlRead($opc[15][1])
If $res[15][1] = 1 Then
    GUICtrlSetData($opc[15][1],GUICtrlRead($opc[15][1],1)&" <== INCORRECTO")
	GUICtrlSetState($opc[15][1],$GUI_ENABLE)
EndIf
$res[15][3] = GUICtrlRead($opc[15][3])
If $res[15][3] = 1 Then
    GUICtrlSetData($opc[15][3],GUICtrlRead($opc[15][3],1)&" <== INCORRECTO")
	GUICtrlSetState($opc[15][3],$GUI_ENABLE)
EndIf
#############################################################################################################
;Respuesta 17
$res[16][1] = GUICtrlRead($opc[16][1])
If $res[16][1] = 1 Then
    GUICtrlSetData($opc[16][1],GUICtrlRead($opc[16][1],1)&" <== INCORRECTO")
	GUICtrlSetState($opc[16][1],$GUI_ENABLE)
EndIf
$res[16][2] = GUICtrlRead($opc[16][2])
If $res[16][2] = 1 Then
    GUICtrlSetData($opc[16][2],GUICtrlRead($opc[16][2],1)&" <== INCORRECTO")
	GUICtrlSetState($opc[16][2],$GUI_ENABLE)
EndIf
$res[16][3] = GUICtrlRead($opc[16][3])
If $res[16][3] = 1 Then
	GUICtrlSetData($opc[16][3],GUICtrlRead($opc[16][3],1)&" <== INCORRECTO")
	GUICtrlSetState($opc[16][3],$GUI_ENABLE)
EndIf
#############################################################################################################
;Respuesta 18
$res[17][0] = GUICtrlRead($opc[17][0])
If $res[17][0] = 1 Then
    GUICtrlSetData($opc[17][0],GUICtrlRead($opc[17][0],1)&" <== INCORRECTO")
	GUICtrlSetState($opc[17][0],$GUI_ENABLE)
EndIf
$res[17][1] = GUICtrlRead($opc[17][1])
If $res[17][1] = 1 Then
	GUICtrlSetData($opc[17][1],GUICtrlRead($opc[17][1],1)&" <== INCORRECTO")
	GUICtrlSetState($opc[17][1],$GUI_ENABLE)
EndIf
$res[17][3] = GUICtrlRead($opc[17][3])
If $res[17][3] = 1 Then
    GUICtrlSetData($opc[17][3],GUICtrlRead($opc[17][3],1)&" <== INCORRECTO")
	GUICtrlSetState($opc[17][3],$GUI_ENABLE)
EndIf
#############################################################################################################
;Respuesta 19
$res[18][0] = GUICtrlRead($opc[18][0])
If $res[18][0] = 1 Then
	GUICtrlSetData($opc[18][0],GUICtrlRead($opc[18][0],1)&" <== INCORRECTO")
	GUICtrlSetState($opc[18][0],$GUI_ENABLE)
EndIf
$res[18][1] = GUICtrlRead($opc[18][1])
If $res[18][1] = 1 Then
    GUICtrlSetData($opc[18][1],GUICtrlRead($opc[18][1],1)&" <== INCORRECTO")
	GUICtrlSetState($opc[18][1],$GUI_ENABLE)
EndIf
$res[18][2] = GUICtrlRead($opc[18][2])
If $res[18][2] = 1 Then
    GUICtrlSetData($opc[18][2],GUICtrlRead($opc[18][2],1)&" <== INCORRECTO")
	GUICtrlSetState($opc[18][2],$GUI_ENABLE)
EndIf
#############################################################################################################
;Respuesta 20
$res[19][0] = GUICtrlRead($opc[19][0])
If $res[19][0] = 1 Then
    GUICtrlSetData($opc[19][0],GUICtrlRead($opc[19][0],1)&" <== INCORRECTO")
	GUICtrlSetState($opc[19][0],$GUI_ENABLE)
EndIf
$res[19][2] = GUICtrlRead($opc[19][2])
If $res[19][2] = 1 Then
	GUICtrlSetData($opc[19][2],GUICtrlRead($opc[19][2],1)&" <== INCORRECTO")
	GUICtrlSetState($opc[19][2],$GUI_ENABLE)
EndIf
$res[19][3] = GUICtrlRead($opc[19][3])
If $res[19][3] = 1 Then
    GUICtrlSetData($opc[19][3],GUICtrlRead($opc[19][3],1)&" <== INCORRECTO")
	GUICtrlSetState($opc[19][3],$GUI_ENABLE)
EndIf
#############################################################################################################
;Respuesta 21
$res[20][1] = GUICtrlRead($opc[20][1])
If $res[20][1] = 1 Then
    GUICtrlSetData($opc[20][1],GUICtrlRead($opc[20][1],1)&" <== INCORRECTO")
	GUICtrlSetState($opc[20][1],$GUI_ENABLE)
EndIf
$res[20][2] = GUICtrlRead($opc[20][2])
If $res[20][2] = 1 Then
    GUICtrlSetData($opc[20][2],GUICtrlRead($opc[20][2],1)&" <== INCORRECTO")
	GUICtrlSetState($opc[20][2],$GUI_ENABLE)
EndIf
$res[20][3] = GUICtrlRead($opc[20][3])
If $res[20][3] = 1 Then
   GUICtrlSetData($opc[20][3],GUICtrlRead($opc[20][3],1)&" <== INCORRECTO")
	GUICtrlSetState($opc[20][3],$GUI_ENABLE)
EndIf
#############################################################################################################
;Respuesta 22
$res[21][0] = GUICtrlRead($opc[21][0])
If $res[21][0] = 1 Then
    GUICtrlSetData($opc[21][0],GUICtrlRead($opc[21][0],1)&" <== INCORRECTO")
	GUICtrlSetState($opc[21][0],$GUI_ENABLE)
EndIf
$res[21][1] = GUICtrlRead($opc[21][1])
If $res[21][1] = 1 Then
    GUICtrlSetData($opc[21][1],GUICtrlRead($opc[21][1],1)&" <== INCORRECTO")
	GUICtrlSetState($opc[21][1],$GUI_ENABLE)
EndIf
$res[21][3] = GUICtrlRead($opc[21][3])
If $res[21][3] = 1 Then
	GUICtrlSetData($opc[21][3],GUICtrlRead($opc[21][3],1)&" <== INCORRECTO")
	GUICtrlSetState($opc[21][3],$GUI_ENABLE)
EndIf
#############################################################################################################
;Respuesta 23
$res[22][1] = GUICtrlRead($opc[22][1])
If $res[22][1] = 1 Then
    GUICtrlSetData($opc[22][1],GUICtrlRead($opc[22][1],1)&" <== INCORRECTO")
	GUICtrlSetState($opc[22][1],$GUI_ENABLE)
EndIf
$res[22][2] = GUICtrlRead($opc[22][2])
If $res[22][2] = 1 Then
    GUICtrlSetData($opc[22][2],GUICtrlRead($opc[22][2],1)&" <== INCORRECTO")
	GUICtrlSetState($opc[22][2],$GUI_ENABLE)
EndIf
$res[22][3] = GUICtrlRead($opc[22][3])
If $res[22][3] = 1 Then
    GUICtrlSetData($opc[22][3],GUICtrlRead($opc[22][3],1)&" <== INCORRECTO")
	GUICtrlSetState($opc[22][3],$GUI_ENABLE)
EndIf
#############################################################################################################
;Respuesta 24
$res[23][0] = GUICtrlRead($opc[23][0])
If $res[23][0] = 1 Then
    GUICtrlSetData($opc[23][0],GUICtrlRead($opc[23][0],1)&" <== INCORRECTO")
	GUICtrlSetState($opc[23][0],$GUI_ENABLE)
EndIf
$res[23][2] = GUICtrlRead($opc[23][2])
If $res[23][2] = 1 Then
	GUICtrlSetData($opc[23][2],GUICtrlRead($opc[23][2],1)&" <== INCORRECTO")
	GUICtrlSetState($opc[23][2],$GUI_ENABLE)
EndIf
$res[23][3] = GUICtrlRead($opc[23][3])
If $res[23][3] = 1 Then
    GUICtrlSetData($opc[23][3],GUICtrlRead($opc[23][3],1)&" <== INCORRECTO")
	GUICtrlSetState($opc[23][3],$GUI_ENABLE)
EndIf
#############################################################################################################
;Respuesta 25
$res[24][0] = GUICtrlRead($opc[24][0])
If $res[24][0] = 1 Then
    GUICtrlSetData($opc[24][0],GUICtrlRead($opc[24][0],1)&" <== INCORRECTO")
	GUICtrlSetState($opc[24][0],$GUI_ENABLE)
EndIf
$res[24][1] = GUICtrlRead($opc[24][1])
If $res[24][1] = 1 Then
	GUICtrlSetData($opc[24][1],GUICtrlRead($opc[24][1],1)&" <== INCORRECTO")
	GUICtrlSetState($opc[24][1],$GUI_ENABLE)
EndIf
$res[24][2] = GUICtrlRead($opc[24][2])
If $res[24][2] = 1 Then
    GUICtrlSetData($opc[24][2],GUICtrlRead($opc[24][2],1)&" <== INCORRECTO")
	GUICtrlSetState($opc[24][2],$GUI_ENABLE)
EndIf
#############################################################################################################
;Respuesta 26
$res[25][1] = GUICtrlRead($opc[25][1])
If $res[25][1] = 1 Then
    GUICtrlSetData($opc[25][1],GUICtrlRead($opc[25][1],1)&" <== INCORRECTO")
	GUICtrlSetState($opc[25][1],$GUI_ENABLE)
EndIf
$res[25][2] = GUICtrlRead($opc[25][2])
If $res[25][2] = 1 Then
	GUICtrlSetData($opc[25][2],GUICtrlRead($opc[25][2],1)&" <== INCORRECTO")
	GUICtrlSetState($opc[25][2],$GUI_ENABLE)
EndIf
$res[25][3] = GUICtrlRead($opc[25][3])
If $res[25][3] = 1 Then
    GUICtrlSetData($opc[25][3],GUICtrlRead($opc[25][3],1)&" <== INCORRECTO")
	GUICtrlSetState($opc[25][3],$GUI_ENABLE)
EndIf
#############################################################################################################
;Respuesta 27
$res[26][0] = GUICtrlRead($opc[26][0])
If $res[26][0] = 1 Then
    GUICtrlSetData($opc[26][0],GUICtrlRead($opc[26][0],1)&" <== INCORRECTO")
	GUICtrlSetState($opc[26][0],$GUI_ENABLE)
EndIf
$res[26][2] = GUICtrlRead($opc[26][2])
If $res[26][2] = 1 Then
	GUICtrlSetData($opc[26][2],GUICtrlRead($opc[26][2],1)&" <== INCORRECTO")
	GUICtrlSetState($opc[26][2],$GUI_ENABLE)
EndIf
$res[26][3] = GUICtrlRead($opc[26][3])
If $res[26][3] = 1 Then
    GUICtrlSetData($opc[26][3],GUICtrlRead($opc[26][3],1)&" <== INCORRECTO")
	GUICtrlSetState($opc[26][3],$GUI_ENABLE)
EndIf
#############################################################################################################
;Respuesta 28
$res[27][0] = GUICtrlRead($opc[27][0])
If $res[27][0] = 1 Then
	GUICtrlSetData($opc[27][0],GUICtrlRead($opc[27][0],1)&" <== INCORRECTO")
	GUICtrlSetState($opc[27][0],$GUI_ENABLE)
EndIf
$res[27][1] = GUICtrlRead($opc[27][1])
If $res[27][1] = 1 Then
    GUICtrlSetData($opc[27][1],GUICtrlRead($opc[27][1],1)&" <== INCORRECTO")
	GUICtrlSetState($opc[27][1],$GUI_ENABLE)
EndIf
$res[27][2] = GUICtrlRead($opc[27][2])
If $res[27][2] = 1 Then
    GUICtrlSetData($opc[27][2],GUICtrlRead($opc[27][2],1)&" <== INCORRECTO")
	GUICtrlSetState($opc[27][2],$GUI_ENABLE)
EndIf
#############################################################################################################
;Respuesta 29
$res[28][0] = GUICtrlRead($opc[28][0])
If $res[28][0] = 1 Then
    GUICtrlSetData($opc[28][0],GUICtrlRead($opc[28][0],1)&" <== INCORRECTO")
	GUICtrlSetState($opc[28][0],$GUI_ENABLE)
EndIf
$res[28][1] = GUICtrlRead($opc[28][1])
If $res[28][1] = 1 Then
    GUICtrlSetData($opc[28][1],GUICtrlRead($opc[28][1],1)&" <== INCORRECTO")
	GUICtrlSetState($opc[28][1],$GUI_ENABLE)
EndIf
$res[28][3] = GUICtrlRead($opc[28][3])
If $res[28][3] = 1 Then
    GUICtrlSetData($opc[28][3],GUICtrlRead($opc[28][3],1)&" <== INCORRECTO")
	GUICtrlSetState($opc[28][3],$GUI_ENABLE)
EndIf
#############################################################################################################
;Respuesta 30
$res[29][0] = GUICtrlRead($opc[29][0])
If $res[29][0] = 1 Then
    GUICtrlSetData($opc[29][0],GUICtrlRead($opc[29][0],1)&" <== INCORRECTO")
	GUICtrlSetState($opc[29][0],$GUI_ENABLE)
EndIf
$res[29][1] = GUICtrlRead($opc[29][1])
If $res[29][1] = 1 Then
    GUICtrlSetData($opc[29][1],GUICtrlRead($opc[29][1],1)&" <== INCORRECTO")
	GUICtrlSetState($opc[29][1],$GUI_ENABLE)
EndIf
$res[29][2] = GUICtrlRead($opc[29][2])
If $res[29][2] = 1 Then
	GUICtrlSetData($opc[29][2],GUICtrlRead($opc[29][2],1)&" <== INCORRECTO")
	GUICtrlSetState($opc[29][2],$GUI_ENABLE)
EndIf
#############################################################################################################
EndFunc