کیو بیسیک

QBasic

محیط برنامه نویسی کیو بیسیک یک محیط یکپارچهٔ توسعه (IDE) به همراه یک مفسر است. این محیط مجتمع بر اساس زبان برنامه نویسی کوئیک بیسیک طراحی شده است. این برنامه تقریباً تحت تمامی نسخه‌های سیستم عامل DOS و بیش‌تر نسخه‌های ویندوز شامل ویندوز ۹۵ و ویندوز ۹۸ و ویندوز ME و برخی نسخه‌های لینوکس و فری بی اس دی کار می‌کند. این زبان برنامه نویسی برخلاف نسخه‌های پیشین بیسیک و البته همانند کوئیک بیسیک، یک زبان برنامه نویسی ساخت یافته است و از ساب روتین‌ها و حلقه‌ها پشتیبانی می‌کند. دستورهایی که بر اساس شماره خطوط کار می‌کنند در این زبان تا حدی پشتیبانی می‌شود. اما با توجه به بدفرم بودن این دستورها، نمونه جدید دستورهای برچسب گذاری خطها (Line Labels) به این زبان اضافه شدند.

این زبان برنامه نویسی امروزه کاربرد حرفه‌ای ندارد و در مدارس راهنمایی و دبیرستان‌های نظری و فنی حرفه‌ای ایران برای آشنایی دانش آموزان با برنامه نویسی تدریس می‌شود. دستورهای این زبان بسیار ساده است. بعدها زبان ویژوال بیسیک از روی زبان بیسیک ایجاد شد که برای برنامه نویسی تحت ویندوز هم کاربرد داشت. کیوبیسیک نسبت به ویژوال برتری ندارد و در رتبه دوم می‌باشد و سال تولید آن ۱۹۸۲ میلادیست.

تاریخچه

نخستین نسخهٔ QBasic در سال ۱۹۹۱ معرفی گردید و از آن پس برروی سیستم عامل‌های DOS نسخهٔ ۵ و بالاتر به صورت پیش‌فرض عرضه شد.

برنامه‌های نمونه

PRINT "Hello, World!"

این برنامه به شکل یک بازی است که کاربر یک عدد را در آن حدس می‌زند و برنامه با ورود هر عدد به کاربر می‌گوید که عدد وارد شده از سوی او با عددی که رایانه از پیش‌تر در حافظهٔ خود قرار داده و عدد ورودی را با می‌سنجد مطابقت دارد با خیر و یا بیش‌تر و یا کم‌تر است و این چنین او را به سمت عدد مشخص شده از قبل هدایت می‌کند. همچنین در این برنامه از تابع‌هایی استفاده شده تا عدد انتخابی توسط رایانه تصادفی باشد.

CLS
PRINT "Guess My Number"
INPUT "Would you like to play"; choice$ 'An input statement, that takes what the user inputs...
choice$ = UCASE$(choice$) ' makes the input completely uppercase (fkld ---> FKLD)
IF choice$ <> "YES" AND choice$ <> "Y" THEN ' and decides whether or not they want to play:
END IF
guesses% = 5 ' Set up number of guess remaining
RANDOMIZE TIMER ' Sets up the random number generator
target% = INT(RND * 10) + 1
WHILE guesses%> ۰
  INPUT "Guess a number: ", guess%           ' Takes user input (the guess)
  IF guess% = target% THEN                   ' Determines if the guess was correct
    PRINT "You win!"
    END
  ELSE
    guesses% = guesses% - 1
    PRINT "Sorry, please try again. You have ";guesses%;" guesses left."
  END IF
WEND
 
PRINT "You ran out of guesses, the number was "; target%
END

پیوند به بیرون

• دانلود کیو بیسیک از سایت مایکروسافت

منابع

- برنامه نویسی کیوبیسیک تالیف غلامرضا محمودی فر

• مشارکت‌کنندگان ویکی‌پدیا، «QBasic»، ویکی‌پدیای انگلیسی، دانشنامهٔ آزاد (بازیابی در ۲ می ۲۰۱۱).