فكرة وضع دائرة على رقم او قيمة

أخي الكريم محسن شوف هذا المثال المرفق وهو للأخ فهد الدوسري .. حاول ان تدرس فكرته جيدا .. اتمنى ان يكون فيه مبتغاك .. وشكرا

______________________________________.zip

اخى SANDANET اشكرك على اهتمامك ولمن المثال معطوب

ارجوك وضع مثال سليم

السلام عليكم

الأخ الكريم محسن سرحان.

ملحوظة: "الملف الذي أرفقه الأخ SANDANET سليم ولكنه هو نفس المثال الذي أرفقته أنت فقط الذي اختلف هو برنامج الضغط".

وقد حاولت أن أضع حلا لسؤالك وتوصلت الى التالي:

المثال السابق يعتمدعلى كود يقوم برسم الدائرة واختيار أبعادها وألوانها برمجيا وهي دائرة مفرغة وليس لدي الخبرة في رسم دائرة ممتلئة باللون المفضل، ولو أردت وضع شروط أخرى لمربع النص لأصبح الكود طويلا جدا. وعلى كل حال فقد لجأت إلى طريقة مبسطة وخطواتها هي:

* رسم دائرة في برنامج الرسام ، حدد الأبعاد على رغبتك، 2×2 سم أو أكثر لأنك سوف تنسقها فيما بعد. ثم احفظها

* انتقل الى الأكسيس، لديك تقرير فيه مربع نص للاسم وآخر للدرجة، حقل الدرجة هو: bb

* قبل أن تنشئ حقل الدرجة قم بإنشاء مربع عنوان وسمه تسمية مناسبة وقد سميته هنا circl

* قم بإدراج الصورة في مربع العنوان ويكون تنسيقهاحسب الآتي:-

نوع الرسم: مضمن،

وضع الحجم: تكبير /تصغير

محاذاة الرسم: توسيط

مرئي : لا

نمط الحدود : شفاف

* قم بإنشاء مربع نص الدرجة bb واجعله بنفس حجم مربع العنوان السابق وعدل نمط الخلفية إلى شفاف

* اسحب مربع الدرجة وضعه فوق مربع العنوان

* في مقطع التفصيل للتقرير و "عند الطباعة" او "عند التنسيق" اكتب الكود الموجود في التقرير

آمل أن يكون الحل هو ما تريده

عبدالله عطيف

circle.rar

أخي محسن ... تحية طيبة وبعد :

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

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

اخي الفاضل محسن سرحان

هذا ملف الاستاذ فهد الدوسري بعد التعديل

بكامل المطلوب وقد تم رسم دائرة برمجيا بالكود وتم تعبأتها باللون الرمادي الفاتح مع وضع شرط في التقرير انها تكون للدرجات التي تقل عن 49 درجه بواسطة اداة الشرط IF

وقم تم اضافة كود توسيط الحقول في التقرير لمربعات االنص والتسميات وتستطيع الاستغناء عنها

وقد تم شرح جميع محتويات الكود في التقرير

هذا الملف مضغوط ببرنامج WINRAR

CirclesOnNumbers.rar

وهذا هو نفسه ولكن مضعوط ببرنامج WINZIP

CirclesOnNumbers.zip

اختكم

زهره

بعد ردك أختي زهرة مفيش رد ..

ردود الكبار تسكت الصغار ..هههههههههههههههه..

الكبير كبير ولو نزل لقعر البير .

شكرا لكِ أخت زهرة

أنت أهل للتقديرومثال للبحث الدؤوب عن المعرفة، وكنت أتمنى أن تشاهدي ملفي المرفق وتوضحين ما فيه من صواب أو خطأ؟. وهل أنا على الطريق الصحيح أم لا؟ فقد قصدت ان أصل إلى المطلوب بأقل تعقيد وفي حدود معرفتي.

ثم كيف لو استخدمنا الطريقة مع Select Case ووضعنا أكثر من صورة للتعبير عن عدة حالات؟.

الاخت العزيزة زهرة المنتدى

في البداية لا اجد كلام يعبر عن مدى اعجابي بذكائك الخارق

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

المثال فوق الرائع ولم اكن اريد اكثر من هذا الابداع

ولكن هناك نقطتان ليكتمل برنامجى

1- لو عندي طالب حاصل على صفر او غـ "غياب عن الامتحان" كيف تظهر الدائرة عليه

2-لو عندى اكثر من مادة وليس مادة واحدة

وفي النهاية ارجو الا اثقل عليكي

وشكرا يا مرجع الاكسس

محسن سرحان

الأخ: محسن سرحان

بالنسبة لطلبك الذي جعلته في نقطتين وهما:

1- طالب حاصل على صفر... بالتأكيد سوف تظهر الدائرة على الصفر لأن الصفر أقل من خمسين. أما الطالب الغائب فلن تستطيع إدخال نص في حقل رقم، ولكن يمكنك إضافة حقل جديد في الجدول للملاحظات ومنها غائب أو مؤجل... لأن هناك فرق بين الصفر كدرجة مكتسبة أو صفر لطالب غائب.

2- لو عندك أكثر من مادة... التقرير يصلح لعرض كل المواد، سواء مادة لصف أو مواد لطالب.

اين رد الاخت زهرة لحل المشكلة

أخي الفاضل محسن سرحان

جرب المرفق التالي فقد عملت فيه تقريرين مختلفين أحدهما يظهر الدائرة والآخر يظهر حقل الصفر بلون أصفر بدون دائرة، والحقل الأقل من خمسين عليه دائرة.

وفي المرفق أيضا "هدية" : نموذج لإدخال الدرجات وكتابة الملاحظات تلقائيا

وفي انتظار زهرة لتقول كلمتها.

عبدالله عطيف

circleOntextBox.rar

اخى الفاضل اشكرك على تجاوبك

ولكنى اريد اوضح لك انى اقول صفر اي حقل نصي هذا اولا

ثم انى اريد تطبيق الدائرة على اكثر من مادة

وهذا لايعنى اغفال مجهودك الرائع وافكارك الجديدة

فان كان هناك حل ارجو سرعة الرد

وشكرا

ارجو سرعة الرد للاهمية

اخي الفاضل عبدالله عطيف

اقدم شكري وتقديري لك على هذا المجهود المبذول في التوصل الى الحل

اخي الفاضل محسن سرحان

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

لو كان لديك اكثر من مادة مثل ( رياضيات - علوم جغرافيا - تاريخ )

ايضا ضمن هذه الشروط تكون من ضمن القيم اما صفر ( 0 ) او كلمة غائب ( غـ )

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

شرح الطريقة

1. نلاحظ في الجدول المبني عليه التقرير انه يوجد به ارقام عددية ونصوص مثل " غـ " وتعني غائب لهذا يجب وضع جميع الحقول كلها نص

2. نبني التقرير على الجدول بشكل طبيعي

3. نقوم بعمل صوره دائرة رمادية اللون كما فعل الاستاذ عبدالله عطيف ولكن هذه المره ننسخها اربع مرات بناء على عدد المواد ( لدينا في المثال اربع مواد ) ونعطي كل صوره اسم ثم نضعها تحت مربعات النص في التقرير اما مربعات النص فنجعل خلفيتها شفافه

4. الان نضع هذا الكود الذي سوف يقوم بالتأكد من القيم فإن كان بها قيمه عددية غير " 0 " او " غـ " فإنه لا تظهر الصوره وان كان غير ذلك فالصوره تظهر سواء كان الحقل به قيمة " 0 " او " غـ "

Private Sub تفصيل_Format(Cancel As Integer, FormatCount As Integer)
If Me.Math.Value = 0 Or Me.Math.Value = "غـ" Then
Me.Circle1.Visible = True
Else
Me.Circle1.Visible = False
End If
If Me.Sin.Value = 0 Or Me.Sin.Value = "عـ" Then
Me.Circle2.Visible = True
Else
Me.Circle2.Visible = False
End If
If Me.Hest.Value = 0 Or Me.Hest.Value = "غـ" Then
Me.Circle3.Visible = True
Else
Me.Circle3.Visible = False
End If
If Me.Gughr.Value = 0 Or Me.Gughr.Value = "غـ" Then
Me.Circle4.Visible = True
Else
Me.Circle4.Visible = False
End If
End Sub

وهذا المثال يوضح ذلك بشكل اوضح

CirclesOnNumbers.rar

اختكم

زهره

الف شكر لكل من ساهم في حل المشكلة