mas ardhit_coky,
makasih atas responnya
hanya saja, dgn metode yg diusulkan terdapat mslh. yaitu hasil pengacakannya
bisa berulang. misal harusnya dari 1,2,3,4,5 menjadi 2,1,1,4,5
kmdn lagi ada masalah jika seandainya arraynya bukan urutan angka.
tapi makasih buat responnya
-----Original Message-----
From: [email protected] [mailto:[EMAIL PROTECTED] On Behalf Of
ardhit_coky
Sent: Monday, September 03, 2007 2:16 AM
To: [email protected]
Subject: [Programmer-VB] Re: cara meng-acak array
Saya coba jawab ya, mudahan bisa.
contohnya untuk arr(5) aja ya..
Sebelumnya buat array Text1 nya 5 dulu ya....
copy paste code berikut
Private Sub Form_Load()
Dim arr(5) As Long
Dim a%
Dim b%
For i = 0 To 5
a = Rnd * 5
arr(i) = a
b = a
Text1(i).Text = b
Next i
End Sub
---------------------------------
Yahoo! oneSearch: Finally, mobile search that gives answers, not web links.
