Cara Membuat Code Generator Nomor Secara Unik dengan VB6

Pada artikel yang lalu Admin sudah membagikan kode generator huruf atau abjad dimana hasil yang digenerat berupa nama, walaupun menghasilkan nama yang tidak beraturan.

Namun pada artikel kali ini Admin akan membagikan sebuah kode yang tidak jauh berbeda dengan generator huruf, dimana pada artikel kali ini Admin akan membagikan sebuah kode generator berupa angka yang akan menghasilkan nomor secara unik dimana angka ini akan menghasilkan angka yang tidak akan pernah sama satu sama lainnya.

Untuk lebih jelasnya tentang hasil generat angka perhatikan gambar dibawah ini :

Generator Angka

Pada gambar diatas adalah hasil generat angka dengan angka maksimal 100.

Bagaiaman cara membuatnya ?

1. Tambahkan 1 buah Listbox dan 1 buah Commandbutton pada Form

2. Tambahkan kode dibawah ini :

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

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

Jika sudah menuliskan kode diatas jalankan project Anda.

Jika tidak ada error maka hasilnya kurang lebih seperti gambar diatas.

Demikian artikel kali ini tentang cara membuat kode generator nomor secara unik dengan visual basic 6.0.

semoga artikel ini bermanfaat buat kita semua, Amin.

Selamt mencoba sempaga berhasil

Related Post: Tools