أبحث عن برنامج أو كود للأرقام العشوائية

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

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

سبب طلب هذا البرنامج:

أنا ومجموعة من الأصدقاء أو بالأصح زملاء العمل سنقوم بتنظيم حفل وهو يتحدث عن السلامة في الشركة وذلك لموظفي الشركة التي نعمل بها وستكون هناك مسابقات و أسئلة وجوائز وغيرها من النشاطات وبدلاً من أن يكون هناك سحب على الأرقام بالطريقة العادية و التقليدية وذلك بوضع جميع الارقام في صندوق والسحب عليها فقد أحببنا أن يكون ذلك بواسطة برنامج معين أو حتى بأي كود يقوم بذلك حيث يتم أدخال الرقم الأول والرقم الأخير مثلاً 001111 - 0016660 وبذلك يتم الإختيار عشوائي في مجال هذا الرقمين وحصول صاحب هذا الرقم على جائزته وهكذا

عذراً على الإطالة وأرجو المساعدة

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

سويتلك برنامج بسيط بالمعطيات المطلوبة،، :biggthump
تفضل في المرفقات.:bigok:

أخي الكريم القبقوب

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

وفعلاً أشكرك جداً جداً على مجهودك الرائع ومساعدتك المميزه لي

عذراً على تأخري

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

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

عذراً على الإطاله ولاكن أتمنى أن أجد منك ردك سواء بالموافقه على تقديم المساعدة أم الإكتفاء بمشروعك الرائع

عذراً على الإطاله

اقتباس:

---

المشاركة الأصلية كتبت بواسطة علي جنيدي

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

---

أخي الكريم علي

شكراً لك وفعلاً عرضك جداً جداً مغري ومشجع

فكرتي كانت تتركز على ان تكون الواجهه باللغه الإنجليزية مثلاً:

start: للبدء بإظهار الرقم الرابح
winner: سيظهر رقم الرابح وبشكل كبير كما أفضله أن يكون بلون مختلف مثلاً اللون الأخضر
Exit: للخروج من البرنامج
ستتوسط واجهة البرنامج جملة

CMC - SHE Open Day

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

0122
0155
1255
2554
......
.....

حيث يبدء بـ مثلاً 0125 وينتهي 0254 وهكذا

أما بالنسبه لبداية الأرقام فأتمنا أن يتم إدخالها بواسطة الإعدادات مثلاً setting بمعنى آخر أن يتم إدخال الأرقام قبل البدء بالمسابقة أو بالأصح قبل البدء بالحفل وبطريقة غير ظاهره للحظور ( مثلاً قائمة إعدادات وايضاً نبذه عن المصمم لهذا البرنامج) وبذلك سيظهر البرنامج أنه يعمل بطريقة عشوائية وحتى إن كانت ظاهرة فلا يوجد فرق كبير في ذلك

start number
end number

أو أي كلمات تجد أنها أفضل

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

وأي سؤال أو مساعدة فانا سأكون دائماً ممتن لتقديمها

شكراً لكم

السلام عليكم

لكي يستفاد الجميع

اقتباس:

---

Dim score As Long
Randomize
score = Rnd * (9999 - 1) + 1
MsgBox score

---

فقط ضعه في مشروع فجوال بيسك 6 و ايضا يعمل على الاصدارة 7 و 8

(:
و شكرا"

اقتباس:

---

أتمنى أن أجد منك ردك سواء بالموافقه على تقديم المساعدة أم الإكتفاء بمشروعك الرائع

---

ما عندي مانع أخي..
إذا عندك أي طلبات غير اللي ذكرتها في ردك على الأخ علي فاذكرها..

الف الف شكر ولا توجد لدي أي إضافات أخي الكريم

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

ارجوا ان لا أكون قد اتعبتك معي

أتمنى منك الرد

اقتباس:

---

المشاركة الأصلية كتبت بواسطة Argonaut

Dim score As Long
Randomize
score = Rnd * (9999 - 1) + 1
MsgBox score

---

عندي تعديل:
Dim score As Long
Randomize
score = Fix(Rnd * (9999 - 1) + 1)
MsgBox score

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