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

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

أخواني أنا لدي لدي سجلات ولدي Button لتقديم السجلات للأمام .

ولدي مصفوفة من أخي أبو رائد واريد أن أستخدم المصفوفة والتي تنتج

رقم عشوائي ان أستخدمها في Button بحيث تنتج المصفوفة رقم ثم بعدد الناتج يضيفه

لزر Button لتقديم السجلات .

سبب الطلب .
عندي برنامج أختبارات اريد أن يظهر الإسئلة مختلفة في كل مرة ويتغير ترتيب الاسئلة . وانا اشوف انها اسرع طريقة
http://vb4arb.com/vb/showthread.php?tid=535

عفوا لم أوضح مااريد

اريد كود للبوتون أستخدمه عند فتح الصفحة أن يقدم السجلات بعدد الناتج الي خرج لي من المصفوفة (i)

كود :

Dim randomValue As Integer

Dim DS As New DataSet

Dim B As Integer

كود :

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

SUB1()

Me.BindingContext(DS, "A").Position = randomValue

End Sub

كود :

Sub SUB1()

        Dim Sel As String = "SELECT Question AS E FROM table1 "

        Dim con As New SqlConnection("ConnectionString")

        If con.State = ConnectionState.Open Then con.Close()

        con.Open()

        Dim DataAdapter1 As New SqlDataAdapter(Sel, con)

        DS.Clear()

        DataAdapter1.Fill(DS, "A")

        con.Close()

        TextBox1.DataBindings.Add("Text", DS, "A.E")

        B = Me.BindingContext(DS, "A").Count

        SUB2()

        Me.BindingContext(DS, "A").Position = randomValue

    End Sub

كود :

Sub SUB2()

        Dim generator As New Random

        randomValue = generator.Next(0, B)

    End Sub

كود :

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

SUB2()

Me.BindingContext(DS, "A").Position = randomValue

End Sub

والله أعلي وأعلم
Rolleyes

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

العزابي

Genius Live