]] XL-mania [[ Bisakah Excel dijadikan 'TukangBagi' kartu Poker ?

 

Bisa !

Maksod loh ??

maksudnya.. kartu itu kan sudah Jlazz !  katanya 52 lembar, terdiri dari 4 macEm... 

(hearts, diamond, clubs, spades); 

atau kalau di kampungku: Waru Abang, Wajik, Kriting, Waru Ireng  ( ikh.. ndèsit banget sih...)

tiap kartu; selain kita beri nama (sbg data) dapat kita beri nomor Unik berupa nomor urut 1 sd 52

nomor urut kartu yang UNIK & sudah urut itu dapat kita bolak-balik-bolak secara ACAK !

(jangan mendelik dulu: Unik kok Acak.. how can...!)

nomor urut itu tetap (1~ 52) hanya keurutannya yg di-acak-acak; hasilnya (pada sebuah 

kolom lain) mungkin dapat diistilahkan sbg Randomized-Order of Uniq-Numbers.

(wis di-uawwuurrr aé lah.. yen penonton-é ora trimo - mengko dijak tawuran aé.. mari..)

so...! sekaleee lageee, angka urutnya tetap, urutannya yg diacak

(banyak orang menanyakan ini dengan cara menyusun kata-kata pertanyaan yg gak jelas, 

lucu, malah ada yg menimbulkan "mendelik" spt di atas ( lha wong UNIQ kok ACAK ...

gimana sih sampeyan kiye.., aja kaya kuwek la.. )

mengacak urutan nomor unik yg semula urut tidak terlalu sulit; caranya dengan 

** membuat kolom tambahan di sebelah kirinya

** kolom baru kita isi angka acak ( lha ini.. benar benar acak!!); yaitu diisi dengan formula  

   =RAND()  gitu saja;  atau biar keren dikittss..  =1+INT(RAND() * 9999)

kontan saja ! penampakan di kolom baru tsb (kita sebut 'Randomizer') adalah angka yg acak, 

baik nilainya maupun urutnnya, yg namanya acak, you know,  bisa kembar dgn temannya!

Ya No-Problemo-lah Mo! (, Paimo)

kedua kolom sekarang dapat kita anggap SATU KESATUAN TABEL (list) bahkan satu 

kesatuan dengan kolom berisi data / Nama-Tiap-Kartu.

(nantinya ada rencana untuk diintegrasikan dengan  N K R I  !!)

select lah dia (range) atau mereka (cells) itu, sayangi, dan kemudian arahkan pandangan ke 

Tool-Bar-Standard  sembari cari gambar (aikon) Sort-Ascending / lambang A panah Z

Tahap terakhir 

** membuat 4 range ( tiap range = 13 cell sekolom), bayang kan ini sebagai "4 pemain poker" 

   yg masing-masing akan menerima 13 kartu yg sudah di resuffle !

** di situ anda tinggal menulis rumus Index(KolomNamaKartu, IndexygSudahDiacak)

** setiap kolom (13 cells) tadi mendapat jatah seperempat dari kolom "AngkaUrutYgSudahDiAcak"

Kalau anda sedang lega, dan berkenan membuka workbook lampiran, maka sambil lihat worksheetnya 

mungkin lebih gampang membayangkannya

di worksheet, praktek mensortir tidak dengan intervensi tangan dan mouse seperti di atas;

tetapi cukup dapat digantikan dengan Formula:

=MOD(SMALL(KolomRandomizer+(KolomNomorUrut/100),KolomNomorUrut),1)*100

misalnya kartu poker bukan hanya 52 lembar (2 digit) teapi  99999 (5 digit) lembar, maka 

rumusnya harap diubah menjadi

=MOD(SMALL(KolomRandomizer+(KolomNomorUrut/10^5),KolomNomorUrut),1)*10^5

Pengacakan kemballi cukup dengan menekan tombolfungsi F9

Terlampir file contohnya, (jika anda mengakses posting ini jauh hari setelah tgl posting; dan ingin 

tetap mendapat jatah attachment, atau siti lupa meng-attached file tsb, silaken unduh sendiri di sini

http://www.box.net/shared/gbo9n2m40k

Bluewater, 24 mar 2011

-siti-

bisanya main kartu 'cangkulan'

__._,_.___

Reply to sender | Reply to group | Reply via web post | Start a New Topic

Messages in this topic (1)

Recent Activity:

• New Members 93

Visit Your Group

+-:: XL-mania ::::::::::::::::::::----------------------------------+
| silakan klik... ada buku nih.... dijamin bukan "bom buku"...      |
| http://goo.gl/iQauc... btw kalau ada kerjaan enak kabarin momods  |
| 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              |
+-------------------------------------------------------------------+

Switch to: Text-Only, Daily Digest • Unsubscribe • Terms of Use

.

__,_._,___