تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[سؤال] امر الاختيار العشوائي
#1
السلام عليكم ورحمة الله وبركاته

اخواني أنا لدي برنامج اختبارات . وامر الاستعلام العشوائي لدي هاكذا

كود :
SELECT      QuestionID, Question, AnswerA, AnswerB, AnswerC, AnswerD, CorrectAnswer
FROM          EntranceQuestion
ORDER BY rnd(QuestionID)

ولكن تكمن المشكلة في انه عند الضغط على الفورم يعيد نفس التكرار . مثل ان يبداء من
7
2
9
1
6

وانا اريده ان يتغير في كل مرة عند الضغط على الفورم . مالحل السهل لهذه المهمة بارك الله فيكم
الرد }}}}
تم الشكر بواسطة:
#2
السلام عليكم ورحمة الله وبركاته

جرب هذا في الجملة
كود :
ORDER BY NEWID()

وإذا ما نفعت استغل هذه الدالة لتعطيك مصفوفة بين رقمين عشوائية بدون تكرار
ومن الناتج أعرض الصفوف بناء على الأرقام العشوائية في المصفوفة
كود :
#Region " RangeRND (minValue As Integer, maxValue As Integer) As Array "
    Public Function RangeRND(ByVal minValue As Integer, ByVal maxValue As Integer) As Array
        If (minValue < 0) Or (minValue >= maxValue) Then Return Nothing
        minValue += 1 : maxValue += 1
        Dim mArray(maxValue - minValue) As Integer
        For i = 0 To (maxValue - minValue)
[lp]:       Randomize()
            Dim mValue As Integer = CInt(Int((maxValue * Rnd()) + minValue))
            For Each r In mArray
                If mValue = r Or mValue > maxValue Then GoTo [lp]
            Next
            mArray(i) = mValue
        Next
        For i = 0 To mArray.Length - 1
            mArray(i) -= 1
        Next
        Return mArray
    End Function
#End Region


وطيقة استخدامها كالتالي
كود :
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

    ' mDataTable بعد تعبئة

    Dim arr() As Integer = RangeRND(1, 15)

    For Each i As Integer In arr
        Me.ListBox1.Items.Add(mDataTable.Rows(i).Item("name"))
    Next

End Sub


السلام عليكم ورحمة الله وبركاته
 
 
@@@ سامحوني، منقطع نهائياً @@@

 
الرد }}}}
تم الشكر بواسطة: العزابي
#3
الف شكر لك جاري التجربة .

تحياتي
الرد }}}}
تم الشكر بواسطة:


التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم