[rexson98]

paano po kumuha ng random questions sa database??

[miste3rio]

Originally Posted by rexson98

paano po kumuha ng random questions sa database??

Just randomize the ID of each question.

something like this

if you have a table of Question that with ID, Question, Answer field

ID, Question, Answer
1, ..... ,.....
2, .... , ...

Just randomize the value of ID Field...

[rexson98]

paano po ung hindi na ma uulit ung question?

[miste3rio]

Try to understand this example:

Private Incre As Integer
Private xt(9) As Integer
Private Sub Command1_Click()
Dim i() As Integer
Dim x As Integer
Dim r As Boolean




Command1.Enabled = False
r = True
Do ' infinite loop
    Randomize
    x = Fix(Rnd(1) * 10)
    If x = 0 Then x = 1
    For j = 0 To 8
        If x = xt(j) Then
           r = True
           Exit For
        Else
           r = False
        End If
    Next
    
    If r = False Then
        xt(Incre - 1) = x
        Label1.Caption = x
        Command1.Enabled = True
        Exit Do
    
    End If
Loop
Incre = Incre + 1
If Incre = 10 Then
MsgBox "asdfasdfasdF"
For x = 0 To 8
    Debug.Print xt(x)
Next
End If
End Sub


Private Sub Form_Load()
Incre = 1
End Sub