Code Generator Nama Secara Acak atau Random di VB6

Pada artikel kali ini saya akan membagikan sebuah kode Generator nama secara acak atau random dengan menggunakan vb6.

Fungsi ini memiliki satu parameter untuk mengatur huruf yang akan digenerate sedangkan nilai defaultnya disni saya menggunakan 8 huruf.

Untuk membuatnya  tambahakan 1 Listbox dan 1 Commandbutton pada Form lalu Anda ketikan kode dibawah ini :

Option Explicit

Private Function NamaAcak(Optional k As Integer = 8) As String

    Dim s(1) As String, l As String

    Dim i As Integer

    Randomize

    s(0) = ("aiueo")

    s(1) = ("abcdfghjklmnpqrstvwxyz")

    For i = 1 To k

        l = l & Mid(s(i Mod 2), Int((8 * Rnd) + 1), 1)

    Next

    NamaAcak = l

End Function

Private Sub Command1_Click()

MsgBox NamaAcak(10), vbInformation, "Hasil" 'menampilkan nama acak yang memiliki jumlah huruf 10

    'sedangkan contoh di bawah akan mengenerate 20 nama acak

    'dengan jumlah huruf 10 karakter

    Dim i As Integer

    List1.Clear

    For i = 1 To 20

        List1.AddItem NamaAcak(6)

    Next

End Sub

Jalankan project Anda, jika tidak ada error maka hasilnya kurang lebih akan tampak seperti pada gambar diatas.

Saya pribadi belum tau apa fungsi dan kegunaan utama dari generate ini, mungkin kalian ada yang tau silahkan tulis dalam komentar.

Demikianlah artikel singkat tentang Code generator nama secara random dengan menggunakan vb6.

Semoga artikel ini bermanfaat buat kita semua,amin.

Selamat mencoba semoga berhasil

Related Post: Aplikasi sederhana