بالا
 تعرفه تبلیغات




 دانلود نمونه سوالات نیمسال دوم 93-94 پیام نور

 دانلود نمونه سوالات آزمونهای مختلف فراگیر پیام نور

نمایش نتایج: از شماره 1 تا 4 از مجموع 4

موضوع: گرافیک با qbasic

  1. #1
    TAHA آواتار ها
    • 9,180
    مدير بازنشسته

    عنوان کاربری
    مدير بازنشسته
    تاریخ عضویت
    Mar 2009
    محل تحصیل
    PNU-CLUB
    شغل , تخصص
    PNU-CLUB
    رشته تحصیلی
    PNU-CLUB
    راه های ارتباطی

    Icon140 گرافیک با qbasic

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

  2. #2
    TAHA آواتار ها
    • 9,180
    مدير بازنشسته

    عنوان کاربری
    مدير بازنشسته
    تاریخ عضویت
    Mar 2009
    محل تحصیل
    PNU-CLUB
    شغل , تخصص
    PNU-CLUB
    رشته تحصیلی
    PNU-CLUB
    راه های ارتباطی

    Icon13

    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
    مختصات مرکز - شعاع - رنگ.
    __________________

  3. #3
    TAHA آواتار ها
    • 9,180
    مدير بازنشسته

    عنوان کاربری
    مدير بازنشسته
    تاریخ عضویت
    Mar 2009
    محل تحصیل
    PNU-CLUB
    شغل , تخصص
    PNU-CLUB
    رشته تحصیلی
    PNU-CLUB
    راه های ارتباطی

    Icon13

    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
    این یکی رنگی بود.

  4. #4
    • 1

    عنوان کاربری
    کاربر باشگاه
    تاریخ عضویت
    Apr 2013
    محل تحصیل
    یزد
    راه های ارتباطی

    پیش فرض

    چه دستوری است که اگر آن را بزنیم به مقداری که می خواهیم برنامه qbasic توقف می کند.مثال بزنید و اگر امکان دارد به امیلم بفرستید.
    email:
    ghaemib24@gmail.com

برچسب برای این موضوع

مجوز های ارسال و ویرایش

  • شما نمی توانید موضوع جدید ارسال کنید
  • شما نمی توانید به پست ها پاسخ دهید
  • شما نمی توانید فایل پیوست ضمیمه کنید
  • شما نمی توانید پست های خود را ویرایش کنید
  •