مشكلة End IF

طيب أكتب الكود حتى نستطيع دراسة الخطأ

أظن السبب هو إستخدامه لجملة شرط في سطر واحد (أي يكتب ال then ويتبعها بجواب الشرط في نفس السطر، وبعد ذلك يكتب End If في سطر جديد)، هذا هو السبب الوحيد الذي يمكن تخيله، حاول أن تكون كلمة Then هي آخر ما تكتب في السطر.

مثال هذا الجملة الشرطية لا تحتاج الى End If:

Dim X as integer

Dim Y as integer

If X=Y then End

هنا جواب الشرط (الكلمة End) جاءت في نفس سطر If لذا لن نحتاج الى End If

أما في هذه الجملة فنحن نحتاج الى End If

Dim X as integer

Dim Y as integer

If X=Y then

End

End If

هل يقوم المحرر بإكمال هذه الجمل تلقائيا؟؟؟؟

نعم المحرر عندما تكتب Then وتضغط الزر Enter يكتب End If تلقائياً كما تفضلت، ولكن مشكلة الأخ السائل تختلف بأنه جملته الشرطية (كما خمنتها) لا تتطلب End If لكونه يكتب الجملة متتابعة في سطر واحد، لذا فإنه عندما يضغط الزر Enter ويقوم بكتابة End If سيظهر خطأ لعدم الحاجة لتلك الخاتمة.

Oooooops...

أتقصد أخي newbie بأن الأخ السائل قام بكتابة End If بالرغم من أن المحرر قام بإدخالها تلقائياً؟؟؟؟؟؟؟ لماذا غاب عني بالي هذا الإحتمال، وهل من المعقول بأنه لم يلاحظ ذلك؟

على كل حال، أخي mohamed_k78 خذها نصيحة مني، عندما تجد بأن هناك End If وتحتيها خط أحمر وتظهر لك الرسالة End If" must be preceded by a matching "if " فقم بما يلي: أشطبها، أشطبها دون رحمة ولا ولا شفقة، وبعداً لها وللقوم الكافرين.

فعلاً البرمجة دون قاعدة If لا تساوي جناح بعوضة.

أعتقد أن الأخ Newbie يقصد أن الاخ كتب التالي

if x>7 then msgbox x

End If

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

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

Dim payment As Single

Dim payearly As DueDate

if chkpayearly.Checked then payearly=DueDate.BegOfPeriod else payearly=DueDate.EndOfPeriod end if

لكن هذة هية الجملة بعد فصل الجمل عدة مرات غن طريق مفتاح الأدخال مع ملاحظة أن التعرج الذي كان تحت قد زال ولكن تم وضع نقطتين بعد الكلمة Else(:) لماذا هذا.....

Dim payment As Single

Dim payearly As DueDate

If chkpayearly.Checked Then

payearly = DueDate.BegOfPeriod

Else : payearly = DueDate.EndOfPeriod

End If

بالنسبة للأخ الذي يقول أذا صدفتها أحذفها بدون تردد....هل هذا الحذف لا يؤثر على تنفيذ الجمل...وماذا لو أردت أستخدام nested ifوحدثت معي ....وهل فصلي عن طريق مفتاح Enter لايؤثر على تنفيذ الجملة ....أفيدوني في هذة النقاط بالله عليكم

كله بيعتمد على الكود اللي انت كاتبه

تأكد انك تكتب syntax سليم للif statement كالذي كتبته بأعلى تماماً و لن تحدث أخطاء..

اما بالنسبة للnested if فيمكنك اعتبارها كأي جملة اخرى تظهر في الif statement

اما فصلك بزر الاخال فلن يسبب مشاكل طالما لم يشتكي الفيجوال باظهار خط متعرج

يعني الكودين التاليين يؤدون نفس الغرض تماماً

if x=1 then
	msgbox("1")
else: msgbox("2")
end if

وكذلك

if x=1 then
	msgbox("1")
else
	msgbox("2")
end if

هل انتبهت الى اني ضغطت الادخال بعد الelse مباشرة بدون مشاكل

اقتباس

قد زال ولكن تم وضع نقطتين بعد الكلمة Else( لماذا هذا.....

لان النقطتين : معناهم أن الكود قبل النقطتين كأنه على سطر و بعد النقطتين كأنه على سطر أخر يعني كأنك كتبت الكود كالتالي

Dim payment As Single
Dim payearly As DueDate
If chkpayearly.Checked Then
payearly = DueDate.BegOfPeriod
Else 
payearly = DueDate.EndOfPeriod
End If

السلام عليكم ورحمة الله

شاكر لك جدااااااا على الرد المفيد والجميل وأسئل الله أن يجعلة في ميزان حسناتك....أخي لو سمحت ممكن أعرف يعني أية by ref و by val ... والذي دئما أرهم في الجملة والأقواس التي تليها مامعناها فيما يمكن أستخدمها أو تدلني على أى مصدر ممكن أعرف يعني أية هتين الكلمتين وكيفية أستخدامهما وعن بداية الأجراء بشكل عام....حيث أني لازلت مبتدئ في الفجيوال بيسك عامة

وجعلة الله في ميزانك يوم لاينفع مال ولا بنون الا من أتى الله بقلب سليم

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