Membuat fungsi terbilang VB .Net

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

view plaincopy to clipboardprint?
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
view plaincopy to clipboardprint?
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:
terbilang
terbilang vb net
fungsi terbilang
fungsi terbilang vb net
vb net
function vb net
fungsi dim pada vb
fungsi vb net
fungsi terbilang vb
fungsi vb

Category: Komputer, Programming
Tags: Programming, VB .Net