Dim bytRandom As Byte
Dim bytNumbersFound As Byte
Dim blnBuf(1 To 9) As Boolean
Private Sub Command1_Click()
Call Nun1
End Sub
Private Sub Nun1()
'Inicializar random
Randomize
'Vaciar blnBuf
bytNumbersFound = 0
While bytNumbersFound < 1
'Retardar el resultado
For J = 1 To 2000000
bytRandom = Int((Rnd * 9)) + 1
If J Mod 500000 = 0 Then
lblNum(bytNumbersFound) = bytRandom
DoEvents
End If
If mblnStop Then Exit Sub
Next
bytRandom = Int((Rnd * 9)) + 1
If Not blnBuf(bytRandom) Then
blnBuf(bytRandom) = True
bytNumbersFound = bytNumbersFound + 1
lblNum(bytNumbersFound - 1) = bytRandom
Me.Refresh
End If
Wend
Call Nun2
End Sub
Private Sub Nun2()
'Inicializar random
Randomize
'Vaciar blnBuf
bytNumbersFound = 1
While bytNumbersFound < 2
'Retardar el resultado
For J = 1 To 2000000
bytRandom = Int((Rnd * 9)) + 1
If J Mod 500000 = 0 Then
lblNum(bytNumbersFound) = bytRandom
DoEvents
End If
If mblnStop Then Exit Sub
Next
bytRandom = Int((Rnd * 9)) + 1
If Not blnBuf(bytRandom) Then
blnBuf(bytRandom) = True
bytNumbersFound = bytNumbersFound + 1
lblNum(bytNumbersFound - 1) = bytRandom
Me.Refresh
End If
Wend
Call Nun3
End Sub
Private Sub Nun3()
'Inicializar random
Randomize
'Vaciar blnBuf
bytNumbersFound = 2
While bytNumbersFound < 3
'Retardar el resultado
For J = 1 To 2000000
bytRandom = Int((Rnd * 9)) + 1
If J Mod 500000 = 0 Then
lblNum(bytNumbersFound) = bytRandom
DoEvents
End If
If mblnStop Then Exit Sub
Next
bytRandom = Int((Rnd * 9)) + 1
If Not blnBuf(bytRandom) Then
blnBuf(bytRandom) = True
bytNumbersFound = bytNumbersFound + 1
lblNum(bytNumbersFound - 1) = bytRandom
Me.Refresh
End If
Wend
Call Nun4
End Sub
Private Sub Nun4()
'Inicializar random
Randomize
'Vaciar blnBuf
bytNumbersFound = 3
While bytNumbersFound < 4
'Retardar el resultado
For J = 1 To 2000000
bytRandom = Int((Rnd * 9)) + 1
If J Mod 500000 = 0 Then
lblNum(bytNumbersFound) = bytRandom
DoEvents
End If
If mblnStop Then Exit Sub
Next
bytRandom = Int((Rnd * 9)) + 1
If Not blnBuf(bytRandom) Then
blnBuf(bytRandom) = True
bytNumbersFound = bytNumbersFound + 1
lblNum(bytNumbersFound - 1) = bytRandom
Me.Refresh
End If
Wend
'Call Nun5
End Sub