Overview



This is a currency converter application, that gets rates from the online daily updated JSON file at http://www.floatrates.com/daily/eur.json





The raw JSON data is deserialized to a Dictionary(Of String, currencyDetails). The Dictionary stores all of the details about each currency, including an Overridden ToString method which returns the three character currency code, a hyphen, and the official currency name. Two Arrays derived from the Dictionary serve as DataSources for the From and To ComboBoxes. The ComboBoxes display the currencies and are sorted ASC. 

In Form_Load after the JSON is deserialized, a Table Class containing a Shared Array is called to create the Array used  to store all of the currency rates used by the converter. This is also arranged ASC, so the correct Array indices will be the From and To ComboBox SelectedIndices, and converting any of 148 currencies to any other of the 148 currencies is easily achieved.

This example uses just one Class for the currencyDetails obtained from the JSON, and another Class to host the Shared Array. Other than setting up the DataSources, creating the Table, and converting the currencies, there's just several GUI handlers for ensuring the results Label is kept up to date, and there's some painting in the Form_Paint event.

SystemColors are used in the Form to create a contrasting appearance, which should work well, however, your current color scheme is set up.




The Code



The Form



The code here is annotated, explaining step by step...

Imports System.Net
Imports Newtonsoft.Json
 
Public Class Form1
    Dim codes() As String
    Dim rates() As Decimal
    Dim inverse() As Decimal
 
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Dim client As New WebClient
        Dim rawResponseString As String = client.DownloadString("http://www.floatrates.com/daily/eur.json")
 
        'This is the Dictionary that, along with the table Array,
        'creates the core of this application.
        'The base currency for the rates obtained from the JSON is the Euro
        Dim jsonResulttodict As Dictionary(Of String, currencyDetails) = JsonConvert.DeserializeObject(Of Dictionary(Of String, currencyDetails))(rawResponseString)
        jsonResulttodict.Add("eur", New currencyDetails("EUR", "Euro", "1", jsonResulttodict("gbp").dateString, "1"))
 
        'These are all used simply for creation of the 2D table Array
        'that is used throughout this application
        codes = jsonResulttodict.Select(Function(kvp) kvp.Value.code).ToArray
        Dim tempCodes() As String = DirectCast(codes.Clone, String())
        rates = jsonResulttodict.Select(Function(kvp) kvp.Value.rate).ToArray
        inverse = jsonResulttodict.Select(Function(kvp) kvp.Value.inverseRate).ToArray
        Array.Sort(codes, rates)
        Array.Sort(tempCodes, inverse)
 
        Table.createArray(codes, rates, inverse)
 
        'These have two separately created Arrays. The Arrays are identical
        'but using one single Array for both ComboBoxes wouldn't allow
        'the ComboBoxes to work independently of each other...
        cboFrom.DataSource = jsonResulttodict.Select(Function(kvp) kvp.Value).OrderBy(Function(cd) cd.ToString).ToArray
        cboTo.DataSource = jsonResulttodict.Select(Function(kvp) kvp.Value).OrderBy(Function(cd) cd.ToString).ToArray
 
        'To ensure conversion takes place ASAP
        For Each ctrl As Control In Me.Controls
            If ctrl Is nudAmount Then Continue For
            AddHandler ctrl.Click, AddressOf ctrls_Click
        Next
        AddHandler Me.Click, AddressOf ctrls_Click
 
    End Sub
 
    Private Sub ctrls_Click(sender As Object, e As EventArgs)
        If sender Is Me Then lblResults.Select()
        DirectCast(sender, Control).Select()
    End Sub
 
    Private Sub inputs_ValuesChanged(sender As Object, e As EventArgs) Handles nudAmount.ValueChanged, cboFrom.SelectedIndexChanged, cboTo.SelectedIndexChanged,
                                                                                nudAmount.Leave, cboFrom.Leave, cboTo.Leave
        If cboFrom.SelectedIndex < 0 Or cboTo.SelectedIndex < 0 Or nudAmount.Value = 0D Then lblResults.Text = "" : Return
        lblResults.Text = nudAmount.Value.ToString & " " & cboFrom.Text.Substring(0, 3) & Environment.NewLine &
            "equals... " & Environment.NewLine & (Table.getValueAt(cboFrom.SelectedIndex, cboTo.SelectedIndex) * nudAmount.Value).ToString & " " & cboTo.Text.Substring(0, 3) &
            Environment.NewLine & Environment.NewLine & "Currency rates updated - " & DirectCast(cboFrom.SelectedItem, currencyDetails).dateString
    End Sub
 
    'This just paints some contrasting borders, in
    'keeping with the systemcolors contrasting theme
    Private Sub Form1_Paint(sender As Object, e As PaintEventArgs) Handles Me.Paint
        ControlPaint.DrawBorder(e.Graphics, New Rectangle(nudAmount.Left - 2, nudAmount.Top - 2, nudAmount.Width + 4, nudAmount.Height + 4), SystemColors.Control, ButtonBorderStyle.Solid)
        ControlPaint.DrawBorder(e.Graphics, New Rectangle(cboFrom.Left - 2, cboFrom.Top - 2, cboFrom.Width + 4, cboFrom.Height + 4), SystemColors.Control, ButtonBorderStyle.Solid)
        ControlPaint.DrawBorder(e.Graphics, New Rectangle(cboTo.Left - 2, cboTo.Top - 2, cboTo.Width + 4, cboTo.Height + 4), SystemColors.Control, ButtonBorderStyle.Solid)
        ControlPaint.DrawBorder(e.Graphics, New Rectangle(lblResults.Left - 3, lblResults.Top - 3, lblResults.Width + 6, lblResults.Height + 6), SystemColors.Control, ButtonBorderStyle.Solid)
    End Sub
 
End Class


The Table Class



Public Class Table
    Private Shared values()() As Decimal
 
    Public Shared Sub createArray(codes() As String, rates() As Decimal, inverse() As Decimal)
        'When complete, each cell of the table contains the value
        'for one 'From' unit's value in 'To' units
        ReDim values(codes.GetUpperBound(0))
        For x As Integer = 0 To codes.Length - 1
            ReDim values(x)(codes.GetUpperBound(0))
            values(x)(0) = rates(x)
            values(0)(x) = inverse(x)
            values(x)(x) = 1D
        Next x
        For c As Integer = 1 To codes.Length - 1
            For r As Integer = 1 To codes.Length - 1
                values(r)(c) = CDec(values(0)(c) / values(0)(r))
            Next
        Next
    End Sub
 
    Public Shared Function getValueAt(c As Integer, r As Integer) As Decimal
        Return values(r)(c)
    End Function
 
End Class


The currencyDetails Class



Public Class currencyDetails
    Public Property code As String
    Public Property name As String
    Public Property rate As Decimal
    Public Property dateString As String
    Public Property inverseRate As Decimal
 
    Public Sub New(code As String, name As String, rate As String, [date] As String, inverseRate As String)
        Me.code = code
        Me.name = name
        Me.rate = CDec(rate)
        Me.dateString = [date]
        Me.inverseRate = CDec(inverseRate)
    End Sub
 
    Public Overrides Function ToString() As String
        Return Me.code & " - " & Me.name
    End Function
 
End Class



Conclusion



The NuGet package Newtonsoft.Json makes working with raw JSON a simple task. It's easy to deserialize the JSON string into a Dictionary (in this case Of String, currencyDetails). 
Working with currency rates that are updated every day as raw JSON can make creating a simple currency converter an easy task.



Download




Download here...