همانطور که در مقاله قبل توضیح داده شد از تابع MsgBox برای اطلاع رسانی به کاربر استفاده می شود. تابع دیگری به نام InputBox وجود دارد  که با استفاده از می توان علاوه بر اطلاع رسانی به کاربر پاسخ مورد نیاز برنامه را هم دریافت نمود. برای مثال فرض کنید شما برنامه ای طراحی کرده اید که با گرفتن نام هر فرد برای وی یک فرم استخدام چاپ می کند. برای این کار کافی است شما به وسیله تابع InputBox به کاربر اطلاع دهید که برنامه به نام وی نیاز دارد و پس از وارد کردن نام فرم استخدام برای وی چاپ خواهد شد.

شکل کلی تابع InputBox بصورت زیر است :

strResult = InputBox(strPrompt[,strTitle][,strDefult][,intX][,intY])

تابع InputBox مقداری را از نوع Variant بر می گرداند و این بدان معنی است که شما برای گرفتن پاسخ هیچ محدودیتی از نظر رشته ای، عددی و ... نخواهید.

در مثال بالا strResult مقداری است که کاربر در کادر InputBox وارد کرده است. یا به عبارتی مقدار برگشتی تابع می باشد.

همچنین این تابع دارای یک آرگومان اجباری و چهار آرگومان اختیاری می باشد. اولین آرگومان مربوط به پیامی است که قصد دارید به کاربر اعلام کنید. آرگومان دوم عنوان، آرگومان سوم متنی را به عنوان پاسخ پیش فرض در کادر قرار می دهد و آرگومانهای پنجم و ششم محل نمایش پنجره InputBox را مشخص می کنند.

حال با حل تمرینی قصد داریم نحوه استفاده از این تابع برای شما روشن تر شود.

تمرین  :

برنامه ای بنویسید که از طریق InputBox یک بار نام  و یک بار سن کاربر را دریافت کرده سپس بعد از خوش آمد گویی به وی(از طریق MsgBox) متن مناسبی را در یک Label برای نام و سن او نمایش دهد.

                مثلا : "آقای نوبخت شما در حال حاضر 19 ساله می باشید"

حل تمرین :

این برنامه نیاز به یک Command و یک Lable دارد. بعد از افزودن آنها به فرم تغییرات زیر را در آنها اعمال کنید.

نام Command را به cmdShow و Caption آن را به Show تغییر دهید.

نام Lable را نیز به lblShow تغییر داده و Caption آن را خالی کنید.

نام فرم را به frmMain و Caption آن را به InputBox تغییر دهید.

حال کد زیر را برای رویداد کلیک cmdShow بنویسید.

مشاهده کد

کارنامه داوطلبان رشته های فنی و حرفه ای

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

حال بعد از این تاخیر خسته کننده نکته جالبی که بسیار آزار دهنده به نظر می رسد عدم قابلیت حذف دروس پیش نیاز است. برای مثال من با رتبه 95 کشوری در دانشگاه شمسی پور مشغول تحصیل هستم و دروس فیزیک و زبان خارجه را به ترتیب 53 و 51 درصد زدم اما دانشکده به اما اجازه حذف این دروس را نمی دهد و تقریبا پاس کردن آنها کاملا اجباری است و جالب تر اینکه دوستان من در دانشکده های انقلاب اسلامی تهران و دانشکده کاشان دروس پیش نیاز را قبل از اعلام نتایج حذف نموده اند.

امیدورام مسئولی پیدا شود و توضیح بدهد که چرا اینقدر در حق دانش آموزان و دانشجویان رشته های فنی جفا می شود. آن از اعلام نتایج که اشک همه را در آورد، این از اعلام کارنامه و در آخر هم وضیعت حذف دروس پیش نیاز !!!!

تابع MessageBox

تابع MessageBox() برای اطلاع رسانی به کاربر یا کسب اجازه از او برای ادامه کار برنامه استفاده می شود. بدون شک نمونه های مختلفی از این تابع را هنگام کار با ویندوز یا برنامه های کاربردی مشاهده کرده اید که از جمله آنها می توان به کادری که در هنگام خروج از برنامه ظاهر می شود اشاره کرد که در آن اگر شما Yes را کلیک کنید از برنامه خارج شده و اگر No را کلیک کنید به محیط برنامه باز خواهید گشت.

تابع MessageBox() در ویژوال بیسیک دارای آرگومانهایی می باشد که  از جمله مهترین آنها می توان به 1. عنوان 2.تعداد دکمه ها 3. متن پیام و علامت اشاره کرد. حالت کلی استفاده از تابع MessageBox() به شکل زیر است :

intMsg = MsgBox (strPrompt [, intStyle] [, strTitle] )

در تابع MessageBox() آرگومان strPrompt رشته مورد نظر برای نمایش. آرگومان intStyle برای نمایش دکمه ها و strTitle برای نمایش عنوان پیام استفاده می شود که از بین این سه آرگومان اولی اجباری و بقیه اختیاری می باشند.

نمونه ای از دستور MsgBox در ویژوال بیسیک بدین صورت است :

intMsg = MsgBox("Are you sure?",vbYesNo + vbQuestion , "Exit")

از متغیر intMsg برای نگه داری مقدار برگشتی تابع استفاده می شود این مقدار عددی بین 1 تا 7 می باشد که هر یک از این اعداد در ازای انتخاب هریک از گزینه ها برگشت داده می شود که جزئیات آن را می توانید در جدول زیر مشاهده کنید :

اگر دقت کرده باشید در مثالی که دستور MsgBox زده شد برای درج دکمه ها از ثابت vbYesNo و برای درج آیکون از ثابت vbQuestion استفاده کردیم. اما این تنها راه حل نیست اگر این گونه کد نویسی باب میل شما نیست می توانید از اعداد به جای هر ثابت استفاده کنید. جدول زیر راهنمای  تعیین تعداد و نوع دکمه های MsgBox می باشد :

مقادیر جایگزین ثابت های آیکون نیز در جدول زیر آمده است :

تمرین : برنامه ای بنویسید بعد از دریافت نام از طریق تابع MessageBox() به شما خوش آمد گویی کند.

حل تمرین :

این برنامه نیاز به یک Textbox و یک Command دارد. بعد از افزودن آنها به فرم نام Textbox را به txtName تغییر دهید. نام Command را btnShow و Caption آن را به Show تغییر دهید.

کد زیر را برای رویداد کلیک btnShow  بنویسید :

Dim intMsg as integer

    ("intMsg = MsgBox("Welcome Dear " & txtName.Text  , vbOKOnly + vbInformation, "Welcome

حال بعد از اجرای برنامه نامی را در TextBox وارد کرده و Show را کلیک کنید.

این هم یک پروژه جالب که با گرفتن قد وزن مناسب شما رو اعلام می کنه

دانلود برنامه

تذکر : تمامی برنامه های که تو این سایت قرار می گیره ساخته من نیست و بعضی هاشون رو از     منابع مختلف جمع آوری کردم که به دلیل نداشتن آدرس دقیق از ذکر منبع معذورم.

توابع داخلی

توابع داخلی ویژوال بیسیک برای انجام کارهای محساباتی، عملیاتی و ... مورد استفاده قرار می گیرد. توابع یک یا چند آرگومان را به عنوان ورودی دریافت کرده و سپس با توجه به عملکرد تابع عملیات مربوطه را انجام می دهند که این آرگومانها داخل پرانتز در مقابل تابع قرار گرفته و آنها را با کولن (,) از هم جدا می کنیم.

تابع SPC

همانطور که می دانیم یک عبارت می تواند ترکیبی از از اعداد، حروف، متغیر ها و ... باشد. برای نظم بخشیدن به عبارات در متد Print از دو تابع SPC و Tab استفاده می شود.

تابع Space آرگومانی (عدد) را به عنوان ورودی دریافت می کند و به تعداد آن فاصله ایجاد می کند. برای مثال شما در یک برنامه می خواهید نام، فامیلی و آدرس یک شخص را دریافت کنید و به هنگام نمایش آن قصد دارید آدرس با کمی فاصله به چاپ برسد. در این شرایط استفاده از تابع Space یک راه حل کار آمد خواهد بود.

شکل کلی تابع Space به شکل زیر است :

() Space

در داخل پرانتز شما آرگومان ورودی را قرار می گیرد.

تابع Tab

شکل کلی تابع Tab مانند SPC است با این تفاوت که تابع Tab مکان نما را به آرگومان ورودی انتقال می دهد.

به مثال زیر توجه کنید :

ما قصد داریم برای نشان دادن عملکرد تو تابع Tab و Space  برنامه ای طراحی کنیم که شامل دو قسمت می باشد. در قسمت اول شما با وارد نام و نام خانوادگی و تعیین فاصله بین آنها، آنها را چاپ می کنید و در قسمت دوم با وارد کردن یک حرف و تعیین Tab حرف مورد نظر را در خانه تعیین شده توسط خودتان چاپ می کنید.

تذکر : به تقسیم بندی صفحه مانیتور هنگام استفاده سمی کالون ";" که در مقاله قبلی توضیح داده شد توجه فرمایید.

طراحی برنامه :

قسمت اول

1. پروژه جدیدی ایجاد کنید.

2. دو عدد Frame به پروژه اضافه کنید و Caption یکی را به Space و دیگری را به Tab تغییر دهید.

3. داخل فریم Space سه عدد TextBox اضافه کرده و نام آنها را به ترتیب TxtName، TxtFamily و TxtSpace قرار دهید.

4. سه عدد Lable برای شناسایی Text ها به فریم Space افزوده و Caption آنها را به نام، فامیلی و فاصله برای چاپ تغییر دهید و هر یک را متناسب با TextBox مرتب کنید.

5. یک Command به فریم Space افزوده و نام آن را به Print1 و Caption آن را نیز به چاپ تغییر دهید سپس قطعه کد زیر را برای رویداد کلیک آن بنویسید آن بنویسید.