אני שואל אם אפשר לקבוע בתוכנית שני דברים שפועלים בו זמנית!
לדוגמא: בניתי משחק בפסקל ואני רוצה לשים טיימר במשחק כדי להקצות לשחקן המשחק 30 שניות...
כלומר, יש לו 30 שניות להכניס מספר מסוים לתוך טבלה (לצורך העניין).
איך אפשר לעשות זאת?
{שעון על זמן שמתקתק ככה שהמשתמש יכול לראות אותו וגם אפשרות זמינה לקלט מהמשתמש}.

אם אפשר לעשות זאת בבקשה בבקשה תסבירו לי איך!
תודה רבה לגאון שיענה לי!

פשוט. מכיוון שאין אפשרות למולטית'רידינג בפסקל (לא שידוע לי, ולא הגיוני שיהיה) אז האתה יכול לעשות סימולציה של מולטית'רידינג:

תעשה פונקציה שקופצת פעם לפונקצייה של הטיימר ופעם לפונקציה של הקליטה.

משו בסגנון הזה:

קוד:

 
function MT(var time);
  begin
	if time=0 then func1()
	else if time=1 then func2();
  end;
 

אני אפילו לא בטוח שהסינטקס שלי נכון פה (לא זוכר כבר את של פסקל...). בכל מקרה אתה אמור להבין למה התכוונתי פה.

~-LiViDuS-~

...Previous knowen as AshvaK...

כל פעם שפסקל רואה פעולת קלט (Readln) היא עוצרת שם ומחכה! מחכה לקלט מהמשתמש.
עד שאין קלט מהמקלדת היא לא ממשיכה הלאה...מבין?

איך פותרים את זה אם בכלל?!

יש משהו שהוא כמו מן תריגר (Trigger) והוא נקרא
keyPressed
אם אני לא טועה... אני זוכר הייתי עושה לולאות של
repeat
...
until keyPressed="q"
אז זה אמור לעבוד

שזה אומר שזה לא כמו readln אלא משהו אחר שמתבצע רק כאשר לוחצים על כפתור.

תעיין בעזרה של טורבו לדוגמא ולעוד מיידע.

אהה... ובדוגמא לפונקצייה של המולטית'רידינג שכחתי לכתוב שצריך להוסיף 1 לtime כל פעם!
time=time+1;

ואתה יכול אפילו להשתמש בסיפריה של DOS כדי לבדוק שעברה שנייה ואז להוסיף לטיימר במקום להוסיף סתם מספרים...

~-LiViDuS-~

...Previous knowen as AshvaK...

גם אני חשבתי על KeyPressed וניסיתי להשתמש בו אבל כשבלולאה הייתה פקודת Readln הוא לא הפסיק לקלוט גם כשלחצתי על כל מקש...אבל כשלא הייתה פקודת Readln, הוא הפסיק לאחר נגיעה קלה במקלדת...

בקיצור זאת בעייה....וגם ניסיתי לקרוא ב-Index של טורבו פסקל...אבל יש שם הרבה הסברים באנגלית ואני לא מבין הכל בדיוק...גם דוגמאות לא תמיד יש...

אפשר לעשות לולאה לשעון טיימר. הלולאה עוצרת כשיש קלט מהמקלדת (keyPressed) או כשהשעון מגיע לאפס...אני רוצה לעשות שהקלט ב-KeyPressed יכנס למשתנה מסוים או שישמר בזיכרון איפשהו....האם אני יכול לעשות זאת? כי אם כן הבעייה נפתרה...!

כתבתי לך קוד:

קוד:

 uses crt;
var time,index:integer;
	str:string;
procedure Timer(var time:integer);
begin
gotoXY(10,3);
write(time div 100);
time:=time+1;
end;
procedure Text(var str:string);
begin
if keyPressed then
begin
	gotoXY(10,10);
	str:=str+ReadKey;
	write(str);
end;
end;
procedure MT(var str:String;var index:integer;var time:integer);
begin
case index of
0:Timer(time) ;
1:Text(str);
end;
index:=index+1;
if index>=2 then index:=0;
delay(10);
end;
begin clrscr;
time:=0;index:=0;
repeat
MT(str,index,time);
until time>=1000;
gotoXY(30,20);
write('END!...writed by AshvaK!');
readln;
end. 

זה אולי נראה קצת ארוך אבל מאוד פשוט!

אתה יכול להוריד את הקובץ מפה (הרווחים נהרסים פה.. בקובץ יש רווחים אז זה יותר קריא!)
https://2006-uploaded.fresh.co.il/2...27/86734055.pas

הרעיון:
שלושה משתנים גלובליים:
אינדקס- אומר לנו לאיזה פונקציה אנחנו צריכים לפנות עכשיו.
סטר- שומר את כל התווים שנתקבלו (כי ריד קיי קורא רק תוו אחד בכל זמן. שים לב: אם התריגר KeyPressed הופעל, אוטומטים ריד קיי מקבל את התוו של הכפתור שנלחץ!)
טיימ- שומר לנו את הזמן שעבר עד עכשיו.

הדילאיי מספק לנו עצירה לרווחים זמן קצרים (עשירית השנייה) ובפונקציה של כתיבת הטיימר חילקתי את זה 100, מה שנותן לנו את השניות שעברו...

אממ.. זהו. פשוט מאוד. בסה"כ זה דיי נותן את התחושה של מולטית'רידינג.

עריכה: כשכותבים את הקוד בחלון הזה נראה כאילו הרווחים נהרסים, אבל הם בעצם לא... לא חשוב..

~-LiViDuS-~

...Previous knowen as AshvaK...

חחחחח כשערכתי את ההודעה זה הרס את הרווחים!.. פחח

הנה הקוד (הפעם אני לא אערוך!!):

קוד:

 uses crt;
var time,index:integer;
	str:string;
procedure Timer(var time:integer);
 begin
  gotoXY(10,3);
  write(time div 100);
  time:=time+1;
end;
procedure Text(var str:string);
 begin
  if keyPressed then
   begin
	gotoXY(10,10);
	str:=str+ReadKey;
	write(str);
   end;
end;
procedure MT(var str:String;var index:integer;var time:integer);
 begin
  case index of
   0:Timer(time) ;
   1:Text(str);
  end;
  index:=index+1;
  if index>=2 then index:=0;
  delay(10);
end;
begin clrscr;
 time:=0;index:=0;
 repeat
  MT(str,index,time);
 until time>=1000;
 gotoXY(30,20);
 write('END!...writed by AshvaK!');
 readln;
end. 

~-LiViDuS-~

...Previous knowen as AshvaK...

תוכל להסביר לי מה זה :

str:=str+ReadKey;

מה היא ההוראה הזאת ReadKey ?

תראה יש גם בעייה, כי אני מבקש מהמשתמש לקלוט מספר INTEGER.

ואני לא יכול לשים את הרידקיי בתוך המשתנה הזה...זאת בעייה...מה שכן יש גם תקינות קלט שזה עוד יותר מוסיף...