منبع:
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 تبدیل مقدار به رشته