Membuat Format Rupiah pada Coding Vb 6.0

       Membuat format Rupiah secara otomatis dalam coding vb 6.0 mungkin bagi yang belum mengetahui terasa sulit dan membingung kan dengan bagai mana cara melakukan peng-inputan data yang berhubungan dengan mata uang secara otimatis tanpa menambahkan tanda titik atau rupiah (Rp)....

Berikut ini cara mudah mengubah format bilangan biasa menjadi format mata uang Indonesia Negara kita (Rp) :

1.  Tentu saja untuk memulai buka dahulu Program Aplikasi Visual Basic 6.0 kesayangan Anda dan buka dengan New Form.. Oke -_^

2. Selanjutnya masukan sebuah komponen TextBox kedalam area form dan rubah propertis Alignment menjadi 1-Right Justify dan kosongkan propertis Text-nya

3.  Selanjutnya masuklah kedalam code program dan Copas ( Copy Paste ) coding dibawah ini.

Private Sub Text1_KeyPress(KeyAscii As Integer)

    If KeyAscii = 13 Then

        On Error Resume Next

        Me.Text1.Text = "Rp " & Format(CDbl(Text1.Text), "#,#")

        Me.Text1.SetFocus

    End If

End Sub

4. Nah selanjutnya Tekan tombol f5 untuk menjalankan program, sampai disini Membuat Format Rupiah pada Coding Vb 6.0 Selesai.

5. Masukan data berupa Bilangan dan tekan Enter untuk melihat hasilnya

Beri Komentar Bila ini bermanfaat bagi Anda.