تبلیغات :
ماهان سرور
آکوستیک ، فوم شانه تخم مرغی ، پنل صداگیر ، یونولیت
فروش آنلاین لباس کودک
خرید فالوور ایرانی
خرید فالوور اینستاگرام
خرید ممبر تلگرام

[ + افزودن آگهی متنی جدید ]




نمايش نتايج 1 به 4 از 4

نام تاپيک: کمک فوری<<<<<>؟؟؟؟پاسکال

  1. #1
    اگه نباشه جاش خالی می مونه shahnameh's Avatar
    تاريخ عضويت
    Jan 2006
    پست ها
    338

    پيش فرض کمک فوری<<<<<>؟؟؟؟پاسکال

    من میخوام بدونم این 3 دستور چه کار میکنه توضیحش کافیه

    setfillstyle
    setfillpatern
    setaspectratio

    لطفا شکل کلی برنامه را بنویسید


    دستم به دامنتون



  2. #2
    اگه نباشه جاش خالی می مونه shahnameh's Avatar
    تاريخ عضويت
    Jan 2006
    پست ها
    338

    پيش فرض

    بابا یکی به داد ما برسه

  3. #3
    اگه نباشه جاش خالی می مونه magical's Avatar
    تاريخ عضويت
    Feb 2007
    محل سكونت
    BABOL CITY
    پست ها
    405

    پيش فرض

    سلام
    دستور اولی رو می دونم
    شکل کلی دستور◄ setfillstyle(patern,color)
    patern◄الگوی که شکل باید باهاش پر بشه(شکل هاشور زدن).
    مقادیر patern می تونه از 0 شروع بشه تا 11.(هر شماره نمایانگر یه الگو هستش)
    color◄رنگ هاشور چی باشه.

    یه مثال کلی از دستور بالا
    می خواهیم یه دایره رسم کنیم و اونو با هاشور پر کنیم:
    دستور بالی رو که بهت گفتم ولی باید این دستور رو هم بدونی چون دستور بالا با این دستور با هم کار می کنند :
    شکل کلی دستور:
    floodfill(x,y,color)

    xوy مختصات نقطعه ای هستش که می خواهی با حالت patern که بالا تعریف کردی پر کنی و دستور color تو این دستور محدوده که باید هاشور زده بشه رو مشخص می کنه.

    این برنامه رو تو محیط پاسکال اجرا کن البته پاسکال شما باید گرافیک ساپورت باش, اون مسیری که تو برنامه دادم محل فایل های گرافیکی پاسکالت هستش ، اگه مسیر نصب پاسکالت جای دیگه هست تغییرش بده.:

    program test;
    uses crt,graph;
    var
    driver,mode:integer;
    begin
    initgraph(driver,mode,'c:\tp\bgi');

    circle(300,200,50);
    setfillstyle(11,red);
    floodfill(300,200,white);


    readln;
    closegraph;
    end.

    داخل دستور floodfill نوشتم 300و200 چرا چون داخل دایره رو مشخص می کنم و بهش می گم تا به خط سفید نرسیدی هاشور بزن.

    اگه پاسکالت گرافیک ساپورت نیست بگو تا واست گرافیک ساپورت رو برات آپ کنم.
    اگه کاری داشتی در خدمتم.
    آخ مردم که تایپیدم!

  4. #4
    اگه نباشه جاش خالی می مونه magical's Avatar
    تاريخ عضويت
    Feb 2007
    محل سكونت
    BABOL CITY
    پست ها
    405

    پيش فرض

    اینم برای دستور سومی(setaspectratio) : ◄


    program test;
    uses crt,graph;
    const R = 50;
    var
    Driver, Mode: Integer;
    Xasp, Yasp: Word;
    begin
    DirectVideo := False;
    initgraph(driver,mode,'c:\tp\bgi');

    if GraphResult < 0 then
    Halt(1);
    GetAspectRatio(Xasp, Yasp); { Get default aspect ratio }
    if Xasp = Yasp then
    { Adjust for VGA and 8514. They have 1:1 aspect }
    Yasp := 5 * Xasp;
    while (Xasp < Yasp) and not KeyPressed do
    { Keep modifying aspect ratio until 1:1 or key is pressed }
    begin
    SetAspectRatio(Xasp, Yasp);
    Circle(GetMaxX div 2, GetMaxY div 2, R);
    Inc(Xasp, 20);
    end;
    SetTextJustify(CenterText, CenterText);
    OutTextXY(GetMaxX div 2, GetMaxY div 2, 'p30world!');
    Readln;
    CloseGraph;
    end.

Thread Information

Users Browsing this Thread

هم اکنون 1 کاربر در حال مشاهده این تاپیک میباشد. (0 کاربر عضو شده و 1 مهمان)

User Tag List

قوانين ايجاد تاپيک در انجمن

  • شما نمی توانید تاپیک ایحاد کنید
  • شما نمی توانید پاسخی ارسال کنید
  • شما نمی توانید فایل پیوست کنید
  • شما نمی توانید پاسخ خود را ویرایش کنید
  •