How to set the Measure the time ,backgroup color and text color? - Programmers Heaven

Howdy, Stranger!

It looks like you're new here. If you want to get involved, click one of these buttons!

Categories

How to set the Measure the time ,backgroup color and text color?

anymananyman Posts: 19Member
[b][red]This message was edited by anyman at 2004-12-31 10:11:58[/red][/b][hr]
How to set the Measure the time of programe running ,backgroup color and text color?


THX!!!!!!!!

Comments

  • scorpionxx7scorpionxx7 Posts: 39Member
    [code]
    uses hjwincrt;
    var
    h,m,s,ms:word;
    time1,time2:real;
    x:longint;
    begin
    gettime(h,m,s,ms);
    time1:=h*3600+m*60+s+s/100;
    for x:=1 to 100000000 do;
    gettime(h,m,s,ms);
    time2:=h*3600+m*60+s+s/100; {this gives the change in time}
    bkcolorRGB(0,0,250); {blue background, red text}
    textcolorRGB(250,0,0); {the values must be 0-255}
    writeln(time2-time1);
    readln;
    end.
    [/code]
    this is for pascal for windows, but dos should be somewhat similar


Sign In or Register to comment.