Love Timor: Membuat Fungsi Terbilang dengan VB.NET

Cara Membuat Module atau Fungsi Terbilang dengan Visual Basic.NET

Pernahkah anda menerima kwitansi pembayaran? Di kwitansi tersebut biasa adalah Nilai transaksi dan besaran transaksi yang tercetak dengan huruf. Misalnya Rp. 25.000.- maka akan tercetak “Dua Puluh Lima Ribu Rupiah”. Berikut adalah langkah-langkah dalam membuat fungsi terbilang tersebut dengan VB.NET :

Jalankan aplikasi VB.NET

Desain Form1 seperti gambar dibawah ini :

Atur Properties Form1 Seperti table dibawah ini :

No.	Kontrol	Properties
1.	Label	Name : Label1 Text : Module Terbilang
2.	Label	Name : Label2 Text : Masukan Angka
3.	Label	Name : Label3 Text : Terbilang
4.	Label	Name : Label4 Text : Hasil
5.	TextBox	Name : TextBox1 Text :
6.	Button	Name : Button1 Text : Mulai

Langkah selanjutnya adalah membuat satu module terbilang. Klik kanan di project andaà Addà Module. Beri nama Module_terbilang.

Masukan script kode berikut ini kedalam module_terbilang yang baru dibuat.

Option Explicit On
Module Module_terbilang
    Public Function TERBILANG(ByVal x As Double) As String
        Dim tampung As Double
        Dim teks As String
        Dim bagian As String
        Dim i As Integer
        Dim tanda As Boolean

        Dim letak(5)
        letak(1) = "RIBU "
        letak(2) = "JUTA "
        letak(3) = "MILYAR "
        letak(4) = "TRILYUN "

        If (x < 0) Then
            TERBILANG = ""
            Exit Function
        End If

        If (x = 0) Then
            TERBILANG = "NOL"
            Exit Function
        End If

        If (x < 2000) Then
            tanda = True
        End If
        teks = ""

        If (x >= 1.0E+15) Then
            TERBILANG = "NILAI TERLALU BESAR"
            Exit Function
        End If

        For i = 4 To 1 Step -1
            tampung = Int(x / (10 ^ (3 * i)))
            If (tampung > 0) Then
                bagian = ratusan(tampung, tanda)
                teks = teks & bagian & letak(i)
            End If
            x = x - tampung * (10 ^ (3 * i))
        Next

        teks = teks & ratusan(x, False)
        TERBILANG = teks & "RUPIAH"
    End Function

    Function ratusan(ByVal y As Double, ByVal flag As Boolean) As String
        Dim tmp As Double
        Dim bilang As String
        Dim bag As String
        Dim j As Integer

        Dim angka(9)
        angka(1) = "SE"
        angka(2) = "DUA "
        angka(3) = "TIGA "
        angka(4) = "EMPAT "
        angka(5) = "LIMA "
        angka(6) = "ENAM "
        angka(7) = "TUJUH "
        angka(8) = "DELAPAN "
        angka(9) = "SEMBILAN "

        Dim posisi(2)
        posisi(1) = "PULUH "
        posisi(2) = "RATUS "

        bilang = ""
        For j = 2 To 1 Step -1
            tmp = Int(y / (10 ^ j))
            If (tmp > 0) Then
                bag = angka(tmp)
                If (j = 1 And tmp = 1) Then
                    y = y - tmp * 10 ^ j
                    If (y >= 1) Then
                        posisi(j) = "BELAS "
                    Else
                        angka(y) = "SE"
                    End If
                    bilang = bilang & angka(y) & posisi(j)
                    ratusan = bilang
                    Exit Function
                Else
                    bilang = bilang & bag & posisi(j)
                End If
            End If
            y = y - tmp * 10 ^ j
        Next

        If (flag = False) Then
            angka(1) = "SATU "
        End If
        bilang = bilang & angka(y)
        ratusan = bilang
    End Function
End Module

Buka Form1 lalu masukan script code berikut ini :

Public Class Form1
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If TextBox1.Text <> "" Then
            Label4.Text = TERBILANG(Val(TextBox1.Text))
        End If
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.Text = "timoresse.blogspot.com"
    End Sub
End Class

Sekarang Tekan F5 untuk running dan tes program.

Masukan angka ke textbox masukan angka lalu tekan tombol mulai maka Lael hasil akan menampilkan terjemahan kalimat terbilang dari angka tersebut.