+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغات البرمجة الاخرى (http://vb4arb.com/vb/forumdisplay.php?fid=4)
+--- قسم : قسم لغة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=18)
+---- قسم : قسم أسئلة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=28)
+---- الموضوع : سؤال حول كود اختيار رقم عشوائي (/showthread.php?tid=40595)
سؤال حول كود اختيار رقم عشوائي - haider kh - 30-01-22
السلام عليكم اساتذتنا الكرام
ابحث عن كود لايجاد رقم عشوائي بين رقمين
كان اضع ثلاثة text
الاول لادخال الرقم الاول والثاني لادخال الرقم الثاني
والثالث لاستخراج رقم عشوائي واحد بين الرقمين في مربعي الادخال 1و 2
ويتم تنفيذ الامر عند النقر على button 1
على ان لا يتكرر الرقم العشوائي
شكرا جزيلا لكم
RE: سؤال حول كود اختيار رقم عشوائي - Taha Okla - 30-01-22
وعليكم السلام ورحمة الله وبركاته
استخدم الكود التالي وطوره بحسب حاجتك :
كود :
Private Sub Command1_Click()
Me.Caption = Int(Rnd * 100) + 30
End Sub
Private Sub Form_Load()
Randomize
End Subمكان الرقم 30 ضع الرقم الأصغر لمجالك.
ومكان الرقم 100 ضع الرقم الأعلى لمجالك.
وهذه هي طريقة توليد أرقام عشوائية غير متوقعة.
وهذه هي الطريقة المستخدمة في برامج السحب للمسابقات.
--
لكي لا تتكرر الأرقام عليك اضافة قاعدة بيانات تضيف إليها النتيجة كلما ضغطت على زر التنفيذ
فيقوم بتوليد رقم عشوائي ثم يبحث عنه فإن لم يجده في قاعدة البيانات عرضه
وإن وجده أعطى أمر بحث من جديد عن نتيجة جديدة فيعرضها لك ثم يحفظها في قاعدة البيانات بنفس الوقت ك قيمة قد تم عرضها ..
RE: سؤال حول كود اختيار رقم عشوائي - haider kh - 30-01-22
شكرا جزيلا. ساقوم بتجربة الكود
لكن وضعه في قاعدة البيانات غير واضحة تماما حبذا لو تفضلت بمثال بسيط جزاك الله خير