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

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

* CIRI-CIRI DISTRIBUSI POISSON

* Hasil percobaan pada suatu selang waktu dan tempat tidak tergantung dari hasil percobaan di selang waktu dan tempat yang lain yang terpisah

* Peluang terjadinya suatu hasil percobaan sebanding dengan panjang selang waktu dan luas tempat percobaan terjadi. Hal ini berlaku hanya untuk selang waktu yang singkat dan luas daerah yang sempit

* Peluang bahwa lebih dari satu hasil percobaan akan terjadi pada satu selang waktu dan luasan tempat yang sama diabaikan

Jika pertanyaan disini mengacu kepada MEMBANGKITAN BILANGAN ACAK dengan MENGGUNAKAN DISTRIBUSI POISSON seperti AAA AAB AAC dan tidak ada perulangan kembali.

Terlampir File RANDOM ACAK2XAN VERSI 2.xls
Pada file ini saya mencoba mengkonversi karakter (A,B,C,D,E,F...dst) Menjadi integer dan sebaliknya. (Dikonversi karena Syntax Rnd(number) bukan Char ataupun string)
- Integer (Fungsi : itoc )- > Karakter.... OK (Syntax : chr(charcode as Long)) dari integer ke karakter
- Karakter (Fungsi : ctoi ) - > Integer .... int(number) --- > tidak bisa langsung
' ---------------------------------------------------------------------------------------------------------------------'
' Konversi Integer ke Karakter
Public Function itoc(ByVal n As Integer) As String
     Dim arr_data() As String
     Dim m_text As String
     Dim m_bagi As Integer, nchar As String

     m_text = "A,B,C,D,E,F,G,H,I,J,K,L,M,N,O,P,Q,R,S,T,U,V,W,X,Y,Z"
     arr_data = Split(m_text, ",")

     If n < 27 Then
         itoc = arr_data(n - 1)
     Else
         m_bagi = n \ 26
         nchar = n Mod 26
         If nchar = 0 Then nchar = 1
         itoc = arr_data(m_bagi - 1) & arr_data(nchar - 1)
     End If
End Function

' Konversi Karakter ke Integer
Public Function ctoi(ByVal s As String) As Integer

     Dim n As Integer, b As Integer
     If Len(Trim(s)) = 1 Then
          ctoi = Asc(UCase(s)) - 64
     ElseIf Len(Trim(s)) = 2 Then
         n = Asc(Left$(UCase(s), 1)) - 64
         b = Asc(Right$(UCase(s), 1)) - 64
         ctoi = (n * 26) + b
     End If
End Function
' ---------------------------------------------------------------------------------------------------------------------'

sehingga pada contoh SAYA HANYA MENGGUNAKAN satu inputan SATU KARAKTER (Saya gak tau apa dari TETANGGA SEBELAH ada yang dapat memecahkan KONVERSI DARI CHAR ke INT--> Menggunakan PURE Macro VBA NOT Recorded MACRO)

Karena : penghafalan kosakata bahasa jepang. maka saya donlod font katakana di :

http://www.fonts4free.net/dsplus/m.php?p=katakana.zip

untuk di gunakan di excel (attachment : penampakan.pdf).

"Juga dapat ditampilkan di sheet, bahkan lebh cepat :
' Tampil ke sheet memang cepet.....langsung aja
Dim InputSheet As Worksheet
Dim r As Integer
Private Sub UserForm_Activate()
Set InputSheet = ActiveSheet
r = 1
For i = 97 To 122
    For J = 97 To 122
        For K = 97 To 122
            InputSheet.Cells(r, 1) = Chr(i) & Chr(J) & Chr(K)
            r = r + 1
        Next
    Next
Next
End Sub

...
Puthut Wibowo

--- On Sat, 9/12/09, siti Vi <setiyowati.devi@gmail.com> wrote:

From: siti Vi <setiyowati.devi@gmail.com>
Subject: Re: ]] XL-mania [[ random tanpa berulang hasilnya
To: XL-mania@yahoogroups.com
Date: Saturday, September 12, 2009, 3:21 AM

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. com>
> 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@yahoogroup s.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 (10) 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

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

__,_._,___

Hot Fox

sábado, 12 de setembro de 2009

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

Nenhum comentário:

Arquivo do blog