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 --------------------~-->
Fair play? Video games influencing politics. Click and talk back!
http://us.click.yahoo.com/2jUsvC/tzNLAA/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/
