ساختار Select Case
نمایش نتایج: از شماره 1 تا 2 , از مجموع 2

موضوع: ساختار Select Case

  1. Sniper _ Elite آواتار ها
    Sniper _ Elite
    کاربر اخراجی
    Aug 2008
    4,786
    2,362
    تشکر شده : 3,505

    پیش فرض ساختار Select Case

    اين ساختار براي مواقعي خوبه كه تعداد شرطامون زياد باشه مثلا اگه بخوايم برنامه اي بنويسيم كه يك عدد رو بگيره و

    از يك تا 10 بررسي كنه و مثلا اگه عددمون 7 بود چاپ كنه 7 يا اگه 3 بود چاپ كنه 3 و .....

    Select Case گزینه خوبی برای تصمیم گیری از بین مقادیر مختلف هستش.

    بر عکس ElseIf خوانایی برنامه با Select Case بالا ميره .


    شكل كلي دستور :


    کد:

    Select Case عبارت

    Case 1 عبارت

    مجموعه دستورات 1

    Case 2 عبارت

    مجموعه دستورات 2

    Case n عبارت

    مجموعه دستورات n

    Case Else

    مجموعه دستورات Else


    End Select


    در این دستور عبارتی را که می خواهیم مقادیر مختلف آن را چک کنیم در جلوی Select Case می نویسیم.

    سپس هر مقدار را در جلوی Case می نویسیم.

    اگر مقدار ارزیابی شده عبارت مورد نظر برابر هر کدام از حالات باشد مجموعه دستورات بعد از آن حالت اجرا شده

    سپس دستور Select Case خاتمه می یابد.

    اگر هیچ کدام از حالات درست نباشد مجموعه دستورات Else اجرا می شود.


    مثال:

    کد:

    Select Case sVal

    Case 0

    Text1.Text = "zero"

    Case 1

    Text1.Text = "One"

    Case 2

    Text1.Text = "Two"

    Case 3

    Text1.Text = "Three"

    Case 4

    Text1.Text = "Four"

    Case 5

    Text1.Text = "Five"

    Case Else

    Text1.Text = "Error..."

    End Select



    در دستور Select Case از To برای انتخاب محدوده ای از اطلاعات استفاده می شود.

    مثال:

    کد:

    Case 10 To 20

    همينچنين برای استفاده از عملگر های رابطه ای باید کلمه Is را نیز به کار برد.

    مثال:

    کد:

    Case Is >50

    از کاما نیز میتوان برای OR کردن عبارات استفاده کرد.

    مثال:

    کد:

    Case Is <> 0, 10 To 20

    اگر مقدار مخالف صفر باشد یا بین 10 تا 20 باشد مجموعه دستورات انجام می شود
    #1 ارسال شده در تاريخ 4th January 2009 در ساعت 04:24

  2. 2 کاربر از این پست تشکر کرده اند :


  3. arman2000 آواتار ها
    arman2000
    کاربر سایت
    Nov 2009
    1
    1
    تشکر شده : 0

    پیش فرض

    دوست من سلام
    از مطلبي كه در لينك زير گذاشته بوديد ممنونم
    فقط کاربران ثبت نام شده میتوانند لینک های انجمن را مشاهده کنند. ]
    بزرگوار در گزارش اكسس من از اين دستور استفاده كردم. سوالم اينه كه براي يك تكست باكس، كد زير جواب مي ده:
    Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer)
    Select Case Text1
    Case "محمد"
    Me.Image1.Visible = True
    Me.Image2.Visible = False
    Case "علي"
    Me.Image1.Visible = False
    Me.Image2.Visible = True

    End Select
    End Sub
    ولي اگه همين دستور براي يه تكست باكس ديگه بخوام استفاده كنم خطا مي گيريم:
    Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer)
    Select Case Text1
    Case "محمد"
    Me.Image1.Visible = True
    Me.Image2.Visible = False

    Case "علي"
    Me.Image1.Visible = False
    Me.Image2.Visible = True

    End Select

    Select Case Text2
    Case "رضا"
    Me.Image3.Visible = True
    Me.Image4.Visible = False

    Case "احمد"
    Me.Image3.Visible = False
    Me.Image4.Visible = True

    End Select
    End Sub
    ممنون مي شم راهنمايي بفرمائيد.
    ویرایش توسط arman2000 : 28th September 2011 در ساعت 14:04
    #2 ارسال شده در تاريخ 28th September 2011 در ساعت 14:01

موضوعات مشابه

  1. ساختارهای شرطی در Visual Basic.NET
    توسط secret در انجمن برنامه نويسي عمومی
    پاسخ ها: 0
    آخرين نوشته: 1st January 2009, 10:55
  2. تا بع تبديل عدد به معادل حروفي ان
    توسط secret در انجمن برنامه نويسي عمومی
    پاسخ ها: 0
    آخرين نوشته: 31st December 2008, 15:35
  3. تجدید ساختار در بانک‌های دولتی
    توسط Alone GirL در انجمن گرايش بانكداري
    پاسخ ها: 0
    آخرين نوشته: 1st October 2008, 00:09
  4. آشنایی با قسمتهای سخت افزار کامپیوتر؛ كيس کامپیوتر Case
    توسط infernal در انجمن آرشیو بخش سخت افزار
    پاسخ ها: 2
    آخرين نوشته: 21st August 2008, 19:03

علاقه مندی ها (Bookmarks)

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

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