rizaarifudin[dot]com

Berbagi ilmu, pengalaman, tips dan trik, software

You are here: » 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 0 Responses
 

Free Email Newsletter

Stay Updates with this Blog. Get Free email newsletter updates..

And then confirm your email subcription

   

No Comment to “Mengacak Bilangan dengan Tunggal pada VB 6”

  1. No Comment yet. Be the first to comment...
Leave your comment here:

*

Jun
8
2012
 
Archives
Chat
Name:
Email:
For:  
Mail will not be published
(but it's required)