[haider kh]

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

[Taha Okla]

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

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

كود :

Private Sub Command1_Click()
   Me.Caption = Int(Rnd * 100) + 30
End Sub

Private Sub Form_Load()
   Randomize
End Sub

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

[haider kh]

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