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

مفكرة المشاكل والمشكلة الأولى :استخدام Select Case

بدأه مبرمجة مسلمة في 28 مايو 2009 · 8 رد · 1,216 مشاهدة · في Microsoft Visual Basic.NET
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

السلام عليكــم ورحمـة الله وبركاتــه ،،

أخواني أعضاء قسم الفيجوال بسك دوت نت

بدأت ولله الحمد للانتقال لهذه اللغة مع العلم أنني مبتدئة حتى فى الفجوال بيسك 6

المهم أنني أنزلت بعض الكتب التعليمية لأتعلم هذه اللغة الشيقة ولكن تعترضني مطبات

خصصت لها مفكرة لأكتب ما استعصى عليه فهمه والقائمة تطول شيئا فشيئا وأنا هنا لأنقصها ^^>>>عذرا للإطالة

إحدى المطبات ما الفائدة من الأمر select case مكتوب لدي الوظيفة : القيام بتفرع مشروط في البرنامج لكن الفائدة لم تتضح لدي فأرجو منكم ضرب مثال أعرف به الفائدة من هذه الأداه

وهنا مثال طبقته ولكن لم أجد فيه ما يفيد

Dim value1 as integer =4

Dim value2 as integer =5

select case value1

case 1 or 2 and value2 =4

msgbox("1")

case 3 or 4

msgbox("2")

case 5 or 6

msgbox("3")

else case

msgbox("غىر ذلك")

end select

وشكرا

#2

ألن يرد علي أحد

لم أتوقع أن طلبي صعب لهذه الدرجة

ألا يوجد خبراء في هذا القسم

>>في قسم الفجوال بيسك كان التجاوب أسرع بكثير

#3

مرحباً أختي الكريمة,

عند استخدام العبارة ( Or ) عليك كتابة اسم الكائن المعالج حالته أي :

 

Select [color= #b1b100;]Case I

[color= #b1b100;]Case [color= #cc66cc;]5 Or I [color= #339933;]= [color= #cc66cc;]6

[color= #b1b100;]Case [color= #cc66cc;]7 Or I [color= #339933;]= [color= #cc66cc;]8

[color= #990000;]End Select

لكن الشكل الصحيح لكتابة تلك العبارة هو :

 

Select [color= #b1b100;]Case I

[color= #b1b100;]Case [color= #cc66cc;]5[color= #339933;], [color= #cc66cc;]6

[color= #b1b100;]CAse [color= #cc66cc;]7[color= #339933;], [color= #cc66cc;]8

[color= #b1b100;]Case [color= #b1b100;]Else

[color= #990000;]End Select

لاحظي أيضاً شكل كتابة ( Case Else ) وليس ( Else Case ),

بالتوفيق .

The important thing is not so much

that every child should be taught,

as that every child should be given the wish to learn.

#4

شكرا لك على تجاوبك وعلى التصحيح

ولكننى أريد أن أعرف ما هى وظيفتها يعنى مثال عليها أي بمعنى أصح : ما هي الفائدة منها؟؟

#5

الفائدة من جملة Select Case هى تنفيذ أكواد معينة عند توافر شرط معين بمعنى أنها شبيهة بجملة If

وطريقة استخدامها كالتالى

Select Case <Expression>
Case Value1
...
Case Value2
...
Case Else
...
End Select

مثال

	Private Function MathFunc(ByVal num1 As Integer, ByVal num2 As Integer, ByVal operation As Char) As Integer
		Select Case operation
			Case "+"c
				Return num1 + num2
			Case "-"c
				Return num1 - num2
			Case "*"c
				Return num1 * num2
			Case "/"c
				Return num1 / num2
			Case Else
				MsgBox("العملية غير معروفة")
		End Select
	End Function

يمكن صياغة الكود السابق باستخدام If

		If operation = "+"c Then
			Return num1 + num2
		ElseIf operation = "-"c Then
			Return num1 - num2
		ElseIf operation = "*"c Then
			Return num1 * num2
		ElseIf operation = "/"c Then
			Return num1 / num2
		Else
			MsgBox("العملية غير معروفة")
		End If

قمنا بعمل وظيفة تستقبل 3 معاملات

الأول والثانى عبارة عن رقمين من النوع Integer والثالث هو نوع العملية المطلوبة

داخل الوظيفة قمنا بعمل اختبار لنوع العملية لتنفيذها على الرقمين فقمنا بمعالجة عمليات الجمع والطرح والضرب والقسمة أما القسم Case Else فسيتم تنفيذه إن لم يتحقق أى شرط من الشروط السابقة أى أنه سيتم تنفيذه إذا كانت العملية ليست جمع ولا طرح ولا ضرب ولا قسمة

ويمكن أن يكون الاختبار على أكثر من قيمة فى وقت واحد ويكون الفصل بينها بالرمز ","

مثل

Case 5, 6

أى نفذ الكود التالى إذا كانت قيمة المتغير 5 أو 6

كذلك يمكن اجراء الشرط على مدى معين

مثل

Case 0 To 5

أى نفذ الكود التالى إذا كانت قيمة المتغير بين 0 و 5

يمكن أيضا استخدامها مع المعامل Is مع معاملات المقارنة

لمزيد من التفاصيل

تم تعديل هذه المشاركة بواسطة GHOST2010 في 1 يونيو 2009 في 16:04

إن قلت قال الله قال رسولـه همزوك همز المنكر المتعالي
أو قلت قد قال الصحابة والألـى تبعاً لهم بالقول والأعمال
أو قلت قـال الشافعي وأحمد و أبو حنيفة والإمام الغالي
صدوا عن وحي الإله ودينـه واحتالوا على حرام الله بالإحلال
يا أمةً لعبت بدين نبيها كتلاعب الصبيان في الأوحال
حاشا رسول الله يحكم بالهوى تلك إذاً حكومة الضلال

feed.1.gif

#6

شكرا لك أخي على الشرح

جزاك الله خيرا

#7

السلام عليكم

هذا برنامج يحتوي علي الكثير من الدوال مع مثال علي كل دالة

ارجو ان يفيدك

______.rar

#8

شكرا لك لكن البرنامج لا يشتغل يعطيني رسالة

'run time error'525

ata access error

#9

بسم الله الرحمن الرحيم

شكرا لك أخى الكريم على الإفادة

جعل الله ذلك فى ميزان حسناتك

عندما تضيق بك الدنيا فلا تقل يارب عندى هم كبير ولكن قل يا هم عندى رب كبيييير

اللهم إنى أتيت بابك مستغفراً فإن غفرت لى وأدخلتنى فأنت أهلٌ لذلك

وإن لم تغفر لى وطردتنى فأنا أهلٌ لذلك

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