Cara membuat Format Rupiah, atau menggunakan Format Rupiah pada Visual Basic 6.0

Pemrograman Visual Basic yang banyak digunakan oleh pregrammer memang banyak mendukung berbagai logika dna kegunaan. Trik berikut dalam pemrograman visual basic anda dapat pergunkan dalam melakukan peng-inputan data yang berhubungan dengan mata uang. Anda tidak perlu menambahkan tanda titik atau Rupiah (Rp) pada saat melakukan peng-inputan, karena akan otomatis ditampilkan.


1. Bukalah program Visual Basic 6.0 dan mulailah dengan form baru.
2. Selanjutnya masukkan sebuah komponen TextBox ke dalam area formdan ubah properties Alignment menjadi 1-Right Justify dan kosongkan properties Text-nya
3. Kemudian klik ganda pada komponen Text1 dan ketiklah perintah di bawah ini.

1|      Private Sub Text1_Change ( )
2| On Error Resume Next
3| Text1 = “Rp“&Format (CDb1 (Text),“#,#”)
4| SendKeys“{end}”
5|      End Sub

Keterangan Kode

2| Membuat perintah penanganan error supaya apabila terjadi kesalahan,maka baris
Berikutnya akan terus dibaca.
3| Memformat nilai yang terdapat di dalam komponen Text1 dengan nilai mata uang
Rupiah. Perintah CDbl akan meng-konversi nilai yang terdapat di dalam komponen 
Text1 menjadi tipe data Double. Kemudian meletakkan kursor pada baris paling akhir.

4. kemudian ubahlah event Change pada komponen Text1 menjadi event Keypress dan ketiklah perintah di bawah ini.

1|     Private Sub Text1_KeyPress ( KeyAscii  As   Integer )
2|          If IsNumeric(Chr (KeyAscii ) ) <> True Then KeyAscii   =  0
3|     End Sub

Keterangan Kode

2|         Perintah ini membuat kondisi apabila Anda tidak memasukkan nilai angka,maka tidak dapat anda inputkan.

5. Untuk melihat hasilnya, tekan tombol F5 pada keyboard Anda.

Semoga tulisan ini dapat membantu anda dalam pengerjaan program, selamat menggunakan slam berbagi ilmu bersama nofwan.