Transmenu powered by JoomlArt.com - Mambo Joomla Professional Templates Club

Kategori

Tulisan Terakhir
Congratulations... Masih Pedulikah ??? Jadwal EURO 2008 Hari² itu... Elok... Rokok ini Membunuhku... Cinta ini Membunuhku... Alex(a) Lagi Baik Re-Launcing: Alumni-Smansa.Com Mari Melamun...

Komentar Terakhir

Cinta ini Membunuhku...

thx untuk infonya ttg lirik lagu andra &...

20/07/08 00:31, 00:31 >>>

Komentar Oleh: raddith

Tips untuk Remaja IT

cinta tuh jahat cinta tuh indah bgt ci...

19/07/08 12:47, 12:47 >>>

Komentar Oleh: adam

Aneka Cara Download Video Yout...

coba software ini... di jamin maknyussss...

19/07/08 11:50, 11:50 >>>

Komentar Oleh: wonk

Download Multiply Music Disabl...

tetep gak bisa bos..... ada caara l...

17/07/08 04:01, 04:01 >>>

Komentar Oleh: girineville

Masih Pedulikah ???

karena wanita ingin dimengerti mas bukan...

08/07/08 16:20, 16:20 >>>

Komentar Oleh: wulan

Afiliasi
Alumni-Smansa CyberMandiri Dannis Moslem Wear GameQuarters NamaKamu UD. Jati Alam

Blogroll
Alixwijaya Anangku Cempluk Dedek Edi Psw Gempur Jufri.Info Khuclukz Rahardja Rizky Blog TikaBanget Xarom

Blogroll

Depan

Artikel

Membuat Aplikasi 'Terbilang' pada VB6

(1 Penilaian)

Sabtu, 09 September 2006

Function Num2Word(ByVal n As Currency) As String 'max 2.147.483.647
Dim satuan As Variant
satuan = Array("", "Satu", "Dua", "Tiga", "Empat", "Lima", "Enam", "Tujuh", "Delapan", "Sembilan", "Sepuluh", "Sebelas")
Select Case n 'keadaan
    Case 0 To 11
        Num2Word = " " + satuan(Fix(n))
    Case 12 To 19
        Num2Word = Num2Word(n Mod 10) + " Belas"
    Case 20 To 99
        Num2Word = Num2Word(Fix(n / 10)) + " Puluh" + Num2Word(n Mod 10)
    Case 100 To 199
        Num2Word = " Seratus" + Num2Word(n - 100)
    Case 200 To 999
        Num2Word = Num2Word(Fix(n / 100)) + " Ratus" + Num2Word(n Mod 100)
    Case 1000 To 1999
        Num2Word = " Seribu" + Num2Word(n - 1000)
    Case 2000 To 999999
        Num2Word = Num2Word(Fix(n / 1000)) + " Ribu" + Num2Word(n Mod 1000)
    Case 1000000 To 999999999
        Num2Word = Num2Word(Fix(n / 1000000)) + " Juta" + Num2Word(n Mod 1000000)
    Case Else
        Num2Word = Num2Word(Fix(n / 1000000000)) + " Milyar" + Num2Word(n Mod 1000000000)
End Select
End Function

Private Sub Text1_Change()
On Error Resume Next

If Text1.Text <> "" Then
   Label1.Caption = Num2Word(Text1.Text) + " Rupiah"
Else
   Label1.Caption = ""
End If
End Sub

Komentar (2)

1. Ditulis oleh Alamat Email inidilindungi dari bot spam, Anda Harus Mengaktifkan Javascript Untuk Melihatnya , pada 28-11-2007 11:19, 11:19 , IP: 202.154.62.193
bagus tuh.... congrat ya...

tapi nggak bisa baca \'SeRibu, ... Se ratus... dst..\" ya?

2. Ditulis oleh Alamat Email inidilindungi dari bot spam, Anda Harus Mengaktifkan Javascript Untuk Melihatnya , pada 13-01-2008 06:09, 06:09 , IP: 80.92.96.52
Hi Irv, I don't know what you were thinking here dude! You got a pretty model (altho kind of old), but you have caught her with her eyes cloes in a not very good pose. Biggest problem is YOU NEED CROP to a vertical!!!!! Backdrop is too small and there is not enough of a sweep so you can see the crease. If you send me a file I can fix it in Photoshop and I can give you my suggested crop. If you don't care aboout your PROFESSIONALISM you are never going to get 15
20
27work as a pro believe me!!! Hope I am not being too harsh. Oh well best regards anyway, M.H.

Beri Komentar untuk Topik ini
Silakan untuk mengisi komentar yang tidak keluar dari topik artikel. Semua komentar yang tidak berhubungan akan segera dihapus. Termasuk semua link yang digunakan untuk kepentingan spam marketing dsb.
Nama:
E-mail:
Website:
BBCode:
Komentar:
Kode:*
	I wish being prevented by email of the comments which will follow