الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

Select Case لمتغيرين

بدأه اسلام الكبابى في 20 يوليو 2012 · 7 رد · 1,071 مشاهدة · في لغة Ms Visual Basic 6 وما قبلها من إصدارات
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

كيف أكتب جملة Select Case لأكثر من متغير

فى هذا الكود جملة Select Case للمتغيرText1.Text

وجملة Select Case أخرى للمتغيرText2.Text

ولكنى لم أستطع كتابة جملة تحتوى المتغيرين معآ

مثلآ Text1.Text < 9 AND Text2.Text < 15

مثلآ Text1.Text < 9 AND Text2.Text > 15

مثلآ Text1.Text > 9 AND Text2.Text < 15

مثلآ Text1.Text > 9 AND Text2.Text > 15

أم أنه لايمكن عن طريق الSelect Case (يمكن فقط عن طريق الIF )

ولكم ألف شكر

Private Sub Command1_Click()

Select Case Text1.Text
    Case Is < 9
        Text3.Text = 100
    Case Is > 9
        Text3.Text = 200
End Select


Select Case Text2.Text
    Case Is < 15
        Text3.Text = 100
    Case Is > 15
        Text3.Text = 200
End Select
End Sub
#2 
Private Sub Command1_Click()
    Select Case Val(Text1.Text)
        Case Is < 9
            If Val(Text2.Text) < 15 Then Text3.Text = "100"
        Case Is > 9
            If Val(Text2.Text) > 15 Then Text3.Text = "200"
    End Select
End Sub

أو

Private Sub Command1_Click()
    Select Case Val(Text1.Text)
        Case Is < 9 And Val(Text2.Text) < 15
            Text3.Text = "100"
        Case Is > 9 And Val(Text2.Text) > 15
            Text3.Text = "200"
    End Select
End Sub
#3

في هذه الحالة إستخدم If

(map share people)

فضلا لاتقم بمراسلتي من أجل أسئلة لها أقسامها في المنتدى حتى تعم الفائدة على الجميع وللحصول على إجابات أفضل من أعضاء أكثر خبرة.
Weblog
@bitbucket
@xmonader

#4

السلام عليكم...

إذا لم يكن الأمر تقييماً لتعبير واحد محدد فإنه من الأفضل استعمال If كما قال الأخ ahmed_youssef. و لكن يمكنك استعمال Select Case بالصيغة التالية:

Select Case True
    Case (Text1.Text < 9) And (Text2.Text < 15)
        ' ...
    Case (Text1.Text > 9) And (Text2.Text > 15)
        ' ...
    Case ...
        ' ...
        ' ...
End Select

حيث تستعمل Select Case True في البداية، و تضع أية شروط تريدها أمام عبارات Case.

نرجو الاستفادة و السلام.

2

وَ قُلِ اعْمَلُوا فَسَيَرَى اللهُ عَمَلَكُمْ وَ رَسُولُهُ وَ الْمُؤْمِنُونَ

صدق الله العظيم

#5

بارك الله فيكم

ولكم ألف شكر

وللأستاذ/najy_zl خاصة

#6

او ممكن تستخدم select case if

#7

أنا رأيي الشخصي إستخدام التركيبة If في مثل هذه الحالة ستكون أفضل وأوضح عند التطوير !!!

ولكن من وجهه نظري إذا كنت ترغب إستخدام Select Case فقط لا غير فعليك بالطريقة التي أشار إليها الأستاذ najy_zl

وهذا مثال علي ذلك :

Dim N1 As Single, N2 As Single, N3 As Single
Dim S As String

N1 = Val(Text1.Text)
N2 = Val(Text2.Text)
N3 = Val(Text3.Text)

Select Case True
    Case N1 > N2 And N1 > N3
        S = "First number is largest"
    Case N2 > N1 And N2 > N3
        S = "Second number is largest"
    Case Else
        S = "Last number is largest"
End Select

MsgBox S

ولكن بالطبع يمكنك إستخدام التركيبتين معاً لتلبية الغرض :

1- Select Case

2- If Then Else

أو إستخدام تركيبة واحده منهم فقط لا غير

كل الأمور متاحه لك

بالتوفيق

لا تخلط ما بين شخصيتي وأسلوبي .. فشخصيتي هي

ما أنا عليه وتحت تصرفي .. وأسلـوبي يعتمد عليـك

أنت وتصرفاتك

ولحظاتي صمت... وصمـت لحظاتي كلام ... كلامه

اشد آلام ... فصمتي أنا عنوان

عصر التكنولوجيا المعلوماتية(مدونتي الخاصة)

My FaceBook

#8
اقتباس
بارك الله فيكم

ولكم ألف شكر

وللأستاذ/najy_zl خاصة

اجابة سؤالى عرفتها من زمان منذ رد الأستاذ/najy_zl

مواضيع مشابهة