Hot Fox: Re: ]] XL-mania [[ random tanpa berulang hasilnya

quinta-feira, 10 de setembro de 2009

Re: ]] XL-mania [[ random tanpa berulang hasilnya

om om coba syntax dibawah ini oom :

For i = 97 To 122
    For J = 97 To 122
        For K = 97 To 122
            ListBox1.AddItem Chr(i) & Chr(J) & Chr(K)
        Next
    Next
Next
' selesai
MsgBox " Ooom-oom dah jadi oom...enak oom."

file nya terlampir oom

--- On Thu, 9/10/09, Riky Yonathan <riky.yonathan@gmail.com> wrote:

From: Riky Yonathan <riky.yonathan@gmail.com>
Subject: ]] XL-mania [[ random tanpa berulang hasilnya
To: XL-mania@yahoogroups.com
Date: Thursday, September 10, 2009, 10:22 PM

Dear all,

Saya mencoba membuat tool kecil kecilan di excel untuk penghafalan kosakata bahasa jepang.

Saya merandom list dari kata kata tersebut, kemudian ditampilkan dengan userform.

Tapi masalahnya hasil randoman tersebut sering berulang, sehingga terasa menjemukan, kata kata yg keluar itu itu melulu.

Misal : ada 10 kata ; AAA BBB CCC DDD EEE FFF GGG HHH III JJJ

Saya pakai syntax : int(10*Rnd() +1)

Menghasilkan hasil yg cenderung berulang, misalnya yg keluar CCC CCC melulu padahal yg lain missal JJJ atau AAA tidak pernah keluar .

Bagaimana caranya agar perulangan tadi misal setelah keluar CCC pada random pertama, di random yg kedua CCC tidak keluar lagi.

Terimakasih atas bantuannya;

__._,_.___

Messages in this topic (6) Reply (via web post) | Start a new topic

Messages

+-:: XL-mania ::::::::::::::::::::----------------------------------+
| Ada lowongan jadi direktur ga? Hubungi momods please... :D        |
| http://www.facebook.com/group.php?gid=37671048001&ref=mf          |
+-------------------------------------------------------------------+
| DILARANG : MLM, money game, OOT, iklan tanpa izin, SARA, testing, |
| pembicaraan pribadi, one line message, melecehkan, tidak sopan. |
+-------------------------------------------------------------------+
| Buat subjek yang kreatif, jangan : "tanya", "help", "mohon bantu" |
| Usahakan besar attachment < 200 kb. Gunakan winzip jika perlu. |
+-------------------------------------------------------------------+
| Ajak teman-teman Anda bergabung dengan mengirim e-mail kosong ke |
| XL-mania-subscribe@yahoogroups.com atau kirimkan mereka file dari |
| http://groups.yahoo.com/group/XL-mania/files/Promotion/           |
+-------------------------------------------------------------------+
| Berikan testimoni di : http://www.friendster.com/xlmania atau... |
| http://www.xl-mania.com/2008/06/testimoni-xl-mania.html           |
+-------------------------------------------------------------------+
| Message lama ada di :                                             |
| http://groups.yahoo.com/group/XL-mania/messages [perlu yahoo id] |
| http://www.mail-archive.com/xl-mania@yahoogroups.com              |
+-------------------------------------------------------------------+

MARKETPLACE

Mom Power: Discover the community of moms doing more for their families, for the world and for each other