منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

نسخة كاملة : مثال على جلب ارقام من قاعدة البيانات وحفظها في مصفوفة
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
مساء الخير اخواني

اذا ممكن انا محتاج كود او مثال على جلب مجموعة ارقام متسلسلة من قاعدة البيانات وحفظها في مصفوفة بطريقة عشوائية

للتوضيح .. تكون الارقام في قاعدة البيانات كالتالي :
1
2
3
4
5
6
7
8
9
10


واريد جلبها من قاعدة البيانات جميعها وحفظها في مصفوفة بطريقة عشوائية على النحو التالي

(5،4،7،10،6،9،2،1،3،9،8)

اريدها ان تكون في المصفوفة بطريقة عشوائية


*************************************
وايضا اذا ممكن كود يعرف اكبر رقم في قاعدة البيانات وانشاء كل مرة رقم عشوائي من 1 الى اكبر عدد بالقاعدة .. وسيقوم بفحص اذا كان الرقم موجود في مصفوفة او لا .. اذا غير موجود يتم اضافته الى المصفوفة

المهم ما يكون في تكرار للارقام بالمصفوفة ويكون كل الارقام موجودة كما كانت في قاعدة البيانات ولكن تخزن بالمصفوفة بطريقة عشوائية


وشكرا لكم

يرجى إفادتي بأسرع وقت ممكن
فيما يختص ب جلب البيانات من الداتا بيز ف الأمر متروك لك لكن فيما يختص ببقية السؤال فيمكن تعريف مصفوفة للارقام
PHP كود :
 Dim list As List(Of Integer) = New List(Of Integer

ثم تضيف لها الارقام كما تريد إما من الداتا بيز او مثل التالي

PHP كود :
For 0 To 10
            list
.Add(i)
 
       Next 


ثم تقوم بإنشاء مصفوفة أخري للارقام العشوائية .....بالرغم إن نا مش فاهم السبب في عمل Randoize للارقام لكن الكود التالي سوف يقوم بعمل ما تريد

PHP كود :
       Dim randomList = list.ToArray()
 
       Dim r = New Random()
 
       For i As Integer = list.Count To 2 Step -1
            Dim j 
As Integer r.[Next](i)
 
           Dim t randomList(j)
 
           randomList(j) = randomList(1)
 
           randomList(1) = t
        Next 


هذا الكود فقط للتاكد من كيفية استخدام الارقام العشوائية بشكل ما
PHP كود :
       For Each item As Integer In randomList
            
' do something with randomlist
            ListBox1.Items.Add(item)
        Next 

هذه الاكواد للحصول علي اعلي قيمة و اقل قيمة في كل من المصفوفتان

PHP كود :
       Dim max As Integer randomList.Max
        Dim min 
As Integer randomList.Min

        
'' أو'

        Dim maxValue As Integer = Me.list.Max
        Dim minValue As Integer = Me.list.Min 
in form1 write this:-
randomize
_______________
for i = 1 to 10
s i = data.feild1 mod int(rnd*10
_______________
for j = 1 to 10
print s i

هذا كل ما استطيع مساعتك به ... وشكراً...
اعتقد ان صاحب السؤال ،، سؤاله متعلق في انتقاء اسئله عشوائه من قاعدة البيانات ،،، يعني برنامج مسابقات ،، اذا كان كذلك ،، فاقتراحي لك بالاستفاده من الاكواد التي بالاعلى و الاعضاء ما قصروا :

اولا : توليد عشره ارقام عشوائه يبدا من اول رقم في قاعدة البيانات الى اخر رقم مدى اختيار الرقم العشوائي
ثانيا : البحث في قاعدة البيانات بالارقام العشوائيه التي تم اختيارها مثال على ذلك
Select Q From TableName Where Q_ID='1' OR Q_ID = '6' Or Q_ID = '30' Or Q_ID = '24' OR ... الى اخره
أو
Select Q From TableName Where Q_ID In ( '1' , '6' , '30' , '24' )
myalsailamyشكراًجزيلا علي الموضوع اود التواصل مع الاستاذ 

الايمل ديلي elgahel_ahmed@live.it
او لو تكرمت ممك تسيبلي الايمل ديلك هني او اكتبلي عندي مو ضوع شبيه الي هذا واريد الماعده