Thursday, December 8, 2016

Cara Membuat Aplikasi Convert Mata Uang Dengan VBA Excel

Aplikasi Converter Mata Uang memang banyak bertebaran di internet, baik yang berbayar mau pun yang gratis. Bahkan banyak pula website yang secara realtime dapat memantau Kurs mata uang dan menyediakan fasilitas untuk mengconvert mata uang secara realtime dan online.

Namun demikian, untuk mengasah pengetahuan kita tentang VBA Excel, kita dapat juga membuat Aplikasi Converter Mata Uang. Pada posting ini saya akan membedah cara bikin aplikasi senderhana yang berfungsi sebagai converter mata uang. Ikut saja langkah-langkahnya.


Langkah-langkah Membuat Aplikasi Converter Mata Uang Dengan VBA Excel :
  • Download file yang sudah siap dirancang di link download dibawah posting. Biar hemat waktu dari pada menjelaskan dari cara merancang.
  • Buka file yang sudah di download, klik Developer selajutnya pilih visual basic. 
  • Pilih UserForm1, Klik kanan UserForm1 pilih View Code dan masukkan kode dibawah ini di General - Declarations
Option Explicit

Private Declare Function SendMessage Lib "user32" _
Alias "SendMessageA" (ByVal hWnd As Long, _
ByVal wMsg As Long, ByVal wParam As Long, _
LParam As Any) As Long

Private Declare Function FindWindow Lib "user32" _
Alias "FindWindowA" (ByVal lpClassName As String, _
ByVal lpWindowName As String) As Long

Private Const WM_SETICON = &H80
Private Const ICON_SMALL = 0&
Private Const ICON_BIG = 1&

Dim hWnd As Long
  • klik kanan pada UserForm1 masukkan kode berikut pada UserForm_Initialize
Private Sub UserForm_Initialize()
'_____Kode ini untuk memanggil Gambar Icon Aplikasi_________
Image1.Visible = False

hWnd = FindWindow(vbNullString, UserForm1.Caption)

Call SendMessage(hWnd, WM_SETICON, ICON_SMALL, ByVal Image1.Picture.Handle)
Call SendMessage(hWnd, WM_SETICON, ICON_BIG, ByVal Image1.Picture.Handle)
'______________________________________________________________________
'________Kode ini untuk memanggil Item Listbox1 dan listbox2
With ListBox1
    .AddItem "Rupiah"
    .AddItem "Us Dollar"
    .AddItem "British Pound"
End With

With ListBox2
    .AddItem "Rupiah"
    .AddItem "Us Dollar"
    .AddItem "British Pound"
End With

ListBox1.ListIndex = 1
ListBox2.ListIndex = 0

TextBox1.Value = 1
TextBox2.Value = 0.722152
'______________________________________________________________________
End Sub
  • Klik kanan pada CommandButton1 pilih View Code dan masukkan kode berikut ini di Private Sub CommandButton1_Click()
Private Sub CommandButton1_Click()

Dim rates(0 To 2, 0 To 2) As Double, i As Integer, j As Integer

rates(0, 0) = 1
rates(0, 1) = 1.38475
rates(0, 2) = 0.0001

rates(1, 0) = 13356.29
rates(1, 1) = 1
rates(1, 2) = 0.79

rates(2, 0) = 16802.06
rates(2, 1) = 1.26
rates(2, 2) = 1

For i = 0 To 2
    For j = 0 To 2
        If ListBox1.ListIndex = i And ListBox2.ListIndex = j Then TextBox2.Value = TextBox1.Value * rates(i, j)
    Next j
Next i

End Sub

  • Selesai..!! Uji Aplikasinya yang udah di pasang kode tersebut. Bila penempatan kode sudah mengikuti dengan benar, maka aplikasi akan berjalan seperti yang terlihat pada gambar gif diatas.

Download : Aplikasi Converter $$$
Demikian posting Bikin Aplikasi Convert Mata Uang Dengan VBA Excel, Semoga dapat dikembangkan menurut kemauan dan keperluan masing-masing. Bila ingin kode lainnya silahkan share di kolom komentar. Bagi yang download dan mencoba jangan lupa kasih tau juga dikolom kementar sukses atau ngak..!!

Komentar Anda Sangat Menentukan Kelangsungan Blog ini
EmoticonEmoticon