Selasa, 27 April 2010

Konversi Mata Uang dengan Visual Basic


Diketahui nilai tukar mata uang rupiah terhadap beberapa mata uang asing adalah sebagai berikut :
1 Dolar USA = Rp. 9.000.-
1 Dollar Singapore = Rp. 7.500,-
1 Yen = Rp. 5.000,-
Tentukan nilai untuk masing-masing mata uang asing tersebut terhadap Rp. 50.000,-

Untuk menghitung nilai mata uang asing dapat menggunakan rumus :
Nilai Mata Uang = Nilai Rupiah / Nilai Tukar

PEMECAHAN PROGRAM

Rancangan Form dengan menggunakan 4 buah label, 4 buah Text dan 1 buah Command Button

Kode Program

Private Sub Command1_Click()
Dim Rp, USA, SING, YEN As Currency
Rp = Text1.Text
USA = FormatNumber(Rp / 9000, 2)
SING = FormatNumber(Rp / 7500, 2)
YEN = FormatNumber(Rp / 5000, 2)
Text2.Text = USA
Text3.Text = SING
Text4.Text = YEN
End Sub

Private Sub Form_Load()
Form1.Caption = `Nilai Tukar Mata Uang`
Label1.Caption = `Nominal Rupiah`
Label2.Caption = `Dollar USA`
Label3.Caption = `Dollar Singapore`
Label4.Caption = `Yen Jepang`
Command1.Caption = `Proses`
Text1.Text = ``
Text2.Text = ``
Text3.Text = ``
Text4.Text = ``
End Sub

Tidak ada komentar:

Poskan Komentar