4- قاعدة If
يوجد نوعين من قاعدة if
الأولى
قاعدة IF العادية ، يعني سطر واحد فقط و أمر واحد فقط.
مثل
كود:
If Text1.Text = "msoms" Then Text2.Text = "لا إله إلا الله محمد رسول الله"
أما عن الأمر المطول يعني أكثر من سطر وله قاعدة أيضاً
وهو
كود:
Private Sub Command1_Click()
If Text1.Text = "msoms" Then
Text2.Text = "لا إله إلا الله محمد رسول الله"
Command1.Caption = "أحسنت"
Command1.Enabled = False
MsgBox "الكلمة صحيحة"
End If
End Sub
المهم
اريد من الكل ان يعرف شو إلي استفاد من الكود الأخير هنا؟
طبعاً الأفضل إنك تكتب الكود بنفسك حتى تتدرب كيف تكتب الاكواد بسرعة.
الآن المفروض تضغط على F5 لكل مرة تغير الكود
ملاحظة
حتى تمسح الكلام الموجود في التكست مثل في الصورة إلي كان في الردود السابقة
يعني ليبل لو كنت تريد تغير الكلمة من label1 إلى أي كلمة أخرى
تستطيع بطريقتين
الأولى و إلي هي الشائعة
من صوب اليمين نحصل قائمة أخرى وهي كالتالي
طبعاً هنا انا ضغطت على الزر من الفورم و طلع لي خيارات
وانا اردت ان اغير الكلمة من Command1 إلى النتيجة
رحت لل Caption
اما التكست لازن نروح Text
وهو موجود تحت
لأنه مرتب ترتيب أبجدي
المهم الكود النهائي للمرة الأولى هي:
كود:
Private Sub Command1_Click()
If Text1.Text = "msoms" Then Text2.Text = "لا إله إلا الله محمد رسول الله"
End Sub
والكود النهائي للمرة الثانية هي:
كود:
Private Sub Command1_Click()
If Text1.Text = "msoms" Then
Text2.Text = "لا إله إلا الله محمد رسول الله"
Command1.Caption = "أحسنت"
Command1.Enabled = False
MsgBox "الكلمة صحيحة"
End If
End Sub
انتهى
المفضلات