NBW Publication Source File
(C)1993-2003 NeoSoft Corp.
Title= Posible cronómetro de "cuenta atrás"
Author=David Esperalta
Language=US
NeoBookVer=4,11
ScreenColors=16777216
ScreenWidth=327
ScreenHeight=200
BkndColor=0
LinkColor=16711680
WindowStyle=0
WindowOrder=0
WindowProps=29
UseUpdateTimer=Yes
ReturnTime=60
ShapeTransColor=536870912
CompiledName=C:\Documents and Settings\bubi.htm\Escritorio\cronometro.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=inicio
PageStyle=0
PageColor=15329769
PageGradient1=16711680
PageGradient2=255
PageGradientDir=1
WallpaperStyle=0
EffectSpeed=5
ObjectType=8
Name=info_cuenta
X=4
Y=6
W=319
H=85
Font=Arial
FontSize=8
FontStyle=0
FontCharset=0
TextColor=0
Text={\rtf1\ansi\deff0\deftab254{\fonttbl{\f0\fnil\fcharset0 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\fs76\cf0\b [cuenta]}}¶}
HMargin=0
VMargin=6
LineColor=0
LineWidth=1
LineStyle=0
FillColor=12632256
FillPattern=0
TabOrder=2
ObjectType=5
Name=Rectangulo1
X=4
Y=96
W=157
H=99
LineColor=0
LineWidth=1
LineStyle=0
FillColor=16777215
FillPattern=0
TabOrder=6
ObjectType=8
Name=info_segundos
X=11
Y=103
W=142
H=85
Font=MS Sans Serif
FontSize=8
FontStyle=0
FontCharset=1
TextColor=0
Text={\rtf1\ansi\deff0\deftab254{\fonttbl{\f0\fnil\fcharset0 Arial;}{\f1\fnil\fcharset1 MS Sans Serif;}}{\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\f1\fs16\cf0 Escribe aqu\'ed el tiempo\par¶\qc\li0\fi0\ri0\sb0\sl\sa0 \plain\f1\fs16\cf0 (en segundos)}}¶}
HMargin=0
VMargin=6
LineColor=0
LineWidth=1
LineStyle=2
FillColor=16777215
FillPattern=0
TabOrder=8
ObjectType=9
Name=caja_tiempo
X=25
Y=147
W=38
H=24
VarName=[tiempo]
LineColor=0
LineWidth=1
LineStyle=0
FillColor=15921906
FillPattern=0
Font=MS Sans Serif
FontSize=8
FontStyle=0
FontCharset=1
TextColor=0
TabOrder=3
ObjectType=8
Name=Texto4
X=75
Y=146
W=65
H=26
Font=MS Sans Serif
FontSize=8
FontStyle=0
FontCharset=1
TextColor=0
Text={\rtf1\ansi\deff0\deftab254{\fonttbl{\f0\fnil\fcharset0 Arial;}{\f1\fnil\fcharset1 MS Sans Serif;}}{\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\f1\fs16\cf0 (p.e.\plain\f1\fs16\cf0\b  20\plain\f1\fs16\cf0 )}}¶}
HMargin=0
VMargin=6
LineColor=0
LineWidth=0
LineStyle=2
FillColor=16777215
FillPattern=0
TabOrder=7
ObjectType=5
Name=Rectangulo2
X=166
Y=96
W=157
H=99
LineColor=0
LineWidth=1
LineStyle=0
FillColor=16777215
FillPattern=0
TabOrder=4
ObjectType=8
Name=info_boton_go
X=173
Y=103
W=142
H=85
Font=MS Sans Serif
FontSize=8
FontStyle=0
FontCharset=1
TextColor=0
Text={\rtf1\ansi\deff0\deftab254{\fonttbl{\f0\fnil\fcharset0 Arial;}{\f1\fnil\fcharset1 MS Sans Serif;}}{\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\f1\fs16\cf0 Comienza la cuenta atr\'e1s\par¶\qc\li0\fi0\ri0\sb0\sl\sa0 \plain\f1\fs16\cf0 (antes escribe el tiempo)}}¶}
HMargin=0
VMargin=6
LineColor=0
LineWidth=1
LineStyle=2
FillColor=16777215
FillPattern=0
TabOrder=5
ObjectType=3
Name=boton_go
X=194
Y=148
W=102
H=25
Text=Cuenta atrás
Hint=comenzar la cuenta atrás
Align=2
ImageStyle=0
BevelWidth=1
ObjAction=.Compruebo que se escribió un "tiempo"¶If "[tiempo]" "=" ""¶.Si no se escribió pido que se haga¶AlertBox " No has escrito el tiempo" "Escribe un tiempo (en segudos)|en la casilla de al lado|antes de pulsar este botón..."¶."Llamo" a la línea SALIR, para salir del proceso¶GotoLine "SALIR"¶EndIf¶.Comienza el código del "cronómetro", propiamente dicho¶.------------------------------------------------------------------------------¶.Doy valor al "contador"¶SetVar "[contador]" "1"¶.Asigno el valor de la caja "tiempo" a "cuenta"¶SetVar "[cuenta]" "[tiempo]"¶.Mientras el "contador" sea menor que el "tiempo"¶While "[contador]" "<" "[tiempo]"¶.Resto uno a la "cuenta"¶Math "[cuenta]-1" "0" "[cuenta]"¶.Sumo uno a "contador"¶Math "[contador]+1" "0" "[contador]"¶.Paro un segundo (1000 milisegundos)¶Delay "1000"¶.Cuando el "contador" alcance al "tiempo"...¶If "[contador]" "=" "[tiempo]"¶.Lo aviso¶AlertBox " Se cumplió el tiempo!" "Se cumplió el tiempo!"¶.Por último, pongo a cero la "cuenta", pero, fuera del While¶GotoLine "ACERO"¶EndIf¶EndWhile¶:ACERO¶SetVar "[cuenta]" ""¶.La línea SALIR se utiliza para salir del proceso¶:SALIR
LineColor=0
LineWidth=1
LineStyle=0
FillColor=12632256
FillPattern=0
Font=MS Sans Serif
FontSize=8
FontStyle=0
FontCharset=1
TextColor=0
TabOrder=1
ObjectType=8
Name=info_codigo
X=363
Y=134
W=153
H=61
Font=Arial
FontSize=8
FontStyle=0
FontCharset=1
TextColor=0
Text={\rtf1\ansi\deff0\deftab254{\fonttbl{\f0\fnil\fcharset1 Arial;}}{\pard{\qc\li0\fi0\ri0\sb0\sl\sa0 \plain\f0\fs16\cf0\b Nota: \plain\f0\fs16\cf0 El c\'f3digo "del cron\'f3metro" lo encontrar\'e1s\par\qc\li0\fi0\ri0\sb0\sl\sa0 \plain\f0\fs16\cf0 en el bot\'f3n "cuenta atr\'e1s"...}}}
HMargin=0
VMargin=6
LineColor=0
LineWidth=1
LineStyle=0
FillColor=16777215
FillPattern=0
TabOrder=10
ObjectType=7
Name=Linea1
X1=336
Y1=162
X2=361
Y2=162
LineColor=0
LineWidth=1
LineStyle=0
FillColor=16777215
FillPattern=0
TabOrder=9