Membuat Fungsi Terbilang dengan C# dan VB.NET

Assalamu'alaikum agan semua, karena sudah lama sekali tidak memposting pada pagi hari ini saya kembali lagi memposting tutorial - tutorial yang mungkin bermanfaat untuk agan semua,
oke kali ini saya akan memposting tentang Membuat Fungsi Terbilang dengan C# dan VB.NET

Apa itu fungsi terbilang ?
fungsi terbilang adalah fungsi yang digunakan untuk mengubah angka menjadi kalimat dalam bahasa indonesia

Langkah - langkah Membuat Fungsi Terbilang dengan C# dan VB.NET

1. Buat sebuah project baru di visual studio anda, dengan nama fungsi_terbilang

2. Tambahkan 2 buah textbox dan 1 button lalu atur lokasi object seperti dibawah ini

3. buat sebuah fungsi dengan nama fungsi terbilang lalu isikan code dibawah ini
C#

private string terbilang(int angka)
{
   string strterbilang = "";
   // membuat array untuk mengubah 1 - 11 menjadi terbilang
   string[] a = { "", "satu", "dua","tiga","empat","lima","enam","tujuh","delapan","sembilan","sepuluh","sebelas" };

    if (angka < 12)
    {
        strterbilang = " " + a[angka];
    }
    else if (angka < 20)
    {
        strterbilang = this.terbilang(angka - 10) + " belas";
    }
    else if (angka < 100)
    {
         strterbilang = this.terbilang(angka / 10) + " puluh" + this.terbilang(angka % 10);
    }
    else if (angka < 200)
    {
         strterbilang = " seratus" + this.terbilang(angka - 100);
    }
    else if (angka < 1000)
    {
         strterbilang = this.terbilang(angka / 100) + " ratus" + this.terbilang(angka % 10);
    }
    else if (angka < 2000)
    {
        strterbilang = " seribu" + this.terbilang(angka - 1000);
    }
    else if (angka < 1000000)
    {
         strterbilang = this.terbilang(angka / 1000) + " ribu" + this.terbilang(angka % 1000);
    }
    else if (angka < 1000000000)
    {
         strterbilang = this.terbilang(angka / 1000000) + " juta" + this.terbilang(angka % 1000000);
    }

   // menghilangkan multiple space
   strterbilang = System.Text.RegularExpressions.Regex.Replace(strterbilang, @"^\s+|\s+$", " ");
   // mengembalikan hasil terbilang
   return strterbilang;

VB.NET

Private Function terbilang(ByVal angka As Integer) As String
        Dim strterbilang As String = ""
        ' membuat array untuk mengubah 1 - 11 menjadi terbilang
        Dim a As String() = {"", "satu", "dua", "tiga", "empat", "lima", "enam", "tujuh", "delapan", "sembilan", "sepuluh", "sebelas"}

        If (angka < 12) Then
            strterbilang = " " + a(angka)
        ElseIf (angka < 20) Then
            strterbilang = Me.terbilang(angka - 10) + " belas"
        ElseIf (angka < 100) Then
            strterbilang = Me.terbilang(angka / 10) + " puluh" + Me.terbilang(angka Mod 10)
        ElseIf (angka < 200) Then
            strterbilang = " seratus" + Me.terbilang(angka - 100)
        ElseIf (angka < 1000) Then
            strterbilang = Me.terbilang(angka / 100) + " ratus" + Me.terbilang(angka Mod 100)
        ElseIf (angka < 2000) Then
            strterbilang = " seribu" + Me.terbilang(angka - 1000)
        ElseIf (angka < 1000000) Then
            strterbilang = Me.terbilang(angka / 1000) + " ribu" + Me.terbilang(angka Mod 1000)
        ElseIf (angka < 1000000000) Then
            strterbilang = Me.terbilang(angka / 1000000) + " juta" + Me.terbilang(angka Mod 1000000)
        End If

        ' menghilangkan multiple space
        strterbilang = System.Text.RegularExpressions.Regex.Replace(strterbilang, "^\s+|\s+$", " ")
        ' mengembalikan hasil terbilang
        Return strterbilang
End Function

4. Klik 2 kali pada button1 lalu tambahkan script dibawah ini
C#

// menampilkan hasil dari fungis terbilang ke textbox 2 berdasarkan angka dari textbox 1
            textBox2.Text = this.terbilang(Convert.ToInt32(textBox1.Text)).TrimStart();

VB.NET

        ' menampilkan hasil dari fungis terbilang ke textbox 2 berdasarkan angka dari textbox 1
        textBox2.Text = LTrim(Me.terbilang(Convert.ToInt32(textBox1.Text)))

5. Jalankan project yang kita buat dengan menekan tombol F5 maka akan seperti gambar dibawah ini