آموزش مقدماتی و مرحله به مرحله qbasic

[TAHA]

من با سرچ qbasic download در گوگل به این سایت رسیدم:
http://www.download.com/Qbasic/3000-...-10577955.html
و بسته ای حدود 200 تا 300 کیلو را دانلود کردم. بعد آن را آنزیپ کردم.
یک فایل exe (برنامه اصلی) داخلش بود. و یک فایل با پسوند hlp و یک فایل با پسوند ini .

برنامه اصلی را اجرا کردم. یک کادر آمد که با زدن esc بستم.

[TAHA]

بعد آموزشهای اینجا را مرور کردم:
http://tedfelix.com/qbasic

از این صفحه راهنمای ادیتور را داریم:
نقل قول:

<Backspace> - Removes the character to the left of the cursor 
<Delete> - Removes the character at the cursor 
<Left Arrow> - Moves the cursor left 
<Right Arrow> - Moves the cursor right 
<Up Arrow> - Moves the cursor up 
<Down Arrow> - Moves the cursor down 
<Home> - Moves the cursor to the start of a line 
<End> - Moves the cursor to the end of a line

ساخت اولین برنامه:
کد زیر را در ادیتور نوشتم:
کد:

PRINT "welcome"

و با زدن save as از منوی فایل و مسیر f:\welcome.bas ذخیره کردم.
از منوی run اگر start را بزنیم اگر خطایی در برنامه نباشد اجرا می شود.

بعدا از منوی فایل و گزینه open می توانیم فایل خود را باز کنیم. ولی وقتی فایل کنار برنامه اجرایی بود من توانستم این کار را بکنم.

به جای دستور PRINT می توانید از ((؟)) هم استفاده کنید خودش تبدیل می کند.

[TAHA]

باز همان جاییم http://tedfelix.com/qbasic

برنامه زیر را ببینید:
کد:

CLS
PRINT "welcome"
PRINT "hi";
PRINT " saeed"

دستور اول صفحه را پاک می کند. بعد خط سوم سمی کلون گذاشتیم (( ; )). تا باعث شود چاپ بعدی در ادامه همین چاپ نمایش داده شود.

نتیجه اجرا:
کد:

welcome 
hi saeed

شیفت f5 هم برای اجرا کاربرد دارد.

[TAHA]

باز از همان سایت.
برنامه بعدی:
کد:

     CLS
     INPUT "Enter your name: ", Name$
     PRINT "Hello, "; Name$; ".  How are you today?"

اول از شما می پرسد اسم شما چیه و بعد پیامی چاپ می کند.

کاما قبل Name$ فراموش نشود.
===============================
برنامه بعدی:
کد:

    CLS
    INPUT "Enter your name: ", Name$
    PRINT "Name$"
    PRINT Name$

اول نام شما را می پرسد.
خط بعدی عبارت Name$ را به همان شکل چاپ می کند
ولی خط بعدی نام شما را چاپ می کند.

============================
شرط:
کد:

     CLS
     INPUT "Enter your name: ", Name$
     IF Name$="Mike" THEN 
       PRINT "Go Away!"
     ELSE
       PRINT "Hello, "; Name$; ".  How are you today?"
     END IF

برنامه بالا نام شما را می پرسد. اگر مایک بودید خوش آمد گفته وگرنه پیام دیگری می دهد.

============================
کد:

     CLS
     INPUT "Enter a number: ", Number
     IF Number < 100 THEN 
       PRINT "Your number was less than 100"
     ELSE
       PRINT "Your number was greater than or equal to 100"
     END IF

باز هم شرط داریم.
نکته دیگر این برنامه طرز تعریف متغیر عددی است. قبلا ما متغیر رشته ای تعریف کردیم و با علامت $ همراه کردیم ولی حالا بدون آن است.

[TAHA]

ضرب اعداد:
کد:

     CLS
     INPUT "Enter the first number: ", A
     INPUT "Enter the second number: ", B
     PRINT "The answer is: "; A * B

============================
SELECT CASE
کد:

     CLS
     INPUT "Enter your name: ", Name$
     SELECT CASE Name$
       CASE "Ted"
         PRINT "Greetings, oh powerful master"
       CASE "Mike"
         PRINT "Go away!"
       CASE ELSE
         PRINT "Hello, "; Name$; ".  How are you?"
     END SELECT

=============================
ساخت عدد راندوم:
کد:

    CLS
    PRINT RND
    PRINT RND

دو عدد مختلف زیر 1 می سازد.
دقیق تر اگر بخواهیم بگیم: between 0 and 1 اعشاری.

کد زیر بهتره:
کد:

    CLS
    RANDOMIZE TIMER
    PRINT RND
    PRINT RND

چون برنامه قبلی با اجراهای متعدد اعداد تصادفی ثابت می داد.

بازی تاس از همان سایت:
کد:

     CLS
     RANDOMIZE TIMER
     INPUT "Press ENTER to roll dice...", A$
     PRINT
     Die1 = INT(RND * 6 + 1)
     Die2 = INT(RND * 6 + 1)
     PRINT "Die 1: "; Die1
     PRINT "Die 2: "; Die2

[TAHA]

کد:

     CLS
     DO
       INPUT "Enter the first number: ", A
       INPUT "Enter the second number: ", B
       PRINT "The answer is: "; A * B

       INPUT "Would you like to do it again (y/n)? ", Answer$
     LOOP WHILE Answer$="y"

loop while .
حلقه برنامه بالا تا کاربر y بدهد برقرار است.

============================
or
کد:

     CLS
     DO
       INPUT "Enter the first number: ", A
       INPUT "Enter the second number: ", B
       PRINT "The answer is: "; A * B

       INPUT "Would you like to do it again (y/n)? ", Answer$
     LOOP WHILE Answer$="y" OR Answer$="Y"

دوشرط اگر یکی برقرار باشد با or برقرار است.

[TAHA]

LEFT$

کد:

    INPUT "Enter something:", A$
    PRINT A$
    PRINT LEFT$(A$,1)
    PRINT LEFT$(A$,2)
    PRINT LEFT$(A$,3)

به تعدادی که مشخص کنیم از چپ از رشته جدا شده و تحویل داده می شود.

RIGHT$ هم داریم.

=======================
COLOR
کد:

    CLS
    COLOR 2, 0
    PRINT "That's ";
    COLOR 3, 0
    PRINT "more ";
    COLOR 5, 0
    PRINT "like it!"

رنگی چاپ میشه.

کد:
0 - Black
1 - Blue

2 - Green

3 - Cyan
4 - Red
5 - Magenta
6 - Yellow
7 - White
===================
Blinking
کد:

    CLS
    COLOR 28, 0
    PRINT "*** WARNING ***"
    COLOR 15, 0
    PRINT "Programming can be too much fun!"

عبارت وارنینگ با پس زمینه کدر و رنگ قرمز نوشته شد.
ولی وقتی با کلیک راست روی آیکون برنامه و زدن پراپرتی و ((فول اسکرین)) کردن نما را نگاه کنیم متن قرمز چشمک زن می بینیم.

[TAHA]

FOR...NEXT

کد:

    CLS
    FOR I = 1 TO 10
      PRINT I
    NEXT I

شمارش و چاپ اعداد را خواهیم داشت.

================

کد:

A Color Chart

Here's a color chart program using a FOR...NEXT loop.
    CLS
    FOR I = 1 TO 15
      COLOR I, 0
      PRINT I; "*** COLOR ***"
    NEXT I
STEP

FOR...NEXT can also do "step counting". Try this:
    CLS
    FOR I = 2 TO 20 STEP 2
      PRINT I
    NEXT I

________________

[TAHA]

Sound
کد:

    CLS
    INPUT "Press Enter to hear a beep", A$
    BEEP

کد:

    FOR I = 4000 TO 1000 STEP -5
      SOUND I, .1
    NEXT I

ملودی:
کد:

  PLAY "e8 d8 c8 d8 e8 e8 e4"

کد:

    PLAY "c8 d8 e8 f8 g8 a8 b8 > c4"

The ">" greater than sign means "go up one octave".

کد:

    PLAY "T180 <d8d8d8 T120 g2>d2"
    PLAY "T180 c8<b8a8 T120 >g2d4"
    PLAY "T180 c8<b8a8 T120 >g2d4"
    PLAY "T180 c8<b8>c8 T120 <a2>"

[TAHA]

LOCATE
کد:

    CLS
    LOCATE 5, 10
    PRINT "Here"
    LOCATE 20, 70
    PRINT "There"

LOCATE allows you to print in a specific place on the screen.
--------------------
کد:

    CLS
    DO
      Row = INT(RND * 23 + 1)
      Column = INT(RND * 79 + 1)
      LOCATE Row, Column
      Color1 = INT(RND * 15 + 1)
      COLOR Color1, 0
      PRINT "Ted was here!";
    LOOP

کد:

    CLS
    DO
      LOCATE 1, 1
      PRINT TIME$
      SLEEP 1
    LOOP

=====================
WIDTH
Use WIDTH 40 for big text. It changes the entire screen to wide text mode. Use WIDTH 80 to go back to normal size text.
کد:

    SCREEN 0
    WIDTH 40
    CLS
    PRINT "Wow!  This is big!"
    INPUT "Press <Enter> to go back", A$
    WIDTH 80
    PRINT "That's more like it."