Skip to main content

Currency Converter


I search the internet and I cannot find a Currency Converter made in Visual Basic 6.0 so I made my own program. This will simple convert the currency into different country that is defined in the Currency Table. This is very useful if you want to convert foreign currency into local currency. You can set the currency value from The base for converting a currency is using USD but it still work with any other country.

Note: Due to the size or complexity of this submission, the author has submitted it as a .zip file to shorten your download time. After downloading it, you will need a program like Winzip to decompress it.

Virus note: All files are scanned once-a-day by for viruses, but new viruses come out every day, so no prevention program can catch 100% of them.


1. Re-scan downloaded files using your personal virus checker before using it.
2. NEVER, EVER run compiled files (.exe's, .ocx's, .dll's etc.)--only run source code.


Submitted byjhervy14on Thu, 01/21/2010 - 13:16

Sir can u help me in Data Report How to filter the data report in vb6 my problem is i want to choose in the combo box then if i choose the item in the combo box if i press the botton the item i choose going to the data report pls help me sir. Thankz

This works fine in me just change some codes if necessary. This is from my Payroll System. Private Sub Command10_Click() If Text10.Text = "" Then MsgBox "Enter employee number.", 0 + 48, "Message" Text10.SetFocus Exit Sub End If If Text11.Text = "" Then MsgBox "Enter employee days of work.", 0 + 48, "Message" Text11.SetFocus Exit Sub End If y = MsgBox("Is employee Married?", vbYesNo + vbQuestion, "Question") If y = vbYes Then DataReport1.Show Set DataReport1.DataSource = Adodc1 '================================================================================== DataReport1.Sections("Section4").Controls("LabeL3").Caption = "NO. : " & Form3.Text10.Text & "" DataReport1.Sections("Section4").Controls("Label4").Caption = "NAME : " & Form3.Text12.Text & "" DataReport1.Sections("Section4").Controls("LabeL11").Caption = "POSITION : " & Form3.Text13.Text & "" DataReport1.Sections("Section4").Controls("Label17").Caption = Form3.Text11.Text DataReport1.Sections("Section4").Controls("Label15").Caption = Form3.Text14.Text DataReport1.Sections("Section4").Controls("Label13").Caption = Form3.Text18.Text DataReport1.Sections("Section4").Controls("Label6").Caption = Form3.Text15.Text DataReport1.Sections("Section4").Controls("LabeL8").Caption = Form3.Text19.Text DataReport1.Sections("Section4").Controls("Label10").Caption = Form3.Text20.Text '================================================================================ Else DataReport4.Show Set DataReport4.DataSource = Adodc1 '================================================================================== DataReport4.Sections("Section4").Controls("LabeL3").Caption = "NO. : " & Form3.Text10.Text & "" DataReport4.Sections("Section4").Controls("Label4").Caption = "NAME : " & Form3.Text12.Text & "" DataReport4.Sections("Section4").Controls("LabeL11").Caption = "POSITION : " & Form3.Text13.Text & "" DataReport4.Sections("Section4").Controls("Label17").Caption = Form3.Text14.Text DataReport4.Sections("Section4").Controls("Label15").Caption = Form3.Text11.Text DataReport4.Sections("Section4").Controls("Label13").Caption = Form3.Text18.Text DataReport4.Sections("Section4").Controls("Label6").Caption = Form3.Text15.Text DataReport4.Sections("Section4").Controls("LabeL8").Caption = Form3.Text16.Text DataReport4.Sections("Section4").Controls("Label10").Caption = Form3.Text17.Text '================================================================================ End If End Sub
Submitted byAnonymous (not verified)on Tue, 02/09/2010 - 16:41

SIR, PLEASE SEND ME THW CODE FOR THIS CURRENCY CONVERTER TO MY MAIL.IAM ASKING YOU PLEASE. MY EMAIL ID IS [email protected] please send me immmediately when ever you see this.
Submitted byAnonymous (not verified)on Tue, 02/16/2010 - 23:06

sir its a nice programme but it shows me some errors please if you can please send me the correct coding email:[email protected] if you have more please send to me i must prepared for exhibition
Submitted byAnonymous (not verified)on Wed, 02/17/2010 - 09:21

i wish more easier that think to be an automatic..
Submitted byAnonymous (not verified)on Wed, 06/30/2010 - 06:25

can u plz! send to my mail id [email protected] i'll b thankfull to u....!
Submitted byAnonymous (not verified)on Wed, 06/30/2010 - 06:26

sir its a nice programme but it shows me some errors please if you can please send me the correct coding email:[email protected] if you have more please send to me i must prepared for exhibition
Submitted bymohammed kedir (not verified)on Tue, 06/05/2012 - 04:54

hello there hw ar u? I'm fine but i need help to get source of bus booking system pls as soon as possible! 10Q u!!

Submitted byMiller Uri (not verified)on Mon, 12/16/2013 - 18:54

Can you please send me the code in vba (Access)
I need this code for my project
Thank you
Uri Miller
My email is : [email protected]

Submitted bysuganyanarayanan (not verified)on Thu, 12/19/2013 - 00:13

could i get the source code of the project currency converter with visual basic6.0 as front end and access as back end.

Submitted bysuganyanarayanan (not verified)on Thu, 12/19/2013 - 00:20

could you send me source codes for currency converter project my mail id is [email protected]

Submitted byWolf11 (not verified)on Tue, 02/05/2019 - 14:37

please send me the code, for visual basic studio.
[email protected]

Add new comment

This question is for testing whether or not you are a human visitor and to prevent automated spam submissions.