sori ada salah informasi, > jadi ABC = 1 X (26 pangkat 2) + 2 X (26 pangkat 1) + 3 X (26 pangkat 0) > sama dengan ... 791
harusnya 731 lalu semua operator "\" diganti menjadi operator mod. aksan kurdin Pada tanggal 12/20/05, Aksan Kurdin <[EMAIL PROTECTED]> menulis: > Logikanya dulu, > ini kayaknya main kombinasi > XXX > > untuk tiga angka di atas, > tempat pertama (paling kanan) bisa di isi dari A sampai Z, jadi ada 26 > kemungkinan > tempat kedua (tengah) bisa di isi dari A sampai Z, jadi ada 26 kemungkinan > juga > tempat ketiga (paling kiri) bisa di isi dari A sampai Z, jadi ada 26 > kemungkinan juga > > total jumlah kemungkinan (AAA,BGH,ZAA, .... sampai ZZZ) ada 26 X 26 X > 26 kemungkinan, dan bisa dibuat konversi urut berdasarkan abjad. > > kesimpulannya total kemungkinan dari n posisi (dalam hal ini 3 posisi) > bisa dihitung sebanyak 26 pangkat n. > > Contoh huruf ABC, itu kalau dikonversikan angka menjadi berapa ? > A=1 > B=2 > C=3 > jadi ABC = 1 X (26 pangkat 2) + 2 X (26 pangkat 1) + 3 X (26 pangkat 0) > sama dengan ... 791 > > Untuk membalikkannya berarti dilakukan pohon faktor terhadap 26 . > 731 sama dengan berapa abc-nya ? > > 731/ 26 = 28 > 731\ 26 = 3-> 3 di simpan, lalu 28 diproses lagi > > 28 / 26 = 1 > 28 \ 26 = 2 > > kalau di sederhanakan pembagiannya: > > 731 > 26 -------- 3 > 28 > 26 -------- 2 > 1 > > bacanya: 731bagi 26 dapet 28 sisa 3 > 28 bagi 26 dapet 1 sisa 2 > > lalu sisa semua di baca dari bawah menjadi : 123 > lalu kita konversikan: > 1=A > 2=B > 3=C > > maka 731 = ABC > > contoh lain? > > 1500=abc? > > 1500 > 26 --------18 = R > 57 > 26 -------- 5 = E > 2 = B > > > jadi 1500 = BER > > > > nah, logikanya sudah ketemu, tinggal menerjemahkan ke vb-nya silakan > ...... saya belum punya waktu luang untuk ini.... > > > aksan kurdin > > > > > 2005/12/20, Purwedi Kurniawan <[EMAIL PROTECTED]>: > > ' mas jenar, fungsi berikut cuman saya test u angka 1 sampai 702, buat angka > > ' diatas itu kayaknya masih belum bisa, mgk yg lain bisa nambahin > > > > Option Explicit > > ' > > Public Function NumToCase(iNum As Integer) As String > > Dim iMod As Integer, iDiv As Integer, sResult As String > > > > iDiv = iNum \ 27 > > iMod = iNum Mod 27 > > If iNum <= 26 Then > > sResult = Chr(iDiv + iMod + 64) > > Else > > sResult = Chr(iDiv + 64) & Chr(iDiv + iMod + 64) > > End If > > > > NumToCase = sResult > > End Function > > ' > > Public Sub Test() > > Debug.Print NumToCase(702) > > End Sub > > ' > > > > best regards > > [wwn] > > > > On 12/20/05, Jenar Suseno <[EMAIL PROTECTED]> wrote: > > > Minta petujuk ..... > > > > > > Aku mau buat konversi angka ke huruf, misalnya 1 jadi > > > A, 2 jadi B,..26 jadi Z, 27 jadi AA..., trus 702 jadi > > > ZZ, nah...bgmn ya logika programnya supaya berapapun > > > angkanya akan dibuat konversinya ke huruf? > > > > > > makasih > > > > > > jenar > > > > > > > > > > > > > > Untuk keluar dari millis ini, kirim email kosong ke: > > [EMAIL PROTECTED] > > > > > > Yahoo! Groups Links > > > > > > > > > > > > > > > > > ------------------------ Yahoo! Groups Sponsor --------------------~--> Most low income homes are not online. Make a difference this holiday season! http://us.click.yahoo.com/5UeCyC/BWHMAA/TtwFAA/k7folB/TM --------------------------------------------------------------------~-> Untuk keluar dari millis ini, kirim email kosong ke: [EMAIL PROTECTED] Yahoo! Groups Links <*> To visit your group on the web, go to: http://groups.yahoo.com/group/Programmer-VB/ <*> To unsubscribe from this group, send an email to: [EMAIL PROTECTED] <*> Your use of Yahoo! Groups is subject to: http://docs.yahoo.com/info/terms/
