Cara Acak Huruf Abjad Menjadi sebuah Kata dengan VB6

Pada pertemuan kali ini Saya akan berbagi trik yaitu cara mengacak huruf abjad menjadi sebuah kata yaitu huruf A sampai Z, dimana hasil dari acakan huruf ini adalah sebuah kata yang tidak beraturan bahkan hasilnyapun adalah kata-kata yang tidak ada dikamus yah namanya juga hurufnya diacak susunan hurufnyapun berantakan membentuk kata yang aneh..

Berikut dibawah ini adalah hasil acak  huruf menggunakan VB6

Output

Bagaiamana apakah Anda penasaran bagaimana cara membuatnya?, caranya gampang yaitu cukup tambahkan 1 Commandbuton dan 1 TextBox pada Form, kemudian copy kode dibawah ini di bagian (General)- (Declaration) :

Option Explicit

Public Function RandomString(Optional Max As Integer = 5) As String

 Dim sAlpha As String

 Dim iLoop As Integer

 Dim iRandNum As Integer

 Dim sMatch As String

 Dim str As String

 sAlpha = "abcdefghijklmnopqrstuvwxyz"

 Randomize

 For iLoop = 1 To Max

     iRandNum = Int((26 - 1 + 1) * Rnd + 1)

     sMatch = Mid(sAlpha, iRandNum, 1)

     str = str & sMatch

 Next iLoop

 RandomString = str

End Function

Private Sub Command1_Click()

Text1.Text = RandomString

End Sub

Private Sub Form_Load()

Text1.Text = ""

End Sub

Setelah mengetikan kode diatas sekarang jalankan project Anda kemudian tekan tombol Acak maka pada textbox akan muncul hasil acakan huruf yang membentuk kata kata yang aneh.Untuk melihat hasil yang berbeda tekan tombol Acak berkali-kali.

Demikianlah artikel pada kali ini membahas tentang cara mengacak Huruf abjad menjadi sebuah kata di VB6.Semoga atikelini bermanfaat buat kita semua.Amin

Selamat mencoba semoga sukses

Related Post: Uncategories