Metoda Random (Acak)

Kode sumber berikut ini adalah metoda untuk mengacak angka tertentu (misal: dari 1 sampai 100), tanpa ada pengulangan angka yang sudah ditampilkan.

Code:


Dim intHimpunan() As Integer

Function AcakPosisi(BatasAwal&, BatasAkhir&) As String
    Dim k, intRange As Integer
    Dim i, intRndUlang As Integer
   
    intRange = BatasAkhir - BatasAwal + 1
   
    ReDim Preserve intHimpunan(1 To intRange) As Integer
   
    For k = 1 To intRange
        Randomize
        intRndUlang = AcakUlang(BatasAwal, BatasAkhir)
                                 
        For i = 1 To k - 1
            Do Until intHimpunan(i) <> intRndUlang
                If intHimpunan(i) = intRndUlang Then
                    intRndUlang = AcakUlang(BatasAwal, BatasAkhir)
                    i = 1
                End If
            Loop
        Next i
     
        intHimpunan(k) = intRndUlang
     
        AcakPosisi = AcakPosisi & intRndUlang & ";"
    Next k
End Function

Private Function AcakUlang(BatasAwal, BatasAkhir)
  AcakUlang = Int((BatasAkhir - BatasAwal + 1) * Rnd + BatasAwal)
End Function

Private Sub cmdTest_Click()
Dim Himpunan$
    Himpunan = AcakPosisi(1, 100)
    Msgbox Himpunan
End Sub