-
گرافیک با qbasic
منبع:
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 تبدیل مقدار به رشته
-
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
مختصات مرکز - شعاع - رنگ.
__________________
-
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
این یکی رنگی بود.
-
چه دستوری است که اگر آن را بزنیم به مقداری که می خواهیم برنامه qbasic توقف می کند.مثال بزنید و اگر امکان دارد به امیلم بفرستید.
email:
ghaemib24@gmail.com
