تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
سؤال حول كود اختيار رقم عشوائي
#1
السلام عليكم اساتذتنا الكرام
ابحث عن كود لايجاد رقم عشوائي بين رقمين
كان اضع ثلاثة text 
الاول لادخال الرقم الاول والثاني لادخال الرقم الثاني
والثالث لاستخراج رقم عشوائي واحد بين الرقمين في مربعي الادخال 1و 2
ويتم تنفيذ الامر عند النقر على button 1
على ان لا يتكرر الرقم العشوائي
شكرا جزيلا لكم
الرد }}}
تم الشكر بواسطة:
#2
وعليكم السلام ورحمة الله وبركاته

استخدم الكود التالي وطوره بحسب حاجتك :
كود :
Private Sub Command1_Click()
   Me.Caption = Int(Rnd * 100) + 30
End Sub

Private Sub Form_Load()
   Randomize
End Sub

مكان الرقم 30 ضع الرقم الأصغر  لمجالك.
ومكان الرقم 100 ضع الرقم الأعلى لمجالك.
وهذه هي طريقة توليد أرقام عشوائية غير متوقعة.
وهذه هي الطريقة المستخدمة في برامج السحب للمسابقات.
--
لكي لا تتكرر الأرقام عليك اضافة قاعدة بيانات تضيف إليها النتيجة كلما ضغطت على زر التنفيذ
فيقوم بتوليد رقم عشوائي ثم يبحث عنه فإن لم يجده في قاعدة البيانات عرضه 
وإن وجده أعطى أمر بحث من جديد عن نتيجة جديدة فيعرضها لك ثم يحفظها في قاعدة البيانات بنفس الوقت ك قيمة قد تم عرضها ..
قال صلى الله عليه وسلم: 
«كلمتان خفيفتان على اللسان 
ثقيلتان في الميزان،حبيبتان إلى الرحمن: 
سبحان الله وبحمده، سبحان الله العظيم».
الرد }}}
تم الشكر بواسطة: haider kh , ابراهيم ايبو , ابراهيم ايبو
#3
شكرا جزيلا. ساقوم بتجربة الكود
لكن وضعه في قاعدة البيانات غير واضحة تماما حبذا لو تفضلت بمثال بسيط جزاك الله خير
الرد }}}
تم الشكر بواسطة:



التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم