آموزش ويژوال بيسيك 6 به صورت گام به گام
      

 
Persian Forum Network - Try to be a Professional
صفحه نخست .:.  کاربران .:.   .:. تقویم  .:. کاربران آنلاین
خوش آمدید میهمان ( ورود | ثبت نام )
  /     /  


««12345»»»

آموزش ويژوال بيسيك 6 به صورت گام به گام باز / بسته
نویسنده
پیغام
ارسال شده در تاریخ پنج شنبه 21 اردیبهشت 1385 - 8:32 بعدازظهر


کسی به گرد پاش نمیرسه

کسی به گرد پاش نمیرسهکسی به گرد پاش نمیرسهکسی به گرد پاش نمیرسهکسی به گرد پاش نمیرسهکسی به گرد پاش نمیرسهکسی به گرد پاش نمیرسهکسی به گرد پاش نمیرسهکسی به گرد پاش نمیرسهکسی به گرد پاش نمیرسهکسی به گرد پاش نمیرسه

گروه: کاربران
آخرین بازدید: یکشنبه 30 تیر 1387 - 7:50 صبح
پست ها: 547, بازدید ها: 554






yesايجاد پروسيجرyes


در VB، علاوه بر Event Procedureها که به ازای رويداد (Event) های مشخصی انجام می شوند، می توانيم تعدادی پروسيجر را نيز خودمان تعريف کنيم که به اين نوع پروسيجر، General Procedure (پروسيجر عمومی) گفته می شود که برای اجرای آنها می بايست نام آنها در جايی از برنامه، فراخوانی شود.
در VB (مشابه Basic) دو نوع پروسيجر داريم:


1- تابع  (Function)


2-  روال (Sub) .
توابع قطعه برنامه هايی هستند که هرگاه نام آنها در برنامه فراخوانی شود، لزوماً يک و فقط يک مقدار را به عنوان خروجی برمی گرداند در حالی که روال (ساب روتين) ها، قطعه برنامه هايی هستند که ممکن است به تناسب دارای يک يا چند خروجی و يا حتی بدون خروجی باشند.
توابع و روالها می توانند شامل تعدادی آرگومان (پارامتر) باشند که پارامترها در توابع فقط نقش ورود اطلاعاتی از برنامه به تابع را ايفا می کنند و نام خود تابع به عنوان خروجی تابع استفاده می شود در حالی که در روالها ورود و خروج داده ها، هر دو توسط همين پارامترها انجام می شود.
شکل کلی توابع به شکل زير است:


Function functionName (Parameters) As variableType








Commands


End Function


 


و همچنين شکل کلی روال ها:


Sub subName (Parameters)








 Commands


    


 


End Sub









اميدوارم که از مطالبا راضی باشيد اگر سوالی داشتيد مطرح کنيد .



با تشکر
پست شماره 55975
تبلیغات
ارسال شده در تاریخ پنج شنبه 21 اردیبهشت 1385 - 8:34 بعدازظهر


کسی به گرد پاش نمیرسه

کسی به گرد پاش نمیرسهکسی به گرد پاش نمیرسهکسی به گرد پاش نمیرسهکسی به گرد پاش نمیرسهکسی به گرد پاش نمیرسهکسی به گرد پاش نمیرسهکسی به گرد پاش نمیرسهکسی به گرد پاش نمیرسهکسی به گرد پاش نمیرسهکسی به گرد پاش نمیرسه

گروه: کاربران
آخرین بازدید: یکشنبه 30 تیر 1387 - 7:50 صبح
پست ها: 547, بازدید ها: 554






Starنکاتی درباره پروسيجرهاStar


 توجه داشته باشيد که در ابتدای تعريف توابع و روالها می توانيم از Private يا Public نيز استفاده کنيم و تمام سطوحی که برای تعريف متغيرها گفته شد (خصوصاً سطح فرم و سطح ماژول) ، در اينجا نيز عيناً کاربرد دارند. (پيش فرض در اينجا هم Private است).


به عنوان مثال اگر بخواهيم تابعی به نام Square ايجاد نماييم که هر عددی را دريافت کرد، مربع آن را برگرداند، کافی است چنين بنويسيم (مثلاً به صورت Public در يک ماژول) :



Public Function Square (I As Integer) As Integer


           Square = I*I


End Function



ملاحظه می کنيد که در اينصورت اگر هر جايی از برنامه نام تابع را به همراه يک مقدار عددی Integer به عنوان پارامتر آن ذکر کنيم، مقدار عددی مذکور به متغير I داخل تابع منتقل شده و عمل I*I روی آن انجام می گيرد و از آنجا که گفتيم خرجی توابع نام آنها هستند، خروجی (يعنی مقدار I*I را) را به نام تابع جايگزين کرديم (يعنی Square = I*I) . حال مثلاً اگر در جايی از برنامه دستور b = Square (5) را وارد کنيم، مقدار متغير b برابر 25 خواهد شد.


توجه داريم که اگر تابع بيش از يک پارامتر ورودی داشت، بايد نام آنها با کاما (,) از هم جدا کنيم که در اينصورت در هنگام فراخوانی بايد به تعداد پارامترها، آرگومان قرار دهيم که به ترتيب در متغير مربوط جايگزين (وارد) می شود. مثلاً اگر بخواهيم تابعی به نام Multiple ايجاد کنيم که حاصلضرب دو پارامتر ورودی اول را با پارامتر ورودی سوم جمع کند و نتيجه را برگرداند، کافی است بنويسيم:



Private Function Multiple (a, b, c As Integer) As Integer


     Multiple = (a*b) +c


End Function



که در اينصورت دستورات زير در محلی از پروژه (که البته دسترسی Private به تابع مذکور داشته باشد)، مقدار 17 را در Text Box به نام txtResult قرار می دهد:



I = 3


bs = 5


g = 2


txtResult.Text = Multiple (I, bs, g)



توجه داريم که مقادير استفاده شده به عنوان آرگومانهای تابع بايد با متغيرهای به کار رفته در پارامترهای تعريف تابع از لحاظ نوع داده، يکسان باشند.حال به عنوان مثالی برای روالها فرض کنيد بخواهيم روالی به نام TF ايجاد کنيم که دو عدد را دريافت کند، بررسی کند که اگر اين دو عدد برابر بودند، جواب True  و همچنين حاصلضرب آن دو را برگرداند. برای اين منظور اگر مثلاً در يک ماژول تعريف کنيم:



Public Sub TF (x, y As Integer, T as Boolean, M as Integer)


     IF x = y then


          T = True


     Else


           T = False


     End IF


     M = x*y


End Sub



می توان در جايی از پروژه، روال مذکور را فراخوانی نمود، فراخوانی روالها توسط دستور Call صورت می گيرد، مثلاً اگر در جايی از پروژه، روال فوق را به صورت زير فراخوانی نماييم:



a = InputBox (“Please Enter a Number”)


Call TF (a, 15, s, p)



در صورتی که متغيرهای a و s و p تعريف شده باشند آرگومان a به پارامتر x از روال، آرگومان 15 به پارامتر y از روال، آرگومان s به پارامتر T از روال و آرگومان p به پارامترM از روال منصوب می شود. دستور InputBox يک جعبه محاوره‌ای برای کاربر نشان می دهد که پيغامی را (در اينجا پيغام Please Enter a Number) شامل می شود و در يک جعبه متن خاص، مقداری را از کاربر مطالبه می کند که پس از وارد کردن توسط کاربر مقدار وارد شده را برمی گرداند (و در اينجا در متغير a جايگزين می کند). حال اگر کاربر مقدار 15 را وارد کند، مقدار متغير s (که بايد Boolean تعريف شده باشد) برابر True و در غير اينصورت مقدار False را شامل می شود و در هر صورت متغير p نيز حاصلضرب a و 15 را در خود شامل می شود.


تأکيد می کنيم که نوع داده آرگومانها و پارامترهای تعريف لزوماً بايد به ترتيب متناسب باشد که در غير اينصورت VB به ما خطا صادر می کند.




اميدوارم که از مطالبا راضی باشيد اگر سوالی داشتيد مطرح کنيد .



با تشکر
پست شماره 55976
ارسال شده در تاریخ پنج شنبه 21 اردیبهشت 1385 - 8:39 بعدازظهر


کسی به گرد پاش نمیرسه

کسی به گرد پاش نمیرسهکسی به گرد پاش نمیرسهکسی به گرد پاش نمیرسهکسی به گرد پاش نمیرسهکسی به گرد پاش نمیرسهکسی به گرد پاش نمیرسهکسی به گرد پاش نمیرسهکسی به گرد پاش نمیرسهکسی به گرد پاش نمیرسهکسی به گرد پاش نمیرسه

گروه: کاربران
آخرین بازدید: یکشنبه 30 تیر 1387 - 7:50 صبح
پست ها: 547, بازدید ها: 554






کنترل های Check Box و Option Button


به اطمينان، از زمانی که با ويندوز کار می کنيد، از کنترلهای Check Box و Option Box استفاده بسياری برده‌ايد.اگر بخواهيم به کاربر (User) اين امکان را بدهيم که از بين چند گزينه، يک ، دو يا چند مورد را انتخاب کند و يا حتی هيچ يک را انتخاب نکند از کنترل Check Box به شکل (1)، و اگر بخواهيم کاربر، از ميان چند گزينه، يک و فقط يک گزينه را انتخاب کند، از کنترل Option Button (کليدهای راديويی) به شکل (2)، اين دو کنترل VCL، مشخصه ای به نام Value دارندکه از صفر يا يک بودن مقدار آن، می توانيم به انتخاب نشده بودن و انتخاب شده بودن آن گزينه خاص، پی ببريم. لذا اگر برروی يک فرم چند Check Box وجود داشت، می تواند Value هر يک از آنها صفر يا يک باشد، اما اگر برروی فرمی، چند Option Button وجود داشت، تنها يکی از آنها می تواند Value برابر يک داشته باشد و وقتی کاربر، يکی ديگر را انتخاب می کند، به طور خودکار، Value قبلی صفر و Value کنترل انتخاب شده، يک می شود.
VB دارای دو ثابت (Constant) به نامهای VBChecked و VBUnchecked می باشد که به ترتيب برابر يک و صفر می باشند که می توانيم مقدار Value کنترلهای ذکر شده را با اين ثوابت مقايسه کنيم.
کنترل Check Box ، علاوه بر دو مقدار صفر و يک برای مشخصه Value ، مقدار برابر 2 نيز برای آن دارد که اگر به آن Set شود، اين کنترل، خاکستری رنگ (Gray) می شود که معمولاً در ويندوز نشان از پيش فرض بودن دارد. همچنين کنترل مذکور، مشخصه ای هم به نام Style دارد که اگر مقدار آن را از صفر به يک تغيير دهيم، شکل Check Box به شکل دکمه ای در می آيد که يک بودن مقدار Value، باعث فشرده شدن کليد و صفر بودن آن باعث بالا بودن کليد می‌شود.
نکته آخری که در اينجا متذکر می شوم اينست که طبق قراری که از ابتدا گذاشته بوديم، سه حرف اول مشخصه Name کنترلها بهتر است متناسب با کنترل بگذاريم. برای Check Boxها، نام را با chk و برای Option Buttonها، نام را با opt آغاز می کنيم و ادامه نامشان را معمولاً با Caption آنها کامل می کنيم. لازم به ذکر است که مشخصه Caption هر دو کنترل مذکور، حاوی آن عبارتی است که کنار آن کنترل برای معرفی آن به کاربر می آيد.









شکل 1


شکل 2


 




اميدوارم که از مطالبا راضی باشيد اگر سوالی داشتيد مطرح کنيد .



با تشکر
پست شماره 55977
ارسال شده در تاریخ پنج شنبه 21 اردیبهشت 1385 - 8:43 بعدازظهر


کسی به گرد پاش نمیرسه

کسی به گرد پاش نمیرسهکسی به گرد پاش نمیرسهکسی به گرد پاش نمیرسهکسی به گرد پاش نمیرسهکسی به گرد پاش نمیرسهکسی به گرد پاش نمیرسهکسی به گرد پاش نمیرسهکسی به گرد پاش نمیرسهکسی به گرد پاش نمیرسهکسی به گرد پاش نمیرسه

گروه: کاربران
آخرین بازدید: یکشنبه 30 تیر 1387 - 7:50 صبح
پست ها: 547, بازدید ها: 554






مثالی از کنترل های Check Box و Option Button


فرض کنيد بخواهيم فرمی شامل يک Text Box و دو Check Box با عنوانهای Bold و Italic داشته باشيم که اگر Bold، مارک خورده بود، متن داخل Text Box به صورت Bold درآيد و اگر Italic مارک خورده بود به صورت Italic  فرم نهايی آن را در شکل 6 می توانيد ببينيد.


Figure 6



Private Sub chkBold_Click ()


           IF chkBold.Value = VBchecked Then


          txtDisplay.FontBold = True


     Else