SOURCE CODE TERBILANG

Source code dalam tutorial ini berfungsi menterjemahkan angka menjadi tulisan terbilang dengan bahasa Indonesia dari besar uang yang dimasukkan ke dalam textbox.

Persiapan : Buatlah desain tampilan tampilan seperti gambar berikut :

Jika sobat selesai membuat form seperti gambar diatas lanjutkan menulis codingnya dengan cara :

Klik View – Code dan tuliskan code berikut :

1. Public Function Terbilang(strAngka As String, Optional MataUang As String = "rupiah") As String
2. Dim strJmlHuruf$, intPecahan As Integer
3. Dim strPecahan$, Urai$, Angka1$, strTot$, Angka2$
4. Dim X As Integer, Y As Integer, z As Integer
5. On Error GoTo Pesan
6. Dim strValid As String, huruf As String * 1
7. Dim i As Integer

1. 'Periksa setiap karakter yg diketikkan ke kotak UserID
2. strValid = "1234567890"
3. For i% = 1 To Len(strAngka)
4. huruf = Chr(Asc(Mid(strAngka, i%, 1)))
5. If InStr(strValid, huruf) = 0 Then
6. Set AngkaTerbilang = Nothing
7. MsgBox "Harus karakter angka!", _
8. vbCritical, "Karakter Tidak Valid"
9. Exit Function
10. End If
11. Next i%
12. If strAngka = "" Then Exit Function
13. If Len(Trim(strAngka)) > 15 Then GoTo Pesan
14. strJmlHuruf = LTrim(strAngka)
15. 'intPecahan = Val(Right(Mid(strAngka, 15, 2), 2))
16. If (intPecahan = 0) Then
17. strPecahan = ""
18. Else
19. 'strPecahan = LTrim(Str(intPecahan)) + "/100 "
20. strPecahan = ""
21. End If
22. X = 0
23. Y = 0
24. Urai = ""
25. While (X < Len(strJmlHuruf))
26. X = X + 1
27. 218
28. strTot = Mid(strJmlHuruf, X, 1)
29. Y = Y + Val(strTot)
30. z = Len(strJmlHuruf) - X + 1
31. Select Case Val(strTot)
32. Case 1
33. If (z = 1 Or z = 7 Or z = 10 Or z = 13) Then
34. Angka1 = "satu "
35. ElseIf (z = 4) Then
36. If (X = 1) Then
37. Angka1 = "se"
38. Else
39. Angka1 = "satu "
40. End If
41. ElseIf (z = 2 Or z = 5 Or z = 8 Or z = 11 Or z = 14) Then
42. X = X + 1
43. strTot = Mid(strJmlHuruf, X, 1)
44. z = Len(strJmlHuruf) - X + 1
45. Angka2 = ""
46. Select Case Val(strTot)
47. Case 0: Angka1 = "sepuluh "
48. Case 1: Angka1 = "sebelas "
49. Case 2: Angka1 = "dua belas "
50. Case 3: Angka1 = "tiga belas "
51. Case 4: Angka1 = "empat belas "
52. Case 5: Angka1 = "lima belas "
53. Case 6: Angka1 = "enam belas "
54. Case 7: Angka1 = "tujuh belas "
55. Case 8: Angka1 = "delapan belas "
56. Case 9: Angka1 = "sembilan belas "
57. End Select
58. Else
59. Angka1 = "se"
60. End If
61. Case 2: Angka1 = "dua "
62. Case 3: Angka1 = "tiga "
63. Case 4: Angka1 = "empat "
64. Case 5: Angka1 = "lima "
65. Case 6: Angka1 = "enam "
66. Case 7: Angka1 = "tujuh "
67. Case 8: Angka1 = "delapan "
68. Case 9: Angka1 = "sembilan "
69. Case Else
70. Angka1 = ""
71. End Select
72. If (Val(strTot) > 0) Then
73. If (z = 2 Or z = 5 Or z = 8 Or z = 11 Or z = 14) Then
74. Angka2 = "puluh "
75. ElseIf (z = 3 Or z = 6 Or z = 9 Or z = 12 Or z = 15) Then
76. Angka2 = "ratus "
77. Else
78. Angka2 = ""
79. End If
80. Else
81. Angka2 = ""
82. End If
83. 219
84. If (Y > 0) Then
85. Select Case z
86. Case 4: Angka2 = Angka2 + "ribu "
87. Y = 0
88. Case 7: Angka2 = Angka2 + "juta "
89. Y = 0
90. Case 10: Angka2 = Angka2 + "milyar "
91. Y = 0
92. Case 13: Angka2 = Angka2 + "trilyun "
93. Y = 0
94. End Select
95. End If
96. Urai = Urai + Angka1 + Angka2
97. Wend
98. Urai = Urai + strPecahan
99. Terbilang = (Urai & MataUang)
100. Exit Function
101. Pesan:
102. Terbilang = "(maksimal 15 digit)"
103. End Function

Terakhir :

Untuk TextBox1 tuliskan codingnya seperti berikut :

1. Private Sub Text1_Change()
2. Label4.Caption = Terbilang(Text1.Text)
3. End Sub

 

 

Technorati Tags: contoh program vb6,contoh fungsi di vb6,cara penggunaan fungsi vb,tutorial vb6,download tutorial vb6,vb6 tutorial download,dasar dasar vb6,belajar vb6,cara mudah belajar vb6,vb6 artikel download,vb6 blog,artikel vb6,semua tentang vb6,vb6 api,cara menggunakan module,cara menggunakan class module