title: Currency Converter Visual basic 2010
body: <p>I'm here for a bit problem in dealing the currency conversion by manual.</p>
  
  <p>How to put another value on the same existed combobox which the answers must be different.</p>
  
  <p>Example Japan Yen to US Dollars = 12.43 but US Dollars to Japan Yen does have same answer.</p>
  
  <p>What is the way to put the values on combobox2 which the answers are always different when set.</p>
  
  <hr>
  
  <pre><code> Private Sub CurrencyFromCombobox_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CurrencyFromCombobox.SelectedIndexChanged
  
  
   Select Case CurrencyFromCombobox.Text
  
   Case "Japanese Yen - JPY"
              fromjapan = 1
          Case "U.S. Dollar - USD"
              fromUSdollars = 1
      End Select
  
  
   Private Sub CurrencyToCombobox_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CurrencyToCombobox.SelectedIndexChanged
      Select Case CurrencyToCombobox.Text
          Case "Japanese YEN - JPY"
              japanto = 1.0
              USto = 323
          Case "Euro - EUR"
              japanto = 0.0075774548
          Case "British Pound - GBP"
              japanto = 0.0064142153
          Case "Indian Rupee - INR"
              japanto = 0.6309714918
          Case "Australian Dollar - AUD"
              japanto = 0.0108982954
          Case "U.S. Dollar - USD"
              japanto = 0.0102789194
          Case "Canadian Dollar - CAD"
              japanto = 0.010583474
          Case "UAE Dirham - AED"
              japanto = 0.0377534428
  
      End Select
  
  
      '------------------------------------------------------------Currency rates ffom US        Dollars
      Select Case CurrencyToCombobox.Text
          Case "Japanese YEN - JPY"
              USto = 323
          Case "Euro - EUR"
              USto = 0.7368
          Case "British Pound - GBP"
              USto = 0.6217
      End Select
  End Sub
  
     Private Sub Enterbutton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Enterbutton.Click
      Dim enter As Decimal
  
      ' Japanese yen conversion
      enter = Val(Enteramounttxt.Text)
      result = enter * fromjapan * japanto
      Resulttxt.Text = result.ToString
  
      ' US Dollar conversion
  
      result1 = enter * fromUSdollars * USto
      Resulttxt.Text = result1.ToString
  End Sub
  </code></pre>