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 Member Posts: 19
[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 Member Posts: 39
    [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.