استفسار بخصوص رقم حساب ,PIN code

السلام عليكم

هل من رد على سوالى ؟؟

السلام عليكم ورحمه الله وبركاته

اختي جربي الكود التالي

Dim list As New ArrayList

        	For i As Integer = 1 To 10
            	'Add the numbers to the collection.
            	list.Add(i)
        	Next i

        	Dim rand As New Random
        	Dim index As Integer
        	Dim item As Object

        	'Display the items in random order.
        	While list.Count > 0
            	'Choose a random index.
            	index = rand.Next(0, list.Count)

            	'Get the item at that index.
            	item = list(index)

            	'Remove the item so that it cannot be chosen again.
            	list.RemoveAt(index)

            	'Display the item.
            	MessageBox.Show(item.ToString())
        	End While

كما يمكنك عمل PIN Code وذلك عند اضافة اي حساب جديد قومي بعمل استعلام يجلب عدد الحسابات المخزنه واضيفي 1 لها ومن ثم استخدمي الدالة Format ليكون الرقم من 6 خانات

Format(Count+1,"000000")

بارك الله فيك اخى

بس حاول تشرحلى الكود شوى شوى

انى غيرت المسج بوك لتكست بوك علاش اشوف الارقام طلعلى رقم من 11 خانة

ياريت تعطينى شوى توضيح وبوركت

السلام عليكم ورحمه الله وبركاته

اختي استبدلي السطر التالي

index = rand.Next(0, list.Count)

بـ

 index = rand.Next(0, 999999)

اخى جربته التغيير ولكن عند التتبع يظهرلى خطأ لان index هنا بعد التغيير تعطينى رقم افتراضى متكون من 6 ارقام وعند اسنادها للمتغير iteme

اقتباس

item = list(index)

فهل الغى while ام مادا ؟؟ لكى اضمن عدم تكرار

السلام عليكم ورحمه الله وبركاته

اختي خلاص سيبيك من الكود السابق وجربي الكود التالي

Dim rnd As New Random()
    	MessageBox.Show(rnd.Next(0, 999999))