'
'SW403- Fall
2005
'Guillermo V.
Julca
'http://www.gjp2s.com
Public Class
frmMain
Inherits
System.Windows.Forms.Form
Dim
bolMsgWasDisplayedAlready As Boolean
Dim
intCurrentSystemCountryFrom As Integer 'Could be Metric
System or English System
Dim
intCurrentSystemCountryTo As Integer 'Could be Metric System or English System
#Region
" Windows Form Designer generated code "
Public Sub New()
MyBase.New()
'This call is
required by the Windows Form Designer.
InitializeComponent()
'Add any
initialization after the InitializeComponent() call
End Sub
'Form overrides
dispose to clean up the component list.
Protected Overloads Overrides Sub Dispose(ByVal
disposing As Boolean)
If
disposing Then
If Not (components Is Nothing) Then
components.Dispose()
End
If
End If
MyBase.Dispose(disposing)
End Sub
'Required by the
Windows Form Designer
Private
components As System.ComponentModel.IContainer
'NOTE: The
following procedure is required by the Windows Form Designer
'It can be
modified using the Windows Form Designer.
'Do not modify it
using the code editor.
Friend WithEvents GroupBox1 As
System.Windows.Forms.GroupBox
Friend WithEvents picCountryFrom As
System.Windows.Forms.PictureBox
Friend WithEvents cbxCountryFrom As
System.Windows.Forms.ComboBox
Friend WithEvents cbxCountryTo As
System.Windows.Forms.ComboBox
Friend WithEvents picCountryTo As
System.Windows.Forms.PictureBox
Friend WithEvents Label1 As
System.Windows.Forms.Label
Friend WithEvents lblMapCountryFrom As
System.Windows.Forms.Label
Friend WithEvents lblCountryToMap As
System.Windows.Forms.Label
Friend WithEvents GroupBox2 As
System.Windows.Forms.GroupBox
Friend WithEvents GroupBox3 As
System.Windows.Forms.GroupBox
Friend WithEvents Label2 As System.Windows.Forms.Label
Friend WithEvents picTempCountryFromFlag As System.Windows.Forms.PictureBox
Friend WithEvents picTempCountryToFlag As System.Windows.Forms.PictureBox
Friend WithEvents GroupBox4 As
System.Windows.Forms.GroupBox
Friend WithEvents txtTempCountryFrom As System.Windows.Forms.TextBox
Friend WithEvents txtTempCountryTo As
System.Windows.Forms.TextBox
Friend WithEvents txtVolCountryTo As
System.Windows.Forms.TextBox
Friend WithEvents txtVolCountryFrom As
System.Windows.Forms.TextBox
Friend WithEvents picVolCountryToFlag As System.Windows.Forms.PictureBox
Friend WithEvents picVolCountryFromFlag As System.Windows.Forms.PictureBox
Friend WithEvents txtCurrCountryTo As
System.Windows.Forms.TextBox
Friend WithEvents txtCurrCountryFrom As System.Windows.Forms.TextBox
Friend WithEvents picCurrCountryToFlag As System.Windows.Forms.PictureBox
Friend WithEvents picCurrCountryFromFlag As System.Windows.Forms.PictureBox
Friend WithEvents lblCurrencySymbolCountryFrom As System.Windows.Forms.Label
Friend WithEvents lblCurrencySymbolCountryTo As System.Windows.Forms.Label
Friend WithEvents lblTempCountryFrom As System.Windows.Forms.Label
Friend WithEvents lblTempCountryTo As
System.Windows.Forms.Label
Friend WithEvents lblVolCountryFrom As
System.Windows.Forms.Label
Friend WithEvents lblVolCountryTo As
System.Windows.Forms.Label
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
Dim
resources As System.Resources.ResourceManager =
New System.Resources.ResourceManager(GetType(frmMain))
Me.GroupBox1
= New System.Windows.Forms.GroupBox
Me.Label2
= New System.Windows.Forms.Label
Me.lblCountryToMap
= New System.Windows.Forms.Label
Me.lblMapCountryFrom
= New System.Windows.Forms.Label
Me.Label1
= New System.Windows.Forms.Label
Me.picCountryTo
= New System.Windows.Forms.PictureBox
Me.cbxCountryTo
= New System.Windows.Forms.ComboBox
Me.cbxCountryFrom = New
System.Windows.Forms.ComboBox
Me.picCountryFrom
= New System.Windows.Forms.PictureBox
Me.GroupBox2
= New System.Windows.Forms.GroupBox
Me.txtTempCountryTo
= New System.Windows.Forms.TextBox
Me.txtTempCountryFrom
= New System.Windows.Forms.TextBox
Me.picTempCountryToFlag
= New System.Windows.Forms.PictureBox
Me.picTempCountryFromFlag
= New System.Windows.Forms.PictureBox
Me.GroupBox3
= New System.Windows.Forms.GroupBox
Me.txtVolCountryTo = New
System.Windows.Forms.TextBox
Me.txtVolCountryFrom
= New System.Windows.Forms.TextBox
Me.picVolCountryToFlag
= New System.Windows.Forms.PictureBox
Me.picVolCountryFromFlag
= New System.Windows.Forms.PictureBox
Me.GroupBox4
= New System.Windows.Forms.GroupBox
Me.lblCurrencySymbolCountryTo
= New System.Windows.Forms.Label
Me.lblCurrencySymbolCountryFrom
= New System.Windows.Forms.Label
Me.txtCurrCountryTo
= New System.Windows.Forms.TextBox
Me.txtCurrCountryFrom
= New System.Windows.Forms.TextBox
Me.picCurrCountryToFlag
= New System.Windows.Forms.PictureBox
Me.picCurrCountryFromFlag
= New System.Windows.Forms.PictureBox
Me.lblTempCountryFrom
= New System.Windows.Forms.Label
Me.lblTempCountryTo
= New System.Windows.Forms.Label
Me.lblVolCountryFrom
= New System.Windows.Forms.Label
Me.lblVolCountryTo
= New System.Windows.Forms.Label
Me.GroupBox1.SuspendLayout()
Me.GroupBox2.SuspendLayout()
Me.GroupBox3.SuspendLayout()
Me.GroupBox4.SuspendLayout()
Me.SuspendLayout()
'
'GroupBox1
'
Me.GroupBox1.Controls.Add(Me.Label2)
Me.GroupBox1.Controls.Add(Me.lblCountryToMap)
Me.GroupBox1.Controls.Add(Me.lblMapCountryFrom)
Me.GroupBox1.Controls.Add(Me.Label1)
Me.GroupBox1.Controls.Add(Me.picCountryTo)
Me.GroupBox1.Controls.Add(Me.cbxCountryTo)
Me.GroupBox1.Controls.Add(Me.cbxCountryFrom)
Me.GroupBox1.Controls.Add(Me.picCountryFrom)
Me.GroupBox1.Location
= New System.Drawing.Point(16, 8)
Me.GroupBox1.Name
= "GroupBox1"
Me.GroupBox1.Size
= New System.Drawing.Size(880, 168)
Me.GroupBox1.TabIndex
= 0
Me.GroupBox1.TabStop
= False
Me.GroupBox1.Text
= "Countries Selection"
'
'Label2
'
Me.Label2.ImageAlign
= System.Drawing.ContentAlignment.MiddleRight
Me.Label2.Location
= New System.Drawing.Point(72, 104)
Me.Label2.Name
= "Label2"
Me.Label2.Size
= New System.Drawing.Size(120, 16)
Me.Label2.TabIndex
= 7
Me.Label2.Text
= "and:"
Me.Label2.TextAlign
= System.Drawing.ContentAlignment.MiddleRight
'
'lblCountryToMap
'
Me.lblCountryToMap.Font
= New System.Drawing.Font("Microsoft Sans
Serif", 6.5!, CType((System.Drawing.FontStyle.Italic
Or System.Drawing.FontStyle.Underline), System.Drawing.FontStyle),
System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lblCountryToMap.ForeColor
= System.Drawing.Color.FromArgb(CType(0, Byte), CType(0, Byte), CType(192, Byte))
Me.lblCountryToMap.Location
= New System.Drawing.Point(248, 128)
Me.lblCountryToMap.Name
= "lblCountryToMap"
Me.lblCountryToMap.Size
= New System.Drawing.Size(72, 16)
Me.lblCountryToMap.TabIndex
= 6
Me.lblCountryToMap.Text
= "click to view map"
'
'lblMapCountryFrom
'
Me.lblMapCountryFrom.Font
= New System.Drawing.Font("Microsoft Sans
Serif", 6.5!, CType((System.Drawing.FontStyle.Italic
Or System.Drawing.FontStyle.Underline),
System.Drawing.FontStyle), System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lblMapCountryFrom.ForeColor
= System.Drawing.Color.FromArgb(CType(0, Byte), CType(0, Byte), CType(192, Byte))
Me.lblMapCountryFrom.Location
= New System.Drawing.Point(248, 64)
Me.lblMapCountryFrom.Name
= "lblMapCountryFrom"
Me.lblMapCountryFrom.Size
= New System.Drawing.Size(72, 16)
Me.lblMapCountryFrom.TabIndex
= 5
Me.lblMapCountryFrom.Text
= "click to view map"
'
'Label1
'
Me.Label1.ImageAlign
= System.Drawing.ContentAlignment.MiddleRight
Me.Label1.Location
= New System.Drawing.Point(72, 40)
Me.Label1.Name
= "Label1"
Me.Label1.Size
= New System.Drawing.Size(120, 16)
Me.Label1.TabIndex
= 4
Me.Label1.Text
= "Convert Between:"
Me.Label1.TextAlign
= System.Drawing.ContentAlignment.MiddleRight
'
'picCountryTo
'
Me.picCountryTo.Image
= CType(resources.GetObject("picCountryTo.Image"),
System.Drawing.Image)
Me.picCountryTo.Location
= New System.Drawing.Point(248, 88)
Me.picCountryTo.Name
= "picCountryTo"
Me.picCountryTo.Size
= New System.Drawing.Size(72, 40)
Me.picCountryTo.TabIndex
= 3
Me.picCountryTo.TabStop
= False
'
'cbxCountryTo
'
Me.cbxCountryTo.DropDownStyle
= System.Windows.Forms.ComboBoxStyle.DropDownList
Me.cbxCountryTo.Items.AddRange(New Object()
{"Canada", "European Union", "Japan",
"Liberia", "Mayanmar", "Peru", "United
States"})
Me.cbxCountryTo.Location = New
System.Drawing.Point(360, 96)
Me.cbxCountryTo.Name
= "cbxCountryTo"
Me.cbxCountryTo.Size
= New System.Drawing.Size(176, 21)
Me.cbxCountryTo.TabIndex
= 2
'
'cbxCountryFrom
'
Me.cbxCountryFrom.DropDownStyle =
System.Windows.Forms.ComboBoxStyle.DropDownList
Me.cbxCountryFrom.Items.AddRange(New Object()
{"Canada", "European Union", "Japan",
"Liberia", "Mayanmar", "Peru", "United
States"})
Me.cbxCountryFrom.Location
= New System.Drawing.Point(360, 32)
Me.cbxCountryFrom.Name
= "cbxCountryFrom"
Me.cbxCountryFrom.Size
= New System.Drawing.Size(176, 21)
Me.cbxCountryFrom.TabIndex
= 1
'
'picCountryFrom
'
Me.picCountryFrom.Image
= CType(resources.GetObject("picCountryFrom.Image"),
System.Drawing.Image)
Me.picCountryFrom.Location
= New System.Drawing.Point(248, 24)
Me.picCountryFrom.Name
= "picCountryFrom"
Me.picCountryFrom.Size
= New System.Drawing.Size(72, 40)
Me.picCountryFrom.TabIndex
= 0
Me.picCountryFrom.TabStop
= False
Me.picCountryFrom.Tag
= ""
'
'GroupBox2
'
Me.GroupBox2.Controls.Add(Me.lblTempCountryTo)
Me.GroupBox2.Controls.Add(Me.lblTempCountryFrom)
Me.GroupBox2.Controls.Add(Me.txtTempCountryTo)
Me.GroupBox2.Controls.Add(Me.txtTempCountryFrom)
Me.GroupBox2.Controls.Add(Me.picTempCountryToFlag)
Me.GroupBox2.Controls.Add(Me.picTempCountryFromFlag)
Me.GroupBox2.Location
= New System.Drawing.Point(16, 168)
Me.GroupBox2.Name
= "GroupBox2"
Me.GroupBox2.Size
= New System.Drawing.Size(288, 216)
Me.GroupBox2.TabIndex
= 1
Me.GroupBox2.TabStop
= False
Me.GroupBox2.Text
= "Temperature"
'
'txtTempCountryTo
'
Me.txtTempCountryTo.Location
= New System.Drawing.Point(104, 128)
Me.txtTempCountryTo.Name
= "txtTempCountryTo"
Me.txtTempCountryTo.Size
= New System.Drawing.Size(80, 20)
Me.txtTempCountryTo.TabIndex
= 6
Me.txtTempCountryTo.Text
= "0"
'
'txtTempCountryFrom
'
Me.txtTempCountryFrom.Location
= New System.Drawing.Point(104, 56)
Me.txtTempCountryFrom.Name
= "txtTempCountryFrom"
Me.txtTempCountryFrom.Size
= New System.Drawing.Size(80, 20)
Me.txtTempCountryFrom.TabIndex
= 5
Me.txtTempCountryFrom.Text
= "32"
'
'picTempCountryToFlag
'
Me.picTempCountryToFlag.Image
= CType(resources.GetObject("picTempCountryToFlag.Image"),
System.Drawing.Image)
Me.picTempCountryToFlag.Location
= New System.Drawing.Point(16, 120)
Me.picTempCountryToFlag.Name
= "picTempCountryToFlag"
Me.picTempCountryToFlag.Size
= New System.Drawing.Size(72, 40)
Me.picTempCountryToFlag.TabIndex
= 4
Me.picTempCountryToFlag.TabStop
= False
'
'picTempCountryFromFlag
'
Me.picTempCountryFromFlag.Image
= CType(resources.GetObject("picTempCountryFromFlag.Image"),
System.Drawing.Image)
Me.picTempCountryFromFlag.Location
= New System.Drawing.Point(16, 48)
Me.picTempCountryFromFlag.Name
= "picTempCountryFromFlag"
Me.picTempCountryFromFlag.Size
= New System.Drawing.Size(72, 40)
Me.picTempCountryFromFlag.TabIndex
= 1
Me.picTempCountryFromFlag.TabStop
= False
Me.picTempCountryFromFlag.Tag
= ""
'
'GroupBox3
'
Me.GroupBox3.Controls.Add(Me.lblVolCountryTo)
Me.GroupBox3.Controls.Add(Me.lblVolCountryFrom)
Me.GroupBox3.Controls.Add(Me.txtVolCountryTo)
Me.GroupBox3.Controls.Add(Me.txtVolCountryFrom)
Me.GroupBox3.Controls.Add(Me.picVolCountryToFlag)
Me.GroupBox3.Controls.Add(Me.picVolCountryFromFlag)
Me.GroupBox3.Location
= New System.Drawing.Point(312, 168)
Me.GroupBox3.Name
= "GroupBox3"
Me.GroupBox3.Size
= New System.Drawing.Size(288, 216)
Me.GroupBox3.TabIndex
= 2
Me.GroupBox3.TabStop
= False
Me.GroupBox3.Text
= "Volume"
'
'txtVolCountryTo
'
Me.txtVolCountryTo.Location
= New System.Drawing.Point(96, 132)
Me.txtVolCountryTo.Name
= "txtVolCountryTo"
Me.txtVolCountryTo.Size
= New System.Drawing.Size(80, 20)
Me.txtVolCountryTo.TabIndex
= 10
Me.txtVolCountryTo.Text
= "3.4"
'
'txtVolCountryFrom
'
Me.txtVolCountryFrom.Location
= New System.Drawing.Point(96, 60)
Me.txtVolCountryFrom.Name
= "txtVolCountryFrom"
Me.txtVolCountryFrom.Size
= New System.Drawing.Size(80, 20)
Me.txtVolCountryFrom.TabIndex
= 9
Me.txtVolCountryFrom.Text
= "1.00"
'
'picVolCountryToFlag
'
Me.picVolCountryToFlag.Image
= CType(resources.GetObject("picVolCountryToFlag.Image"),
System.Drawing.Image)
Me.picVolCountryToFlag.Location
= New System.Drawing.Point(16, 124)
Me.picVolCountryToFlag.Name
= "picVolCountryToFlag"
Me.picVolCountryToFlag.Size
= New System.Drawing.Size(72, 40)
Me.picVolCountryToFlag.TabIndex
= 8
Me.picVolCountryToFlag.TabStop
= False
'
'picVolCountryFromFlag
'
Me.picVolCountryFromFlag.Image
= CType(resources.GetObject("picVolCountryFromFlag.Image"),
System.Drawing.Image)
Me.picVolCountryFromFlag.Location
= New System.Drawing.Point(16, 52)
Me.picVolCountryFromFlag.Name
= "picVolCountryFromFlag"
Me.picVolCountryFromFlag.Size
= New System.Drawing.Size(72, 40)
Me.picVolCountryFromFlag.TabIndex
= 7
Me.picVolCountryFromFlag.TabStop
= False
Me.picVolCountryFromFlag.Tag
= ""
'
'GroupBox4
'
Me.GroupBox4.Controls.Add(Me.lblCurrencySymbolCountryTo)
Me.GroupBox4.Controls.Add(Me.lblCurrencySymbolCountryFrom)
Me.GroupBox4.Controls.Add(Me.txtCurrCountryTo)
Me.GroupBox4.Controls.Add(Me.txtCurrCountryFrom)
Me.GroupBox4.Controls.Add(Me.picCurrCountryToFlag)
Me.GroupBox4.Controls.Add(Me.picCurrCountryFromFlag)
Me.GroupBox4.Location
= New System.Drawing.Point(608, 168)
Me.GroupBox4.Name
= "GroupBox4"
Me.GroupBox4.Size
= New System.Drawing.Size(288, 216)
Me.GroupBox4.TabIndex
= 3
Me.GroupBox4.TabStop
= False
Me.GroupBox4.Text
= "Currency"
'
'lblCurrencySymbolCountryTo
'
Me.lblCurrencySymbolCountryTo.Location
= New System.Drawing.Point(184, 136)
Me.lblCurrencySymbolCountryTo.Name
= "lblCurrencySymbolCountryTo"
Me.lblCurrencySymbolCountryTo.TabIndex
= 12
'
'lblCurrencySymbolCountryFrom
'
Me.lblCurrencySymbolCountryFrom.Location
= New System.Drawing.Point(184, 64)
Me.lblCurrencySymbolCountryFrom.Name
= "lblCurrencySymbolCountryFrom"
Me.lblCurrencySymbolCountryFrom.Size
= New System.Drawing.Size(96, 23)
Me.lblCurrencySymbolCountryFrom.TabIndex
= 11
'
'txtCurrCountryTo
'
Me.txtCurrCountryTo.Location = New System.Drawing.Point(96, 132)
Me.txtCurrCountryTo.Name
= "txtCurrCountryTo"
Me.txtCurrCountryTo.Size
= New System.Drawing.Size(80, 20)
Me.txtCurrCountryTo.TabIndex
= 10
Me.txtCurrCountryTo.Text
= "3.31"
'
'txtCurrCountryFrom
'
Me.txtCurrCountryFrom.Location
= New System.Drawing.Point(96, 60)
Me.txtCurrCountryFrom.Name
= "txtCurrCountryFrom"
Me.txtCurrCountryFrom.Size
= New System.Drawing.Size(80, 20)
Me.txtCurrCountryFrom.TabIndex
= 9
Me.txtCurrCountryFrom.Text
= "1.00"
'
'picCurrCountryToFlag
'
Me.picCurrCountryToFlag.Image
= CType(resources.GetObject("picCurrCountryToFlag.Image"),
System.Drawing.Image)
Me.picCurrCountryToFlag.Location
= New System.Drawing.Point(16, 124)
Me.picCurrCountryToFlag.Name
= "picCurrCountryToFlag"
Me.picCurrCountryToFlag.Size
= New System.Drawing.Size(72, 40)
Me.picCurrCountryToFlag.TabIndex
= 8
Me.picCurrCountryToFlag.TabStop
= False
'
'picCurrCountryFromFlag
'
Me.picCurrCountryFromFlag.Image
= CType(resources.GetObject("picCurrCountryFromFlag.Image"),
System.Drawing.Image)
Me.picCurrCountryFromFlag.Location
= New System.Drawing.Point(16, 52)
Me.picCurrCountryFromFlag.Name
= "picCurrCountryFromFlag"
Me.picCurrCountryFromFlag.Size
= New System.Drawing.Size(72, 40)
Me.picCurrCountryFromFlag.TabIndex
= 7
Me.picCurrCountryFromFlag.TabStop
= False
Me.picCurrCountryFromFlag.Tag
= ""
'
'lblTempCountryFrom
'
Me.lblTempCountryFrom.Font
= New System.Drawing.Font("Microsoft Sans
Serif", 9.0!, System.Drawing.FontStyle.Regular,
System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lblTempCountryFrom.Location
= New System.Drawing.Point(200, 56)
Me.lblTempCountryFrom.Name
= "lblTempCountryFrom"
Me.lblTempCountryFrom.Size
= New System.Drawing.Size(56, 23)
Me.lblTempCountryFrom.TabIndex
= 13
Me.lblTempCountryFrom.Text
= "° F"
'
'lblTempCountryTo
'
Me.lblTempCountryTo.Font
= New System.Drawing.Font("Microsoft Sans
Serif", 9.0!, System.Drawing.FontStyle.Regular,
System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lblTempCountryTo.Location
= New System.Drawing.Point(200, 128)
Me.lblTempCountryTo.Name
= "lblTempCountryTo"
Me.lblTempCountryTo.Size
= New System.Drawing.Size(48, 23)
Me.lblTempCountryTo.TabIndex
= 14
Me.lblTempCountryTo.Text
= "° C"
'
'lblVolCountryFrom
'
Me.lblVolCountryFrom.Location
= New System.Drawing.Point(192, 64)
Me.lblVolCountryFrom.Name
= "lblVolCountryFrom"
Me.lblVolCountryFrom.Size
= New System.Drawing.Size(80, 23)
Me.lblVolCountryFrom.TabIndex
= 12
Me.lblVolCountryFrom.Text
= "Gallon (US)"
'
'lblVolCountryTo
'
Me.lblVolCountryTo.Location
= New System.Drawing.Point(192, 136)
Me.lblVolCountryTo.Name
= "lblVolCountryTo"
Me.lblVolCountryTo.Size
= New System.Drawing.Size(80, 23)
Me.lblVolCountryTo.TabIndex
= 13
Me.lblVolCountryTo.Text
= "Liter(s)"
'
'frmMain
'
Me.AutoScaleBaseSize
= New System.Drawing.Size(5, 13)
Me.ClientSize
= New System.Drawing.Size(912, 429)
Me.Controls.Add(Me.GroupBox4)
Me.Controls.Add(Me.GroupBox3)
Me.Controls.Add(Me.GroupBox2)
Me.Controls.Add(Me.GroupBox1)
Me.Name
= "frmMain"
Me.StartPosition
= System.Windows.Forms.FormStartPosition.CenterScreen
Me.Text
= "GJ_Converter"
Me.GroupBox1.ResumeLayout(False)
Me.GroupBox2.ResumeLayout(False)
Me.GroupBox3.ResumeLayout(False)
Me.GroupBox4.ResumeLayout(False)
Me.ResumeLayout(False)
End Sub
#End
Region
Private Sub frmMain_Load(ByVal
sender As Object,
ByVal e As
System.EventArgs) Handles MyBase.Load
Me.cbxCountryFrom.SelectedIndex
= 6 '
intCurrentSystemCountryFrom =
ENGLISH_SYSTEM
Me.cbxCountryTo.SelectedIndex
= 5 '
intCurrentSystemCountryTo =
METRIC_SYSTEM
bolMsgWasDisplayedAlready = False
End Sub
Private Sub cbxCountryFrom_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles
cbxCountryFrom.SelectedIndexChanged
'To display
flag into Countries Selection's panel for the cbxCountryFrom item selected
Call
DisplayPictureFlagForCountryFromSelected(cbxCountryFrom.SelectedIndex)
'To define
and set the curent system values ( Metric System and/or English System )
Call
SetCurrentSystemValues(cbxCountryFrom.SelectedIndex, cbxCountryTo.SelectedIndex)
'To assign
values to the objects that belong to the Temperature's panel
Call
DisplayTempPictureFlagForCountryFromSelected(cbxCountryFrom.SelectedIndex)
Call
DisplayTemperatureUnitsForCountryFromSelected(cbxCountryFrom.SelectedIndex)
'To assign
values to the objects that belong to the Volume's panel
Call
DisplayVolPictureFlagForCountryFromSelected(cbxCountryFrom.SelectedIndex)
Call
DisplayVolumeUnitsForCountryFromSelected(cbxCountryFrom.SelectedIndex)
'To assign
values to the objects that belong to the Currency's panel
Call
DisplayCurrPictureFlagForCountryFromSelected(cbxCountryFrom.SelectedIndex)
Call
DisplayCurrUnitsForCountryFromSelected(cbxCountryFrom.SelectedIndex)
End Sub
Private Sub cbxCountryTo_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles
cbxCountryTo.SelectedIndexChanged
'To display flag
into Countries Selection's panel for the cbxCountryTo item selected
Call
DisplayPictureFlagForCountryToSelected(cbxCountryTo.SelectedIndex)
'To define
and set the curent system values ( Metric System and/or English System )
Call
SetCurrentSystemValues(cbxCountryFrom.SelectedIndex,
cbxCountryTo.SelectedIndex)
'To assign
values to the objects that belong to the Temperature's panel
Call
DisplayTempPictureFlagForCountryToSelected(cbxCountryTo.SelectedIndex)
Call
DisplayTemperatureUnitsForCountryToSelected(cbxCountryTo.SelectedIndex)
'To assign
values to the objects that belong to the Volume's panel
Call
DisplayVolPictureFlagForCountryToSelected(cbxCountryTo.SelectedIndex)
Call
DisplayVolumeUnitsForCountryToSelected(cbxCountryTo.SelectedIndex)
'To assign
values to the objects that belong to the Currency's panel
Call
DisplayCurrPictureFlagForCountryToSelected(cbxCountryTo.SelectedIndex)
Call
DisplayCurrUnitsForCountryToSelected(cbxCountryTo.SelectedIndex)
End Sub
'NOTE : I could
use an unique SubRoutine "DisplayFlagPicture" with the following
structure:
'Private Sub
DisplayFlagPicture(ByVal objPicCountry as PictureBox, _
' Byval objCbxCountry as ComboBox)
'Select Case
objCbxCountry.SelectedIndex ' Evaluate intIndex.
' Case CANADA_INDEX ' Canada Flag
' objPicCountry.Image =
Image.FromFile(Application.StartupPath &
"\Images\CanadaFlag.jpg")
' Case
EUROPEAN_UNION_INDEX ' European Union
Flag
' objPicCountry.Image =
Image.FromFile(Application.StartupPath & "\Images\EUFlag.png")
' Case JAPAN_INDEX '
' objPicCountry.Image =
Image.FromFile(Application.StartupPath & "\Images\JapanFlag.jpg")
' Case LIBERIAN_INDEX 'Liberian Flag
' objPicCountry.Image =
Image.FromFile(Application.StartupPath &
"\Images\LiberiaFlag.jpg")
' Case MYANMAR_INDEX '
' objPicCountry.Image =
Image.FromFile(Application.StartupPath &
"\Images\MyanmarFlag.jpg")
' Case PERU_INDEX '
' objPicCountry.Image =
Image.FromFile(Application.StartupPath & "\Images\PeruFlag.jpg")
' Case USA_INDEX ' USA Flag
'
objPicCountry.Image =
Image.FromFile(Application.StartupPath & "\Images\USAFlag.jpg")
'End Select
'End Sub
'To replace all
the following subroutines:
' DisplayPictureFlagForCountryFromSelected
' DisplayTempPictureFlagForCountryFromSelected
'
DisplayVolPictureFlagForCountryFromSelected
'
DisplayCurrPictureFlagForCountryFromSelected
' DisplayPictureFlagForCountryToSelected
' DisplayTempPictureFlagForCountryFromSelected
'
DisplayVolPictureFlagForCountryFromSelected
'
DisplayCurrPictureFlagForCountryFromSelected
'BUT I assume
that I am not allow to use Objects as parameters for now.
'******* BEGIN
SUBROUTINES TO DISPLAY COUNTRY FLAGS FOR TEMPERATURE,VOLUME,AND CURRENCY
PANELS*****
Private Sub DisplayPictureFlagForCountryFromSelected(ByVal intIndex As Integer)
Select Case intIndex ' Evaluate
intIndex.
Case CANADA_INDEX ' Canada Flag
picCountryFrom.Image =
Image.FromFile(Application.StartupPath &
"\Images\CanadaFlag.jpg")
Case
EUROPEAN_UNION_INDEX ' European Union Flag
picCountryFrom.Image =
Image.FromFile(Application.StartupPath & "\Images\EUFlag.png")
Case
JAPAN_INDEX '
picCountryFrom.Image =
Image.FromFile(Application.StartupPath & "\Images\JapanFlag.jpg")
Case
LIBERIAN_INDEX 'Liberian
Flag
picCountryFrom.Image =
Image.FromFile(Application.StartupPath &
"\Images\LiberiaFlag.jpg")
Case
MYANMAR_INDEX '
picCountryFrom.Image =
Image.FromFile(Application.StartupPath &
"\Images\MyanmarFlag.jpg")
Case
PERU_INDEX '
picCountryFrom.Image =
Image.FromFile(Application.StartupPath & "\Images\PeruFlag.jpg")
Case USA_INDEX ' USA Flag
picCountryFrom.Image =
Image.FromFile(Application.StartupPath & "\Images\USAFlag.jpg")
End Select
End Sub
Private Sub DisplayTempPictureFlagForCountryFromSelected(ByVal intIndex As Integer)
Select Case intIndex ' Evaluate
intIndex.
Case CANADA_INDEX ' Canada Flag
picTempCountryFromFlag.Image
= Image.FromFile(Application.StartupPath &
"\Images\CanadaFlag.jpg")
Case
EUROPEAN_UNION_INDEX ' European Union Flag
picTempCountryFromFlag.Image =
Image.FromFile(Application.StartupPath & "\Images\EUFlag.png")
Case
JAPAN_INDEX '
picTempCountryFromFlag.Image =
Image.FromFile(Application.StartupPath & "\Images\JapanFlag.jpg")
Case
LIBERIAN_INDEX 'Liberian
Flag
picTempCountryFromFlag.Image =
Image.FromFile(Application.StartupPath &
"\Images\LiberiaFlag.jpg")
Case
MYANMAR_INDEX '
picTempCountryFromFlag.Image =
Image.FromFile(Application.StartupPath &
"\Images\MyanmarFlag.jpg")
Case
PERU_INDEX '
picTempCountryFromFlag.Image =
Image.FromFile(Application.StartupPath & "\Images\PeruFlag.jpg")
Case USA_INDEX ' USA Flag
picTempCountryFromFlag.Image
= Image.FromFile(Application.StartupPath & "\Images\USAFlag.jpg")
End Select
End Sub
Private Sub DisplayVolPictureFlagForCountryFromSelected(ByVal intIndex As Integer)
Select Case intIndex ' Evaluate
intIndex.
Case CANADA_INDEX ' Canada Flag
picVolCountryFromFlag.Image
= Image.FromFile(Application.StartupPath &
"\Images\CanadaFlag.jpg")
Case
EUROPEAN_UNION_INDEX ' European Union Flag
picVolCountryFromFlag.Image =
Image.FromFile(Application.StartupPath & "\Images\EUFlag.png")
Case
JAPAN_INDEX '
picVolCountryFromFlag.Image =
Image.FromFile(Application.StartupPath & "\Images\JapanFlag.jpg")
Case
LIBERIAN_INDEX 'Liberian
Flag
picVolCountryFromFlag.Image =
Image.FromFile(Application.StartupPath &
"\Images\LiberiaFlag.jpg")
Case
MYANMAR_INDEX '
picVolCountryFromFlag.Image =
Image.FromFile(Application.StartupPath &
"\Images\MyanmarFlag.jpg")
Case
PERU_INDEX '
picVolCountryFromFlag.Image =
Image.FromFile(Application.StartupPath & "\Images\PeruFlag.jpg")
Case USA_INDEX ' USA Flag
picVolCountryFromFlag.Image
= Image.FromFile(Application.StartupPath & "\Images\USAFlag.jpg")
End Select
End Sub
Private Sub DisplayCurrPictureFlagForCountryFromSelected(ByVal intIndex As Integer)
Select Case intIndex ' Evaluate
intIndex.
Case CANADA_INDEX ' Canada Flag
picCurrCountryFromFlag.Image
= Image.FromFile(Application.StartupPath &
"\Images\CanadaFlag.jpg")
Case
EUROPEAN_UNION_INDEX ' European Union Flag
picCurrCountryFromFlag.Image =
Image.FromFile(Application.StartupPath & "\Images\EUFlag.png")
Case
JAPAN_INDEX '
picCurrCountryFromFlag.Image =
Image.FromFile(Application.StartupPath & "\Images\JapanFlag.jpg")
Case
LIBERIAN_INDEX 'Liberian
Flag
picCurrCountryFromFlag.Image =
Image.FromFile(Application.StartupPath &
"\Images\LiberiaFlag.jpg")
Case
MYANMAR_INDEX '
picCurrCountryFromFlag.Image =
Image.FromFile(Application.StartupPath &
"\Images\MyanmarFlag.jpg")
Case
PERU_INDEX '
picCurrCountryFromFlag.Image =
Image.FromFile(Application.StartupPath & "\Images\PeruFlag.jpg")
Case USA_INDEX ' USA Flag
picCurrCountryFromFlag.Image
= Image.FromFile(Application.StartupPath & "\Images\USAFlag.jpg")
End Select
End Sub
Private Sub DisplayPictureFlagForCountryToSelected(ByVal intIndex As Integer)
Select Case intIndex ' Evaluate
intIndex.
Case CANADA_INDEX ' Canada Flag
picCountryTo.Image = Image.FromFile(Application.StartupPath
& "\Images\CanadaFlag.jpg")
Case
EUROPEAN_UNION_INDEX ' European Union Flag
picCountryTo.Image =
Image.FromFile(Application.StartupPath & "\Images\EUFlag.png")
Case
JAPAN_INDEX '
picCountryTo.Image =
Image.FromFile(Application.StartupPath & "\Images\JapanFlag.jpg")
Case
LIBERIAN_INDEX 'Liberian
Flag
picCountryTo.Image =
Image.FromFile(Application.StartupPath & "\Images\LiberiaFlag.jpg")
Case
MYANMAR_INDEX '
picCountryTo.Image =
Image.FromFile(Application.StartupPath &
"\Images\MyanmarFlag.jpg")
Case
PERU_INDEX '
picCountryTo.Image = Image.FromFile(Application.StartupPath
& "\Images\PeruFlag.jpg")
Case USA_INDEX ' USA Flag
picCountryTo.Image =
Image.FromFile(Application.StartupPath & "\Images\USAFlag.jpg")
End Select
End Sub
Private Sub DisplayTempPictureFlagForCountryToSelected(ByVal intIndex As Integer)
Select Case intIndex ' Evaluate
intIndex.
Case CANADA_INDEX ' Canada Flag
picTempCountryToFlag.Image =
Image.FromFile(Application.StartupPath & "\Images\CanadaFlag.jpg")
Case
EUROPEAN_UNION_INDEX ' European Union Flag
picTempCountryToFlag.Image =
Image.FromFile(Application.StartupPath & "\Images\EUFlag.png")
Case
JAPAN_INDEX '
picTempCountryToFlag.Image =
Image.FromFile(Application.StartupPath & "\Images\JapanFlag.jpg")
Case
LIBERIAN_INDEX 'Liberian
Flag
picTempCountryToFlag.Image =
Image.FromFile(Application.StartupPath &
"\Images\LiberiaFlag.jpg")
Case
MYANMAR_INDEX '
picTempCountryToFlag.Image =
Image.FromFile(Application.StartupPath &
"\Images\MyanmarFlag.jpg")
Case
PERU_INDEX '
picTempCountryToFlag.Image =
Image.FromFile(Application.StartupPath & "\Images\PeruFlag.jpg")
Case USA_INDEX ' USA Flag
picTempCountryToFlag.Image =
Image.FromFile(Application.StartupPath & "\Images\USAFlag.jpg")
End Select
End Sub
Private Sub DisplayVolPictureFlagForCountryToSelected(ByVal intIndex As Integer)
Select Case intIndex ' Evaluate
intIndex.
Case CANADA_INDEX ' Canada Flag
picVolCountryToFlag.Image =
Image.FromFile(Application.StartupPath & "\Images\CanadaFlag.jpg")
Case
EUROPEAN_UNION_INDEX ' European Union Flag
picVolCountryToFlag.Image =
Image.FromFile(Application.StartupPath & "\Images\EUFlag.png")
Case
JAPAN_INDEX '
picVolCountryToFlag.Image =
Image.FromFile(Application.StartupPath & "\Images\JapanFlag.jpg")
Case
LIBERIAN_INDEX 'Liberian
Flag
picVolCountryToFlag.Image =
Image.FromFile(Application.StartupPath &
"\Images\LiberiaFlag.jpg")
Case
MYANMAR_INDEX '
picVolCountryToFlag.Image =
Image.FromFile(Application.StartupPath &
"\Images\MyanmarFlag.jpg")
Case
PERU_INDEX '
picVolCountryToFlag.Image =
Image.FromFile(Application.StartupPath & "\Images\PeruFlag.jpg")
Case USA_INDEX ' USA Flag
picVolCountryToFlag.Image =
Image.FromFile(Application.StartupPath & "\Images\USAFlag.jpg")
End Select
End Sub
Private Sub DisplayCurrPictureFlagForCountryToSelected(ByVal intIndex As Integer)
Select Case intIndex ' Evaluate
intIndex.
Case CANADA_INDEX ' Canada Flag
picCurrCountryToFlag.Image =
Image.FromFile(Application.StartupPath & "\Images\CanadaFlag.jpg")
Case
EUROPEAN_UNION_INDEX ' European Union Flag
picCurrCountryToFlag.Image =
Image.FromFile(Application.StartupPath & "\Images\EUFlag.png")
Case
JAPAN_INDEX '
picCurrCountryToFlag.Image =
Image.FromFile(Application.StartupPath & "\Images\JapanFlag.jpg")
Case
LIBERIAN_INDEX 'Liberian
Flag
picCurrCountryToFlag.Image =
Image.FromFile(Application.StartupPath &
"\Images\LiberiaFlag.jpg")
Case
MYANMAR_INDEX '
picCurrCountryToFlag.Image =
Image.FromFile(Application.StartupPath &
"\Images\MyanmarFlag.jpg")
Case
PERU_INDEX '
picCurrCountryToFlag.Image =
Image.FromFile(Application.StartupPath & "\Images\PeruFlag.jpg")
Case USA_INDEX ' USA Flag
picCurrCountryToFlag.Image =
Image.FromFile(Application.StartupPath & "\Images\USAFlag.jpg")
End Select
End Sub
'******* END SUBROUTINES
TO DISPLAY COUNTRY FLAGS FOR TEMPERATURE,VOLUME,AND CURRENCY PANELS*****
'******* BEGIN
SUBROUTINES TO DISPLAY TEMPERATURE UNITS **************************************
Private Sub DisplayTemperatureUnitsForCountryFromSelected(ByVal intIndex As Integer)
Select Case intIndex ' Evaluate
intIndex.
Case
CANADA_INDEX
lblTempCountryFrom.Text =
TEMPERATURE_METRIC_SYSTEM_UNIT
Case
EUROPEAN_UNION_INDEX
lblTempCountryFrom.Text = TEMPERATURE_METRIC_SYSTEM_UNIT
Case
JAPAN_INDEX
lblTempCountryFrom.Text =
TEMPERATURE_METRIC_SYSTEM_UNIT
Case
LIBERIAN_INDEX
lblTempCountryFrom.Text =
TEMPERATURE_ENGLISH_SYSTEM_UNIT
Case
MYANMAR_INDEX
lblTempCountryFrom.Text =
TEMPERATURE_ENGLISH_SYSTEM_UNIT
Case
PERU_INDEX
lblTempCountryFrom.Text =
TEMPERATURE_METRIC_SYSTEM_UNIT
Case
USA_INDEX
lblTempCountryFrom.Text = TEMPERATURE_ENGLISH_SYSTEM_UNIT
End Select
'To reset
temperature values
If
intCurrentSystemCountryFrom = METRIC_SYSTEM Then
txtTempCountryFrom.Text =
Trim(FormatNumber(0, 2))
ElseIf
intCurrentSystemCountryFrom = ENGLISH_SYSTEM Then
txtTempCountryFrom.Text =
Trim(FormatNumber(32, 2))
End If
If
intCurrentSystemCountryTo = METRIC_SYSTEM Then
txtTempCountryTo.Text =
Trim(FormatNumber(0, 2))
ElseIf intCurrentSystemCountryTo
= ENGLISH_SYSTEM Then
txtTempCountryTo.Text =
Trim(FormatNumber(32, 2))
End If
End Sub
Private Sub DisplayTemperatureUnitsForCountryToSelected(ByVal intIndex As Integer)
Select Case intIndex ' Evaluate
intIndex.
Case
CANADA_INDEX
lblTempCountryTo.Text =
TEMPERATURE_METRIC_SYSTEM_UNIT
Case
EUROPEAN_UNION_INDEX
lblTempCountryTo.Text =
TEMPERATURE_METRIC_SYSTEM_UNIT
Case
JAPAN_INDEX
lblTempCountryTo.Text =
TEMPERATURE_METRIC_SYSTEM_UNIT
Case
LIBERIAN_INDEX
lblTempCountryTo.Text =
TEMPERATURE_ENGLISH_SYSTEM_UNIT
Case
MYANMAR_INDEX
lblTempCountryTo.Text = TEMPERATURE_ENGLISH_SYSTEM_UNIT
Case
PERU_INDEX
lblTempCountryTo.Text =
TEMPERATURE_METRIC_SYSTEM_UNIT
Case
USA_INDEX
lblTempCountryTo.Text =
TEMPERATURE_ENGLISH_SYSTEM_UNIT
End Select
'To reset temperature values
If
intCurrentSystemCountryFrom = METRIC_SYSTEM Then
txtTempCountryFrom.Text =
Trim(FormatNumber(0, 2))
ElseIf
intCurrentSystemCountryFrom = ENGLISH_SYSTEM Then
txtTempCountryFrom.Text = Trim(FormatNumber(32,
2))
End If
If
intCurrentSystemCountryTo = METRIC_SYSTEM Then
txtTempCountryTo.Text =
Trim(FormatNumber(0, 2))
ElseIf
intCurrentSystemCountryTo = ENGLISH_SYSTEM Then
txtTempCountryTo.Text =
Trim(FormatNumber(32, 2))
End If
End Sub
'******* END
SUBROUTINES TO DISPLAY TEMPERATURE UNITS **************************************
'******* BEGIN
SUBROUTINES TO DISPLAY VOLUME UNITS **************************************
Private Sub DisplayVolumeUnitsForCountryFromSelected(ByVal intIndex As Integer)
Select Case intIndex ' Evaluate
intIndex.
Case
CANADA_INDEX
lblVolCountryFrom.Text =
VOLUME_METRIC_SYSTEM_UNIT
Case
EUROPEAN_UNION_INDEX
lblVolCountryFrom.Text =
VOLUME_METRIC_SYSTEM_UNIT
Case
JAPAN_INDEX
lblVolCountryFrom.Text =
VOLUME_METRIC_SYSTEM_UNIT
Case
LIBERIAN_INDEX
lblVolCountryFrom.Text =
VOLUME_ENGLISH_SYSTEM_UNIT
Case
MYANMAR_INDEX
lblVolCountryFrom.Text =
VOLUME_ENGLISH_SYSTEM_UNIT
Case
PERU_INDEX
lblVolCountryFrom.Text =
VOLUME_METRIC_SYSTEM_UNIT
Case
USA_INDEX
lblVolCountryFrom.Text =
VOLUME_ENGLISH_SYSTEM_UNIT
End Select
'To reset
temperature values
If
intCurrentSystemCountryFrom = METRIC_SYSTEM Then
txtVolCountryFrom.Text =
Trim(FormatNumber(VOLUME_FACTOR_GALLONS_TO_LITERS, 2))
ElseIf
intCurrentSystemCountryFrom = ENGLISH_SYSTEM Then
txtVolCountryFrom.Text =
Trim(FormatNumber(1, 2))
End If
If
intCurrentSystemCountryTo = METRIC_SYSTEM Then
txtVolCountryTo.Text = Trim(FormatNumber(VOLUME_FACTOR_GALLONS_TO_LITERS,
2))
ElseIf
intCurrentSystemCountryTo = ENGLISH_SYSTEM Then
txtVolCountryTo.Text =
Trim(FormatNumber(1, 2))
End If
End Sub
Private Sub DisplayVolumeUnitsForCountryToSelected(ByVal intIndex As Integer)
Select Case intIndex ' Evaluate
intIndex.
Case
CANADA_INDEX
lblVolCountryTo.Text =
VOLUME_METRIC_SYSTEM_UNIT
Case
EUROPEAN_UNION_INDEX
lblVolCountryTo.Text = VOLUME_METRIC_SYSTEM_UNIT
Case
JAPAN_INDEX
lblVolCountryTo.Text =
VOLUME_METRIC_SYSTEM_UNIT
Case
LIBERIAN_INDEX
lblVolCountryTo.Text =
VOLUME_ENGLISH_SYSTEM_UNIT
Case
MYANMAR_INDEX
lblVolCountryTo.Text =
VOLUME_ENGLISH_SYSTEM_UNIT
Case
PERU_INDEX
lblVolCountryTo.Text =
VOLUME_METRIC_SYSTEM_UNIT
Case
USA_INDEX
lblVolCountryTo.Text =
VOLUME_ENGLISH_SYSTEM_UNIT
End Select
'To reset
temperature values
If
intCurrentSystemCountryFrom = METRIC_SYSTEM Then
txtVolCountryFrom.Text =
Trim(FormatNumber(VOLUME_FACTOR_GALLONS_TO_LITERS, 2))
ElseIf
intCurrentSystemCountryFrom = ENGLISH_SYSTEM Then
txtVolCountryFrom.Text =
Trim(FormatNumber(1, 2))
End If
If
intCurrentSystemCountryTo = METRIC_SYSTEM Then
txtVolCountryTo.Text =
Trim(FormatNumber(VOLUME_FACTOR_GALLONS_TO_LITERS, 2))
ElseIf
intCurrentSystemCountryTo = ENGLISH_SYSTEM Then
txtVolCountryTo.Text =
Trim(FormatNumber(1, 2))
End If
End Sub
'******* END
SUBROUTINES TO DISPLAY VOLUME UNITS **************************************
'******* BEGIN SUBROUTINES
TO DISPLAY CURRENCY UNITS **************************************
Private Sub DisplayCurrUnitsForCountryFromSelected(ByVal intIndex As Integer)
Select Case intIndex ' Evaluate
intIndex.
Case
CANADA_INDEX
lblCurrencySymbolCountryFrom.Text
= CURRENCY_CANADA_SYMBOL
Case
EUROPEAN_UNION_INDEX
lblCurrencySymbolCountryFrom.Text = CURRENCY_EUROPEAN_UNION_SYMBOL
Case
JAPAN_INDEX
lblCurrencySymbolCountryFrom.Text = CURRENCY_JAPAN_SYMBOL
Case
LIBERIAN_INDEX
lblCurrencySymbolCountryFrom.Text = CURRENCY_LIBERIAN_SYMBOL
Case
MYANMAR_INDEX
lblCurrencySymbolCountryFrom.Text = CURRENCY_MYANMAR_SYMBOL
Case
PERU_INDEX
lblCurrencySymbolCountryFrom.Text = CURRENCY_PERU_SYMBOL
Case
USA_INDEX
lblCurrencySymbolCountryFrom.Text = CURRENCY_USA_SYMBOL
End Select
'To reset
currency values
txtCurrCountryFrom.Text =
Trim(FormatNumber(0, 2))
txtCurrCountryTo.Text =
Trim(FormatNumber(0, 2))
End Sub
Private Sub DisplayCurrUnitsForCountryToSelected(ByVal intIndex As Integer)
Select Case intIndex ' Evaluate
intIndex.
Case
CANADA_INDEX
lblCurrencySymbolCountryTo.Text
= CURRENCY_CANADA_SYMBOL
Case
EUROPEAN_UNION_INDEX ' European Union Flag
lblCurrencySymbolCountryTo.Text
= CURRENCY_EUROPEAN_UNION_SYMBOL
Case
JAPAN_INDEX
lblCurrencySymbolCountryTo.Text
= CURRENCY_JAPAN_SYMBOL
Case
LIBERIAN_INDEX
lblCurrencySymbolCountryTo.Text
= CURRENCY_LIBERIAN_SYMBOL
Case
MYANMAR_INDEX
lblCurrencySymbolCountryTo.Text
= CURRENCY_MYANMAR_SYMBOL
Case
PERU_INDEX
lblCurrencySymbolCountryTo.Text
= CURRENCY_PERU_SYMBOL
Case
USA_INDEX
lblCurrencySymbolCountryTo.Text
= CURRENCY_USA_SYMBOL
End Select
'To reset currency values
txtCurrCountryFrom.Text =
Trim(FormatNumber(0, 2))
txtCurrCountryTo.Text =
Trim(FormatNumber(0, 2))
End Sub
'******* END
SUBROUTINES TO DISPLAY CURRENCY UNITS **************************************
Private Sub lblMapCountryFrom_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles
lblMapCountryFrom.Click
Dim
strReturnMessage As String
Dim
strCaptionMessage As String
If
ValidateInputData(strReturnMessage, strCaptionMessage) = True Then
Dim
objfrmMap As New
frmMap
m_intIndexSelectedCountryMap =
cbxCountryFrom.SelectedIndex
m_strNameSelectedCountryMap =
cbxCountryFrom.Text & " Map"
objfrmMap.ShowDialog()
Else
If
bolMsgWasDisplayedAlready = False Then
bolMsgWasDisplayedAlready = True
MessageBox.Show(strReturnMessage, strCaptionMessage)
bolMsgWasDisplayedAlready = False
End
If
End If
End Sub
Private Sub lblCountryToMap_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles lblCountryToMap.Click
Dim
strReturnMessage As String
Dim
strCaptionMessage As String
If
ValidateInputData(strReturnMessage, strCaptionMessage) = True Then
Dim
objfrmMap As New
frmMap
m_intIndexSelectedCountryMap =
cbxCountryTo.SelectedIndex
m_strNameSelectedCountryMap =
cbxCountryTo.Text & " Map"
objfrmMap.ShowDialog()
Else
If
bolMsgWasDisplayedAlready = False Then
bolMsgWasDisplayedAlready = True
MessageBox.Show(strReturnMessage, strCaptionMessage)
bolMsgWasDisplayedAlready = False
End
If
End If
End Sub
Private Function ValidateInputData(ByRef
strReturnMsg As String,
_
ByRef strCaptionMsg As
String) As Boolean
ValidateInputData = True
strReturnMsg = ""
strCaptionMsg = ""
'To check
Temperature Input Data
'These input
data should be just positive or negative real numbers
If Not IsNumeric(Trim(txtTempCountryFrom.Text)) Or _
Not
IsNumeric(Trim(txtTempCountryTo.Text)) _
Then
ValidateInputData = False
strReturnMsg = "Please Enter a
Valid Numerical Value for Temperature"
strCaptionMsg = "Error -
Temperature Input Data"
GoTo
ValidateInputData_END
End If
'To check
Volume Input data
'These input
data should be just positive real numbers
If Not IsNumeric(Trim(txtVolCountryFrom.Text)) Or _
Not
IsNumeric(Trim(txtVolCountryTo.Text)) _
Then
ValidateInputData = False
strReturnMsg = "Please Enter a
Valid Positive Number for Volume"
strCaptionMsg = "Error -
Volume Input Data"
GoTo
ValidateInputData_END
Else
If CSng(Trim(txtVolCountryFrom.Text)) < 0 Or _
CSng(Trim(txtVolCountryTo.Text))
< 0 _
Then
ValidateInputData = False
strReturnMsg = "Please
Enter a Valid Positive Number for Volume"
strCaptionMsg = "Error -
Volume Input Data"
GoTo
ValidateInputData_END
End
If
End If
'To check
Currency Input Data
'These input
data should be just positive real numbers
If Not IsNumeric(Trim(txtCurrCountryFrom.Text)) Or _
Not
IsNumeric(Trim(txtCurrCountryTo.Text)) _
Then
ValidateInputData = False
strReturnMsg = "Please Enter a
Valid Positive Number for Currency"
strCaptionMsg = "Error -
Currency Input Data"
GoTo
ValidateInputData_END
Else
If CSng(Trim(txtCurrCountryFrom.Text)) < 0 Or _
CSng(Trim(txtCurrCountryTo.Text))
< 0 _
Then
ValidateInputData = False
strReturnMsg = "Please
Enter a Valid Positive Number for Currency"
strCaptionMsg = "Error -
Currency Input Data"
GoTo
ValidateInputData_END
End
If
End If
ValidateInputData_END:
End Function
Private Sub txtTempCountryFrom_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles
txtTempCountryFrom.LostFocus
Dim
strReturnMessage As String
Dim
strCaptionMessage As String
Dim
sngTemperatureResult As Single
If
ValidateInputData(strReturnMessage, strCaptionMessage) = True Then
bolMsgWasDisplayedAlready = False
If
TemperatureConversion(CInt(cbxCountryFrom.SelectedIndex),
_
CSng(txtTempCountryFrom.Text), _
CInt(cbxCountryTo.SelectedIndex), _
sngTemperatureResult) = True Then
txtTempCountryTo.Text =
Trim(FormatNumber(sngTemperatureResult, 2))
txtTempCountryFrom.Text = Trim(FormatNumber(txtTempCountryFrom.Text,
2))
Else
MessageBox.Show("Unknow
Error for Temperature Conversion Procedure", "Error Temperature
Conversion")
End
If
Else
If
bolMsgWasDisplayedAlready = False Then
bolMsgWasDisplayedAlready = True
MessageBox.Show(strReturnMessage, strCaptionMessage)
bolMsgWasDisplayedAlready = False
txtTempCountryFrom.SelectAll()
End
If
End If
End Sub
Private Sub txtTempCountryTo_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles
txtTempCountryTo.LostFocus
Dim
strReturnMessage As String
Dim
strCaptionMessage As String
Dim
sngTemperatureResult As String
If
ValidateInputData(strReturnMessage, strCaptionMessage) = True Then
bolMsgWasDisplayedAlready = False
If
TemperatureConversion(CInt(cbxCountryTo.SelectedIndex),
_
CSng(txtTempCountryTo.Text), _
CInt(cbxCountryFrom.SelectedIndex), _
sngTemperatureResult) = True Then
txtTempCountryFrom.Text =
Trim(FormatNumber(sngTemperatureResult, 2))
txtTempCountryTo.Text =
Trim(FormatNumber(txtTempCountryTo.Text, 2))
Else
MessageBox.Show("Unknow
Error for Temperature Conversion Procedure", "Error Temperature
Conversion")
End
If
Else
If
bolMsgWasDisplayedAlready = False Then
bolMsgWasDisplayedAlready = True
MessageBox.Show(strReturnMessage, strCaptionMessage)
bolMsgWasDisplayedAlready = False
txtTempCountryTo.SelectAll()
End
If
End If
End Sub
Private Sub txtVolCountryFrom_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles
txtVolCountryFrom.LostFocus
Dim
strReturnMessage As String
Dim
strCaptionMessage As String
Dim
sngVolumeResult As Single
If
ValidateInputData(strReturnMessage, strCaptionMessage) = True Then
bolMsgWasDisplayedAlready = False
If
VolumeConversion(CInt(cbxCountryFrom.SelectedIndex),
_
CSng(txtVolCountryFrom.Text),
_
CInt(cbxCountryTo.SelectedIndex), _
sngVolumeResult) = True Then
txtVolCountryTo.Text = Trim(FormatNumber(sngVolumeResult,
2))
txtVolCountryFrom.Text =
Trim(FormatNumber(txtVolCountryFrom.Text, 2))
Else
MessageBox.Show("Unknow
Error for Volume Conversion Procedure", "Error Volume
Conversion")
End If
Else
If
bolMsgWasDisplayedAlready = False Then
bolMsgWasDisplayedAlready = True
MessageBox.Show(strReturnMessage, strCaptionMessage)
bolMsgWasDisplayedAlready = False
txtVolCountryFrom.SelectAll()
End
If
End If
End Sub
Private Sub txtVolCountryTo_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles
txtVolCountryTo.LostFocus
Dim
strReturnMessage As String
Dim
strCaptionMessage As String
Dim
sngVolumeResult As Single
If
ValidateInputData(strReturnMessage, strCaptionMessage) = True Then
bolMsgWasDisplayedAlready = False
If
VolumeConversion(CInt(cbxCountryTo.SelectedIndex),
_
CSng(txtVolCountryTo.Text), _
CInt(cbxCountryFrom.SelectedIndex), _
sngVolumeResult) = True Then
txtVolCountryFrom.Text =
Trim(FormatNumber(sngVolumeResult, 2))
txtVolCountryTo.Text =
Trim(FormatNumber(txtVolCountryTo.Text, 2))
Else
MessageBox.Show("Unknow
Error for Volume Conversion Procedure", "Error Volume
Conversion")
End
If
Else
If
bolMsgWasDisplayedAlready = False Then
bolMsgWasDisplayedAlready = True
MessageBox.Show(strReturnMessage, strCaptionMessage)
bolMsgWasDisplayedAlready = False
txtVolCountryTo.SelectAll()
End
If
End If
End Sub
Private Sub txtCurrCountryFrom_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles
txtCurrCountryFrom.LostFocus
Dim
strReturnMessage As String
Dim strCaptionMessage
As String
Dim
sngCurrencyResult As Single
If
ValidateInputData(strReturnMessage, strCaptionMessage) = True Then
bolMsgWasDisplayedAlready = False
If
CurrencyConversion(CInt(cbxCountryFrom.SelectedIndex),
_
CSng(txtCurrCountryFrom.Text), _
CInt(cbxCountryTo.SelectedIndex), _
sngCurrencyResult) = True Then
txtCurrCountryTo.Text = Trim(FormatNumber(sngCurrencyResult,
2))
txtCurrCountryFrom.Text =
Trim(FormatNumber(txtCurrCountryFrom.Text, 2))
Else
MessageBox.Show("Unknow
Error for Currency Conversion Procedure", "Error Currency
Conversion")
End If
Else
If
bolMsgWasDisplayedAlready = False Then
bolMsgWasDisplayedAlready = True
MessageBox.Show(strReturnMessage, strCaptionMessage)
bolMsgWasDisplayedAlready = False
txtCurrCountryFrom.SelectAll()
End
If
End If
End Sub
Private Sub txtCurrCountryTo_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles
txtCurrCountryTo.LostFocus
Dim
strReturnMessage As String
Dim
strCaptionMessage As String
Dim
sngCurrencyResult As Single
If
ValidateInputData(strReturnMessage, strCaptionMessage) = True Then
bolMsgWasDisplayedAlready = False
If
CurrencyConversion(CInt(cbxCountryTo.SelectedIndex),
_
CSng(txtCurrCountryTo.Text), _
CInt(cbxCountryFrom.SelectedIndex), _
sngCurrencyResult) = True Then
txtCurrCountryFrom.Text =
Trim(FormatNumber(sngCurrencyResult, 2))
txtCurrCountryTo.Text =
Trim(FormatNumber(txtCurrCountryTo.Text, 2))
Else
MessageBox.Show("Unknow
Error for Currency Conversion Procedure", "Error Currency Conversion")
End
If
Else
If
bolMsgWasDisplayedAlready = False Then
bolMsgWasDisplayedAlready = True
MessageBox.Show(strReturnMessage, strCaptionMessage)
bolMsgWasDisplayedAlready = False
txtCurrCountryTo.SelectAll()
End
If
End If
End Sub
Private Sub SetCurrentSystemValues(ByVal
intIdxCountryFrom As Integer,
_
ByVal intIdxCountryTo As
Integer)
' Evaluate Source Country.
Select Case intIdxCountryFrom
Case
CANADA_INDEX
intCurrentSystemCountryFrom =
METRIC_SYSTEM
Case
EUROPEAN_UNION_INDEX
intCurrentSystemCountryFrom =
METRIC_SYSTEM
Case JAPAN_INDEX
intCurrentSystemCountryFrom =
METRIC_SYSTEM
Case
LIBERIAN_INDEX
intCurrentSystemCountryFrom =
ENGLISH_SYSTEM
Case
MYANMAR_INDEX
intCurrentSystemCountryFrom =
ENGLISH_SYSTEM
Case
PERU_INDEX
intCurrentSystemCountryFrom =
METRIC_SYSTEM
Case
USA_INDEX
intCurrentSystemCountryFrom =
ENGLISH_SYSTEM
End Select
' Evaluate
Target Country.
Select Case intIdxCountryTo
Case
CANADA_INDEX
intCurrentSystemCountryTo =
METRIC_SYSTEM
Case
EUROPEAN_UNION_INDEX
intCurrentSystemCountryTo =
METRIC_SYSTEM
Case
JAPAN_INDEX
intCurrentSystemCountryTo = METRIC_SYSTEM
Case
LIBERIAN_INDEX
intCurrentSystemCountryTo =
ENGLISH_SYSTEM
Case
MYANMAR_INDEX
intCurrentSystemCountryTo =
ENGLISH_SYSTEM
Case
PERU_INDEX
intCurrentSystemCountryTo =
METRIC_SYSTEM
Case
USA_INDEX
intCurrentSystemCountryTo =
ENGLISH_SYSTEM
End Select
End Sub
End Class
'
'SW403- Fall
2005
'Guillermo V. Julca
'http://www.gjp2s.com
Module Module1
Public
m_intIndexSelectedCountryMap As Integer
Public
m_strNameSelectedCountryMap As String
'Index Values
Public Const CANADA_INDEX As
Integer = 0
Public Const EUROPEAN_UNION_INDEX As
Integer = 1
Public Const JAPAN_INDEX As Integer = 2
Public Const LIBERIAN_INDEX As
Integer = 3
Public Const MYANMAR_INDEX As
Integer = 4
Public Const PERU_INDEX As Integer = 5
Public Const USA_INDEX As Integer = 6
'System Index
Values
Public Const METRIC_SYSTEM As
Integer = 1
Public Const ENGLISH_SYSTEM As
Integer = 2
'Temperature
Units
Public Const TEMPERATURE_METRIC_SYSTEM_UNIT As String = "°
C"
Public Const TEMPERATURE_ENGLISH_SYSTEM_UNIT As String = "°
F"
'Temperature
Conversion Formula: °F = 32 + (9/5) *
°C e.g., 32°F = 0°C
'Volume Units
Public Const VOLUME_METRIC_SYSTEM_UNIT As String =
"Liter(s)"
Public Const VOLUME_ENGLISH_SYSTEM_UNIT As String =
"Gallon (US)"
'Volume Factors
Public Const VOLUME_FACTOR_LITER_TO_GALLONS As Single = 0.264172
Public Const VOLUME_FACTOR_GALLONS_TO_LITERS As Single =
3.785412534
'Volume
Conversion Formulas: 1 liter = 0.264172 gal(US)
' 1 gal(US) =
3.785412534 liters
'Currency Units
(Symbol) by Country
Public Const CURRENCY_CANADA_SYMBOL As
String = "Canadian Dollar" '1 US Dollar (USD)
= 1.17110 Canadian Dollar (CAD)
Public Const CURRENCY_EUROPEAN_UNION_SYMBOL As String = "€
EURO" '1
US Dollar (USD) = 0.82994 Euro (EUR)
Public Const CURRENCY_JAPAN_SYMBOL As
String = "Japanese Yen" '1 US Dollar
(USD) = 112.400 Japanese Yen (JPY)
Public Const CURRENCY_LIBERIAN_SYMBOL As String =
"Liberian Dollar" '1 US Dollar (USD) =
57.00000 Liberian Dollar (LRD)
Public Const CURRENCY_MYANMAR_SYMBOL As String = "Mayanmar
Kyat" '1
US Dollar (USD) = 6.25250
Public Const CURRENCY_PERU_SYMBOL As
String = "Nuevo Sol" '1 US
Dollar (USD) = 3.31050 Peruvian Nuevo Sol (PEN)
Public Const CURRENCY_USA_SYMBOL As
String = "$ USD"
'Currency Factors
in relation with USD by Country
Public Const ONE_USD_TO_CANADA_VALUE As Single = 1.1711
Public Const ONE_USD_TO_EUROPEAN_UNION_VALUE As Single = 0.82994
Public Const ONE_USD_TO_JAPAN_VALUE As
Single = 112.4
Public Const ONE_USD_TO_LIBERIAN_VALUE As Single = 57.0
Public Const ONE_USD_TO_MYANMAR_VALUE As Single = 6.2525
Public Const ONE_USD_TO_PERU_VALUE As
Single = 3.3105
Public Const ONE_USD_TO_USA_VALUE As
Single = 1.0
'Function to
convert Temperature
Public Function TemperatureConversion(ByVal intTemperatureCountryIndexFrom As Integer, _
ByVal sngTemperatureValueFrom As Single, _
ByVal intTemperatureCountryIndexTo As Integer, _
ByRef sngTemperatureResultValue As Single) As Boolean
'General
Formula to use to convert °C(Metric System)
to °F(English System)
' °F = 32 + (9/5) * °C
'General
Formula to use to convert °F(English System)
to °C(Metric System)
' °C = (°F - 32) * (5/9)
Dim bolIsCountryFromMetricSystem As Boolean
Dim
bolIsCountryToMetricSystem As Boolean
Dim
bolIsCountryFromEnglishSystem As Boolean
Dim
bolIsCountryToEnglishSystem As Boolean
TemperatureConversion = False
sngTemperatureResultValue = 0
' Evaluate
Source Country.
Select Case intTemperatureCountryIndexFrom
Case
CANADA_INDEX
bolIsCountryFromMetricSystem = True
bolIsCountryFromEnglishSystem =
False
Case
EUROPEAN_UNION_INDEX
bolIsCountryFromMetricSystem = True
bolIsCountryFromEnglishSystem =
False
Case
JAPAN_INDEX
bolIsCountryFromMetricSystem = True
bolIsCountryFromEnglishSystem =
False
Case
LIBERIAN_INDEX
bolIsCountryFromMetricSystem = False
bolIsCountryFromEnglishSystem =
True
Case
MYANMAR_INDEX
bolIsCountryFromMetricSystem = False
bolIsCountryFromEnglishSystem =
True
Case
PERU_INDEX
bolIsCountryFromMetricSystem = True
bolIsCountryFromEnglishSystem =
False
Case
USA_INDEX
bolIsCountryFromMetricSystem = False
bolIsCountryFromEnglishSystem =
True
End Select
' Evaluate
Target Country.
Select Case intTemperatureCountryIndexTo
Case
CANADA_INDEX
bolIsCountryToMetricSystem = True
bolIsCountryToEnglishSystem = False
Case
EUROPEAN_UNION_INDEX
bolIsCountryToMetricSystem = True
bolIsCountryToEnglishSystem = False
Case
JAPAN_INDEX
bolIsCountryToMetricSystem = True
bolIsCountryToEnglishSystem = False
Case
LIBERIAN_INDEX
bolIsCountryToMetricSystem = False
bolIsCountryToEnglishSystem = True
Case
MYANMAR_INDEX
bolIsCountryToMetricSystem = False
bolIsCountryToEnglishSystem = True
Case
PERU_INDEX
bolIsCountryToMetricSystem = True
bolIsCountryToEnglishSystem = False
Case
USA_INDEX
bolIsCountryToMetricSystem = False
bolIsCountryToEnglishSystem = True
End Select
If
(bolIsCountryFromMetricSystem = True And bolIsCountryToMetricSystem = True) Or _
(bolIsCountryFromEnglishSystem = True And
bolIsCountryToEnglishSystem = True) _
Then
'Conversion
from °C(Metric System) to °C(Metric
System)
'OR from
°F(English System) to °F(English System)
sngTemperatureResultValue =
sngTemperatureValueFrom
ElseIf
(bolIsCountryFromMetricSystem = True And bolIsCountryToEnglishSystem = True) Then
'Conversion
from °C(Metric System) to °F(English
System)
'°F = 32
+ (9/5) * °C
sngTemperatureResultValue = 32.0 +
(9.0 / 5.0) * sngTemperatureValueFrom
ElseIf
(bolIsCountryFromEnglishSystem = True And bolIsCountryToMetricSystem = True) Then
'Conversion
from °F(English System) to °C(Metric
System)
'°C = (°F
- 32) * (5/9)
sngTemperatureResultValue =
(sngTemperatureValueFrom - 32.0) * (5.0 / 9.0)
End If
TemperatureConversion = True
End Function
'Function to
convert Volume
Public Function VolumeConversion(ByVal
intVolumeCountryIndexFrom As Integer, _
ByVal sngVolumeValueFrom As
Single, _
ByVal intVolumeCountryIndexTo As Integer, _
ByRef sngVolumeResultValue As
Single) As Boolean
'General Formula to use to convert Liters(Metric System) to
Gallons (English System)
' 1 liter
= 0.264172 gal(US)
'General
Formula to use to convert Gallons(English System) to Liters(Metric System)
' 1 gal(US) = 3.785412534 liters
Dim
bolIsCountryFromMetricSystem As Boolean
Dim
bolIsCountryToMetricSystem As Boolean
Dim
bolIsCountryFromEnglishSystem As Boolean
Dim
bolIsCountryToEnglishSystem As Boolean
VolumeConversion = False
sngVolumeResultValue = 0
' Evaluate
Source Country.
Select Case intVolumeCountryIndexFrom
Case
CANADA_INDEX
bolIsCountryFromMetricSystem = True
bolIsCountryFromEnglishSystem =
False
Case
EUROPEAN_UNION_INDEX
bolIsCountryFromMetricSystem = True
bolIsCountryFromEnglishSystem =
False
Case
JAPAN_INDEX
bolIsCountryFromMetricSystem = True
bolIsCountryFromEnglishSystem =
False
Case
LIBERIAN_INDEX
bolIsCountryFromMetricSystem = False
bolIsCountryFromEnglishSystem =
True
Case
MYANMAR_INDEX
bolIsCountryFromMetricSystem = False
bolIsCountryFromEnglishSystem =
True
Case
PERU_INDEX
bolIsCountryFromMetricSystem = True
bolIsCountryFromEnglishSystem =
False
Case
USA_INDEX
bolIsCountryFromMetricSystem = False
bolIsCountryFromEnglishSystem =
True
End Select
' Evaluate
Target Country.
Select Case intVolumeCountryIndexTo
Case
CANADA_INDEX
bolIsCountryToMetricSystem = True
bolIsCountryToEnglishSystem = False
Case
EUROPEAN_UNION_INDEX
bolIsCountryToMetricSystem = True
bolIsCountryToEnglishSystem = False
Case
JAPAN_INDEX
bolIsCountryToMetricSystem = True
bolIsCountryToEnglishSystem = False
Case
LIBERIAN_INDEX
bolIsCountryToMetricSystem = False
bolIsCountryToEnglishSystem = True
Case
MYANMAR_INDEX
bolIsCountryToMetricSystem = False
bolIsCountryToEnglishSystem = True
Case
PERU_INDEX
bolIsCountryToMetricSystem = True
bolIsCountryToEnglishSystem = False
Case
USA_INDEX
bolIsCountryToMetricSystem = False
bolIsCountryToEnglishSystem = True
End Select
If
(bolIsCountryFromMetricSystem = True And bolIsCountryToMetricSystem = True) Or _
(bolIsCountryFromEnglishSystem = True And
bolIsCountryToEnglishSystem = True) _
Then
'Conversion
from Liters(Metric System) to
Liters(Metric System)
'OR from
Gallons(English System) to Gallons(English System)
sngVolumeResultValue =
sngVolumeValueFrom
ElseIf
(bolIsCountryFromMetricSystem = True And bolIsCountryToEnglishSystem = True) Then
'Conversion
from Liters(Metric System) to
Gallons(English System)
'1
liter = 0.264172 gal(US)
sngVolumeResultValue =
VOLUME_FACTOR_LITER_TO_GALLONS * sngVolumeValueFrom
ElseIf
(bolIsCountryFromEnglishSystem = True And bolIsCountryToMetricSystem = True) Then
'Conversion
from Gallons(English System) to Liters(Metric
System)
'1
gal(US) = 3.785412534 liters
sngVolumeResultValue =
VOLUME_FACTOR_GALLONS_TO_LITERS * sngVolumeValueFrom
End If
VolumeConversion = True
End Function
'Function to
convert Currency
Public Function CurrencyConversion(ByVal
intCurrencyCountryIndexFrom As Integer, _
ByVal sngCurrencyValueFrom As
Single, _
ByVal intCurrencyCountryIndexTo As Integer, _
ByRef sngCurrencyResultValue As
Single) As Boolean
'General
Formula to use for currency conversion:
' X
CurrencyFrom * ( 1 US / A CurrencyFrom) * ( A CurrencyTo / 1 US) = Y CurrencyTo
' ==> X * ( B / A ) = Y
' where
X : Currency Value to convert
' B : Value Equivalent to 1USD
(Source Country)
' A : Value Equivalent to 1USD
(Target Country)
Dim
sngValueEquivalentUSDSourceCountry As Single
Dim
sngValueEquivalentUSDTargetCountry As Single
Dim
sngFactorCurrencyConversion As Single
CurrencyConversion = False
sngCurrencyResultValue = 0
' Evaluate
Source Country.
Select Case intCurrencyCountryIndexFrom
Case
CANADA_INDEX
sngValueEquivalentUSDSourceCountry = ONE_USD_TO_CANADA_VALUE
Case
EUROPEAN_UNION_INDEX
sngValueEquivalentUSDSourceCountry = ONE_USD_TO_EUROPEAN_UNION_VALUE
Case
JAPAN_INDEX
sngValueEquivalentUSDSourceCountry = ONE_USD_TO_JAPAN_VALUE
Case
LIBERIAN_INDEX
sngValueEquivalentUSDSourceCountry = ONE_USD_TO_LIBERIAN_VALUE
Case
MYANMAR_INDEX
sngValueEquivalentUSDSourceCountry = ONE_USD_TO_MYANMAR_VALUE
Case
PERU_INDEX
sngValueEquivalentUSDSourceCountry = ONE_USD_TO_PERU_VALUE
Case
USA_INDEX
sngValueEquivalentUSDSourceCountry
= ONE_USD_TO_USA_VALUE
End Select
' Evaluate
Target Country.
Select Case intCurrencyCountryIndexTo
Case
CANADA_INDEX
sngValueEquivalentUSDTargetCountry = ONE_USD_TO_CANADA_VALUE
Case
EUROPEAN_UNION_INDEX
sngValueEquivalentUSDTargetCountry = ONE_USD_TO_EUROPEAN_UNION_VALUE
Case
JAPAN_INDEX
sngValueEquivalentUSDTargetCountry = ONE_USD_TO_JAPAN_VALUE
Case
LIBERIAN_INDEX
sngValueEquivalentUSDTargetCountry = ONE_USD_TO_LIBERIAN_VALUE
Case
MYANMAR_INDEX
sngValueEquivalentUSDTargetCountry = ONE_USD_TO_MYANMAR_VALUE
Case
PERU_INDEX
sngValueEquivalentUSDTargetCountry
= ONE_USD_TO_PERU_VALUE
Case
USA_INDEX
sngValueEquivalentUSDTargetCountry = ONE_USD_TO_USA_VALUE
End Select
If
sngValueEquivalentUSDSourceCountry <> 0 Then
sngFactorCurrencyConversion =
sngValueEquivalentUSDTargetCountry / sngValueEquivalentUSDSourceCountry
Else
sngFactorCurrencyConversion = 0.0
End If
sngCurrencyResultValue =
sngCurrencyValueFrom * sngFactorCurrencyConversion
CurrencyConversion = True
End Function
End Module