برنامج حساب الوقت - لغة باسكال

[Mr.Rayan]

السلام عليكم

الموضوع سويته في منتدي اخر بعضوية اخريComunistul


شغلت الباسكال وسويت برنامج على السريع ..

برنامج صغير يقوم بحساب الوقت الحالي ..اي من هذه اللحظة

ثم عندما تظغط اي اي زر من The Keyboard يتوقف حساب الوقت

ثم يظهر كل الاوقات الي سجلها .....:D


Program xxx ;

Uses wincrt , Windos ;


Var

h,h1,PreviousS,s1,m,m1,CurrentS,ms1,ms : word ;
it:integer;
xs,xm, x:string ;
t:text ;
Begin



ScreenSize.x:=300 ;
ScreenSize.y:=200;
Assign(t,'c:\time.txt');
Rewrite (t);



GetTime(h1,m1,PreviousS,ms1);


Repeat

GetTime(h1,m1,CurrentS,ms1);

Str(m1 , xm );
Str(CurrentS ,xs ) ;


If not ( CurrentS = PreviousS ) then

Begin

PreviousS:=CurrentS ;

Clrscr;


If ( m1 < 10 ) then

Begin



xm:='0'+xm ;

end;

If not ( CurrentS >= 10 ) then

Begin
Clrscr;


xs:='0'+xs;


end ;



write('The Current time is :',h1,':',xm,':',xs);

Writeln(t,'- >:',h1,':',xm,':',xs);
Gotoxy(0,5);
Writeln('Press any key to stop Counting >');

end;

Until ( Keypressed);
Writeln;

Clrscr ;
Reset(t) ;
Writeln(' I Recorded The time While this Program was open >' );
Writeln;

While ( eof(t) = false ) do

begin

Readln(t,x) ;

Writeln(x);

end;

Close(t);
Writeln;

Writeln('ALL RIGHTS ARE RESERVED TO < Comunistul > ... ');


end.


====


النتيجة بعد الظغط علي اي زر

====

http://i36.tinypic.com/2epmy51.png

[Argonaut]

وعليكم السلام
جزاك الله خيرا

( باسكل قديمة >.< وانتهى زمانها )
على العموم جهد رائع