گرافیک با qbasic

[TAHA]

منبع:
http://tedfelix.com/qbasic
-----------------------------
اولین برنامه:
کد:

    SCREEN 12
    CLS
    DRAW "D100 R100 U100 L100"

یک چهار ضلعی رسم می کنیم. دستور screen برای انتقال از حالت متنی به حالت گرافیکی است.
اعداد زیادی می توانیم جلوی این دستور بنویسیم ولی عدد 12 از لحاظ محدوده کار و تعداد رنگها مناسب است.

دستور draw :
کد:

D100 - Go down 100 units 
R100 - Go right 100 units 
U100 - Go up 100 units 
L100 - Go left 100 units

یعنی دستور بالا و پایین رفتن و چپ و راست رفتن است.

برنامه بعدی با این دستور:
کد:

    SCREEN 12
    CLS
    DRAW "C15 D100 R100 U100 L100 BF1 P15,15"

یک شکل توپر ساخته می شود.
C15 رنگ سفید می دهد.
"BF1" moves into the square
P15,15 آنرا با رنگ سفید پر می کند.

برنامه بعدی:
کد:

    SCREEN 12
    CLS
    FOR I = 0 TO 360 STEP 10
      DRAW "D100 R100 U100 L100 TA" + STR$(I)
    NEXT I

"TA" means to turn to a specific angle چرخش
STR$ converts the value in I to a string تبدیل مقدار به رشته

[TAHA]

LINE
کد:

    SCREEN 12
    CLS
    LINE (0, 0)-(320, 240), 15

رسم خط.
دو نقطه با مختصات آن مشخص شده.
صفر بالای صفحه است. برخلاف ریاضی. محور y ها.

15 رنگ است.

==================
Box
کد:

    SCREEN 12
    CLS
    LINE (0, 0)-(320, 240), 15, B

مستطیل ساخته می شود. اگر به جای b از bf استفاده کنید توپر می شود.

===================
CIRCLE
کد:

    SCREEN 12
    CLS
    CIRCLE (320, 240), 100, 15

مختصات مرکز - شعاع - رنگ.
__________________

[TAHA]

PAINT
رنگ کردن شکل:
کد:

    SCREEN 12
    CLS
    CIRCLE (320, 240), 100, 15
    PAINT (320, 240), 15, 15

در دستور paint اون نقطه که مختصاتش مشخص شده یعنی رنگ آمیزی از کجا شروع شود. 15 اولی یعنی با چه رنگی رنگ بزنیم و 15 دومی یعنی وقتی به کدام رنگ رسیدیم توقف کنیم.

=====================
Circle Art
کد:

    SCREEN 12
    CLS
    FOR I = 5 TO 200 STEP 5
      CIRCLE (320, 240), I, 15
    NEXT I

رسم یک سری دایره(برنامه بالا).
کد:

    SCREEN 12
    CLS
    FOR I = 1 TO 50
      X = INT(RND * 640)
      Y = INT(RND * 480)
      R = INT(RND * 100)
      Color1 = INT(RND * 16)
      CIRCLE (X, Y), R, Color1
      PAINT (X, Y), Color1, Color1
    NEXT I

این یکی رنگی بود.

[ahgha]

چه دستوری است که اگر آن را بزنیم به مقداری که می خواهیم برنامه qbasic توقف می کند.مثال بزنید و اگر امکان دارد به امیلم بفرستید.
email:
ghaemib24@gmail.com