Pascal Help

[HeZzA]

Hi, i was wondering if anyone can tell me how to change a font color in pascal, i have created a calculator program to calculate how long my bit torrent downloads have left (going at a certain speed) since i have found the eta field to usually be way off, it all works and all but i cant figure out how to change the colors of the fonts to pretty it up.

This is my code

program calculator;

var per, perl, avs, sizemb, sizekb, etasec, etamin, etahour, etaday, mbleft, kbleft : real;

begin;
writeln('This Program will calculate the approximate time for a download');
writeln('Enter the percentage that has been downloaded : ');
read(per);
perl := 100 - per;
while per < 0 and per > 100 do
begin
writeln('This is not a valid percentage');
writeln('Enter the percentage that has been downloaded : ');
read(per)
perl := 100 - per;
end;
writeln('Now enter the total size (in MB) of the file : ');
readln(sizemb);
sizekb := sizemb * 1000;
mbleft := sizemb / 100 * perl;
kbleft := mbleft * 1000;
writeln('Enter the average speed (in KB/s) to calculate for : ');
read(avs);
etasec := kbleft / avs;
etamin := etasec / 60;
etahour := etamin / 60;
etaday := etahour / 24;
if etasec < 60
then writeln('There is only ', etasec:3:1, 'seconds left of this download')
else writeln('There is ', etamin:3:1, ' Minutes left for this download');
if etamin > 60
then writeln('Which is ', etahour:3:1, ' hours left for this download')
else write;
if etahour > 24
then writeln('(', etaday:3:1, ' Day(s) left for the download)')
else write;
readln;
readln;
end.

I want to change the color of
writeln('There is only ', etasec:3:1, 'seconds left of this download')
writeln('There is ', etamin:3:1, ' Minutes left for this download');
then writeln('Which is ', etahour:3:1, ' hours left for this download')
and
writeln('(', etaday:3:1, ' Day(s) left for the download)')

Can Anyone help me?
HeZzA

[dve83]

hi sorry i might have missed something here (hope not though),

to change the color of your output to the screen
I think setColor should be used just before you writeln anything to screen.

eg.

SetColor(5);

end eg.

use any number from 1-16 or (i think)u can specify it like "blue" or " white"

cheers good luck-

[Hardware Junkie]

http://www.geocities.com/SiliconValley/ ... l1001.html

[dve83]

yeah thats right @ that link. sorry my mistake.

[kltsin]

I know this is a programming forum and hate to bring up the obvious but.... I have nothing better to do.

Bit torrent requires a give and take method for this p2p client.
I am sure you are aware of this.

The algorithems alone to "predict" when a torrent file is finished is astounding and uncomprehensible.

Have you checked out the other bit torrent clients?

If you have you can see the client can be manipulated and each version of the client will affect the end user and the person he is drawing files from.
More so you are dealing with peoples whims and that is trouble.

Well best of luck and I would love to see the outcome.