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

[صخر العرب]

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

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

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

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

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

[علي جنيدي]

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

[القبقوب]

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

[صخر العرب]

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

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

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

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

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

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

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

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

[صخر العرب]

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

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

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

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

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

CMC - SHE Open Day

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

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

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

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

start number
end number

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

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

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

شكراً لكم

[Argonaut]

السلام عليكم

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

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

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

(:
و شكرا"

[القبقوب]

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

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

[صخر العرب]

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

[صخر العرب]

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

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

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

[a1a1a1]

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

[المبدع الواعد]

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