Fungsi Terbilang Sederhana dengan VB.Net 2008

Kali ini saya hendak membuat aplikasi sederhana tentang fungsi terbilang dengan bahasa indonesia di VB.Net 2008. Fungsi terbilang merupakan fungsi untuk mencetak kalimat yang mendeskripsikan suatu bilangan. Okay, pertama-tama buat tampilan sederhana program kita seperti berikut ini :

Apabila sudah, masukkan kode fungsi berikut ini:

   Public Function Terbilang(ByVal nilai As Long) As String  
     Dim bilangan As String() = {"", "satu", "dua", "tiga", "empat", "lima", _  
     "enam", "tujuh", "delapan", "sembilan", "sepuluh", "sebelas"}  
     If nilai < 12 Then  
       Return " " & bilangan(nilai)  
     ElseIf nilai < 20 Then  
       Return Terbilang(nilai - 10) & " belas"  
     ElseIf nilai < 100 Then  
       Return (Terbilang(CInt((nilai \ 10))) & " puluh") + Terbilang(nilai Mod 10)  
     ElseIf nilai < 200 Then  
       Return " seratus" & Terbilang(nilai - 100)  
     ElseIf nilai < 1000 Then  
       Return (Terbilang(CInt((nilai \ 100))) & " ratus") + Terbilang(nilai Mod 100)  
     ElseIf nilai < 2000 Then  
       Return " seribu" & Terbilang(nilai - 1000)  
     ElseIf nilai < 1000000 Then  
       Return (Terbilang(CInt((nilai \ 1000))) & " ribu") + Terbilang(nilai Mod 1000)  
     ElseIf nilai < 1000000000 Then  
       Return (Terbilang(CInt((nilai \ 1000000))) & " juta") + Terbilang(nilai Mod 1000000)  
     ElseIf nilai < 1000000000000 Then  
       Return (Terbilang(CInt((nilai \ 1000000000))) & " milyar") + Terbilang(nilai Mod 1000000000)  
     ElseIf nilai < 1000000000000000 Then  
       Return (Terbilang(CInt((nilai \ 1000000000000))) & " trilyun") + Terbilang(nilai Mod 1000000000000)  
     Else  
       Return ""  
     End If  
   End Function  

Fungsi diatas adalah inti dari aplikasi kita ini. Untuk menempatkan kalimat kita menggunakan tool label dengan properti Autosize dibuat False serta borderstyle dibuat Fixed3D.

Untuk memudahkan anda, anda dapat mendownload aplikasi sederhana ini di link dibawah / di akhir postingan.

Download klik disini.