Membuat angka terbilang

Function Konversi angka menjadi terbilang Rupiah Mungkin ada yang masih bertanya-tanya, bagaimana cara konversi sebuah angka menjadi terbilang di textbox…??? Sebenernya hal ini tidaklahterlalu sulit,cukup ada kemauan untuk sedikit explorasi dalam membuat logika listing, OK…dari pada puyeng mikirin logikanya gimana, langsung deh disimak ajah ni tayangan dibawah

Pertama-tama, buatlah deklarasinya dahulu :

1. Public Function terbilang(x As Currency)   
2. Dim triliun As Currency   
3. Dim milyar As Currency   
4. Dim juta As Currency   
5. Dim ribu As Currency   
6. Dim satu As Currency   
7. Dim sen As Currency   
8. Dim baca As String     
9. ‘Jika x adalah 0, maka dibaca sebagai 0   
10. If x = 0 Then baca = angka(0, 1)   
11. Else ‘Pisah masing-masing bagian untuk triliun, milyar, juta, ribu, rupiah, dan sen   
12. triliun = Int(x * 0.001 ^ 4)   
13. milyar = Int((x - triliun * 1000 ^ 4) * 0.001 ^ 3)   
14. juta = Int((x - triliun * 1000 ^ 4 - milyar * 1000 ^ 3) / 1000 ^ 2)   
15. ribu = Int((x - triliun * 1000 ^ 4 - milyar * 1000 ^ 3 - juta * 1000 ^ 2) / 1000)   
16. satu = Int(x - triliun * 1000 ^ 4 - milyar * 1000 ^ 3 - juta * 1000 ^ 2 - ribu * 1000)   
17. sen = Int((x - Int(x)) * 100)   
18. ‘Baca bagian triliun dan ditambah akhiran triliun   
19. If triliun > 0 Then   
20. baca = ratus(triliun, 5) + “triliun ”   
21. End If   
22.   
23. ‘Baca bagian milyar dan ditambah akhiran milyar   
24. If milyar > 0 Then   
25. baca = ratus(milyar, 4) + “milyar ”   
26. End If   
27.   
28. ‘Baca bagian juta dan ditambah akhiran juta   
29. If juta > 0 Then   
30. baca = baca + ratus(juta, 3) + “juta ”   
31. End If   
32.   
33. ‘Baca bagian ribu dan ditambah akhiran ribu   
34. If ribu > 0 Then   
35. baca = baca + ratus(ribu, 2) + “ribu ”   
36. End If   
37.   
38. ‘Baca bagian satuan   
39. If satu > 0 Then   
40. baca = baca + ratus(satu, 1) + “rupiah ”   
41. Else baca = baca + “rupiah ”   
42. End If   
43.   
44. ‘Baca bagian sen dan ditambah akhiran sen   
45. If sen > 0 Then   
46. baca = baca + ratus(sen, 0) + “sen”   
47. End If   
48. End If   
49. terbilang = UCase(Left(baca, 1)) & LCase(Mid(baca, 2))   
50. End Function    
51.   
52. Function ratus(x As Currency, posisi As Integer) As String   
53. Dim a100 As Integer, a10 As Integer, a1 As Integer   
54. Dim baca As String a100 = Int(x * 0.01) a10 = Int((x - a100 * 100) * 0.1) a1 = Int(x - a100 * 100 - a10 * 10)   
55.   
56. ‘Baca Bagian Ratus   
57. If a100 = 1 Then   
58. baca = “Seratus ”   
59. Else If a100 > 0 Then   
60. baca = angka(a100, 2) + “ratus ”   
61. End If   
62. End If   
63.   
64. ‘Baca Bagian Puluh dan Satuan   
65. If a10 = 1 Then   
66. baca = baca + angka(a10 * 10 + a1, 2)   
67. Else If a10 > 0 Then   
68. baca = baca + angka(a10, 2) + “puluh ”   
69. End If   
70. If a1 > 0 Then   
71. If posisi = 2 And a100 = 0 And a10 = 0 Then   
72. baca = baca + angka(a1, 1)   
73. Else   
74. baca = baca + angka(a1, 2)   
75. End If   
76. End If   
77. End If   
78. ratus = baca   
79. End Function    
80. Function angka(x As Integer, posisi As Integer)   
81. Select Case x Case 0: angka = “Nol”   
82. Case 1:   
83. If posisi = 2 Then   
84. angka = “Satu ”   
85. Else   
86. angka = “Se”   
87. End If   
88. Case 2: angka = “Dua ”   
89. Case 3: angka = “Tiga ”   
90. Case 4: angka = “Empat ”   
91. Case 5: angka = “Lima ”   
92. Case 6: angka = “Enam ”   
93. Case 7: angka = “Tujuh ”   
94. Case 8: angka = “Delapan ”   
95. Case 9: angka = “Sembilan ”   
96. Case 10: angka = “Sepuluh ”   
97. Case 11: angka = “Sebelas ”   
98. Case 12: angka = “Dua belas ”   
99. Case 13: angka = “Tiga belas ”   
100. Case 14: angka = “Empat belas ”   
101. Case 15: angka = “Lima belas ”   
102. Case 16: angka = “Enam belas ”   
103. Case 17: angka = “Tujuh belas ”   
104. Case 18: angka = “Delapan belas ”   
105. Case 19: angka = “Sembilan belas ”   
106. End Select   
107. End Function  

Keterangan diatas :
Jika "x"=0 maka akan dibaca sebagai "0" namun jika bukan "0",maka akan dibagi ke berbagai macam bentuk satuan rupiah...
Memisahkan triliun,milyar,juta,ribu,rupiah dan sen. jika yang terbaca digit untuk triliun,maka akan menambahkan "triliun" di akhir angka terbilangnya,begitu juga dengan "milyar,juta,ribu,rupiah,dan sen".
Nah Untuk pemanggilannya nanti sangat mudah,cukup ketikan formatnya :
target.text=nama function nya
Contoh : Text1.text=terbilang

Untuk eventnya kalian letakkan di event Text_Change jadi saat textbox tsb mengalami perubahan,ia akan terus mengkonversi angka-angka yang kalian masukkan di dalamnya.

Cuma itu penjelasan yang bisa saya berikan disini, untuk pertanyaan atau hal lainnya. . . silahkan tinggalkan komentar kalian Cuma itu penjelasan yang bisa saya berikan disini, untuk pertanyaan atau hal lainnya. . . silahkan tinggalkan komentar kalian Cuma itu penjelasan yang bisa saya berikan disini, untuk pertanyaan atau hal lainnya. . . silahkan tinggalkan komentar kalian

Semoga Bermanfaat