Fungsi Terbilang di Visual Basic

Fungsi ini digunakan untuk mengeja sebuah bilangan, agar bilangan yang dimaksud tidak dapat dimanipulasi secara manual. Hal ini biasanya digunakan pada saat pencetakan kuitansi / nota penjualan.

Silahkan letakkan fungsi ini pada modul

Module1.vb
Public Function Terbilang(ByVal X As Long) As String
	Dim sWords() As String = New String() {"", "satu", "dua", "tiga", "empat", "lima", "enam", "tujuh", "delapan", "sembilan", "sepuluh", "sebelas"}

	If X < 12 Then
		Terbilang = " " & sWords(X)
	ElseIf X < 20 Then
		Terbilang = Terbilang(X - 10) & " belas"
	ElseIf X < 100 Then
		Terbilang = Terbilang(X \ 10) & " puluh" & Terbilang(X Mod 10)
	ElseIf X < 200 Then
		Terbilang = " seratus" & Terbilang(X - 100)
	ElseIf X < 1000 Then
		Terbilang = Terbilang(X \ 100) & " ratus" & Terbilang(X Mod 100)
	ElseIf X < 2000 Then
		Terbilang = " seribu" & Terbilang(X - 1000)
	ElseIf X < 1000000 Then
		Terbilang = Terbilang(X \ 1000) & " ribu" & Terbilang(X Mod 1000)
	ElseIf X < 1000000000 Then
		Terbilang = Terbilang(X \ 1000000) & " juta" & Terbilang(X Mod 1000000)
	ElseIf X < 1000000000000 Then
		Terbilang = Terbilang(X \ 1000000000) & " milyar" & Terbilang(X Mod 1000000000)
	Else
		Terbilang = ""
	End If
End Function

Contoh cara pemanggilan fungsi pada form

Form1.vb
Private Sub btn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn.Click
	lblTerbilang.Text = Terbilang(12345)
End Sub

Selamat mencoba.