Rizaarifudin.info - Mengacak Bilangan dengan Tunggal pada VB 6

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.

Posted by riza 0 Responses