Sepertinya bukan seperti itu juga. Misal ada kata
AAA 1
BBB 2
CCC 3
DDD 2
EEE 0
FFF 3
GGG 2
HHH 2
Keterangan:
1. Setiap kata itu muncul dan diterka benar oleh user maka angka disampingnya itu akan ditambah satu ; angka = angka +1
2. Tapi jika salah maka dikurangi 1 ; angka = angka -1, jika angkanya 0 gak dikurangi
3. Jika kata tersebut sudah bernilai 3 maka dia tidak akan diinput sebagai data lagi ( keluar dari list random)
4. Artinya satu kata itu jika belum bernilai 3, akan muncul beberapa kali
5. Masalah yg muncul adalah, misal kata EEE yg bernilai 0,
Random#1 = keluar EEE dan terkaannya benar oleh user maka nilainya jadi 1
Di random#2, kemungkian EEE keluar lagi ada, jika benar lagi maka nilainya jadi 2
Di random#3, kemungkinan EEE keluar ada lagi, dan jika terkaannya benar maka nilainya jadi 3
Di random#4, kemungkian EEE, tidak akan keluar Karena nilainya udah 3.
6.
Sejauh ini saya memakai algoritma seperti ini
Dari data diatas k = 6
K
1 AAA
2 BBB
3 DDD
4 EEE
5 GGG
6 HHH
- | Ambil kata yg bukan nilainya 3|
- | Hitung berapa byak data = k|
- | Randomize| -> mereset seeder, katanya biar Rnd() gak oon
- | int (k*rnd()+1|
- |Check hasil random| à jika data yg keluar sama dengan data sebelumnya1 or sebelumnya2 or sebelumnya 3 or sebelumnya4, hasilrand =hasilrand+1
- |check penambahan hasilrand| -> jika penambahan sudah besar dari k, hasilrand balik lagi ke 1 à hasilrand =1, go to point e |check hasil random|
- |Udah gak sama| -> jika sudah gak sama baru ditampilkan
.
Pada langkah e, jika hasilrand sama dengan nilai sebelumnya1 , or sebelumnya 2, or sebelumnya3, or sebelumnya4, sengaja tidak melakukan random lagi untuk menghindari infinite looping, maka dipilih cara shift kebawah , hasilrand=hasilrand
Seperti itu mungkin, Thanks, Riky
From:
Sent: 12 September 2009 3:22
To:
Subject: Re: ]] XL-mania [[ random tanpa berulang hasilnya
Lho.? Yg diminta pemunculan ACAK,
YANG DIBERIKAN data URUT
yaitu urutan hasil PERMUTASI aaa sd zzz
Kebetulan saya juga punya keperluan seperti pak riky, yaitu
punya sejumlah data kata, lalu ingin memunculkan data kata tsb
satu per satu, tetapi pemunculannya secara acak.
Katakan misalnya data itu bernomor 1 sampai 100
Yang saya inginkan (dan mungkin pak riky inginkan) adalah:
Dalam satu sessi, setiap kita minta, data yg dimunculkan misalnya :
DATA No.5, lalu DATA No. 99, lalu 63, kemudian 24, terus 51 dst (urutan acak);
tetapi DATA yg sudah ditampakkan (dlm sessi itu) tidak akan muncul lagi,
sampai 100 data dimunculkan semua.
Pada sessi berikutnya pemunculan 100 kata harus dengan urutan yg
tidak sama dengan urutan yg terjadi di sessi pertama; demikian seterusnya.
Dengan makro kiriman bapak Puthut itu (yg hasilnya harus ditunggu cukup lama
karena mengandung loop 26 pangkat 3 perulangan itu), saya masih tidak tahu
bagaimana cara menerapkannya untuk memenuhi keperluan seperti di atas.
Mohon bantuan pak Puthut untuk memberikan pencerahannya.
hormat kami,
siti
catatan:
dengan RUMUS / FORMULA biasa, hasil pekerjaan seperti makro pak putut itu
juga dapat ditampilkan di sheet, bahkan lebh cepat
( di milis sebelah, pernah ada topik membahas hal ini)
------------
2009/9/11 Puthut Wibowo <puthut_vai@yahoo.
> 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@
> From: Riky Yonathan <riky.yonathan@
> Subject: ]] XL-mania [[ random tanpa berulang hasilnya
> To: XL-mania@yahoogroup
> 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;
| 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 |
+-------------------------------------------------------------------+
Change settings via the Web (Yahoo! ID required)
Change settings via email: Switch delivery to Daily Digest | Switch format to Traditional
Visit Your Group | Yahoo! Groups Terms of Use | Unsubscribe
Nenhum comentário:
Postar um comentário