Cara Membuat Format Rupiah Di Textbox VB.net Cara Membuat Format Rupiah Di Textbox VB.net - Berguru IT - Tutorial Visual Basic, Networking, Tips dan Trik
VB.Net

VB.Net Tutorial Untuk pemula

Instant Article

Cara Membuat Instant Article Untuk Blogger

logo

Cara Membuat Format Rupiah Di Textbox VB.net

Cara Membuat Format Rupiah Di Textbox VB.net - Disini saya akan coba membuat program sederhana dengan format rupiah di dalam textbox vb.net. Format rupiah didalam textbox digunakan untuk membedakan sebuah nilai atau angka dengan angka yang lainnya, contoh harga dan jumlah satuan.

Tidak semua orang mengunakan format rupiah langsung pada textbox melainkan hanya menggunakan koma dan titik diantara angka untuk menandakan bahwa angka tersebut adalah nilai uang atau double.
Cara membuat Format Rupiah di Textbox Vb.net
Cara Membuat Format Rupiah di TextBox Vb.Net
Tapi bagi anda yang ingin membuat format rupiah didalam textbox vb.net, silahkan ikuti langkah demi langkah tutorial dibawah ini :

Cara Membuat Format Rupiah Di Textbox VB.Net

1. Buat new project

Sebelum membuat project baru, pastikan terlebih dahulu bahwa aplikasi visual studio sudah terinstall pada komputer atau laptop anda. Berhubung saya menggunakan visual studio 2013 maka tutorial ini dibuat dengan aplikasi visual studio 2013.

Jika project baru sudah dibuat, maka masukkan Toolbox dibawah ini ke dalam form1 :
  • Masukkan 3 buah label
  • Masukkan 3 buah textbox
  • Masukkan 1 buah button
Atur Properties Textbox1,2 dan 3 dengan RightToLeft = Yes, ini untuk mengatur tulisan ada di sebelah kanan.

Pastikan membuat project sesuai dengan gambar dibawah ini :
New Project Format Rupiah Visual Basic .Net
New Project Format Rupiah

2. Masukkan Script Atau Koding

Untuk dapat menjalankan program sederhana ini, masukkanlah koding dibawah ini kedalam form1 :

Public Class Form1
    Dim f, g As Double
    Private Sub TextBox1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles TextBox1.KeyDown
        If e.KeyCode = Keys.Enter Then
            TextBox2.Focus()
        End If
    End Sub

    Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
        If Not ((e.KeyChar >= "0" And e.KeyChar <= "9") Or e.KeyChar = vbBack) Then e.Handled = True
    End Sub

    Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs) Handles TextBox1.TextChanged
        If TextBox1.Text = "" Or Not IsNumeric(TextBox1.Text) Then
            Exit Sub
        End If
        f = TextBox1.Text
        TextBox1.Text = Format(Val(f), "###,###")
        TextBox1.SelectionStart = Len(TextBox1.Text)
    End Sub

    Private Sub TextBox2_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles TextBox2.KeyDown
        If e.KeyCode = Keys.Enter Then
            Button1.Focus()
        End If
    End Sub

    Private Sub TextBox2_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox2.KeyPress
        If Not ((e.KeyChar >= "0" And e.KeyChar <= "9") Or e.KeyChar = vbBack) Then e.Handled = True
    End Sub

    Private Sub TextBox2_TextChanged(sender As Object, e As EventArgs) Handles TextBox2.TextChanged
        If TextBox2.Text = "" Or Not IsNumeric(TextBox2.Text) Then
            Exit Sub
        End If
        g = TextBox2.Text
        TextBox2.Text = Format(Val(g), "###,###")
        TextBox2.SelectionStart = Len(TextBox2.Text)
    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        TextBox3.Text = f + g
        TextBox3.Text = Format(Val(TextBox3.Text), "Rp, ###,###.#0")
    End Sub
End Class


Copy seluruh koding diatas dan pastekan pada area kerja koding form1

Baca Juga :

3. Jalankan program dengan tekan F5 atau klik Run


Pada tahap ini kita akan mencoba menjalankan program yang telah dibuat, jika tidak ada error maka program akan menghasilkan seperti gambar dibawah ini.
Result Format Rupiah Pada Textbox vb.net, Insert Format rupiah pada textbox
Result Format Rupiah Pada TextBox Vb.Net

Cara menjalankan program :

  • Masukkan angka pada textbox1 (Terserah berapa saja angkanya) Lalu Enter
  • Lakukan seperti diatas pada textbox2 lalu Enter
  • Pada Tombol Hitung (Saya menghitung tambah atau +) Lalu tekan Enter
  • Hasilnya penjumlahan dari textbox1 dan textbox2 ada pada Textbox3

Dari percontohan program diatas yaitu Cara membuat format rupiah di textbox vb.net, memang tidaklah sempurna tetapi masud dari membuat format rupiah pada textbox sudah terwakili.

Untuk lebih sempurna silahkan anda kreasikan atau tambahkan lagi kodingnya, atau bisa juga ajukan pertanyaan seputar program ini pada kolom komentar dibawah ini.

Selamat mencoba, semoga bermanfaat.

Tags

0 Komentar untuk "Cara Membuat Format Rupiah Di Textbox VB.net"

Subscribe