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
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


0