حساب معامل الذكاء

هذا Function يعمل على الأكسس وعلى الإكسل لحساب ما تريده

Function SmartAva( A as Single , B as Single ) as Single
   SmartAva = (int(a)*12 + (a-int(a))*10)/(int(b)*12 + (a-int(b))*10) *100
End Function

ولكي تستدعيه (مثال)

ضع 3 مربع نص أسمها A,B,C وضع زر أمر اكتب في حدث عند الضغط عليه :

C = SmartAva(A, B)

اكتب فر المربع A قيمة 5 سنوات و6 شهور هكذا : 5.6

واكتب في المربع B قيمة 10 سنوات وشهران هكذا 10.2

اضغط على الزر

أخي مهند أشكرك شكراً جزيلا على هذه الاستجابة السريعة

... و تراني غشيم شوي في الأكواد ...

وابغى أعرف الكود الأول فين يتم وضعه هل في وحدة نمطية أم غير ذلك

أما الكود الثاني امره سهل إن شاء الله ...

الكود الأول ضعه في وحدة نمطية واسبقه بكلمة Public

يصبح هكذا أول سطر :

Public Function SmartAva( A as Single , B as Single ) as Single

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

جزاك الله خير وبارك الله فيك ....

اخي الفيفي

سبق وان عملت برنامج مقارب لهذا الا انه شامل وكبير

لاحد زملائك يهتم في هذه الحاجات

واذا كنت انت من المنطقه الجنوبيه فاعتقد انه معاك او انكما تعرفان بعض

على العموم اهلا وسهلا بك

نعم أخي عبد الهادي أنا من المنطقة الجنوبة ..

وأتوقع إنك تقصد الأخ علي

أخصائي نفسي بأحد المدارس وهو أحد الزملاء

رأيت البرنامج رائع جدا وعرفت إن مصمم البرنامج ليس مبتدئ في الأكسس

بارك الله فيك أخي عبد الهادي .

اخي الفيفي اشكرك

ولكن لسا البرنامج لم يطرح لهم فقط انا عملته له وباقي يعدل فيه الكثير

ولم يخرج من عندي

على العموم اهلا وسهلا بك

واي خدمه انا حاظر وان شاء الله نلتقي وخصوصا اننا في مدينه وحده

أجل أخي عبد الهادي ممكن إن الشخص مو اللي ذكرته

لأنه يوجد أحد الأخوان قد عرض علينا مثل هذا البرنامج في احد الإجتماعات

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

اخي الفيفي تابع معي في دروس الاكسس

وسوف ناتي للعلاقات

بين الجداول قريبا بإذن الله

الاخ / عبدالهادي الالمعي

إقتباس

اقتباس

سبق وان عملت برنامج مقارب لهذا الا انه شامل وكبير

لاحد زملائك يهتم في هذه الحاجات

هل نطمع بوضع هذا البرنامج كي نطلع عليه ونتسفيد منه ؟؟؟؟؟

تحياتي

كأفكار ابشروا ولكنه والله جميع الحقوق طلبها الشخص الذي جالس اسويها له

لانه سيأخذ البرنامج ويقدم به رساله الماجستير

ولكن انت اخي star noor غالي وارجوا ان لا تزعل من كلامي لكنه والله جميع المبالغ التي يدفعها الشخص لكي يظمن حقوقه

ولكن سوف اضع افكاره الجميله ان اردتوا

وسوف اتطرق لكثير منها في الدروس ان شاء الله