Pascal/Turbo Pascal - Funcion DELAY ¿?

 
Vista:

Funcion DELAY ¿?

Publicado por Jairo (3 intervenciones) el 27/02/2010 21:19:25
Lo que quiero es poder ir mostrando los mensajes cada X tiempo, segun como indico anteriormente con delay, pero parece que me ignore esa funcion...

PROGRAM Pr_1;
USES crt;
VAR
naame:string;
BEGIN
Clrscr;
TEXTBACKGROUND(lightblue);
WRITELN(' ');
TEXTBACKGROUND(black);
WRITELN('Hello World!');
DELAY(2000);
WRITELN('Welcome to...');
DELAY(2000);
WRITELN('...this easy program.');
DELAY(2000);
TEXTCOLOR(green);
WRITELN('Have fun!');
DELAY(500);
TEXTCOLOR(red);
WRITELN('Have fun!');
DELAY(500);
TEXTCOLOR(blue);
WRITELN('Have fun!');
DELAY(500);
TEXTCOLOR(yellow);
WRITELN('Have fun!');
DELAY(2000);
{Parte experimental}
WRITELN('And now...');
DELAY(2000);
WRITELN('...Write your name, please');
READLN(naame);
DELAY(1000);
WRITELN('...');
DELAY(1000);
WRITELN('Ok.');
DELAY(500);
WRITELN('...');
DELAY(500);
WRITELN('So,');
DELAY(500);
WRITE('HAVE A NICE DAY ');
TEXTCOLOR(white);
WRITE(naame);
WRITELN('.');
WRITELN(' ');
TEXTBACKGROUND(lightblue);
WRITELN(' ');
TEXTBACKGROUND(black);
GOTOXY(1,18);
Readkey;
END.

que hago?

saludos
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Funcion DELAY ¿?

Publicado por Diego Romero (996 intervenciones) el 28/02/2010 00:12:25
En Turbo Pascal esto funciona bien...
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Funcion DELAY ¿?

Publicado por Jairo (3 intervenciones) el 28/02/2010 01:21:28
no si ya, pero no van saliendo los mensajes como yo pretendo, es decir, si anteriormente pongo "DELAY(500)", por ejemplo, lo que quiero es que el mensaje que siga al delay tarde medio segundo en aparecer
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Funcion DELAY ¿?

Publicado por Diego Romero (996 intervenciones) el 28/02/2010 10:18:06
Y ese es el comportamiento que observo al ejecutar el código que has puesto. ¿Qué otra cosa esperas que suceda o cuál es el comportamiento que ves tú?
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Funcion DELAY ¿?

Publicado por Jairo (3 intervenciones) el 28/02/2010 18:42:52
a mi me sale todo seguido, es decir, sin la pausa en milisegundos, me sale primero un bloque y luego otro, desde "hello world" hasta "write your name, please" me sale todo seguido, escribo el nombre, y el siguiente bloque me sale otra vez todo seguido...
http://s4.subirimagenes.com/imagen/4138632si.png

a ti te sale bien? uso turbo pascal 7..
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Funcion DELAY ¿?

Publicado por Diego Romero (996 intervenciones) el 28/02/2010 21:16:50
Sugiero que busques otra instalación de TP y pruebes ahí para descartar que es tu copia de Tp7
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Funcion DELAY ¿?

Publicado por ChidUng (3 intervenciones) el 01/03/2010 21:41:26
Hola..
El comportamiento es debido a que tienes un procesador más veloz y eso hace que tu apliación muestre de forma más rápido los datos.

Te sugiero que incrementes el tiempo de tus delay y veras la diferencial, in cluso utiliza dos o tres delay seguidos y podras ver la diferencia.

Saludos
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar