مشكلة في عبارة Select ... Case

مغلق

بدأه al-iskafy في 4 يناير 2007 · 8 رد · 844 مشاهدة · في Microsoft Visual Basic.NET

#14 يناير 2007 في 16:05 صاحب الموضوع

حيرني هذا الكود كل شي ماسي سليم من ال1 الى 9 ولكن عند وصوله الى الرقم 10 و11 يعطيني ناتج الرقم 1 ورقم 12 يعطيني ناتج رقم 2 شوفو شنو الخطأ في هذا الكود !!!

Dim prg As String
		Dim allprg As String = TextBox21.Text
		Dim Result3 As String
		Dim Result4 As String
		For Each prg In allprg
			Select Case prg
				Case "1"
					Result3 = "الحمل"
				Case "2"
					Result3 = "الثور"
				Case "3"
					Result3 = "الجوزاء"
				Case "4"
					Result3 = "السرطان"
				Case "5"
					Result3 = "الأسد"
				Case "6"
					Result3 = "العذراء"
				Case "7"
					Result3 = "الميزان"
				Case "8"
					Result3 = "العقرب"
				Case "9"
					Result3 = "القوس"
				Case "10"
					Result3 = "الجدي"
				Case "11"
					Result3 = "الدلو"
				Case "12"
					Result3 = "الحوت"
			End Select
			Select Case prg
				Case "1"
					Result4 = "ناري ذكر"
				Case "2"
					Result4 = "ترابي مؤنث"
				Case "3"
					Result4 = "رياحي"
				Case "4"
					Result4 = "مائي شمالي"
				Case "5"
					Result4 = "ناري"
				Case "6"
					Result4 = "ترابي"
				Case "7"
					Result4 = "رياحي"
				Case "8"
					Result4 = "مائي"
				Case "9"
					Result4 = "ناري"
				Case "10"
					Result4 = "ترابي"
				Case "11"
					Result4 = "رياحي"
				Case "12"
					Result4 = "مائي"
			End Select
		Next
		TextBox21.Text = Result3
		TextBox22.Text = Result4

#24 يناير 2007 في 18:51

يرجى شرح الهدف من الكود حتى نستطيع مساعدتك بدقة - ربما تكون هناك طريقة أفضل لعمل ما تريد

كما يرجى اختيار عنوان مناسب للموضوع في المرات القادمة - تم تحرير العنوان هنا -

عن عائشة رضي الله عنها أن النبي صلى الله عليه وسلم قال: إن الله يحب إذا عمل أحدكم عملا أن يتقنه

نعيب زماننا والعيب فينا ... وما لزماننا عيب سوانا

ونهجو ذا الزمان بغير ذنب ... ولو نطق الزمان لنا هجانا

محمد سامر أبو سلو

#34 يناير 2007 في 19:13

انه كود لتحويل الرقم الي نص ولكن بطريقة ثانيه

حيث انه اذا وضعت رقم البرج لنفرض 1 سوف يعطيك اسم البرج ونوعه

والاعداد من 1 الى 9 يعطي قيم صحيحه ولكن عند الوصول من الرقم 10 و11 يعطيني الناتج قيمة العدد رقم 1

والعدد 12 يعطيني قيمة العدد رقم 2

قمت بتزيل كود تحويل الرقم الى حرف ولكن لم افهم طريقة عمله ولكن اكتشف ان الكود يقبل الآحاد فقط لذي هناك طريقة اخرى لحساب الرقم الموجود بالعشرات ولكن لم افهمها

#45 يناير 2007 في 00:32

الحل والله أعلم

اما أن تحول المتغير prg إلى متغير رقمي Integer

أو أن تستخدم المحول Cint عند اختبار القيمة عبر Case أو ببساطة ازل علامة التنصيص "1" عند اختبار القيمة.

في المثال يتضح المقال

#55 يناير 2007 في 00:43

و لاحاجة إلى عبارتين select case. يمكن دمجهما معاً.

مدونة سيستم داون التي ستكسر الدنيا! أو على الأقل ستعطيه متنفساً لخواطره البرمجية

#65 يناير 2007 في 12:43

شكرا للجميع على المساعدة

#76 يناير 2007 في 00:49

System Down كتب:
و لاحاجة إلى عبارتين select case. يمكن دمجهما معاً.

استخدام الطريقة For..Each خاطئ

استخدم Select Case فقط:

Dim allprg As String = TextBox21.Text
		Dim Result3 As String
		Dim Result4 As String
			Select Case allprg
				Case "1"
					Result3 = "الحمل"

					Result4 = "ناري ذكر"
				Case "2"
					Result3 = "الثور"

					Result4 = "ترابي مؤنث"
				Case "3"
					Result3 = "الجوزاء"

					Result4 = "رياحي"
				Case "4"
					Result3 = "السرطان"

					Result4 = "مائي شمالي"
				Case "5"
					Result3 = "الأسد"

					Result4 = "ناري"
				Case "6"
					Result3 = "العذراء"

					Result4 = "ترابي"
				Case "7"
					Result3 = "الميزان"

					Result4 = "رياحي"
				Case "8"
					Result3 = "العقرب"

					Result4 = "مائي"
				Case "9"
					Result3 = "القوس"

					Result4 = "ناري"
				Case "10"
					Result3 = "الجدي"

					Result4 = "ترابي"
				Case "11"
					Result3 = "الدلو"

					Result4 = "رياحي"
				Case "12"
					Result3 = "الحوت"

					Result4 = "مائي"
			End Select
		TextBox21.Text = Result3
		TextBox22.Text = Result4

WindowsApplication1.rar

M0oATH