שעון בפסקל

[Oriz]

אם לא שמת לו delay אז הוא פשוט מעדכן את זה מהר מידי, שים איזה delay קצר וזה יעבוד בסדר

פשוט דחוף את השורה

delay(50)

אחרי שאתה מציג את הזמן (אפשר להשתמש גם בdelay יותר קצר אם אתה רוצה, תשחק עם זה קצת)

[Ghosthunter]

אתה רוצה שהוא יעדכן לך כל שניה?(אם אה מציג שניות) - > תעשה DELAY עם 1000

רוצה על דקה - > 60*1000

שעה - > 60*60*1000

וכו'.

רק תשים לב שאתה לא חורג מהINTEGER(או מה שניתן לשלוח לפונ).

[asaf999]

איך אני רושם את זה ?

איפה אני רושם את זה בלופ?

זאת פקודה??

[asaf999]

רשמתי אחרי ה clrscr

delay(1000*60);

וזה לא עובד... במסך אני לא רואה כלום ואחרי דקה הוא יוצא ....

[Oriz]

אוקי, לדעתי יהיה לך הרבה יותר קל ללמוד מדוגמא:

program clock;
uses crt,dos;
var i:integer;
  h,m,s,s100:word;
begin
for i:=1 to 100 do
   begin
   clrscr;
   gettime(h,m,s,s100);
   writeln(h,':',m,':',s);
   delay(50);
   end;
end.

[Ghosthunter]

אתה צריך לשים את זה אחרי הCLRSCR.

אתה מצייר, מחכה דקה ואז מוחק.

אם תמחק לפני שתחכה, אתה לא תראה כלום(תחשוב על זה הגיונית).

[asaf999]

יופי הצלחתי תודה רבה....

מישהו יודע איך אני יכול לעשות שעון אנלוגי?

[Ghosthunter]

אתה צריך פונ של ציור קוים ועיגולים

או פונ של ציור ARCים(זויות מסויימות מעיגולים).

[asaf999]

אתה יודע אולי איך עושים את זה?

[Ghosthunter]

אני לא מכיר פסקל.