VB Net - Konversi Angka Ke Huruf Dengan

2:41:00 AM
Pada Pembelajaran VB .Net kali ini adalah cara untuk Konversi Angka Ke Huruf Dengan VB .Net
Dengan ini Angka bisa menjadi bilangan berbilang.

Contoh = 100.000
Terbilang "Sepuluh Ribu"

Fungsi ini biasa kami gunakan pada Aplikasi Versi 3.0

Berikut Source Codenya :
 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 (Terbilang("NOL"))
        End If
    End Function
End Module
Jika Pembelajaran diatas bermanfaat untuk anda, kami senang jika anda berkomentar dibawah :)

Salam,
BelajarVB.com

Artikel Terkait

Next Article
« Prev Post
Previous Article
Next Post »
Penulisan markup di komentar
  • Untuk menulis huruf bold silahkan gunakan <strong></strong> atau <b></b>.
  • Untuk menulis huruf italic silahkan gunakan <em></em> atau <i></i>.
  • Untuk menulis huruf underline silahkan gunakan <u></u>.
  • Untuk menulis huruf strikethrought silahkan gunakan <strike></strike>.
  • Untuk menulis kode HTML silahkan gunakan <code></code> atau <pre></pre> atau <pre><code></code></pre>, dan silahkan parse dulu kodenya pada kotak parser di bawah ini.
Konversi Code
Disqus
Silahkan Berkomentar Dengan