CLS
SCREEN 12
X=100
Y=100
10CLS
$A$=INKEY
IF A$=CHR$(0)+CHR$(72) THEN Y=Y-1
IF A$=CHR$(0)+CHR$(80) THEN Y=Y+1
IF A$=CHR$(0)+CHR$(77) THEN X=X-1
IF A$=CHR$(0)+CHR$(75) THEN X=X+1
GOTO 10
اگر مشکلی دارد بگویید
ببخشید بابت اینکه من یک مدت وبسایت برنامه نویسی یک چهار را آپدیت(به روز رسانی) نکرده ام.
این مروری است بر درس های گذشته کیو بیسیک ما:
یک عبارت یا متغیر را چاپ می کند. Print
مثال:
"Print "Salam
Print Salam
Print a
خروجی برنامه:
Salam
0
0
در استفاده از این دستور باید دقت داشت که حتماً عبارتی که قصد عیناً چاپ شدن را داریم را داخل کوتیشن بگذارید.
مقدار یک متغیر را از کاربر می پرسد Input
Input a
Input b
Print a
Print b
خروجی برنامه:
3?
7?
3
7
صفحه را از چرت و پرت پاک می کند. Cls
برنامه *
"print "hello
برنامه **
cls
"print "hello
خروجی برنامه *:
WARNING: THIS MICROSOFT PRODUCT HAS BEEN TESTED AND CERTIFIED FOR USE ONLY WITH THE MS-DOS AND PC-DOS OPERATING SYSTEMS.YOUR USE OF THIS PRODUCT WITH ANOTHER OPERATING SYSTEM MAY VOID VALUABLE WARRANTY PROTECTION PROVIDED BY MICROSOFT ON THS PRODUCT
Press any key to continue
Hello
خروجی برنامه**:
Hello
1-شعاع های متحرک خورشید
cls
screen 12
circle (319,239),100,14
paint (320,240),14,14
10randomize timer
(x=int(rnd*640
(y=int(rnd*480
(line (319,239)-(x,y
goto 10
متاسفم وقت نشد بقیه اش فردا
با سلام
یادآوری دروس تاریخ 24 فروردین در اینجا انجام میشود.
Step:
فرض کنید دستور for یک متغیر را دائم اضافه می کند.این متغیر با چند جمع می شود؟با هر دفعه اجرای حلقه for متغیر یکی افزوده می شود.حالا اگر ما بخواهیم با هر دفعه اجرای حلقه for به جای یک، دو یا چند تا به متغیر اضافه شود از step استفاده می کنیم. مثلاً اگر بخواهیم متغیر a با هر دفعه اجرای حلقه for هشت تا اضافه شود بدین صورت عمل می کنیم:
For a=1 to 64 step 8
.
.
.
Next a
Line:
این دستور خط می کشد.از این دستور بدین صورت استفاده می شود:
خط فزضی ما: 100و200ــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــ100و100
نحوه استفاده از دستور: ( line (100,100)-(200,100
Circle:
این دستور دایره می کشد و به صورت زیر عمل می کند
O شعاع دایره=10...مختصات مرکز 240و320
Circle (320,240),10
شاد باشید
با سلام
رتبات برتر اعلام شد.
کسانی که نامشان با رنگ آبی نوشته شده است برای مرحله دوم قبول شده اند و کسانی که نامشان با رنگ قرمز نوشته شده متاسفانه حذف شده اند.
رتبه نام نمره از 100
ـــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــ
1 محمد حسن پور 90
2 حسین پناهی 50
2مجتبی شاهبازی50
2 اسم ننوشته 50
5 رضا قانع 30
5 سروش سهراب نژاد 30
7 محمدحسین امانی 20
7 سهیل آذرپندار 20
9 حسن خصالی 18
بعضی از دوستان ظاهراً دستور هایی را نخوانده بودند که در این صورت نمره آنها از 70 ثبت شده است.
آقایان محمد حسن پور - مجتبی شاهبازی - حسین پناهی و آن فرد گمنام باید در روز 17 یا 18 فروردین زنگ تفریح اول حتماً به کتابخانه مراجعه کنند.لازم به ذکر است:
0 اگر آن فردی که نامش را در برگه اش ننوشته تا ساعت 14 روز 17 فروردین به اینجانب (سید علیرضا طباطبایی از کلاس 4/1) مراجعه نکند حذف خواهد شد
0 یک نفر در میان شما حذف خواهد شد.پس سعی کنید امتحانتان را خوب بدهید.
با تشکر , طباطبایی
گاهی وقتها که تنها می شم فکر می کنم که من بیچاره چرا اینقدر در مورد کیوبیسیک زیاد بلدم.مگه چه هنری داره جز اینکه کیوبیسیک یه خطا (error) یا همون فحش خودمونی بده که چی؟می بینم اول برنامه ام یه CLS گنده نوشته بدون Screen 12 من توقع دارم کامپیوتر برام نقاشی بکشه اونم نقاشی بازی فوتبال استقلال و پرسپولیس که یه دفعه دیدم بازی که شروع میشود و بازیکنان به هم پاس می دهند روی صفحه می نویسه "گل!".
بدجور شاکی شدم چون تا حالا ندیده بودم پاس بدهند ولی گل حساب شود.هر چند واژه "پاس گل"را داریم ولی اصلاً به این ربطی نداره.تا برگردم به صفحه اصلی کیو بیسیک روی صفحه نوشت 15-15 مساوی.رفتم صفحه اصلی نوشته بود:
CLS
Draw Bazikon ha
Draw toop
If Bazi Starts then Pass bede be Arash borhani:goto 10
If mohammadreza sharifi zirpa gereft then toop braye Sharifi
If gol shod then goto 10
10print "goal!" o
آخه اینم شد برنامه؟ وقتی دیدم نوشت "syntax error " انقدر شاکی شدم که نبین (SYNTAX ERROR یعنی حرف ... نزن) بعدم زنگ زدم آقا خلدی و گفتم : شما با اون آموزشتون ...... کردید! واقعا ..... بقیه اش گلاب به روتون
روز بعد یه سبیلو چماق به دست دیدم با همون پولیور آبی چهار خانه و شلوار سیاه و قد 175 سانیمتر و مخش پر از دستورات ریز و درشت کیوبیسیک. بله آقای خلدی
کلی کتک به خاطر اون گلاب به روتون خوردم و خلاصه الان که دارم اینو می نویسم کبود و زخمی هستم
امضاء
گاگول برنامه نویس
با سلام
حتماً میپرسید که اخبار سایت چیست؟ پس به این چند نکته دقت کنید
1-For without next
یعنی حلقه For را بدون Next نوشته اید.
2-Overflow
یعنی صفر تقسیم بر صفر یا شکل بزرگتر از مانیتور
3-Devided By zero
یعنی یک عدد تقسیم بر صفر
4-Illegal Funticon Call
معنای لغتی آن <تماس عمل خراب> است و چند معنا دارد (اولویت دهید)
1-یک متغیر رشته ای با حرف های بسیار زیاد
2-شکل کشیدن بدون Screen
این چهار خطا مهم ترین خطا های کیوبیسیک اند.اگر خطایی غیر از این دیدید به من اطلاع دهید تا من معنای آن را به شما بگویم.
