..:: مغز کامپیوتر ::..
کلید رهایی از تاریکی
درباره وبلاگ



مدیر وبلاگ : علی عبدیان
مطالب اخیر
نویسندگان
نظرسنجی
شما بیشتر به چه نوع مطلبی علاقه دارید ؟








فرض کنید بخواهیم یک ماشین حساب ساده، مطابق آنچه در شکل 7 می‌بینید، طراحی کنیم:

یک Label به نام lblDisplay به عنوان نمایشگر ماشین حساب و با Caption برابر مقدار" 0" (زیرا مقدار اولیه ماشین‌حساب‌ها صفر می باشد) در محل خود قرار می دهیم. همچنین یکCommandButtonبه نام cmdequal به عنوان دکمه مساوی" و با Caption برابر "= " نیز در محل مخصوص خود قرار می دهیم.

حال ده عدد Command Botton دیگر با Caption های به ترتیب برابر " 0" تا "9 " را در جای خود قرار می دهیم و سپس نام همه این ده دکمه را به نام cmdNumber  تغییر می دهیم. در این صورت همانطور که گفته شد، VB این ده کنترل را به صورت آرایه کنترلی (Control Array) در نظر خواهد گرفت (به پیغام داده شده با همین مضمون جواب Yes دهید).

به همین ترتیب چهار CommandButton دیگر را با Captionهای "+ " و "- " و "* " و "/ " و با نام یکسان cmdOprator به عنوان دکمه های چهار عمل اصلی به صورت آرایه کنترلی در محل های خود قرار می دهیم.

حال کافی است در یونیت مربوط به این فرم، چنین کدنویسی کنیم (توجه داشته باشید که متغیرهای x و y و op در سطح فرم (Form Level) تعریف شده اند و لذا مقدار آن در تمام فرم قابل دسترسی خواهد بود) :

Option Explicit

Dim x,y As Integer

Dim op As String

 Private Sub cmdNumber_Click (Index As Integer)

          IF lblDisplay = “Ø” then lblDisplay = “”

          lblDisplay = lblDisplay + cmdNumber(Index).Caption

End Sub

 Private Sub cmdOprator_Click (Index As Integer)

          x = Val(lblDisplay)

          op = cmdOprator(Index).Caption

          lblDisplay = “Ø”

End Sub

Private Sub cmdEqual_Click ( )

          y = Val (lblDisplay)        

          Select Case op

                   Case “+”

                             lblDisplay = x + y

                   Case “-”

                             lblDisplay = x - y

                   Case “*”

                             lblDisplay = x * y

                   Case “/”

                             lblDisplay = x / y

          End Select

End Sub

 

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

  1. در رویدادهایی که مربوط به آرایه های کنترلی (یعنی cmd Number و cmdoperator ) است، یک پارامتر به نام Index در آن وجود دارد که شماره Index (اندیس) کلیدی که فشرده شده را برمی‌گرداند. و لذا مثلاً cmdOprator(Index).Caption برابر "+" خواهد بود، اگر کلید + فشرده شود و برابر "- " خواهد بود، اگر کلید – زده شود و ...

  2. مشخصه (Property) پیش فرض برای Labelها Caption است و لذا هر جا lblDisplay ذکر شده است، توسط VB مانند lblDisplay.Caption در نظر گرفته می شود.

  3. توسط دستور Select Case، یک متغیر (که نام آن جلوی دستور Select Case نوشته می شود) با مقادیر مختلفی (که جلوی دستورات Case بعدی نوشته می شود) چک می شود که اگر برابر هر یک از این مقادیر بود، دستور پس از همان Case اجرا می شود.





نوع مطلب : برنامه سازی، 
برچسب ها :
لینک های مرتبط :
نظرات پس از تایید نشان داده خواهند شد.


آمار وبلاگ
  • کل بازدید :
  • بازدید امروز :
  • بازدید دیروز :
  • بازدید این ماه :
  • بازدید ماه قبل :
  • تعداد نویسندگان :
  • تعداد کل پست ها :
  • آخرین بازدید :
  • آخرین بروز رسانی :
 
 
 
شبکه اجتماعی فارسی کلوب | Buy Website Traffic | Buy Targeted Website Traffic