اولین برنامه: کد: کد: 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 تبدیل مقدار به رشته
پاسخ : گرافیک با qbasic 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 مختصات مرکز - شعاع - رنگ. __________________
پاسخ : گرافیک با qbasic 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 این یکی رنگی بود.
