الاختيار العشوائي Random

وحيد1 كتب:

السلام عليكم اخواني

حياكم الله

اخواني انا سؤالي اليوم عن دالة Random

حيث انه عندي مدجموعة من الاسماء

ما يقارب 100 اسم في قاعدة بيانات

اريد اختار من هذا الاسماء اسم عشوائي

يظهر على الشاشة

وفي كل مرة اختار فيها اسم يتم

ارشفة الاسم في جدول اخر

بحيث لا يتم اختيار الاسم مرة ثانية

المهم الخطوة الثانية مقدور عليها

بس الخطوة الاولى تواجهني فيها مشكلة

كيف اختار الاسم من قاعدة البيانات عشوائيا

انتظر مساعدتكم

بارك الله فيكم

اولا ضع الأسماء فى مصفوفة تبدأ من 0 الى 99

والدالة التالية للإختيار من هذه المصفوفة بدون تكرار

Dim ChooseData As String
Function GetNewNumber() As Integer
    Dim Ch_Name As Integer
Randomize
1:
    rr = Split(ChooseData, "-")
    If UBound(rr) = 99 Then
    MsgBox "لا توجد اختيارت اخرى"
    Exit Function
    End If
    Ch_Name = Round(Rnd() * 100, 0)

    If InStr(1, ChooseData, Ch_Name & "-") > 0 Then GoTo 1
    ChooseData = ChooseData & "-" & Ch_Name
    GetNewNumber = Ch_Name
End Function
Private Sub Command1_Click()
    MsgBox GetNewNumber()
End Sub