Mengacak Bilangan dengan Tunggal pada VB 6
Setelah sekian lama tidak posting, akhirnya baru sempet posting lagi di blog ini. Beberapa waktu lalu saya dan teman mengembangkan blog saya di database.rizaarifudin.com. Nah, kali ini saya akan menyampaikan bagaimana membangkitkan data random yang muncul dengan tunggal (Mengacak Bilangan dengan Tunggal pada VB 6). Mungkin cukup simpel, tapi penerapannya bisa digunakan pada masalah Algoritma Genetika ataupun masalah2 lain yang memerlukan data acak yang harus tunggal. Tidak perlu panjang lebar, langsung saja ke TKP. 😛
Pertama kita desain sebuah form di Ms Visual Basic 6.0 seperti gambar berikut ini:
Untuk Source Codenya adalah sebagai berikut:
Private Sub CmdAcak_Click() Dim acak2() As Integer ReDim acak2(Val(txtRendah) To Val(txttinggi)) As Integer List1.Clear Randomize Do y = 1 a = Val(txtRendah) + Int(Rnd() * txttinggi) If i > 1 Then For j = 1 To i If a = acak2(j) Then y = 2 If y = 2 Then Exit For Next j End If If y = 1 Then i = i + 1 acak2(i) = a List1.AddItem acak2(i) End If Loop Until i = Val(txttinggi) End Sub
Semoga tulisan ini dapat sedikit membantu dan bermanfaat bagi Anda.
Free Email Newsletter
And then confirm your email subcription
No Comment to “Mengacak Bilangan dengan Tunggal pada VB 6”