Mungkin para teman-teman developer VB .Net diminta oleh perusahaannya untuk membuat fungsi terbilang yang akan tercetak apabila di Print.

Berikut ini kode fungsi terbilang menggunakan VB .Net

  • - Buatlah sebuah module
  • - Ketikkan kode dibawah

    Fungsi Ambil Koma

        Public Function AmbilSblmKoma(ByVal NilaiNya As Decimal) As Decimal
        Dim hSl As Decimal

        hSl = Left(NilaiNya, InStr(NilaiNya, ",") - 1)
        Return hSl

    End Function

    Fungsi Konversi

    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 &#038; bagian &#038; letak(i)
            End If
            x = x - tampung * (10 ^ (3 * i))
        Next

        teks = teks &#038; ratusan(x, False)
        TERBILANG = teks &#038; "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 &#038; angka(y) &#038; posisi(j)
                    ratusan = bilang
                    Exit Function
                Else
                    bilang = bilang &#038; bag &#038; posisi(j)
                End If
            End If
            y = y - tmp * 10 ^ j
        Next

        If (flag = False) Then
            angka(1) = "SATU "
        End If
        bilang = bilang &#038; angka(y)
        ratusan = bilang
    End Function
    
End Module
  • Anda bisa memanggil fungsi TERBILANG di kode VB .Net anda

Incoming search terms for the article:

Category: Komputer, Programming
Tags: ,