معرفة إذا كانت قيمة المتغير زوجية أو فردية

أخي على ما أظن انه لوكان باقي القسمة للقيمة التى في المتغير بتساوي 1 هذا يعتبر فردي واذا كان باقي القسمة بيساوي

0 فهذا يعتبر زوجي.

هذا علمي والله اعلم

شكراً أخ medo_programming طريقة ذكية ولكن هل من طرق أخرى ، تذكروا أن هذا الموضوع طرح لاكتساب المهارات فشاركوا بما تعرفونه

بسم الله

اعتقد ان الموضوع ده مفهوش دوال مخصوصة او طريقة معينة

وانما هو متروك لتفكير المبرمج

وكما قال الاخ medo_programming استخدم باقي القسمة

يعني اقسم قيمة المتغير على 2 واستخدم الدالة Mod لو طلع في باقي يبقى العدد فردي

والا يبقى زوجي

والله اعلى واعلم

تذكرت عند قراءة سؤالك أن هناك طريقة اسرع من ذلك بالعمليات الbitwise.. لكني لم أتذكرها بالتفصيل.. عموما بعد البحث وجدت هذا الكود

http://www.freevbcode.com/ShowCode.asp?ID=4430

بسم الله

انا عملت فكرة صغيرة كده على الموضوع ده

وبصراحة انا بتعلم التعامل مع الكلاس من الفكرة دي

هي بسيطة ومش فيها اي حاجة جديدة ولا معقدة

بس زي ما قلت بتعلم التعامل مع الكلاس منها

يارب تعجبكم

Value.rar

مع أني معرفش الكلاس .

المثال جامد ربنا يوفقك

شكراً على التفاعل أيها الإخوة وأرجو شرح الكود تبع البرنامج

تفضل

if n/2=n\2 then msgbox "العدد  " & n & " زوجى" else msgbox "العدد  " & n & " فردى"

رائع أخ عبد الفتاح ولكن عندما نكتب

n/2=n\2

اقتباس

ماذا نقصد بهذا ؟

الأخ الفاضل

\ تعطى خارج القسمة بدون باقى فمثلا 15\2 =7 و 10\3=3 وهكذا

أما / فتعطى خارج القسمة بدون تغيير وهذه من المزايا الرائعة فى الفيجوال بيزك

شكراً أخ عبد الفتاح وننتظر شرح الكود من الأخ أمير

بسم الله

طبعا موضوع الكلاس انا زي ما قلت انا بتدرب عليه

لكن في المثال بتاعنا ده مش لازم كلاس لكن انا هحاول اشرح الكود بالظبط

اول حاجة بنعمل Function في الكلاس ونضيف فيها الكود ده

A = Z Mod 2

دالة Mod تستخدم للحصول على باقي قسمة عددين

يعني مثلا 4÷2 = 2 والباقي صفر

اما 5 ÷ 2 =2 والباقي 1

كلمة والباقي هي ناتج الدالة Mod

يبقى الكود ده معناه ان المتغير A هنحط فيه باقي قسمة العدد المدخل على 2

ودي طبعا طريقة رياضية لمعرفة العدد زوجي ام فردي

والكود التالي يبين ذلك

If A = 0 Then

MyVal = "العدد المدخل زوجي"

Else MyVal = "العدد المدخل فردي"

End If

يعني لو ناتج قسمة العدد المدخل على 2 يساوي 0 يبقى العدد زوجي طبعا ولو غير ذلك يبقى العدد فردي

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

الكود التالي هو

MsgBox MyVal, vbInformation + vbOKOnly

يستخدم لعمل رسالة تظهر العدد فردي او زوجي

يعني بعمل Messgae box واحط فيها قيمة MyVal اللي هي بنحط فيها قيمة العدد زوجي او فردي وده هتلاقيه في الكود السابق

وياتي في الكود التالي التعامل مع الفورم

Dim V as New Class1

بعرف متغير على انه Class1 علشان اتعامل مع الدوال اللي في الكلاس عن طريق هذا المتغير

فمثلا

V.Num_Val Text1.Text

m = V.MyMsg

هذا الكود يتم فيه استدعاء الدالة من الكلاس التي تقبل المتغير الذي نختبر قيمته

وقد قمنا بوضعها في Text1

يعني القيمة اللي هيدخلها المستخدم

وبعدين استدعاء دالة الرسالة لاظهار قيمة العدد زوجي ام فردي

وبس كده

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

بس الواحد لازم يطور نفسه علشان كل مبرمج لما يوصل لمرحلة عالية هيحتاج الكلاسات في شغلة جامد جدا

وعلى العموم انا مستعد لأي استفسار

ملحوظة : طبعا انا كاتب الاكواد بالشكل الغريب ده يعني كل سطر في كود لوحده لان عندي لما بكتب الاكواد مع بعضها بتدخل معاها اكواد HTML وبتلغبط الدنيا

فاسمحوني يعني

والله اعلم

شكراً لك أخ أمير الآن فهمت كل شيء وأصبح الموضوع عليه القيمة وإذا كان هناك طرق أخرى أرجو من الأخوة التفاعل معنا