maksudnya bgini bukan
dim Hasil as string
Hasil=""
for I=0 to 9
Acak = Int ( Rnd * 9)
Hasil=Trim(Hasil) & Str(A(Acak))
next i
dengan asumsi aray A sudah punya nilai (0 atau 1) dan indexnya 0-9
sori kalo salah ngertiin pertanyaannya
Salam
Awin
vbYono Oke <[EMAIL PROTECTED]> wrote:
Gimana Yang diacak dalam bentuk array:
A[0]=1
A[1]=1
A[2]=0
A[3]=0
sebanyak 10 kali menghasilkan Bilangan biner seperti
[0001],[1001],Mas bisa bantuin ya???
--- Axwen Alstair <[EMAIL PROTECTED]> wrote:
> nambahin aje ye ..
>
> Acak = Int ( Rnd * 10 ) ' acak angka 1 sampe 10
>
> ' Rnd akan menghasilkan bilangan decimal 0 sampai
> 1 secara acak
> ' setelah itu dikalikan 10 dan dibulatkan dengan
> fungsi Int
> ' hasilnya jadi angka acak dari 1 ampe 10
> ' kalo mao ampe 100 or 1000000 tinggal ganti aja
> bilangan pengali-nya
> ' di form_Load() kasih Randomize biar angka bener2
> acak
>
> selamat mencoba
>
>
> ali suparman <[EMAIL PROTECTED]> wrote:
> Mas Wandi,
> coba pelajari teknik RANDOMIZE, dengan
> memanfaatkan data/variable array bisa digunakan
> untuk permainan acak huruf. Saya pernah coba untuk
> mengacak urutan angka dari 1-6 (sebenarnya tidak
> terbatas).
>
>
> Wandi <[EMAIL PROTECTED]> wrote:
> Dear All,
>
> ada yang tau dengan program acak angka ga ??
> semacam undian gitu !
>
>
>
>
>
> ---------------------------------
> Be a better friend, newshound, and know-it-all
> with Yahoo! Mobile. Try it now.
>
>
>
>
> ---------------------------------
> Be a better friend, newshound, and know-it-all with
> Yahoo! Mobile. Try it now.
__________________________________________________________
Be a better friend, newshound, and
know-it-all with Yahoo! Mobile. Try it now.
http://mobile.yahoo.com/;_ylt=Ahu06i62sR8HDtDypao8Wcj9tAcJ
---------------------------------
Be a better friend, newshound, and know-it-all with Yahoo! Mobile. Try it now.
