PDA

View Full Version : How to make a cool Progress Report



Bigfish58
10-20-2006, 03:11 PM
Ok, This has probably been used plenty of times before, but, just for people who dont know, this is my tutorial on how to create a cool looking progress report

1st off Create a new procedure called, introtext

program New;

procedure introtext;
begin;

end;
begin
end.

Now goto this website: http://www.network-science.de/ascii/ <<Its a site where you can make wicked looking ascii art

So youve chose your text and a font, now copy and paste your ascii art within your procedure like so:


program New;

procedure introtext;
begin;
_ _
| |_ ___ ___| |_
| __/ _ \/ __| __|
| || __/\__ \ |_
\__\___||___/\__|

end;
begin
end.

Now you need to add, Writeln(' ') to each line... like so:


program New;

procedure introtext;
begin;
Writeln(' _ _ ')
Writeln('| |_ ___ ___| |_ ')
Writeln('| __/ _ \/ __| __| ')
Writeln('| || __/\__ \ |_ ')
Writeln(' \__\___||___/\__| ')
end;

begin
end.

Now add, Wait(500) or what ever time you want in milliseconds (1 second = 1000) inbetween each Writeln


program New;

procedure introtext;
begin;
Writeln(' _ _ ')
Wait(500)
Writeln('| |_ ___ ___| |_ ')
Wait(500)
Writeln('| __/ _ \/ __| __| ')
Wait(500)
Writeln('| || __/\__ \ |_ ')
Wait(500)
Writeln(' \__\___||___/\__| ')
end;

begin
end.

Finally just add it to the main loop..

Your finished code should now look like:


program New;

procedure introtext;
begin;
Writeln(' _ _ ')
Wait(500)
Writeln('| |_ ___ ___| |_ ')
Wait(500)
Writeln('| __/ _ \/ __| __| ')
Wait(500)
Writeln('| || __/\__ \ |_ ')
Wait(500)
Writeln(' \__\___||___/\__| ')
end;

begin
introtext;
end.

Now run and you will see the effects :(h):
I have attached the script, just incase :D

Have fun

Home
10-20-2006, 03:29 PM
Code tags and this is not kinda PROGRESS Repot

It's kinda an Intro text :)


:)

~Home

Bigfish58
10-20-2006, 04:12 PM
:D Oh well, life goes on :p

imported_Aftermath_96
10-20-2006, 09:50 PM
This is nice, I like it. I modified it a bit to my liking.

I added it to the tut runner I'm working on.


procedure WriteWait(TheText: String; TimeToWait: Integer);
begin
Writeln(TheText);
Wait(TimeToWait);
end;

procedure Intro;
begin;
WriteWait(' _____ _ ', 300)
WriteWait('|_ _| | | ', 300)
WriteWait(' | |_ _| |_ _ __ _ _ _ __ _ __ ___ _ __ ', 300)
WriteWait(' | | | | | __| | ''__| | | | ''_ \| ''_ \ / _ \ ''__| ', 300)
WriteWait(' | | |_| | |_ | | | |_| | | | | | | | __/ | ', 300)
WriteWait(' \_/\__,_|\__| |_| \__,_|_| |_|_| |_|\___|_| ', 300)
end;

Smartzkid
02-17-2007, 07:02 PM
hey, pretty cool....never thought of using an intro text in my reports...

han941306
08-15-2007, 01:56 PM
Nice ASCII maker!
I haven't heard that before..
Thanks for your TuT.

Kik
08-15-2007, 10:12 PM
Thanks for showing this-not really a tut on progress report, tho

*bookmark*