Kalau membalikan malah jauh lebih
gampang..
Spt logika bung aksan :
> jadi ABC = 1 X (26 pangkat 2)
+ 2 X (26 pangkat 1) + 3 X (26 pangkat 0)
> sama dengan ... 791
Jelas sekali bukan?
From: Programmer-VB@yahoogroups.com [mailto:Programmer-VB@yahoogroups.com] On Behalf Of Jenar Suseno
Sent: 21 December 2005 16:42
To: Programmer-VB@yahoogroups.com
Subject: RE: [Programmer-VB]
Konversi Angka ke Huruf ? Ada
yang bisa bantu?
Code nya mas Sistyo Alfan Tribowo kayaknya udah bener,
aku coba sekilas kok hasilnya sepertinya OK..
Makasih atas bantuannya, sekarang tinggal bikin
logika
membaliknya, ato sekalian aja mas Sistyo Alfan
Tribowo
..he..he...
Temen2 emang Luar Biasa...
Sukses untuk semua..
--- Sistyo Alfan Tribowo <[EMAIL PROTECTED]>
wrote:
> 702 ="ZZ". Betul!
>
> Program anda yang salah mas..
>
>
>
> Coba program saya deh.. pasti betul :-)
>
>
>
>
>
> _____
>
> From: Programmer-VB@yahoogroups.com
> [mailto:Programmer-VB@yahoogroups.com]
> On Behalf Of ipinz
> Sent: 21 December 2005 14:47
> To: Programmer-VB@yahoogroups.com
> Subject: Re: [Programmer-VB] Konversi Angka
ke Huruf
> ? Ada
yang bisa bantu?
>
>
>
>
> pertanyaannya 702 bukan "ZZ"
> dapet angka 702 darimana mas???
>
> IpinZ
>
>
> ----- Original Message -----
> From: "Jenar Suseno"
<[EMAIL PROTECTED]>
>
> >' aku udah coba bikin seperti ini
> > ' ini bisa sampai ribuan, tapi hasilnya
rusak pada
> > angka
> > ' kelipatan 26 , 702 harusnya ZZ jadinya
AAZZ
> > ' dan untuk puluhan ribu juga belum bisa
> > ' Ada
perbaikan dari temen-temen?
> >
> > Private Sub Command1_Click()
> > Text2.Text =
rubah(Text1.Text)
> > End Sub
> >
> > Public Function rubah(x As Integer) As
String
> > Dim y As Integer, z As
Integer, h As String, i
> As
> > String
> >
> > h = ""
>
>
>
> Untuk keluar dari millis ini, kirim email
kosong ke:
> [EMAIL PROTECTED]
>
>
>
>
>
>
> _____
>
> YAHOO! GROUPS LINKS
>
>
>
> * Visit your
group "Programmer-VB
> <http://groups.yahoo.com/group/Programmer-VB>
" on
> the web.
>
> * To
unsubscribe from this group, send an email to:
>
[EMAIL PROTECTED]
>
<mailto:[EMAIL PROTECTED]>
>
>
> * Your use of
Yahoo! Groups is subject to the
> Yahoo!
> <http://docs.yahoo.com/info/terms/>
Terms of
> Service.
>
>
>
> _____
>
>
__________________________________________________
Do You Yahoo!?
Tired of spam? Yahoo! Mail has the best spam
protection around
http://mail.yahoo.com
Untuk keluar dari millis ini, kirim email kosong ke:
[EMAIL PROTECTED]
YAHOO! GROUPS LINKS
|
