اختبار هل العدد فردي ام زوجي

صيغتها هي :

Mod

Ala2_VB___Numbers.rar

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

بس كان لدي استفسار , ممكن تشرحلي هذا الكود

If Val(Text1.Text) Mod 2 >= 1

اقتباس

اذا كان باقي قسمة قيمة النص (text1) على 2 أكبر من أو تساوي 1

السلام عكيكم

الأخوة الأفاضل و بالأخص الأخ علاء

منطقياً: لا يمكن أن يكون باقي قسمة عدد صحيح على 2 أكبر من 1

فالباقي حصراً إما واحد أو صفر.

و بالتالي نكتب:

If Val(Text1.Text) Mod 2 = 0 Then
'Even(Zawgy)
'To do
Else
'Odd(Fardy)
'Todo
End If

أرجو الانتباه عند مساعدة الأعضاء و خاصة المبتدئين.

LORD COVER

GOOD BYTE

اقتباس

منطقياً: لا يمكن أن يكون باقي قسمة عدد صحيح على 2 أكبر من 1

هل قال أحد غير ذلك ؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟

مشكورين اخواني -waf

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

وأرجو منك أخي ميدو عند تنفيذ الكود , استعمال الـ IsNumeric للتأكد من القيمة المدخلة نص أو لا

وصيغته :

IsNumeric(Value) = True 'If Value = Number
IsNumeric(Value) = False 'If Value = Not Number