برنامج جديد يحتاج تطوير

:rolleyes:

أرجو ممن قام بتحميل البرنامج إرسال ملاحظاته !

قمت بعمل أمرRND لتكوين نتائج عشوائية (أسئلة عشوائية)

والغرض منه تكوين أسئلة عشوائية في المسابقة

ولكن المشكلة هي تكرار بعض النتائج ؟

س / فهل من إضافة على الكود لتفادي تكرار الأسئلة العشوائية بحيث من يقع عليه الاختيار لا يختار مرة أخرى حتى نهاية قائمة الأسئلة ... علما بأن الفورم يتم تحميله (load) في كل سؤال !

:o لا يوجد أحد يستخدمRND

!!

استعمل الكود التالي

Dim x(10) As Integer, a As Integer
Private Sub Command1_Click()
l1: t = Int(Rnd * 11)
For i = 0 To a
If t = x(a) Then GoTo l1
Next
a = a + 1
End Sub

Private Sub Form_Load()
a = 0
End Sub

في كل مرة x(a) ستأخذ قيمة عدد غير موجود مسبقاً :wacko:

عفوا هناك تعديل في الكود

Dim x(10) As Integer, a As Integer
Private Sub Command1_Click()
Randomize
If a < 10 Then
l1: t = Int(Rnd * 11)
For i = 0 To a
If t = x(i) Then GoTo l1
Next
x(a) = t
Print x(a)
a = a + 1
Else
MsgBox "fin"
End If
End Sub

Private Sub Form_Load()
a = 0
End Sub

وبدلا من print x(a) يمكن اضافة اي امر للاستفادة من قيمتها :wacko:

هذا الموضوع تكرر من قبل وسوف تجد حل عدم التكرار فى مشاركتى هذه (اضغط هنا)

و ما الخطأ في حلي

هو يخرج لك الاعداد من 1 الى 10 بترتيب مختلف مع عدم التكرار كما هو مطلوب

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

أن لم اقل ان حلك خطأ

و لكن زيادة الخير خيرين

بصراحة جربت الكودين وكلاها فعالة وجيده

وأنا أطمح إلى زيادة عدد النتائج العشوائية حاليا ومستقبلا

شكرااا جزيلا لـhishamnasr و VB6-Rocket على الرد

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