پاسخ : نمونه برنامه های VB6 -آموزش از روی مثال روال Function: در موارديكه نياز به دريافت يك نتيجه ، بعد از اجراي يك روال وجود دارد .بايد از روال هاي Function استفاده كرد . شكل كلي اين نوع روال ، بصورت زير است : کد: ( Function Function_Name ( Argument Statements End Function مشاهده مي كنيد كه روال Function تا حدود زيادي مشابه روال Sub مي باشد . ولي روال Function بايد مقداري را برگرداند . پس دانستن دو مطلب ضروري است ، اول اينكه مقدار برگشتي چگونه بايد دريافت شود ، و ديگر اينكه چگونه يك مقدار از داخل تابع ارسال مي شود . مقدار برگشتي تابع را مي توان به صورتهاي زير دريافت كرده ، مورد استفاده قرار داد. تابع را در سمت راست يك عبارت جايگزيني قرار مي دهيم . از تابع در سمت راست يك عبارت محاسباتي استفاده مي كنيم . نتيجه تابع را به عنوان آرگومان يك روال ديگر به داخل روال ارسال مي كنيم .
پاسخ : نمونه برنامه های VB6 -آموزش از روی مثال نكته ها: توجه كنيد كه هنگام فراخواني روال بايد تعداد مقادير ارسالي باتعداد آرگومانهاي روال مساوي باشد . طريقه ارسال يك مقدار از داخل تابع نيز به راحتي انجام ميشود . به اين ترتيب كه در داخل روال از نام تابع ، بعنوان يك متغير استفاده مي كنيم و در زمان برگشت از تابع به دستور فراخواننده، مقدار موجود در اين متغير به دستور فراخواننده ارسال مي شود . نكته : اگر هيچ مقداري در متغير نام تابع قرار ندهيم مقدار صفر را برمي گرداند . توجه كنيد كه مي توان در داخل روالها ، روالهايي را نيز فراخواني كرد . ولي بايد فراموش نكنيد كه هنگام بازگشت از هر روال ، كنترل برنامه به دستور بعد از دستور فراخواني خواهد رفت . به عنوان نكته آخر بايد بدانيد كه در تعريف روالهايي از نوع Function مي توان نوع متغير برگشتي را تعيين نمود . براي مثال : Function Area (S1 As Single , S2 As Single ) As Single
پاسخ : نمونه برنامه های VB6 -آموزش از روی مثال دستور انتخابي Select Case : اگر تعداد شرطهاي يك مسئله زياد باشد ، بجاي استفاده از If هاي تودرتو از دستور انتخابي Select Case استفاده مي كنيم . شكل كلي اين دستور به صورت زير است : کد: Select case Expression Case Expression match1 Statements Case Expression match2 Statements . . . Case Expression match n Statements [Case else Statements ] End select در اين ساختار مي توان به تعداد دلخواه و بسته به شرايط برنامه مورد نظر ، شرط را توسط تعيين مقدار Expression در مقابل دستورات Case استفاده كرده، به ازاء هر مورد بلوك دستورات مربوطه(Statements) را جهت اجرا قرار داد. در پايان دستورات به اختيار مي توان از دستور Case else نيز استفاده كرد، كه در اين صورت اگر هيچ كدام از مقادير موجود در Case ها با مقدار Expression ساختار برابر نباشد ، دستورات بعد از Case else اجرا مي شود. نكته اي كه بايد به آن توجه داشته باشيد يكسان بودن نوع داده ها در Expression وExpression match ها مي باشد.
پاسخ : نمونه برنامه های VB6 -آموزش از روی مثال يك نكته در مورد ساختارSelect Case : در ساختار Select case مي توان بجاي استفاده از Expression match ، از عملگرهاي is وTo نيز استفاده نمود . به مثال زير توجه كنيد: کد: Select Case no Case is < 10 Print "Flunked" Case 10 to 19 Print "Accepted" Case 20 Print “ Accepted & Awarded “ Case else Print "No. is invalid" End select در مثال بالا اگر مقدار no كمتر از 10 باشد پيغامي با عنوان Flunked و اگر بين 10 تا 19 باشد پيغام Accepted و اگر برابر با مقدار 20 باشد پيغام ِAccepted&Awarded صادر خواهد شد.
پاسخ : نمونه برنامه های VB6 -آموزش از روی مثال اين هم توضيح ساختار حلقه Next…For هستش. ساختار تكرار با حلقه Next…For : اين ساختار براي اجراي يك يا چند دستور به تعداد معين مورد استفاده قرار ميگيرد .شكل كلي دستور به شرح زير مي باشد: کد: For int counter = int start to intend [ step int increment] Statements Next [int counter] در اين ساختار اگر Step مشخص نشود برابر يك در نظر گرفته مي شود. ساختار حلقه هاي For مي توانند تو در توهم باشند.
پاسخ : نمونه برنامه های VB6 -آموزش از روی مثال ساختار تكرار با حلقه Do : يكي از ساختارهاي ديگر براي ايجاد حلقه ، استفاده از دستور Do while...loop است حلقه Do مانند دستور شرطي If شكل هاي مختلفي به صورت زير دارد: کد: Do while condition Satements Loop يا Do Statememts Loop while Condition تفاوت دو حلقه بالا در اين است كه در حلقه دومStatements حداقل يكبار اجرا خواهد شد و بسته به شرايط مي توان يكي از دو شكل بالا را مورد استفاده قرار داد.
پاسخ : نمونه برنامه های VB6 -آموزش از روی مثال حالات ديگر استفاده از ساختار حلقه Do بصورت زير است: کد: Do until Condition Statememts Loop يا Do Statememts Loop until Condition تفاوت اين دو حلقه مشابه تفاوت دو حلقه قبلي است.
پاسخ : نمونه برنامه های VB6 -آموزش از روی مثال نكات مهم حلقه Do : در استفاده از ساختار حلقه Do به نكات مهم زير توجه كنيد: در حلقه هاي نوشته شده توسط While تا وقتي مقدار Condition درست باشد حلقه اجرا خواهد شد ولي در حلقه هاي نوشته شده با Until با محقق شدن Condition اجرا تمام خواهد شد. Condition در حلقه مي تواند هر عبارت يا متغير منطقي باشد و مشخص كننده مقدار False يا True مي باشد. متغيري كه به عنوان شرط در Condition آزمايش مي شود بايد در داخل حلقه تغيير يابد و اين تغيير بايد طوري باشد كه حلقه نقطه پاياني داشته باشد. به مثال زير توجه كنيد: کد: Dim I as integer I=1 Do while I<=5 I=I+1 Loop حلقه اين مثال به تعداد 5 بار اجرا مي شود وI به هنگام خروج از حلقه برابر 6 است.
پاسخ : نمونه برنامه های VB6 -آموزش از روی مثال امروز مي خواستم يك برنامه با تابع Boolean براتون بنويسم تا با كارايي اين تابع آشنايي بيشتر داشته باشيد. اساس كار برنامه اينه كه اگر كاربر بار اول بر روي CommandButoon كليك كرد حرف A و اگر بار دوم به بعد كليك كرد حرف B را چاپ كند. ابتدا اين خط رو در قسمت جنرال فرم بنويسيد. Dim a as Boolean بعد يك Textbox و یک CommandButoon به برنامه اضافه می کنیم. بر روی CommandButoon1 دوبار کلیک کنید و کد زیرا بنویسید. کد: ()private sub command1_click If a=false then "Text1.text="A a=True Else "Text1.Text="B End if end sub برنامه رو می تونید اجرا کنید.
پاسخ : نمونه برنامه های VB6 -آموزش از روی مثال مقدمه ای در مورد توابع API. امیدوارم با توابع API آشنایی داشته باشید. اگه ندارید باید بگم که توابع API توابع استاندارد ویندوز هستند که ویندوز کارهای معمول خودش مثل ایجاد و حذف پنجره ها مدیریت پرینتر و کارهای چاپی و بطور کلی همه کارهاشو با فراخوانی اونا انجام میده. این توابع میتونه به شما قابلیت انجام خیلی کارا رو بده. خیلی کارهایی که با توابع و امکانات معمول Visual Basic قابل انجام نیستند. یکی دیگه از مزایای این توابع سرعت بسیار بالای اونا هستند. یعنی در بعضی موارد دهها بار از توابع استاندارد معادل در ویژوال بیسیک سریعتر هستند. لیست کاملی از این توابع رو میتونید با استفاده از برنامه API Text Viewer که یکی از برنامه های همراه ویژوال بیسیک هست ببینید.
