سؤال بخصوص if else

لماذا RED وليس "RED"؟

حاولت وكتبت "RED" بهذا الشكل وماضبطت معي صار البرنامج لما اشغلوا وأكتب أي لون مايطلع نتيجة...

من ردودك تبين لي التالي:

1.

أنت تقارن مع المتغير c. و c متغير فارغ وجديد ولم تضع فيه شئ. يجب عليك تعبئته بالقيمة التي تدخلها. لهذا لا تخرج معك نتيجة أبداً لأنك تقارن مع فراغ وليس مع القيمة المدخلة.

2.

عليك أن تضع السطرين التاليين في بداية كل ملف كود

Option Explicit On

Options Strict On

هذين السطرين يجبرانك على أن يتم تعريف كل متغير تستخدمه اسماً ونوعاً. سبب المشكلة الأولى في أن كل شئ تدخله يعطيك نفس النتيجة هو أن الكومبايلر يعتقد أن RED هو متغير فارغ وبما أن c هو أيضاً فارغ فالنتيجة الأولى ستأتيك دائماً. عند جعل تعريف المتغيرات إجبارياً سينبهك الكومبايلر لهذا الخطأ. تذكر أن RED هكذا هو اسم متغير بينما "RED" هي قيمة نصية.

هنا نستخدم textbox لنكتب فيه اسم اللون

ونستخدم label لنعرض فيه النتيجه وتستطيع ان تستغني عن label بوضع مربع نصي جديد

ومثل ما قال الاخ system down انت عملت متغير c وما اعطيته اي قيمه

وهذي طريقه ان شاء الله تفيدك

Const s1 = "Nice"

Const s2 = "Right"

Const s3 = "Woow"

Const s4 = "Good"

If (TextBox1.Text = "RED") Then

Label1.Text = s1

ElseIf (TextBox1.Text = "BLACK") Then

Label1.Text = s2

ElseIf (TextBox1.Text = "PINK") Then

Label1.Text = s3

Else

Label1.Text = s4

End If

والطريقه الاخرى

انك تنسب قيمه textBOX الى C لاحظ الكود

Dim C As String

Const s1 = "Nice"

Const s2 = "Right"

Const s3 = "Woow"

Const s4 = "Good"

C = TextBox1.Text

If (C = "RED") Then

Label1.Text = s1

ElseIf (C = "BLACK") Then

Label1.Text = s2

ElseIf (C = "PINK") Then

Label1.Text = s3

Else

Label1.Text = s4

End If

إضافة إلى ماذكره الإخوة الأفاضل أضيف

ضع أيضا الجملة Option Compare Text فى أعلى ملف الكود أو قم بتحويل النصوص إلى حالة واحدة Capital أو Small حتى تتم مقارنة النص بشكل صحيح

شكرا لكم جميعااا سأحاول وأوافيكم بالنتائج