Cara Membuat Fungsi Angka Terbilang di VB 6.0

Kali ini saya akan berbagi tutorial tentang Cara Membuat Fungsi Angka Terbilang di VB 6.0. Fungsi Angka Terbilang adalah untuk memudahkan user untuk membaca nominal angka uang yang ditransaksikan dan biasanya fungsi ini digunakan pada dokumen kwitansi penjualan ataupun slip setoran pada bank. Berikut ini adalah cara membuatnya sebagai berikut :

Cara Membuat Fungsi Angka Terbilang di VB 6.0

Langkah 1
Silahkan kalian buat project baru, kemudian tambahkan komponen Label dan Text lalu desain form seperti ini :

Cara Membuat Fungsi Angka Terbilang di VB 6.0

Langkah 2
Kita masuk kebagian coding, pertama klik kanan pada area form yang kosong lalu pilih View Code atau tekan F7 pada keyboard seperti ini :

Cara Membuat Fungsi Angka Terbilang di VB 6.0

Lalu masukkan kode untuk membuat fungsi angka terbilang seperti ini :
'membuat fungsi angka terbilang
Public Function AngkaTerbilang(ByVal nilai As Currency) As String
Dim satuan As Variant
satuan = Array("", "Satu", "Dua", "Tiga", "Empat", "Lima", "Enam", "Tujuh", "Delapan", "Sembilan", "Sepuluh", "Sebelas")
Select Case nilai
    Case 0 To 11
        AngkaTerbilang = " " + satuan(Fix(nilai))
    Case 12 To 19
        AngkaTerbilang = AngkaTerbilang(nilai Mod 10) + " Belas"
    Case 20 To 99
        AngkaTerbilang = AngkaTerbilang(Fix(nilai / 10)) + " Puluh" + AngkaTerbilang(nilai Mod 10)
    Case 100 To 199
        AngkaTerbilang = " Seratus" + AngkaTerbilang(nilai - 100)
    Case 200 To 999
        AngkaTerbilang = AngkaTerbilang(Fix(nilai / 100)) + " Ratus" + AngkaTerbilang(nilai Mod 100)
    Case 1000 To 1999
        AngkaTerbilang = " Seribu" + AngkaTerbilang(nilai - 1000)
    Case 2000 To 999999
        AngkaTerbilang = AngkaTerbilang(Fix(nilai / 1000)) + " Ribu" + AngkaTerbilang(nilai Mod 1000)
    Case 1000000 To 999999999
        AngkaTerbilang = AngkaTerbilang(Fix(nilai / 1000000)) + " Juta" + AngkaTerbilang(nilai Mod 1000000)
    Case Else
        AngkaTerbilang = AngkaTerbilang(Fix(nilai / 1000000000)) + " Milyar" + AngkaTerbilang(nilai Mod 1000000000)
End Select
End Function
Langkah 3
Kembali ke desain form, lalu doubleklik pada Text1 seperti ini :

Cara Membuat Fungsi Angka Terbilang di VB 6.0

Lalu masukkan kode program seperti ini :
'angka terbilang tampil ketika input nominal
Private Sub Text1_Change()
On Error Resume Next
If Text1.Text <> "" Then
    Text2.Text = AngkaTerbilang(Text1.Text) + "Rupiah"
Else
    Text2.Text = ""
End If
Langkah 4
Sekarang coba jalankan programnya, hasilnya kurang lebih akan seperti ini :

Cara Membuat Fungsi Angka Terbilang di VB 6.0

Selesai..

Sekedar saran, tulis fungsi terbilang di module supaya bisa digunakan di beberapa form. Sekian tutorial Cara Membuat Fungsi Angka Terbilang di VB 6.0, jika ada yang masih bingung dengan tutorial ini silahkan download projectnya dibawah ini. Terimakasih, selamat mencoba dan semoga bermanfaat..

Link Download
via Google Drive

Belum ada Komentar untuk "Cara Membuat Fungsi Angka Terbilang di VB 6.0"

Posting Komentar

Silahkan tuliskan komentar Kamu yang sesuai dengan isi topik postingan halaman ini. Please don't SPAM!

Iklan Atas Artikel

Iklan Tengah Artikel 1

Iklan Tengah Artikel 2

Iklan Bawah Artikel