Membuat Program Konversi Mata Uang di Visual Studio 2010

Halo, disini saya akan membagikan cara Membuat Program Konversi Mata Uang di Visual Studio 2010. Disini saya akan menggunakan beberapa event tambahan, seperti pengisian hanya bisa menggunakan angka dan penukaran konversi.

• Buat Project dengan .NET Framework 4.
  Lalu beri nama project sesuai yang anda inginkan.

• Lalu, buat form aplikasi dengan contoh seperti ini. atau bisa disesuaikan dengan keinginan anda.
  
  Daftar Tool yang dipasang di form yang saya buat :
• Button
• bt_exit (Tombol keluar buatan)
• bt_konv (Tombol Konversi)
• bt_tukar (Tombol Tukar)
• Label
• Label1 (Teks "Konversi Mata Uang")
• label_1 (Teks "USD")
• label_2 (Teks "IDR")
• Text Box
• box_1 (Text Box untuk USD)
• box_2 (Text Box untuk IDR, Read Only)

• Pertama, klik dua kali pada tombol exit di form. Lalu beri line :

End

• Lalu, klik dua kali pada tombol konversi di form. Lalu beri line : 

x = box_1.Text

If n = 0 Then

z = x * 14200
Else
z = x / 14200
End If

box_2.Text = z.ToString

• Disini, pasti ada pemberitahuan variabel x, z dan n belum di deklarasikan. Sekarang, tambahkan variabel x dan z pada Dim dan variabel n pada Public dibawah line pertama.

Dim x, z As Double
Public n As Integer = 0

• Karena disini saya menggunakan variabel n untuk menentukan mata uang apa yang akan di konversi, maka disini harus mengatur tombol tukar pada form.
• Klik dua kali pada tombol tukar di form. Lalu beri line :

a = box_1.Text
b = box_2.Text
If n = 0 Then

n = 1
box_1.Text = b
box_2.Text = a
label_1.Text = "IDR"
label_2.Text = "USD"
Else
n = 0
box_1.Text = b
box_2.Text = a
label_1.Text = "USD"
label_2.Text = "IDR"
End If

• Setelah menambahkan line tadi, akan ada pemberitahuan variabel a dan b belum di deklarasi. Tambahkan line ini dibawah deklarasi variabel n.

Dim a, b As Double

• Line operasi sudah sampai sini, sekarang kita tambahkan penghalang agar box_1 hanya bisa mengisi dengan angka.
• Klik box_1 dan klik tombol berlogo Petir di bagian Properties untuk box_1, lalu pilih KeyPress. Tambahkan line ini.

If Not ((e.KeyChar >= "0" And e.KeyChar <= "9") Or e.KeyChar = vbBack) Then e.Handled = True

• Sampai sini anda bisa coba jalankan aplikasinya.

• Selesai

---

Penjelasan :

• Variabel
• x : Untuk menyimpan angka yang diinput user.
• z : Untuk menyimpan hasil operasi yang dilakukan saat user menekan tombol Konversi
• n : Untuk menentukan mata uang yang ingin di konversi, 0 adalah USD ke IDR dan 1 adalah IDR ke USD. n disebut Public karena variable ini dipakai di 2 modul.
• a : Untuk menyimpan apa yang ada di box_1
• b ; Untuk menyimpan apa yang ada di box_2