كود برنامج قرعة

[ebrahim1400]

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

هذه اول مشاركي لي معاكم في المنتدى وأسال الله العلي العظيم لي ولكم التوفيق 

اخواني اريد كود لفرز اسماء الفائزين كما في النموذج المرفق بحيث عندما اقوم بالضغط على زر start يقوم بالفر  او التحريك وفي حال الضغط على زر End  يكون هو اسم الفائز المختار ويضاف في الحقل الأخر  القرعة.rar

هذا ولكم اجمل تحياتي 

[ابوخليل]

وعليكم السلام

وحياك الله بين اخوانك

 

القرعة.rar

[ebrahim1400]

جزاك الله الف خير يا اخي ابو خليل ولك مني اجمل تحية 

تحياتي 

[ابو ابراهيم11]

في ٢٩‏/٨‏/٢٠١٥ at 22:00, ابوخليل said:

وعليكم السلام

وحياك الله بين اخوانك

 

القرعة.rar

السلام عليكم استاذنا الفاضل ابو خليل 

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

اولا ان امكن الاستفادة من حضرتك بشرح الكود الموجود (start) وكذلك الموجود في (end) وهل هناك اجراء اخر 

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

1- عند البدء وخروج الاسم بالقرعة يتحول الى جدول جديد ويعطى تسلسل خروجه بالقرعة لغرض الطباعة 1 و2 و3 ............. 

2- لا يدخل الاسم  الذي خرج بالقرعة في من بقي بالقرعة 

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

على سبيل المثال عندي اسماء عددهم 3000 وعندي ارقام هواتف على عددهم او اكثر منهم او اقل واريد توزيع هذة الارقام للاشخاص بنظام القرعة 

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

وبعد هذا كله ان امكن وتفضلتم ان تشرح لي الخطوات استاذنا الفاضل 

اعتذر للاطاله  

 

[صالح حمادي]

السلام عليكم نيابة عن أستاذنا الفاضل أبو خليل:

Private Sub Form_Timer()
On Error GoTo Err_t

DoCmd.GoToRecord , , acNext
    

Exit_t:
    Exit Sub

Err_t:
   DoCmd.GoToRecord , , acFirst
   
    Resume Exit_t

End Sub

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

Private Sub d1_Click()
Me.TimerInterval = 50
End Sub

و هذا الكود وضع في زر start يعني سوف يقوم بتغيير قيمة الفاصل الزمني للعداد إلى 50 و يبدأ الكود الأول في العمل (1000 تساوي 1 ثانية)

Private Sub d2_Click()
Me.TimerInterval = 0
t2 = t1
End Sub

و هذا الكود سوف يقوم بإيقاف العداد الفاصل الزمني يساوي 0 و يأخذ القيمة الظاهرة في مربع النص t1 و يضعها في مربع النص t2.

[ابو ابراهيم11]

في ٢٩‏/٨‏/٢٠١٥ at 22:00, ابوخليل said:

وعليكم السلام

وحياك الله بين اخوانك

 

القرعة.rar

السلام عليكم استاذنا الفاضل ابو خليل 

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

اولا ان امكن الاستفادة من حضرتك بشرح الكود الموجود (start) وكذلك الموجود في (end) وهل هناك اجراء اخر 

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

1- عند البدء وخروج الاسم بالقرعة يتحول الى جدول جديد ويعطى تسلسل خروجه بالقرعة لغرض الطباعة 1 و2 و3 ............. 

2- لا يدخل الاسم  الذي خرج بالقرعة في من بقي بالقرعة 

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

على سبيل المثال عندي اسماء عددهم 3000 وعندي ارقام هواتف على عددهم او اكثر منهم او اقل واريد توزيع هذة الارقام للاشخاص بنظام القرعة 

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

وبعد هذا كله ان امكن وتفضلتم ان تشرح لي الخطوات استاذنا الفاضل 

اعتذر للاطاله  

 

السلام عليكم استاذ صالح حمادي

وشكرا لسرعة الاجابة والتوضيح الرائع 

ماذا بخصوص الاسئلة الاخرى والتعديلات 

 

[رمهان]

السلام عليكم

انا لي وجهة نظر هنا بملف الاستاذ ابو خليل الموقر

هنا ليس  الاختيار عشوائيا بناء على خوارزمية معينه تحتمل التوقع قريبة للصفر

وانما احتوى الملف على خوارزمية التنقل بين السجلات مما يجعل التوقع قريب لل 100 % وهذا ينفي العشوائي

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

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

تحياتي

 

 

 

 

[صالح حمادي]

السلام عليكم أستاذ رمهان حياك الله

نعم ملاحظاتك صحيحة و في محلها.

أخي أبو ابراهيم تفضل:

لقد قمت بإجراء التعديلات التالية على ملف الأستاذ ابو خليل:

1- أضفت جدول جديد "جدول الفائزين" كل شخص يخرج في القرعة يضاف إلى هذا الجدول.

2- عند خروج أي شخص في القرعة فإن البرنامج سوف يكتب في حقل "خارج القرعة" للجدول "القرعة" 1.

3- أضفت استعلام "استعلام1" و جعلته مصدر السجلات للنموذج "القرعة" و وضعت به شرط أن يكون حقل "خارج القرعة" خاليا. يعني أن الحقول المكتوب بها 1 لا تدخل في القرعة.

القرعة.rar

[رمهان]

حياكم الله استاذ صالح

هذا تعديل بسيط مقترح على مثال الاستاذ ابو خليل

Private Sub Form_Timer()
DoCmd.GoToRecord , , acGoTo, Int((Me.RecordsetClone.RecordCount - 1 + 1) * Rnd + 1)
End Sub

حيث اصبح التنقل عشوائي بين 1 وعدد سجلات النموذج

تحياتي

[صالح حمادي]

55 دقائق مضت, رمهان said:

حياكم الله استاذ صالح

هذا تعديل بسيط مقترح على مثال الاستاذ ابو خليل

Private Sub Form_Timer()
DoCmd.GoToRecord , , acGoTo, Int((Me.RecordsetClone.RecordCount - 1 + 1) * Rnd + 1)
End Sub

حيث اصبح التنقل عشوائي بين 1 وعدد سجلات النموذج

نعم أستاذ رمهان هكذا سوف يصبح أمر التوقع صغير

[ابو ابراهيم11]

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

حفظكم الله من كل سوء وزادكم من علمه وشكرا لما قدمتموه 

لو تفضلتم بقي ان تتفضلوا علينا وترشدونا بخصوص هذا السوال؟

عندي اسماء عددهم 3000 وعندي ارقام هواتف على عددهم او اكثر منهم او اقل واريد توزيع هذة الارقام للاشخاص بنظام القرعة 

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

جزاكم الله خير الجزاء

[alaa aboul-ela]

موضوع جميل وممكن توظيف الفكرة قي اكثر من غرض