زبان برنامه نویسی Turbo Pascal به شما امکان می دهد اشکال مختلف را به صورت گرافیکی روی صفحه بکشید. هر شی گرافیکی را می توان با استفاده از نقاط ، خطوط ، کمان ها ساخت. پاسکال از یک حالت گرافیکی شطرنجی با وضوح صفحه نمایش 640 4 480 استفاده می کند. طراحی شامل تنظیم مختصات نقاط شروع و انتهای جسمی است که برای مراحل گرافیکی نمایش داده می شود. رنگ شی ، ضخامت خطوط و همچنین سبک آنها نیز به عنوان پارامترهای رویه های گرافیکی تنظیم شده اند. برای طراحی با استفاده از نرم افزار ، باید ماژول گرافیکی Pascal را متصل کنید.
ضروری است
محیط برنامه نویسی Turbo Pascal
دستورالعمل ها
مرحله 1
شی drawing طراحی مشخص را به عناصر تشکیل دهنده آن جدا کنید. خطوط ، کمان ها ، دایره ها ، مستطیل ها و نقاط را جداگانه انتخاب کنید. این اشکال است که می توان با استفاده از روش های Turbo Pascal ترسیم کرد.
گام 2
در ابتدای کد برنامه ، ماژول گرافیک را وصل کنید. برای این کار خطی به این شکل بنویسید: از نمودار استفاده می کند. بعد ، برای شروع حالت گرافیکی متغیرهای عدد صحیح ایجاد کنید: var gdet، gm: integer.
مرحله 3
در متن برنامه ، پس از شروع کلمه کلیدی ، متغیرها را مقدار دهی اولیه کنید ، به یکی از آنها مقدار صفر اختصاص دهید و به دیگری مقدار تشخیص. بعد ، شروع حالت طراحی گرافیکی را نشان دهید ، یک خط از فرم را وارد کنید: initgraph (gdet ، gm ، ). دستگاه نمایشگر را پاک کنید: cleardevice.
مرحله 4
رنگ زمینه را برای طراحی و رنگ خط اشیا the را ترسیم کنید. برای این کار از روش های SetBkColor (سفید) و SetColor (8) استفاده کنید. رنگی که باید تنظیم شود در براکت ها مشخص شده است. در کل ، پاسکال از 16 رنگ استفاده می کند و هر یک از آنها یا با یک عدد یا با یک کلمه از یک جدول رنگ خاص مشخص می شود.
مرحله 5
یک گرتیکول صفحه را با محور x از چپ به راست و محور y از بالا به پایین تصور کنید. در مبدا این سیستم مختصات ، یعنی در گوشه سمت چپ بالای صفحه ، مختصات (0 ، 0) قرار دارد. مختصات موقعیت مورد نظر اولین شی گرافیکی را محاسبه کنید. تمام مختصات را برای رسم شکل در این سیستم خاص مشخص کنید.
مرحله 6
با استفاده از خط رویه (x ، y ، x1 ، y1) یک خط بکشید ، جایی که مختصات x ، y نقطه شروع خط هستند و x1 ، y1 انتهای آن است. ضخامت خط را تغییر دهید یا در صورت لزوم نوع آن را تایپ کنید. برای این کار از روش SetLineStyle (0 ، 0 ، NormWidth) استفاده کنید. اولین پارامتر رویه می تواند خط را با ایجاد خط تیره یا خط نقطه ای تغییر دهد - این عدد را به 1 یا 2 تغییر دهید. پارامتر سوم ضخامت خطوط را تنظیم می کند. به طور پیش فرض ، پارامتر NormWidth همیشه تنظیم می شود - خطوط نازک ، برای خطوط ضخیم ThickWidth را تنظیم کنید. نوع خط تغییر یافته پس از فراخوانی این روش ترسیم می شود.
مرحله 7
با استفاده از روش PutPixel (x ، y ، رنگ) یک نقطه را روی صفحه قرار دهید ، در اینجا x و y نیز مختصات نقطه هستند و رنگ نیز رنگ آن است. قبل از کشیدن یک شکل بسته ، می توانید پر کردن آن را تنظیم کنید. برای انجام این کار ، با روش SetFillStyle (EmptyFill ، 0) تماس بگیرید ، جایی که پارامتر اول پر کردن شکل را مشخص می کند ، و پارامتر دوم رنگ پر کردن را مشخص می کند.
مرحله 8
یک شکل مستطیل با استفاده از روش مستطیل (x ، y ، x2 ، y2) ترسیم می شود - مختصات گوشه های سمت چپ و پایین سمت راست شکل را تنظیم می کنند. برای ترسیم یک دایره ، خط دایره (x ، y ، R) را بنویسید ، جایی که x ، y ، R مختصات مرکز و شعاع دایره هستند ، همچنین در پیکسل. ترسیم بیضی دشوارتر است ، از پارامترهای بیشتری برای این کار استفاده می شود: بیضی (x، y، BegA، EndA، RX، RY). در اینجا x ، y همان مرکز بیضی است و BegA و EndA زاویه ای را برای شروع و پایان قوس بیضوی نشان می دهند. متغیرهای RX، RY به ترتیب شعاع بیضی را در امتداد محورهای x و y تنظیم می کنند.
مرحله 9
اگر یک شکل داده شده دارید که ترسیم آن در بخشهای جداگانه ساده ترین است ، از روشهای MoveTo و LineTo برای این کار استفاده کنید. ابتدا مکان نما فعلی را به نقطه مورد نظر خود منتقل کنید: MoveTo (x، y). سپس از آن به نقطه بعدی LineTo (x1، y1) خط بکشید و مجدداً یک خط مستقیم LineTo (x2، y2) و همینطور ادامه دهید تا شکل اصلی بدست آید.
مرحله 10
در پایان ترسیم در کد برنامه ، حالت گرافیکی را با خط: closegraf ببندید. متن برنامه را طبق معمول با کلمه پایان خاتمه دهید. اکنون کد می تواند کامپایل شده و برای اجرا اجرا شود.
