Public Class Form1

    Dim muuttuja1 As Double ''Luku jota verrataan

    Dim muuttuja2 As Double ''USD
    Dim muuttuja3 As Double ''RUB
    Dim muuttuja4 As Double ''GBP
    Dim muuttuja22 As Double ''USD valuutan tarkistuseen
    Dim muuttuja33 As Double ''RUB valuutan tarkistukseen
    Dim muuttuja44 As Double ''GBP valuutan tarkistukseen

    Dim muuttuja5 As Double ''tulos
    Dim muuttuja6 As Integer ''raksipoksien arvot





    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        muuttuja1 = TextBox1.Text

        muuttuja2 = 1.3857 'USD kurssi
        muuttuja3 = 42.55 'RUB kurssi
        muuttuja4 = 0.8704 'GBP kurssi



        TextBox2.Text = muuttuja2
        TextBox3.Text = muuttuja3
        TextBox4.Text = muuttuja4

        If TextBox2.Text = 1.3857 Then
        Else
            muuttuja22 = TextBox2.Text
        End If

        If TextBox3.Text = 42.55 Then
        Else
            muuttuja33 = TextBox3.Text
        End If

        If TextBox4.Text = 0.8704 Then
        Else
            muuttuja44 = TextBox4.Text
        End If

        TextBox2.Text = muuttuja22
        TextBox3.Text = muuttuja33
        TextBox4.Text = muuttuja44

        If CheckBox1.Checked = True Then
            muuttuja5 = muuttuja1 * muuttuja2
        End If

        If CheckBox2.Checked = True Then
            muuttuja5 = muuttuja1 * muuttuja3

        End If

        If CheckBox3.Checked = True Then
            muuttuja5 = muuttuja1 * muuttuja4

        End If

        '      If CheckBox1.Checked = False Then
        'CheckBox2.Checked = False

        ' End If

        muuttuja1 = muuttuja5
        TextBox1.Text = muuttuja5



    End Sub


End Class