ايران ويج

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

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

سلام دوستان .
براي ايجاد منو روشها و سيستمهاي مختلف وجود داره . البته منوهاي مختلفي هم هست .
شما اولاً بفرمايين منو كه مي گين منظورتون كدوم گروه از منوها هست . ثانياً مي شه منو رو به صورت دستي و البته خيلي هم ابتدايي ايجاد كرد . شما اگه بخواهين يكسري برنامه در اين رابطه هست كه اگه آدرس ايميلتون رو به طور دقيق بگين ارسال مي كنيم . اين چند خط هم نمونه اي خيلي ساده از اون برنامه هاست . شما اين كدها رو داخل يك فايل متني بزارين و با پسوند 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.

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

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

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

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

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

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

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

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

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

majidmetal

ashkan

v-mashmoolie

Jack

majidmetal

majidmetal

amirjan

ashkan

majidmetal

amirjan