Cara Membuat Fungsi Angka Terbilang di VB.NET

Jika sebelumnya saya buat tutorial Cara Membuat Fungsi Angka Terbilang di VB 6.0, nah sekarang saya akan buat Cara Membuat Fungsi Angka Terbilang di VB.NET. Pada intinya Angka Terbilang berfungsi untuk memudahkan user untuk mengeja nilai mata uang yang diinputkan. Berikut ini adalah cara membuatnya sebagai berikut :

Cara Membuat Fungsi Angka Terbilang di VB.NET

Langkah 1
Pertama kita buat project baru, kemudian tambahkan komponen Label dan Textbox lalu atur dan desain form seperti ini :

Cara Membuat Fungsi Angka Terbilang di VB.NET

Langkah 2
Klik kanan pada area form yang kosong lalu pilih View Code atau tekan F7 pada keyboard untuk masuk ke bagian coding seperti ini :

Cara Membuat Fungsi Angka Terbilang di VB.NET

Lalu masukkan kode untuk membuat fungsi angka terbilang seperti ini :
'membuat fungsi angka terbilang
    Public Function AngkaTerbilang(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 AngkaTerbilang(nilai - 10) & " Belas"
        ElseIf nilai < 100 Then
            Return (AngkaTerbilang(CInt((nilai \ 10))) & " Puluh") + AngkaTerbilang(nilai Mod 10)
        ElseIf nilai < 200 Then
            Return " Seratus" & AngkaTerbilang(nilai - 100)
        ElseIf nilai < 1000 Then
            Return (AngkaTerbilang(CInt((nilai \ 100))) & " Ratus") + AngkaTerbilang(nilai Mod 100)
        ElseIf nilai < 2000 Then
            Return " Seribu" & AngkaTerbilang(nilai - 1000)
        ElseIf nilai < 1000000 Then
            Return (AngkaTerbilang(CInt((nilai \ 1000))) & " Ribu") + AngkaTerbilang(nilai Mod 1000)
        ElseIf nilai < 1000000000 Then
            Return (AngkaTerbilang(CInt((nilai \ 1000000))) & " Juta") + AngkaTerbilang(nilai Mod 1000000)
        ElseIf nilai < 1000000000000 Then
            Return (AngkaTerbilang(CInt((nilai \ 1000000000))) & " Milyar") + AngkaTerbilang(nilai Mod 1000000000)
        ElseIf nilai < 1000000000000000 Then
            Return (AngkaTerbilang(CInt((nilai \ 1000000000000))) & " Trilyun") + AngkaTerbilang(nilai Mod 1000000000000)
        Else
            Return ""
        End If
    End Function
Langkah 3
Kembali ke desain form, lalu doubleklik pada TextBox1 seperti ini :

Cara Membuat Fungsi Angka Terbilang di VB.NET

Lalu masukkan kode program seperti ini :
'menampilkan angka terbilang saat input nominal
    Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
        If TextBox1.Text <> "" Then
            TextBox2.Text = AngkaTerbilang(TextBox1.Text) + "Rupiah"
        Else
            TextBox2.Text = ""
        End If
    End Sub
Langkah 4
Sekarang jalankan programnya, jika benar maka hasilnya akan seperti ini :

Cara Membuat Fungsi Angka Terbilang di VB.NET

Selesai..

Sekian tutorial Cara Membuat Fungsi Angka Terbilang di VB.NET, jika ada yang masih bingung dengan tutorial ini silahkan download projectnya dibawah ini. Terimakasih, selamat mencoba dan semoga bermanfaat..

Link Download
via Google Drive

Belum ada Komentar untuk "Cara Membuat Fungsi Angka Terbilang di VB.NET"

Posting Komentar

Silahkan tuliskan komentar Kamu yang sesuai dengan isi topik postingan halaman ini. Please don't SPAM!

Iklan Atas Artikel

Iklan Tengah Artikel 1

Iklan Tengah Artikel 2

Iklan Bawah Artikel