Mata Uang Indonesia dengan VB.NET dan C#.

Mungkin terkadang anda ingin merubah value pada textbox dari 100000 menjadi Rp1.000.000 agar lebih mudah dibaca oleh user/pengguna, oke langsung saja

Langkah - langkah Membuat Format Currency/Mata Uang Indonesia dengan VB.NET dan C#

1. Buka Visual Studio anda lalu tambahkan 1 buah label dan juga textbox, dan atur lah tata letaknya seperti gambar dibawah ini

2. Pada Event Form_Load ketikan script dibawah ini
VB.NET

1' merubah cultureinfo menjadi indonesia

2System.Threading.Thread.CurrentThread.CurrentCulture = New System.Globalization.CultureInfo("id-ID")

3System.Threading.Thread.CurrentThread.CurrentUICulture = New System.Globalization.CultureInfo("id-ID")

4

5textBox1.Text = FormatCurrency(0)

1// merubah cultureinfo menjadi indonesia

2System.Threading.Thread.CurrentThread.CurrentCulture = new System.Globalization.CultureInfo("id-ID");

3System.Threading.Thread.CurrentThread.CurrentUICulture = new System.Globalization.CultureInfo("id-ID");

4

5textBox1.Text = Convert.ToDecimal(0).ToString("c");

3. Pada Event textbox1_KeyPress ketikan script dibawah ini
VBNET

1If ((e.KeyChar >= Convert.ToChar(48)) AndAlso (e.KeyChar <= Convert.ToChar(57))) Then ' 0 - 9

2    e.Handled = False

3ElseIf (e.KeyChar = Convert.ToChar(8)) Then ' backspace

4    e.Handled = False

5ElseIf (e.KeyChar = Convert.ToChar(13)) Then ' enter

6    e.Handled = False

7Else

8    e.Handled = True

9End If

01if (e.KeyChar >= Convert.ToChar(48) && e.KeyChar <= Convert.ToChar(57)) // 0 - 9

02{

03    e.Handled = false;

04}

05else if (e.KeyChar == Convert.ToChar(8)) // backspace

06{

07    e.Handled = false;

08}

09else if (e.KeyChar == Convert.ToChar(13)) // enter

10{

11    e.Handled = false;

12}

13else

14{

15    e.Handled = true;

16}

4. Pada Event textbox1_TextChanged ketikan script dibawah ini
VBNET

1If textBox1.Text.Length <= 2 Then ' jika panjang karakter pada textbox1 <= 2

2    textBox1.Text = FormatCurrency(0) ' menampilkan Rp0

3Else ' jika tidak

4    textBox1.Text = FormatCurrency(textBox1.Text) ' mengubah format pada textbox1 menjadi currency

5    textBox1.SelectionStart = textBox1.Text.Length '  menetapkan titik awal dari teks yang dipilih pada textbox

6End If

1if (textBox1.Text.Length <= 2) // jika panjang karakter pada textbox1 <= 2

2{

3    textBox1.Text = Convert.ToDecimal(0).ToString("c"); // menampilkan Rp0

4}

5else // jika tidak

6{

7    textBox1.Text = decimal.Parse(textBox1.Text, System.Globalization.NumberStyles.Currency).ToString("c"); // mengubah format pada textbox1 menjadi currency

8    textBox1.SelectionStart = textBox1.Text.Length; // menetapkan titik awal dari teks yang dipilih pada textbox

9}