|
Membuat Aplikasi 'Terbilang' pada VB6
|
|
Kategori: Artikel
|
|
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) | Selengkapnya...
|
|
|
Selamat Datang Di Suwahadi.Net
|
|
Kategori: Blog
|
|
Minggu, 27 Agustus 2006
|
 Selamat datang dan selamat ketemu kembali di website pribadi saya.
Tak kusangka dan tak kuduga hosting yang selama ini saya pakai dan saya banggakan akhirnya down juga. Padahal bandwith yang ditawarkan dari host web ini lumayan besar. 1 Gb/Month. Ya... namanya juga gratisan, mau bagaimana lagi ? ^_^ udah ada banner-nya, pake' down lagi. Huh... sebel juga 
Beruntung dunia ini tak selebar daun kelor. Masih banyak hosting gratisan yang menawarkan layanan yang lebih menarik dan lebih baik lagi. Sampai pada akhirnya saya menemukan Pandela . Hosting gratisan ini menawarkan bandwith yang lumayan gede, sampai 4 Gb/Month. Wow...
Tak ada salahnya, sayapun tergiur untuk mencicipi layanan ini. Setelah setting DNS untuk mengganti server, saya lanngsung tercengan akan kecepatannya. Lebih-lebih pada saat upload file ke server-nya menggunakan Cute FTP. Yang lebih mencengangkan lagi, hosting disini tidak ada embel-embel iklan alias tanbahan banner, nggak usah susah-susah cari script untuk membuangnya (ho.ho.ho)  Komentar (0) | Selengkapnya...
|
|
|
<< Awal < Sebelum 11 12 13 14 15 Berikut > Akhir >>
|
| Hasil 71 - 72 dari 72 |
