Membuat Logika Terbilang Dengan Visual Basic 6.0

Membuat Logika Terbilang Dengan Visual Basic 6.0 | Gho Blog's - Hadir kembali sob,, kali ini saya akan berbagi lagi sedikit ilmu coding dengan bahasa permrograman Visual Basic 6.0.

Posting ini akan membahas tentang pembuatan logika terbilang.
Maksudnya logika terbilang apaan yah....??

Kalo sobat pernah melihat kwitansi pembayaran, sobat akan menemukan nominal dalam bentuk angka dan terbilang. Nah terbilang inilah yang akan kita buat menjadi otomatisasi dengan pemrograman Visual Basic 6.0.

Jika sobat yang sedang mengerjakan sebuah aplikasi Sistem Informasi seperti penjualan, pembelian ataupun pembayaran, dengan logika ini sobat bisa membuat lebih sempurna lagi hasil kerja sobat tersebut, karena nominal terbilang akan muncul secara otomatis berdasarkan nominal angka yang muncul.

Contoh program berikut ini hanyalah sekedar uji coba alias cuma intinya aja,, sobat bisa menyesuaikan aja ntar ma project sobat dan menempatkan scriptnya ditempat yang sesuai pada project. Silakan sobat ikuti langkah-langkah berikut ini :

•  Bikin disain form seperti berikut ini :

• Kemudian masukkan script berikut ini pada bagian coding :

Public Function terbilang(strangka As String, _ Optional matauang As String = "Rupiah") As String Dim strjmlhuruf$, intpecahan As Integer Dim strpecahan$, urai$, bil1$, strtot$, bil2$ Dim x As Integer, y As Integer, z As Integer On Error GoTo pesan Dim strvalid As String, huruf As String * 1 Dim i As Integer strvalid = "1234567890" For i% = 1 To Len(strangka) huruf = Chr(Asc(Mid(strangka, i%, 1))) If InStr(strvalid, huruf) = 0 Then Set angkaterbilang = Nothing MsgBox "harus karakter angka", vbCritical, "Karakter tidak vald" Exit Function End If Next i% If strangka = "" Then Exit Function If Len(Trim(strangka)) > 15 Then GoTo pesan strjmlhuruf = LTrim(strangka) If (intpecahan = 0) Then strpecahan = "" Else strpecahan = LTrim(Str(intpecahan)) + "/100 " End If x = 0 y = 0 urai = "" While (x < Len(strjmlhuruf)) x = x + 1 strtot = Mid(strjmlhuruf, x, 1) y = y + Val(strtot) z = Len(strjmlhuruf) - x + 1 Select Case Val(strtot) Case 1 If (z = 1 Or z = 7 Or z = 10 Or z = 13) Then bil1 = "Satu " ElseIf (z = 4) Then If (x = 1) Then bil1 = "Se" Else bil1 = "Satu " End If ElseIf (z = 2 Or z = 5 Or z = 8 Or z = 11 Or z = 11 Or z = 14) Then x = x + 1 strtot = Mid(strjmlhuruf, x, 1) z = Len(strjmlhuruf) - x + 1 bil2 = "" Select Case Val(strtot) Case 0: bil1 = "Sepuluh " Case 1: bil1 = "Sebelas " Case 2: bil1 = "Dua Belas " Case 3: bil1 = "Tiga Belas " Case 4: bil1 = "Empat Belas " Case 5: bil1 = "Lima Belas " Case 6: bil1 = "Enam Belas " Case 7: bil1 = "Tujuh Belas " Case 8: bil1 = "Delapan Belas " Case 9: bil1 = "Sembilan Belas " End Select Else bil1 = "Se" End If Case 2: bil1 = "Dua " Case 3: bil1 = "Tiga " Case 4: bil1 = "Empat " Case 5: bil1 = "Lima " Case 6: bil1 = "Enam " Case 7: bil1 = "Tujuh " Case 8: bil1 = "Delapan " Case 9: bil1 = "Sembilan " Case Else bil1 = "" End Select If (Val(strtot) > 0) Then If (z = 2 Or z = 5 Or z = 8 Or z = 11 Or z = 14) Then bil2 = "puluh " ElseIf (z = 3 Or z = 6 Or z = 9 Or z = 12 Or z = 15) Then bil2 = "ratus " Else bil2 = "" End If Else bil2 = "" End If If (y > 0) Then Select Case z Case 4: bil2 = bil2 + "Ribu " y = 0 Case 7: bil2 = bil2 + "Juta " y = 0 Case 10: bil2 = bil2 + "Milyar " y = 0 Case 12: bil2 = bil2 + "Trilyun " y = 0 End Select End If urai = urai + bil1 + bil2 Wend urai = urai + strpecahan terbilang = (urai & matauang) Exit Function pesan: terbilang = "(maksimal 15 digit)" End Function

• Kemudian klik ganda pada Text1.Text, dan masukkan script berikut ini :

Private Sub Text1_Change() Label3.Caption = terbilang(Text1.Text) End Sub

• Silakan sobat running program tersebut, dan masukkan angka pada kotak digit, dan lihat hasilnya...,, maka nominal terbilang akan muncul secara otomatis.

Untuk lebih jelasnya, silakan download projectnya disini :

Atau :

Semoga bermanfaat aja tutorial Visual Basic 6.0 yang berjudul Membuat Logika Terbilang Dengan Visual Basic 6.0....,, tunggu posting pemrograman Visual Basic 6.0 lainnya...