پاسكال

[majidmetal]

با سلام
آقا كسي ميدونه چه طوري توي پاسكال منو بسازيم :?:
اگه سورسي چيزه داره ممنون ميشم بذاره
پاي آبروم در ميانه :cry: :cry:
با تشكر

[ashkan]

اگه از پاسكال 6 يا 7 استفاده كني يه كلاسي دارن براي ساخت منو فكر كنم اسمش باشه Tmenu
بيا يه سورس هست ببين بدردت ميخوره
http://www.bsdg.org/SWAG/MENU/0002.PAS.html
سورس برنامه براي ايجاد منو هست.

[v-mashmoolie]

سلام دوستان .
براي ايجاد منو روشها و سيستمهاي مختلف وجود داره . البته منوهاي مختلفي هم هست .
شما اولاً بفرمايين منو كه مي گين منظورتون كدوم گروه از منوها هست . ثانياً مي شه منو رو به صورت دستي و البته خيلي هم ابتدايي ايجاد كرد . شما اگه بخواهين يكسري برنامه در اين رابطه هست كه اگه آدرس ايميلتون رو به طور دقيق بگين ارسال مي كنيم . اين چند خط هم نمونه اي خيلي ساده از اون برنامه هاست . شما اين كدها رو داخل يك فايل متني بزارين و با پسوند PAS ذخيره كنين بعد داخل توربوپاسكال باز كنين . دقت كنين كه بايد برنامه Sepand‌رو اجرا كرده باشين و در ضمن از برنامه TP7P5FIX هم استفاده كنين .
اميد وارم كه مفيد باشه .

کد:

program menu;
  uses crt;
  var a,b,c,i,j,n,m:integer;
                  k:char;
begin
  m:=28;n:=38;a:=2;b:=0;
  textbackground (0);
  clrscr;
  textcolor (11);
  gotoxy (28,5);
  writeln (' ¢‏ّھ ڑ¤‘، ¢‏َ‏‘ُ ‘‏گ  ');
  textcolor (14);
  gotoxy (27,10);
  writeln ('ةحححححححححثححححححححح»');
  gotoxy (27,11);
  writeln ('؛         ؛         ؛');
  gotoxy (27,12);
  writeln ('بحححححححححتححححححححح¼');
repeat
  begin
  textbackground (a);
  gotoxy (m,11);
  write('         ');
  textcolor (15);
  gotoxy (31,11);
  write ('Yes');
  textbackground(b);
  gotoxy (n,11);
  write('         ');
  gotoxy (42,11);
  write ('No');
  gotoxy (80,25);
  k:=readkey;
  gotoxy(35,15);textbackground(0);textcolor(11);writeln('        ');
  case k of
  #011 : begin a:=0;b:=2;end;
  #011: begin a:=2;b:=0;end;
  #13: begin
         if a=0 then begin gotoxy(35,15);textbackground(0);textcolor(11);writeln('ڑّ¤، ô¢ن');end
         else halt;
       end;
  end;{case}
  end;{repeat}
until false;
end.

با تشكر ـ مشمولي

[Jack]

اگه مشكلت حل نشده بگو يه سورس رو سايت بذارم

[majidmetal]

آقا دمه همتون گرم.آبرومو حفظ كردين انشالله يه روز جبران ميكنم :wink:
بازم ممنون

[majidmetal]

با عرض خيلي معذرت اگه ميشه سورس Button (يعني ساختن دكمه) تو پاسكال هم بدين ديگه ممنون ميشم .
انشالله اگه پروژه تكميل شد ميزارم توسايت.

[amirjan]

ببين اين بدردت مي خوره --> http://www.programmersheaven.com/zone24/cat585/4086.htm

[ashkan]

مرسي امير دقيقا همونه(باتم)

[majidmetal]

آره همينه.
امر جان دستت درد نكنه خيلي ممنون .
وقتي پروژه كامل شد ميزارم تو سايت
فعلا

[amirjan]

آره همينه.
امر جان دستت درد نكنه خيلي ممنون .
وقتي پروژه كامل شد ميزارم تو سايت
فعلا

چاكرتيم در بست :wink: