Program Konversi Mata Uang dengan Visual Basic

Visual Basic adalah sebuah software untuk membuat program berbasis GUI, disini saya akan sedikit berbagi mengenai bagaimana cara membuat program konversi mata uang dari rupiah ke dollar dan sebaliknya menggunakan Visual Basic.

Pertama-tama kita buat form seperti ini pada visual basic:

-          3 textbox

-          2 combobox

-          3 command button

-          6 label

Kemudian kita klik button konversi kemudian kita tuliskan listing program seperti ini:

Private Sub Command1_Click()

Dim a As Variant

Dim b As Integer

If Combo1 = "Rupiah" And Combo2 = "USD" Then

a = Text1.Text

b = 11400

Text2.Text = Val(Text1.Text / b)

Text3.Text = Text1.Text Mod b

ElseIf Combo1 = "Rupiah" And Combo2 = "Rupiah" Then

a = Text1.Text

Text2.Text = a

ElseIf Combo1 = "USD" And Combo2 = "Rupiah" Then

a = Text1.Text

b = 11400

Text2.Text = Text1.Text * b

Text3.Text = clearscr

ElseIf Combo1 = "USD" And Combo2 = "USD" Then

a = Text1.Text

Text2.Text = a

End If

End Sub

Kemudian pada button reset kita tulis listing seperti ini:

Private Sub Command3_Click()

Combo1 = clearscr

Combo2 = clearscr

Text1 = clearscr

Text2 = clearscr

Text3 = clearscr

End Sub

Yang terakhir pada button exit:

Private Sub Command2_Click()

Unload Me

End Sub

Yap sekarang tinggal kita run dan Selamat anda telah membuat program konversi mata uang rupiah dan dollar ^_^....