NBW Publication Source File (C)1993-2003 NeoSoft Corp. Title=Preguntas y respuestas Author=David Esperalta Language=US NeoBookVer=4,11 ScreenColors=16777216 ScreenWidth=450 ScreenHeight=320 BkndColor=0 LinkColor=16711680 WindowStyle=0 WindowOrder=0 WindowProps=29 UseUpdateTimer=Yes ReturnTime=60 StartupAction=¶.-------------------------¶.David Esperalta¶.4 de julio de 2003¶.para Dulce :)¶.-------------------------¶¶¶.Antes de nada te comento, Dulce, que no es necesario dar valor a las¶.variables que van a contener el número de respuestas correctas e incorrectas¶.puesto que estas se "inicializarán" en cuanto se responda a una pregunta...¶¶.Lo que quiere decir que aun cuando no se ha dado valor de "0" a una variable,¶.luego de sumar "1" a una variable que no existe, esta pasa a tener el valor "1"¶¶.De todas las maneras, en este caso, al menos, vamos a darle el valor de "0" a¶.las variables "res_correctas" y "res_incorrectas", pero, sencillamente, para que¶.a la hora de escribir el "log" de la utilidad podamos comprobar el valor de estas¶¶SetVar "[res_correctas]" "0"¶SetVar "[res_incorrectas]" "0"¶¶.Ahora abro el Grupo_respuestas, en el que podrás ver el número de respuestas¶.correctas e incorrectas "en tiempo de ejecución"...¶¶CustomWindow "Respuestas" "460" "0" "Grupo_respuestas" "ToolWindow+NoCloseBtn" ShutdownAction=¶.Cada vez que se cierre la utilidad...¶.vamos a grabar el resultado actual en un archivo a modo de "log"¶¶.Fíjate en lo siguiente: en caso de no haber respuestas al "re-comenzar" o al salir¶.de la utilidad, se indicará en el archivo "sesiones.txt" (el "log"...) mediante la variable "sin_respuestas"¶¶.Antes de esto se comprueba, como puedes ver, que las variables correspondientes no estén "vacías"¶.en cuyo caso se indicará en el archivo "log" (sesiones.txt) que no hubo respuesta alguna a las preguntas...¶¶¶If "[res_correctas]" "=" "0"¶ If "[res_incorrectas]" "=" "0"¶ SetVar "[sin_respuestas]" "(no hubo respuestas en esta sesión)"¶ EndIf¶EndIf¶¶.Pasamos a escribir en el archivo "sesiones.txt"¶¶FileWrite "[PubDir]sesiones.txt" "Append" "_________________________________________________"¶FileWrite "[PubDir]sesiones.txt" "Append" ""¶FileWrite "[PubDir]sesiones.txt" "Append" "Identificación de la sesión. Nombre: [UserName] "¶FileWrite "[PubDir]sesiones.txt" "Append" "Fecha: [Day], [DayNum] de [Month] de [Year] Hora: [Time24]"¶FileWrite "[PubDir]sesiones.txt" "Append" "_________________________________________________"¶FileWrite "[PubDir]sesiones.txt" "Append" ""¶FileWrite "[PubDir]sesiones.txt" "Append" "Número de respuestas correctas: [res_correctas] [sin_respuestas]"¶FileWrite "[PubDir]sesiones.txt" "Append" "Número de respuestas incorrectas: [res_incorrectas] [sin_respuestas]"¶FileWrite "[PubDir]sesiones.txt" "Append" ""¶FileWrite "[PubDir]sesiones.txt" "Append" ""¶¶¶¶¶ ShapeTransColor=536870912 CompiledName=C:\Documents and Settings\bubi.htm\Escritorio\listas\listas.exe CompileType=0 MediaType=0 FilesIncluded=1 FontsIncluded=2 FontsToCompile=| CopyExternalFiles=No SetupMedia=3 SetupInstDir=C:\MyProgram SetupTitle=Configuración SetupColors=16711680|0|65535 CustomFontName=MS Sans Serif CustomFontSize=8 CustomFontStyle=0 CustomCharset=1 CacheSize=30 ExtractOp=132 L_OK=Aceptar L_CANCEL=Cancelar L_YES=Sí L_NO=No L_CLOSE=Cerrar L_ERRORTITLE=Error L_FINDTITLE=Buscar L_FINDPROMPT=Buscar &qué L_FINDFIRST=Buscar &primero L_FINDNEXT=Buscar &siguiente L_FINDERROR=No se encontró el texto. L_PWORDTITLE=Se requiere contraseña L_PWORDMSG=Antes de continuar debe primero|proporcionar la contraseña correcta. L_PWORDPROMPT=&Contraseña: L_PWORDERROR=¡Esa no es la contraseña correcta! L_MEDIAERROR=Debe instalar el equipo y/o programa de multimedia apropiado para ejecutar este tipo de fichero. L_INTERNETERROR=No se encontró el programa para navegar por Internet. L_ABORTFUNCTION=Imprimiendo página: L_EXTRACTERROR=¿Desea cancelar esta función? L_INSTDIRPROMPT=Este fichero no pudo extraerse y por tanto no puede ejecutarse. L_INSTFOLDERPROMPT=Por favor, teclee el lector y el directorio donde desee instalar el programa. Use la tecla Intro para aceptar el lector y directorio predeterminado. L_INSTRUNPROMPT=¿Desea crear un archivo de programa? L_INSTDISKPROMPT=¿Desea ejecutarlo? L_INSTDISKERROR=Por favor, inserte el disco # L_INSTGENERROR=Ese disquete no es el correcto, inténtelo de nuevo. L_INSTEXITPROMPT=Instalación completada. L_INSTWINTITLE=¿Desea cancelar la instalación? L_INSTPROGTITLE=Configuración L_SENDEMAIL=Enviando correo... L_MAILSERVER=Proporcione el nombre de su servidor SMTP de correo electrónico saliente: L_TRAYOPEN=Abrir L_TRAYCLOSE=Cerrar L_COPY=Cortar L_SELECTALL=Seleccionar todo MasterPage NewPage=Nueva Página PageStyle=0 PageColor=16777215 PageGradient1=16711680 PageGradient2=255 PageGradientDir=1 WallpaperStyle=0 EffectSpeed=5 ObjectType=8 Name=Texto1 X=14 Y=8 W=137 H=68 Font=Arial FontSize=8 FontStyle=1 FontCharset=1 TextColor=0 Text={\rtf1\ansi\deff0\deftab254{\fonttbl{\f0\fnil\fcharset1 Arial;}}{\colortbl\red0\green0\blue0;\red255\green0\blue0;\red0\green128\blue0;\red0\green0\blue255;\red255\green255\blue0;\red255\green0\blue255;\red128\green0\blue128;\red128\green0\blue0;\red0\green255\blue0;\red0\green255\blue255;\red0\green128\blue128;\red0\green0\blue128;\red255\green255\blue255;\red192\green192\blue192;\red128\green128\blue128;\red0\green0\blue0;\red0\green0\blue0;}\paperw12240\paperh15840\margl1440\margr1440\margt1440\margb1440\margh720\margf720{\*\pnseclvl1\pnucrm\pnstart1\pnhang\pnindent720{\pntxtb}{\pntxta{.}}}¶{\*\pnseclvl2\pnucltr\pnstart1\pnhang\pnindent720{\pntxtb}{\pntxta{.}}}¶{\*\pnseclvl3\pndec\pnstart1\pnhang\pnindent720{\pntxtb}{\pntxta{.}}}¶{\*\pnseclvl4\pnlcltr\pnstart1\pnhang\pnindent720{\pntxtb}{\pntxta{)}}}¶{\*\pnseclvl5\pndec\pnstart1\pnhang\pnindent720{\pntxtb{(}}{\pntxta{)}}}¶{\*\pnseclvl6\pnlcltr\pnstart1\pnhang\pnindent720{\pntxtb{(}}{\pntxta{)}}}¶{\*\pnseclvl7\pnlcrm\pnstart1\pnhang\pnindent720{\pntxtb{(}}{\pntxta{)}}}¶{\*\pnseclvl8\pnlcltr\pnstart1\pnhang\pnindent720{\pntxtb{(}}{\pntxta{)}}}¶{\*\pnseclvl9\pndec\pnstart1\pnhang\pnindent720{\pntxtb{(}}{\pntxta{)}}}¶\endnhere\sectdefaultcl{\pard{\ql\li0\fi0\ri0\sb0\sl\sa0 \plain\f0\fs16\cf0\b \'bfCu\'e1nto suman \plain\f0\fs22\cf0\b 2+2\plain\f0\fs16\cf0\b ?}}¶} HMargin=4 VMargin=4 LineColor=0 LineWidth=1 LineStyle=0 FillColor=16777215 FillPattern=0 TabOrder=17 ObjectType=11 Name=ListaDesplegable1 X=23 Y=42 W=118 H=20 Text=1¶2¶3¶4 VarName=[Lista1] VarType=0 ObjAction=¶If "[Lista1]" "=" "4"¶SetVar "res_correctas" "[res_correctas]+1"¶Else¶SetVar "res_incorrectas" "[res_incorrectas]+1"¶EndIf¶¶DisableObject "ListaDesplegable1" LineColor=0 LineWidth=0 LineStyle=0 FillColor=16777215 FillPattern=0 Font=Arial FontSize=8 FontStyle=1 FontCharset=1 TextColor=0 TabOrder=18 ObjectType=8 Name=Texto6 X=155 Y=8 W=139 H=68 Font=Arial FontSize=8 FontStyle=1 FontCharset=1 TextColor=0 Text={\rtf1\ansi\deff0\deftab254{\fonttbl{\f0\fnil\fcharset1 Arial;}}{\colortbl\red0\green0\blue0;\red255\green0\blue0;\red0\green128\blue0;\red0\green0\blue255;\red255\green255\blue0;\red255\green0\blue255;\red128\green0\blue128;\red128\green0\blue0;\red0\green255\blue0;\red0\green255\blue255;\red0\green128\blue128;\red0\green0\blue128;\red255\green255\blue255;\red192\green192\blue192;\red128\green128\blue128;\red0\green0\blue0;\red0\green0\blue0;}\paperw12240\paperh15840\margl1440\margr1440\margt1440\margb1440\margh720\margf720{\*\pnseclvl1\pnucrm\pnstart1\pnhang\pnindent720{\pntxtb}{\pntxta{.}}}¶{\*\pnseclvl2\pnucltr\pnstart1\pnhang\pnindent720{\pntxtb}{\pntxta{.}}}¶{\*\pnseclvl3\pndec\pnstart1\pnhang\pnindent720{\pntxtb}{\pntxta{.}}}¶{\*\pnseclvl4\pnlcltr\pnstart1\pnhang\pnindent720{\pntxtb}{\pntxta{)}}}¶{\*\pnseclvl5\pndec\pnstart1\pnhang\pnindent720{\pntxtb{(}}{\pntxta{)}}}¶{\*\pnseclvl6\pnlcltr\pnstart1\pnhang\pnindent720{\pntxtb{(}}{\pntxta{)}}}¶{\*\pnseclvl7\pnlcrm\pnstart1\pnhang\pnindent720{\pntxtb{(}}{\pntxta{)}}}¶{\*\pnseclvl8\pnlcltr\pnstart1\pnhang\pnindent720{\pntxtb{(}}{\pntxta{)}}}¶{\*\pnseclvl9\pndec\pnstart1\pnhang\pnindent720{\pntxtb{(}}{\pntxta{)}}}¶\endnhere\sectdefaultcl{\pard{\ql\li0\fi0\ri0\sb0\sl\sa0 \plain\f0\fs16\cf0\b \'bfCu\'e1nto suman \plain\f0\fs22\cf0\b 2+5\plain\f0\fs16\cf0\b ?}}¶} HMargin=4 VMargin=4 LineColor=0 LineWidth=1 LineStyle=0 FillColor=16777215 FillPattern=0 TabOrder=3 ObjectType=11 Name=ListaDesplegable2 X=164 Y=42 W=119 H=20 Text=6¶7¶3¶4 VarName=[Lista2] VarType=0 ObjAction=¶If "[Lista2]" "=" "7"¶SetVar "res_correctas" "[res_correctas]+1"¶Else¶SetVar "res_incorrectas" "[res_incorrectas]+1"¶EndIf¶¶DisableObject "ListaDesplegable2" LineColor=0 LineWidth=0 LineStyle=0 FillColor=16777215 FillPattern=0 Font=Arial FontSize=8 FontStyle=1 FontCharset=1 TextColor=0 TabOrder=4 ObjectType=8 Name=Texto7 X=298 Y=8 W=138 H=68 Font=Arial FontSize=8 FontStyle=1 FontCharset=1 TextColor=0 Text={\rtf1\ansi\deff0\deftab254{\fonttbl{\f0\fnil\fcharset1 Arial;}}{\colortbl\red0\green0\blue0;\red255\green0\blue0;\red0\green128\blue0;\red0\green0\blue255;\red255\green255\blue0;\red255\green0\blue255;\red128\green0\blue128;\red128\green0\blue0;\red0\green255\blue0;\red0\green255\blue255;\red0\green128\blue128;\red0\green0\blue128;\red255\green255\blue255;\red192\green192\blue192;\red128\green128\blue128;\red0\green0\blue0;\red0\green0\blue0;}\paperw12240\paperh15840\margl1440\margr1440\margt1440\margb1440\margh720\margf720{\*\pnseclvl1\pnucrm\pnstart1\pnhang\pnindent720{\pntxtb}{\pntxta{.}}}¶{\*\pnseclvl2\pnucltr\pnstart1\pnhang\pnindent720{\pntxtb}{\pntxta{.}}}¶{\*\pnseclvl3\pndec\pnstart1\pnhang\pnindent720{\pntxtb}{\pntxta{.}}}¶{\*\pnseclvl4\pnlcltr\pnstart1\pnhang\pnindent720{\pntxtb}{\pntxta{)}}}¶{\*\pnseclvl5\pndec\pnstart1\pnhang\pnindent720{\pntxtb{(}}{\pntxta{)}}}¶{\*\pnseclvl6\pnlcltr\pnstart1\pnhang\pnindent720{\pntxtb{(}}{\pntxta{)}}}¶{\*\pnseclvl7\pnlcrm\pnstart1\pnhang\pnindent720{\pntxtb{(}}{\pntxta{)}}}¶{\*\pnseclvl8\pnlcltr\pnstart1\pnhang\pnindent720{\pntxtb{(}}{\pntxta{)}}}¶{\*\pnseclvl9\pndec\pnstart1\pnhang\pnindent720{\pntxtb{(}}{\pntxta{)}}}¶\endnhere\sectdefaultcl{\pard{\ql\li0\fi0\ri0\sb0\sl\sa0 \plain\f0\fs16\cf0\b \'bfCu\'e1nto suman \plain\f0\fs22\cf0\b 6+5\plain\f0\fs16\cf0\b ?}}¶} HMargin=4 VMargin=4 LineColor=0 LineWidth=1 LineStyle=0 FillColor=16777215 FillPattern=0 TabOrder=1 ObjectType=11 Name=ListaDesplegable3 X=307 Y=42 W=119 H=20 Text=2¶21¶11¶4 VarName=[Lista3] VarType=0 ObjAction=¶If "[Lista3]" "=" "11"¶SetVar "res_correctas" "[res_correctas]+1"¶Else¶SetVar "res_incorrectas" "[res_incorrectas]+1"¶EndIf¶¶DisableObject "ListaDesplegable3" LineColor=0 LineWidth=0 LineStyle=0 FillColor=16777215 FillPattern=0 Font=Arial FontSize=8 FontStyle=1 FontCharset=1 TextColor=0 TabOrder=2 ObjectType=8 Name=Texto8 X=14 Y=81 W=137 H=68 Font=Arial FontSize=8 FontStyle=1 FontCharset=1 TextColor=0 Text={\rtf1\ansi\deff0\deftab254{\fonttbl{\f0\fnil\fcharset1 Arial;}}{\colortbl\red0\green0\blue0;\red255\green0\blue0;\red0\green128\blue0;\red0\green0\blue255;\red255\green255\blue0;\red255\green0\blue255;\red128\green0\blue128;\red128\green0\blue0;\red0\green255\blue0;\red0\green255\blue255;\red0\green128\blue128;\red0\green0\blue128;\red255\green255\blue255;\red192\green192\blue192;\red128\green128\blue128;\red0\green0\blue0;\red0\green0\blue0;}\paperw12240\paperh15840\margl1440\margr1440\margt1440\margb1440\margh720\margf720{\*\pnseclvl1\pnucrm\pnstart1\pnhang\pnindent720{\pntxtb}{\pntxta{.}}}¶{\*\pnseclvl2\pnucltr\pnstart1\pnhang\pnindent720{\pntxtb}{\pntxta{.}}}¶{\*\pnseclvl3\pndec\pnstart1\pnhang\pnindent720{\pntxtb}{\pntxta{.}}}¶{\*\pnseclvl4\pnlcltr\pnstart1\pnhang\pnindent720{\pntxtb}{\pntxta{)}}}¶{\*\pnseclvl5\pndec\pnstart1\pnhang\pnindent720{\pntxtb{(}}{\pntxta{)}}}¶{\*\pnseclvl6\pnlcltr\pnstart1\pnhang\pnindent720{\pntxtb{(}}{\pntxta{)}}}¶{\*\pnseclvl7\pnlcrm\pnstart1\pnhang\pnindent720{\pntxtb{(}}{\pntxta{)}}}¶{\*\pnseclvl8\pnlcltr\pnstart1\pnhang\pnindent720{\pntxtb{(}}{\pntxta{)}}}¶{\*\pnseclvl9\pndec\pnstart1\pnhang\pnindent720{\pntxtb{(}}{\pntxta{)}}}¶\endnhere\sectdefaultcl{\pard{\ql\li0\fi0\ri0\sb0\sl\sa0 \plain\f0\fs16\cf0\b \'bfCu\'e1nto suman \plain\f0\fs22\cf0\b 5+1\plain\f0\fs16\cf0\b ?}}¶} HMargin=4 VMargin=4 LineColor=0 LineWidth=1 LineStyle=0 FillColor=16777215 FillPattern=0 TabOrder=15 ObjectType=11 Name=ListaDesplegable4 X=23 Y=115 W=118 H=20 Text=6¶2¶4¶12 VarName=[Lista4] VarType=0 ObjAction=¶If "[Lista4]" "=" "6"¶SetVar "res_correctas" "[res_correctas]+1"¶Else¶SetVar "res_incorrectas" "[res_incorrectas]+1"¶EndIf¶¶DisableObject "ListaDesplegable4" LineColor=0 LineWidth=0 LineStyle=0 FillColor=16777215 FillPattern=0 Font=Arial FontSize=8 FontStyle=1 FontCharset=1 TextColor=0 TabOrder=16 ObjectType=8 Name=Texto9 X=156 Y=81 W=137 H=68 Font=Arial FontSize=8 FontStyle=1 FontCharset=1 TextColor=0 Text={\rtf1\ansi\deff0\deftab254{\fonttbl{\f0\fnil\fcharset1 Arial;}}{\colortbl\red0\green0\blue0;\red255\green0\blue0;\red0\green128\blue0;\red0\green0\blue255;\red255\green255\blue0;\red255\green0\blue255;\red128\green0\blue128;\red128\green0\blue0;\red0\green255\blue0;\red0\green255\blue255;\red0\green128\blue128;\red0\green0\blue128;\red255\green255\blue255;\red192\green192\blue192;\red128\green128\blue128;\red0\green0\blue0;\red0\green0\blue0;}\paperw12240\paperh15840\margl1440\margr1440\margt1440\margb1440\margh720\margf720{\*\pnseclvl1\pnucrm\pnstart1\pnhang\pnindent720{\pntxtb}{\pntxta{.}}}¶{\*\pnseclvl2\pnucltr\pnstart1\pnhang\pnindent720{\pntxtb}{\pntxta{.}}}¶{\*\pnseclvl3\pndec\pnstart1\pnhang\pnindent720{\pntxtb}{\pntxta{.}}}¶{\*\pnseclvl4\pnlcltr\pnstart1\pnhang\pnindent720{\pntxtb}{\pntxta{)}}}¶{\*\pnseclvl5\pndec\pnstart1\pnhang\pnindent720{\pntxtb{(}}{\pntxta{)}}}¶{\*\pnseclvl6\pnlcltr\pnstart1\pnhang\pnindent720{\pntxtb{(}}{\pntxta{)}}}¶{\*\pnseclvl7\pnlcrm\pnstart1\pnhang\pnindent720{\pntxtb{(}}{\pntxta{)}}}¶{\*\pnseclvl8\pnlcltr\pnstart1\pnhang\pnindent720{\pntxtb{(}}{\pntxta{)}}}¶{\*\pnseclvl9\pndec\pnstart1\pnhang\pnindent720{\pntxtb{(}}{\pntxta{)}}}¶\endnhere\sectdefaultcl{\pard{\ql\li0\fi0\ri0\sb0\sl\sa0 \plain\f0\fs16\cf0\b \'bfCu\'e1nto suman \plain\f0\fs22\cf0\b 5+4\plain\f0\fs16\cf0\b ?}}¶} HMargin=4 VMargin=4 LineColor=0 LineWidth=1 LineStyle=0 FillColor=16777215 FillPattern=0 TabOrder=7 ObjectType=11 Name=ListaDesplegable5 X=165 Y=115 W=118 H=20 Text=16¶12¶14¶9 VarName=[Lista5] VarType=0 ObjAction=¶If "[Lista5]" "=" "9"¶SetVar "res_correctas" "[res_correctas]+1"¶Else¶SetVar "res_incorrectas" "[res_incorrectas]+1"¶EndIf¶¶DisableObject "ListaDesplegable5" LineColor=0 LineWidth=0 LineStyle=0 FillColor=16777215 FillPattern=0 Font=Arial FontSize=8 FontStyle=1 FontCharset=1 TextColor=0 TabOrder=8 ObjectType=8 Name=Texto10 X=298 Y=81 W=137 H=68 Font=Arial FontSize=8 FontStyle=1 FontCharset=1 TextColor=0 Text={\rtf1\ansi\deff0\deftab254{\fonttbl{\f0\fnil\fcharset1 Arial;}}{\colortbl\red0\green0\blue0;\red255\green0\blue0;\red0\green128\blue0;\red0\green0\blue255;\red255\green255\blue0;\red255\green0\blue255;\red128\green0\blue128;\red128\green0\blue0;\red0\green255\blue0;\red0\green255\blue255;\red0\green128\blue128;\red0\green0\blue128;\red255\green255\blue255;\red192\green192\blue192;\red128\green128\blue128;\red0\green0\blue0;\red0\green0\blue0;}\paperw12240\paperh15840\margl1440\margr1440\margt1440\margb1440\margh720\margf720{\*\pnseclvl1\pnucrm\pnstart1\pnhang\pnindent720{\pntxtb}{\pntxta{.}}}¶{\*\pnseclvl2\pnucltr\pnstart1\pnhang\pnindent720{\pntxtb}{\pntxta{.}}}¶{\*\pnseclvl3\pndec\pnstart1\pnhang\pnindent720{\pntxtb}{\pntxta{.}}}¶{\*\pnseclvl4\pnlcltr\pnstart1\pnhang\pnindent720{\pntxtb}{\pntxta{)}}}¶{\*\pnseclvl5\pndec\pnstart1\pnhang\pnindent720{\pntxtb{(}}{\pntxta{)}}}¶{\*\pnseclvl6\pnlcltr\pnstart1\pnhang\pnindent720{\pntxtb{(}}{\pntxta{)}}}¶{\*\pnseclvl7\pnlcrm\pnstart1\pnhang\pnindent720{\pntxtb{(}}{\pntxta{)}}}¶{\*\pnseclvl8\pnlcltr\pnstart1\pnhang\pnindent720{\pntxtb{(}}{\pntxta{)}}}¶{\*\pnseclvl9\pndec\pnstart1\pnhang\pnindent720{\pntxtb{(}}{\pntxta{)}}}¶\endnhere\sectdefaultcl{\pard{\ql\li0\fi0\ri0\sb0\sl\sa0 \plain\f0\fs16\cf0\b \'bfCu\'e1nto suman \plain\f0\fs22\cf0\b 1+8\plain\f0\fs16\cf0\b ?}}¶} HMargin=4 VMargin=4 LineColor=0 LineWidth=1 LineStyle=0 FillColor=16777215 FillPattern=0 TabOrder=5 ObjectType=11 Name=ListaDesplegable6 X=307 Y=115 W=118 H=20 Text=10¶8¶9¶11 VarName=[Lista6] VarType=0 ObjAction=¶If "[Lista6]" "=" "9"¶SetVar "res_correctas" "[res_correctas]+1"¶Else¶SetVar "res_incorrectas" "[res_incorrectas]+1"¶EndIf¶¶DisableObject "ListaDesplegable6" LineColor=0 LineWidth=0 LineStyle=0 FillColor=16777215 FillPattern=0 Font=Arial FontSize=8 FontStyle=1 FontCharset=1 TextColor=0 TabOrder=6 ObjectType=8 Name=Texto11 X=14 Y=154 W=137 H=68 Font=Arial FontSize=8 FontStyle=1 FontCharset=1 TextColor=0 Text={\rtf1\ansi\deff0\deftab254{\fonttbl{\f0\fnil\fcharset1 Arial;}}{\colortbl\red0\green0\blue0;\red255\green0\blue0;\red0\green128\blue0;\red0\green0\blue255;\red255\green255\blue0;\red255\green0\blue255;\red128\green0\blue128;\red128\green0\blue0;\red0\green255\blue0;\red0\green255\blue255;\red0\green128\blue128;\red0\green0\blue128;\red255\green255\blue255;\red192\green192\blue192;\red128\green128\blue128;\red0\green0\blue0;\red0\green0\blue0;}\paperw12240\paperh15840\margl1440\margr1440\margt1440\margb1440\margh720\margf720{\*\pnseclvl1\pnucrm\pnstart1\pnhang\pnindent720{\pntxtb}{\pntxta{.}}}¶{\*\pnseclvl2\pnucltr\pnstart1\pnhang\pnindent720{\pntxtb}{\pntxta{.}}}¶{\*\pnseclvl3\pndec\pnstart1\pnhang\pnindent720{\pntxtb}{\pntxta{.}}}¶{\*\pnseclvl4\pnlcltr\pnstart1\pnhang\pnindent720{\pntxtb}{\pntxta{)}}}¶{\*\pnseclvl5\pndec\pnstart1\pnhang\pnindent720{\pntxtb{(}}{\pntxta{)}}}¶{\*\pnseclvl6\pnlcltr\pnstart1\pnhang\pnindent720{\pntxtb{(}}{\pntxta{)}}}¶{\*\pnseclvl7\pnlcrm\pnstart1\pnhang\pnindent720{\pntxtb{(}}{\pntxta{)}}}¶{\*\pnseclvl8\pnlcltr\pnstart1\pnhang\pnindent720{\pntxtb{(}}{\pntxta{)}}}¶{\*\pnseclvl9\pndec\pnstart1\pnhang\pnindent720{\pntxtb{(}}{\pntxta{)}}}¶\endnhere\sectdefaultcl{\pard{\ql\li0\fi0\ri0\sb0\sl\sa0 \plain\f0\fs16\cf0\b \'bfCu\'e1nto suman \plain\f0\fs22\cf0\b 4+1\plain\f0\fs16\cf0\b ?}}¶} HMargin=4 VMargin=4 LineColor=0 LineWidth=1 LineStyle=0 FillColor=16777215 FillPattern=0 TabOrder=13 ObjectType=11 Name=ListaDesplegable7 X=23 Y=188 W=118 H=20 Text=6¶2¶5¶3 VarName=[Lista7] VarType=0 ObjAction=¶If "[Lista7]" "=" "5"¶SetVar "res_correctas" "[res_correctas]+1"¶Else¶SetVar "res_incorrectas" "[res_incorrectas]+1"¶EndIf¶¶DisableObject "ListaDesplegable7" LineColor=0 LineWidth=0 LineStyle=0 FillColor=16777215 FillPattern=0 Font=Arial FontSize=8 FontStyle=1 FontCharset=1 TextColor=0 TabOrder=14 ObjectType=8 Name=Texto12 X=156 Y=154 W=137 H=68 Font=Arial FontSize=8 FontStyle=1 FontCharset=1 TextColor=0 Text={\rtf1\ansi\deff0\deftab254{\fonttbl{\f0\fnil\fcharset1 Arial;}}{\colortbl\red0\green0\blue0;\red255\green0\blue0;\red0\green128\blue0;\red0\green0\blue255;\red255\green255\blue0;\red255\green0\blue255;\red128\green0\blue128;\red128\green0\blue0;\red0\green255\blue0;\red0\green255\blue255;\red0\green128\blue128;\red0\green0\blue128;\red255\green255\blue255;\red192\green192\blue192;\red128\green128\blue128;\red0\green0\blue0;\red0\green0\blue0;}\paperw12240\paperh15840\margl1440\margr1440\margt1440\margb1440\margh720\margf720{\*\pnseclvl1\pnucrm\pnstart1\pnhang\pnindent720{\pntxtb}{\pntxta{.}}}¶{\*\pnseclvl2\pnucltr\pnstart1\pnhang\pnindent720{\pntxtb}{\pntxta{.}}}¶{\*\pnseclvl3\pndec\pnstart1\pnhang\pnindent720{\pntxtb}{\pntxta{.}}}¶{\*\pnseclvl4\pnlcltr\pnstart1\pnhang\pnindent720{\pntxtb}{\pntxta{)}}}¶{\*\pnseclvl5\pndec\pnstart1\pnhang\pnindent720{\pntxtb{(}}{\pntxta{)}}}¶{\*\pnseclvl6\pnlcltr\pnstart1\pnhang\pnindent720{\pntxtb{(}}{\pntxta{)}}}¶{\*\pnseclvl7\pnlcrm\pnstart1\pnhang\pnindent720{\pntxtb{(}}{\pntxta{)}}}¶{\*\pnseclvl8\pnlcltr\pnstart1\pnhang\pnindent720{\pntxtb{(}}{\pntxta{)}}}¶{\*\pnseclvl9\pndec\pnstart1\pnhang\pnindent720{\pntxtb{(}}{\pntxta{)}}}¶\endnhere\sectdefaultcl{\pard{\ql\li0\fi0\ri0\sb0\sl\sa0 \plain\f0\fs16\cf0\b \'bfCu\'e1nto suman \plain\f0\fs22\cf0\b 4+4\plain\f0\fs16\cf0\b ?}}¶} HMargin=4 VMargin=4 LineColor=0 LineWidth=1 LineStyle=0 FillColor=16777215 FillPattern=0 TabOrder=11 ObjectType=11 Name=ListaDesplegable8 X=165 Y=188 W=118 H=20 Text=9¶2¶6¶8 VarName=[Lista8] VarType=0 ObjAction=¶If "[Lista8]" "=" "8"¶SetVar "res_correctas" "[res_correctas]+1"¶Else¶SetVar "res_incorrectas" "[res_incorrectas]+1"¶EndIf¶¶DisableObject "ListaDesplegable8" LineColor=0 LineWidth=0 LineStyle=0 FillColor=16777215 FillPattern=0 Font=Arial FontSize=8 FontStyle=1 FontCharset=1 TextColor=0 TabOrder=12 ObjectType=8 Name=Texto13 X=298 Y=154 W=137 H=68 Font=Arial FontSize=8 FontStyle=1 FontCharset=1 TextColor=0 Text={\rtf1\ansi\deff0\deftab254{\fonttbl{\f0\fnil\fcharset1 Arial;}}{\colortbl\red0\green0\blue0;\red255\green0\blue0;\red0\green128\blue0;\red0\green0\blue255;\red255\green255\blue0;\red255\green0\blue255;\red128\green0\blue128;\red128\green0\blue0;\red0\green255\blue0;\red0\green255\blue255;\red0\green128\blue128;\red0\green0\blue128;\red255\green255\blue255;\red192\green192\blue192;\red128\green128\blue128;\red0\green0\blue0;\red0\green0\blue0;}\paperw12240\paperh15840\margl1440\margr1440\margt1440\margb1440\margh720\margf720{\*\pnseclvl1\pnucrm\pnstart1\pnhang\pnindent720{\pntxtb}{\pntxta{.}}}¶{\*\pnseclvl2\pnucltr\pnstart1\pnhang\pnindent720{\pntxtb}{\pntxta{.}}}¶{\*\pnseclvl3\pndec\pnstart1\pnhang\pnindent720{\pntxtb}{\pntxta{.}}}¶{\*\pnseclvl4\pnlcltr\pnstart1\pnhang\pnindent720{\pntxtb}{\pntxta{)}}}¶{\*\pnseclvl5\pndec\pnstart1\pnhang\pnindent720{\pntxtb{(}}{\pntxta{)}}}¶{\*\pnseclvl6\pnlcltr\pnstart1\pnhang\pnindent720{\pntxtb{(}}{\pntxta{)}}}¶{\*\pnseclvl7\pnlcrm\pnstart1\pnhang\pnindent720{\pntxtb{(}}{\pntxta{)}}}¶{\*\pnseclvl8\pnlcltr\pnstart1\pnhang\pnindent720{\pntxtb{(}}{\pntxta{)}}}¶{\*\pnseclvl9\pndec\pnstart1\pnhang\pnindent720{\pntxtb{(}}{\pntxta{)}}}¶\endnhere\sectdefaultcl{\pard{\ql\li0\fi0\ri0\sb0\sl\sa0 \plain\f0\fs16\cf0\b \'bfCu\'e1nto suman \plain\f0\fs22\cf0\b 4+6\plain\f0\fs16\cf0\b ?}}¶} HMargin=4 VMargin=4 LineColor=0 LineWidth=1 LineStyle=0 FillColor=16777215 FillPattern=0 TabOrder=9 ObjectType=11 Name=ListaDesplegable9 X=307 Y=188 W=118 H=20 Text=9¶10¶14¶11 VarName=[Lista9] VarType=0 ObjAction=¶If "[Lista9]" "=" "10"¶SetVar "res_correctas" "[res_correctas]+1"¶Else¶SetVar "res_incorrectas" "[res_incorrectas]+1"¶EndIf¶¶DisableObject "ListaDesplegable9" LineColor=0 LineWidth=0 LineStyle=0 FillColor=16777215 FillPattern=0 Font=Arial FontSize=8 FontStyle=1 FontCharset=1 TextColor=0 TabOrder=10 ObjectType=20 Name=Grupo_respuestas X=-299 Y=6 W=267 H=181 TabOrder=20 GroupBegin ObjectType=5 Name=Rectangulo1 X=0 Y=0 W=267 H=181 LineColor=0 LineWidth=1 LineStyle=0 FillColor=16777215 FillPattern=0 TabOrder=0 ObjectType=8 Name=Texto2 X=16 Y=9 W=225 H=23 Font=Arial FontSize=10 FontStyle=0 FontCharset=1 TextColor=0 Text={\rtf1\ansi\deff0\deftab254{\fonttbl{\f0\fnil\fcharset1 Arial;}}{\colortbl\red0\green0\blue0;\red255\green0\blue0;\red0\green128\blue0;\red0\green0\blue255;\red255\green255\blue0;\red255\green0\blue255;\red128\green0\blue128;\red128\green0\blue0;\red0\green255\blue0;\red0\green255\blue255;\red0\green128\blue128;\red0\green0\blue128;\red255\green255\blue255;\red192\green192\blue192;\red128\green128\blue128;\red0\green0\blue0;\red0\green0\blue0;}\paperw12240\paperh15840\margl1440\margr1440\margt1440\margb1440\margh720\margf720{\*\pnseclvl1\pnucrm\pnstart1\pnhang\pnindent720{\pntxtb}{\pntxta{.}}}¶{\*\pnseclvl2\pnucltr\pnstart1\pnhang\pnindent720{\pntxtb}{\pntxta{.}}}¶{\*\pnseclvl3\pndec\pnstart1\pnhang\pnindent720{\pntxtb}{\pntxta{.}}}¶{\*\pnseclvl4\pnlcltr\pnstart1\pnhang\pnindent720{\pntxtb}{\pntxta{)}}}¶{\*\pnseclvl5\pndec\pnstart1\pnhang\pnindent720{\pntxtb{(}}{\pntxta{)}}}¶{\*\pnseclvl6\pnlcltr\pnstart1\pnhang\pnindent720{\pntxtb{(}}{\pntxta{)}}}¶{\*\pnseclvl7\pnlcrm\pnstart1\pnhang\pnindent720{\pntxtb{(}}{\pntxta{)}}}¶{\*\pnseclvl8\pnlcltr\pnstart1\pnhang\pnindent720{\pntxtb{(}}{\pntxta{)}}}¶{\*\pnseclvl9\pndec\pnstart1\pnhang\pnindent720{\pntxtb{(}}{\pntxta{)}}}¶\endnhere\sectdefaultcl{\pard{\ql\li0\fi0\ri0\sb0\sl\sa0 \plain\f0\fs16\cf0\b N\'famero de respuestas correctas:}}¶} HMargin=4 VMargin=4 LineColor=0 LineWidth=0 LineStyle=0 FillColor=16777215 FillPattern=0 TabOrder=1 ObjectType=8 Name=Texto3 X=28 Y=32 W=223 H=26 Font=Arial FontSize=10 FontStyle=0 FontCharset=1 TextColor=0 Text={\rtf1\ansi\deff0\deftab254{\fonttbl{\f0\fnil\fcharset1 Arial;}}{\colortbl\red0\green0\blue0;\red255\green0\blue0;\red0\green128\blue0;\red0\green0\blue255;\red255\green255\blue0;\red255\green0\blue255;\red128\green0\blue128;\red128\green0\blue0;\red0\green255\blue0;\red0\green255\blue255;\red0\green128\blue128;\red0\green0\blue128;\red255\green255\blue255;\red192\green192\blue192;\red128\green128\blue128;\red0\green0\blue0;\red0\green0\blue0;}\paperw12240\paperh15840\margl1440\margr1440\margt1440\margb1440\margh720\margf720{\*\pnseclvl1\pnucrm\pnstart1\pnhang\pnindent720{\pntxtb}{\pntxta{.}}}¶{\*\pnseclvl2\pnucltr\pnstart1\pnhang\pnindent720{\pntxtb}{\pntxta{.}}}¶{\*\pnseclvl3\pndec\pnstart1\pnhang\pnindent720{\pntxtb}{\pntxta{.}}}¶{\*\pnseclvl4\pnlcltr\pnstart1\pnhang\pnindent720{\pntxtb}{\pntxta{)}}}¶{\*\pnseclvl5\pndec\pnstart1\pnhang\pnindent720{\pntxtb{(}}{\pntxta{)}}}¶{\*\pnseclvl6\pnlcltr\pnstart1\pnhang\pnindent720{\pntxtb{(}}{\pntxta{)}}}¶{\*\pnseclvl7\pnlcrm\pnstart1\pnhang\pnindent720{\pntxtb{(}}{\pntxta{)}}}¶{\*\pnseclvl8\pnlcltr\pnstart1\pnhang\pnindent720{\pntxtb{(}}{\pntxta{)}}}¶{\*\pnseclvl9\pndec\pnstart1\pnhang\pnindent720{\pntxtb{(}}{\pntxta{)}}}¶\endnhere\sectdefaultcl{\pard{\qc\li0\fi0\ri0\sb0\sl\sa0 \plain\f0\fs20\cf0\b [res_correctas]}}¶} HMargin=4 VMargin=4 LineColor=0 LineWidth=0 LineStyle=0 FillColor=16777215 FillPattern=0 TabOrder=2 ObjectType=8 Name=Texto4 X=16 Y=63 W=225 H=23 Font=Arial FontSize=10 FontStyle=0 FontCharset=1 TextColor=255 Text={\rtf1\ansi\deff0\deftab254{\fonttbl{\f0\fnil\fcharset1 Arial;}}{\colortbl\red0\green0\blue0;\red255\green0\blue0;\red0\green128\blue0;\red0\green0\blue255;\red255\green255\blue0;\red255\green0\blue255;\red128\green0\blue128;\red128\green0\blue0;\red0\green255\blue0;\red0\green255\blue255;\red0\green128\blue128;\red0\green0\blue128;\red255\green255\blue255;\red192\green192\blue192;\red128\green128\blue128;\red0\green0\blue0;\red0\green0\blue0;}\paperw12240\paperh15840\margl1440\margr1440\margt1440\margb1440\margh720\margf720{\*\pnseclvl1\pnucrm\pnstart1\pnhang\pnindent720{\pntxtb}{\pntxta{.}}}¶{\*\pnseclvl2\pnucltr\pnstart1\pnhang\pnindent720{\pntxtb}{\pntxta{.}}}¶{\*\pnseclvl3\pndec\pnstart1\pnhang\pnindent720{\pntxtb}{\pntxta{.}}}¶{\*\pnseclvl4\pnlcltr\pnstart1\pnhang\pnindent720{\pntxtb}{\pntxta{)}}}¶{\*\pnseclvl5\pndec\pnstart1\pnhang\pnindent720{\pntxtb{(}}{\pntxta{)}}}¶{\*\pnseclvl6\pnlcltr\pnstart1\pnhang\pnindent720{\pntxtb{(}}{\pntxta{)}}}¶{\*\pnseclvl7\pnlcrm\pnstart1\pnhang\pnindent720{\pntxtb{(}}{\pntxta{)}}}¶{\*\pnseclvl8\pnlcltr\pnstart1\pnhang\pnindent720{\pntxtb{(}}{\pntxta{)}}}¶{\*\pnseclvl9\pndec\pnstart1\pnhang\pnindent720{\pntxtb{(}}{\pntxta{)}}}¶\endnhere\sectdefaultcl{\pard{\ql\li0\fi0\ri0\sb0\sl\sa0 \plain\f0\fs16\cf0\b N\'famero de respuestas incorrectas:}}¶} HMargin=4 VMargin=4 LineColor=0 LineWidth=0 LineStyle=0 FillColor=16777215 FillPattern=0 TabOrder=3 ObjectType=8 Name=Texto5 X=28 Y=86 W=223 H=26 Font=Arial FontSize=10 FontStyle=0 FontCharset=1 TextColor=255 Text={\rtf1\ansi\deff0\deftab254{\fonttbl{\f0\fnil\fcharset1 Arial;}}{\colortbl\red0\green0\blue0;\red255\green0\blue0;\red0\green128\blue0;\red0\green0\blue255;\red255\green255\blue0;\red255\green0\blue255;\red128\green0\blue128;\red128\green0\blue0;\red0\green255\blue0;\red0\green255\blue255;\red0\green128\blue128;\red0\green0\blue128;\red255\green255\blue255;\red192\green192\blue192;\red128\green128\blue128;\red0\green0\blue0;\red0\green0\blue0;}\paperw12240\paperh15840\margl1440\margr1440\margt1440\margb1440\margh720\margf720{\*\pnseclvl1\pnucrm\pnstart1\pnhang\pnindent720{\pntxtb}{\pntxta{.}}}¶{\*\pnseclvl2\pnucltr\pnstart1\pnhang\pnindent720{\pntxtb}{\pntxta{.}}}¶{\*\pnseclvl3\pndec\pnstart1\pnhang\pnindent720{\pntxtb}{\pntxta{.}}}¶{\*\pnseclvl4\pnlcltr\pnstart1\pnhang\pnindent720{\pntxtb}{\pntxta{)}}}¶{\*\pnseclvl5\pndec\pnstart1\pnhang\pnindent720{\pntxtb{(}}{\pntxta{)}}}¶{\*\pnseclvl6\pnlcltr\pnstart1\pnhang\pnindent720{\pntxtb{(}}{\pntxta{)}}}¶{\*\pnseclvl7\pnlcrm\pnstart1\pnhang\pnindent720{\pntxtb{(}}{\pntxta{)}}}¶{\*\pnseclvl8\pnlcltr\pnstart1\pnhang\pnindent720{\pntxtb{(}}{\pntxta{)}}}¶{\*\pnseclvl9\pndec\pnstart1\pnhang\pnindent720{\pntxtb{(}}{\pntxta{)}}}¶\endnhere\sectdefaultcl{\pard{\qc\li0\fi0\ri0\sb0\sl\sa0 \plain\f0\fs20\cf0\b [res_incorrectas]}}¶} HMargin=4 VMargin=4 LineColor=0 LineWidth=0 LineStyle=0 FillColor=16777215 FillPattern=0 TabOrder=4 ObjectType=3 Name=BotonComando1 X=37 Y=119 W=195 H=23 Text=comenzar de nuevo Align=2 ImageStyle=0 BevelWidth=1 ObjAction=¶.Primer habilitamos las listas desplegables¶.(todas ellas, las que no estén deshabilitadas omitirán la acción)¶¶EnableObject "ListaDesplegable1"¶EnableObject "ListaDesplegable2"¶EnableObject "ListaDesplegable3"¶EnableObject "ListaDesplegable4"¶EnableObject "ListaDesplegable5"¶EnableObject "ListaDesplegable6"¶EnableObject "ListaDesplegable7"¶EnableObject "ListaDesplegable8"¶EnableObject "ListaDesplegable9"¶¶.Ahora sí que daré el valor de "0" a las variables res_correctas y res_incorrectas¶.pero solamente con el fin de que "el contador" de estas (en la ventana pequeña)¶.se inicialize... para evitar confusiones...¶¶SetVar "res_correctas" "0"¶SetVar "res_incorrectas" "0"¶ LineColor=0 LineWidth=1 LineStyle=0 FillColor=14737632 FillPattern=0 Font=Arial FontSize=8 FontStyle=1 FontCharset=1 TextColor=0 TabOrder=5 ObjectType=3 Name=BotonComando2 X=37 Y=149 W=195 H=23 Text=terminar, salir de la utilidad Align=2 ImageStyle=0 BevelWidth=1 ObjAction=¶Exit "" ""¶ LineColor=0 LineWidth=1 LineStyle=0 FillColor=14737632 FillPattern=0 Font=Arial FontSize=8 FontStyle=1 FontCharset=1 TextColor=0 TabOrder=6 GroupEnd ObjectType=8 Name=Texto22 X=14 Y=229 W=422 H=85 Font=Arial FontSize=8 FontStyle=1 FontCharset=1 TextColor=0 Text={\rtf1\ansi\deff0\deftab254{\fonttbl{\f0\fnil\fcharset1 Arial;}}{\colortbl\red0\green0\blue0;\red255\green0\blue0;\red0\green128\blue0;\red0\green0\blue255;\red255\green255\blue0;\red255\green0\blue255;\red128\green0\blue128;\red128\green0\blue0;\red0\green255\blue0;\red0\green255\blue255;\red0\green128\blue128;\red0\green0\blue128;\red255\green255\blue255;\red192\green192\blue192;\red128\green128\blue128;\red0\green0\blue0;\red0\green0\blue0;}\paperw12240\paperh15840\margl1440\margr1440\margt1440\margb1440\margh720\margf720{\*\pnseclvl1\pnucrm\pnstart1\pnhang\pnindent720{\pntxtb}{\pntxta{.}}}¶{\*\pnseclvl2\pnucltr\pnstart1\pnhang\pnindent720{\pntxtb}{\pntxta{.}}}¶{\*\pnseclvl3\pndec\pnstart1\pnhang\pnindent720{\pntxtb}{\pntxta{.}}}¶{\*\pnseclvl4\pnlcltr\pnstart1\pnhang\pnindent720{\pntxtb}{\pntxta{)}}}¶{\*\pnseclvl5\pndec\pnstart1\pnhang\pnindent720{\pntxtb{(}}{\pntxta{)}}}¶{\*\pnseclvl6\pnlcltr\pnstart1\pnhang\pnindent720{\pntxtb{(}}{\pntxta{)}}}¶{\*\pnseclvl7\pnlcrm\pnstart1\pnhang\pnindent720{\pntxtb{(}}{\pntxta{)}}}¶{\*\pnseclvl8\pnlcltr\pnstart1\pnhang\pnindent720{\pntxtb{(}}{\pntxta{)}}}¶{\*\pnseclvl9\pndec\pnstart1\pnhang\pnindent720{\pntxtb{(}}{\pntxta{)}}}¶\endnhere\sectdefaultcl{\pard{\ql\li0\fi0\ri0\sb0\sl\sa0 \plain\f0\fs16\cf0\b Notas: \plain\f0\fs16\cf0 \tab F\'edjate que tienes algunas acciones en el "inicio" del libro y en el "cierre"\par¶\ql\li0\fi0\ri0\sb0\sl\sa0 \plain\f0\fs16\cf0 \tab \tab \tab Date cuenta de que se comprueba si las respuestas son correctas o no\par¶\ql\li0\fi0\ri0\sb0\sl\sa0 \plain\f0\fs16\cf0 \tab \tab \tab en la misma lista desplegable, al llevarse a cabo un cambio en la misma.\par¶\ql\li0\fi0\ri0\sb0\sl\sa0 \plain\f0\fs16\cf0\b \tab \tab \tab Creo que\plain\f0\fs16\cf0 de este modo no tendr\'e1s problemas... pero conste que\par¶\ql\li0\fi0\ri0\sb0\sl\sa0 \plain\f0\fs16\cf0 \tab \tab \tab no puedo darte el cien por cien de seguridad... \plain\f0\fs16\cf0\b \'a1Suerte Dulce!}}¶} HMargin=4 VMargin=4 LineColor=0 LineWidth=1 LineStyle=0 FillColor=16777215 FillPattern=0 TabOrder=19