Algoritma Konversi Mata Uang

Sekarang Kita akan mencoba membuat sebuah Program konversi mata uang, Design Program akan seperti di bawah ini:


1. User akan Menginpukan beberapa nominal uang (Rupiah)
2. User kemudian memilih Ingin di konversikan ke Mata uang negara mana, pilihannya antara lain:
a. Amerika-Dollar
b. China-Yuan
c. Eropa-Euro
d. Jepang-Yen
e. Inggris-Pounds
f. Singapore-Dollar
3. Kemudian user menentukan sendiri nilai tukar uang tersebut
4. Klik Hitung, maka hasil tukar akan muncul di kolom hasil, dan buat kolom hasil nilainya tidak bisa di rubah
5. Klik clear, maka program akan kembali ke posisi awal tidak ada tulisan apa-apa (kosong)

Cara Pembuatan:
a. Pertama Kita akan buat desaign awal formnya seperti di bawah ini:


b. Waktunya mengutak-atik properties


c. Maka akan menjadi seperti ini:


d. Selanjutnya kita akan melakukan pengcodingan

1. General
Tuliskan syntax berikut
Dim Hasil As Currency
Dim a As Double
Dim b As Double


2. Hitung
Private Sub CmdHitung_Click()
a = TxtSatu.Text
b = TxtDua.Text
Hasil = a / b
TxtTiga.Text = Hasil
End Sub

3. Clear
Private Sub CmdClear_Click()
TxtSatu = "0"
TxtDua = "0"
TxtTiga = "0"
CmbKonversi = " "
End Sub

e. Kemudian Jalankan Program, maka hasilnya akan seperti ini:
-masukan jumlah uang yang akan di tukarkan dan pilih mata uang negara apa yang akan di tukarkan