VB6 Code - Generate Nomor Secara Unik

Di bawah ini merupakan fungsi VB6 yang berlaku sebagai sebuah generator agar menampilkan nomor secara unik (tidak ada yang sama satu dengan yang lainnya). Adapun kode VB6 untuk melakukannya adalah sebagai berikut:

Option Explicit

Private Function GenRanUnix(MIN As Integer, MAX As Integer) As Collection

    Dim iMax As Integer
    Dim iRan As Integer
    Dim g As Integer
    Dim y As Integer
    Dim c As New Collection
    Dim k As New Collection
    Dim f As Integer
    Dim x As Integer
    
    For f = MIN To MAX
        c.Add f
    Next
    
    y = c.Count
    Randomize
    
    For x = 1 To y
        g = Int(y * Rnd + 1)
        k.Add c.Item(g)
        c.Remove g
        y = c.Count
    Next
    
    Set GenRanUnix = k
 
End Function

Contoh penggunaan fungsi VB6 di atas:

Private Sub Command1_Click()
    Dim b As New Collection
    Dim i As Integer
    Dim msg As String
     List1.Clear
    Set b = GenRanUnix(0, 100)
    For i = 1 To b.Count
        List1.AddItem b.Item(i)
    Next
End Sub

Demikian mengenai cara membuat fungsi VB6 untuk men-generate nomor secara unik.