منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

السلام عليكم اساتذتنا الكرام
ابحث عن كود لايجاد رقم عشوائي بين رقمين
كان اضع ثلاثة text
الاول لادخال الرقم الاول والثاني لادخال الرقم الثاني
والثالث لاستخراج رقم عشوائي واحد بين الرقمين في مربعي الادخال 1و 2
ويتم تنفيذ الامر عند النقر على button 1
على ان لا يتكرر الرقم العشوائي
شكرا جزيلا لكم

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

استخدم الكود التالي وطوره بحسب حاجتك :

كود :

Private Sub Command1_Click()

    Me.Caption = Int(Rnd * 100) + 30

End Sub

Private Sub Form_Load()

    Randomize

End Sub

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

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

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

haider kh

Taha Okla

haider kh