document.write('
Data hosted with ♥ by Pastebin.com - Download Raw - See Original
  1. Public Class Form1
  2.     Dim x As Double
  3.  
  4.     Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
  5.         If CB_form.Text = "EU" And CB_to.Text = "USD" Then
  6.             x = 1.21
  7.             T_result.Text = Str(CDec(T_Amount.Text) * x)
  8.         End If
  9.  
  10.         If CB_form.Text = "EU" And CB_to.Text = "IDR" Then
  11.             x = 17352.66
  12.             T_result.Text = Str(CDec(T_Amount.Text) * x)
  13.         End If
  14.  
  15.         If CB_form.Text = "USD" And CB_to.Text = "EU" Then
  16.             x = 0.82
  17.             T_result.Text = Str(CDec(T_Amount.Text) * x)
  18.         End If
  19.  
  20.         If CB_form.Text = "USD" And CB_to.Text = "IDR" Then
  21.             x = 14297.25
  22.             T_result.Text = Str(CDec(T_Amount.Text) * x)
  23.         End If
  24.  
  25.         If CB_form.Text = "IDR" And CB_to.Text = "EU" Then
  26.             x = 0.000058
  27.             T_result.Text = Str(CDec(T_Amount.Text) * x)
  28.         End If
  29.  
  30.         If CB_form.Text = "IDR" And CB_to.Text = "USD" Then
  31.             x = 0.00007
  32.             T_result.Text = Str(CDec(T_Amount.Text) * x)
  33.         End If
  34.  
  35.         If CB_form.Text = "EU" And CB_to.Text = "EU" Then
  36.             x = 1
  37.             T_result.Text = Str(CDec(T_Amount.Text) * x)
  38.         End If
  39.  
  40.         If CB_form.Text = "USD" And CB_to.Text = "USD" Then
  41.             x = 1
  42.             T_result.Text = Str(CDec(T_Amount.Text) * x)
  43.         End If
  44.  
  45.         If CB_form.Text = "IDR" And CB_to.Text = "IDR" Then
  46.             x = 1
  47.             T_result.Text = Str(CDec(T_Amount.Text) * x)
  48.         End If
  49.  
  50.     End Sub
  51. End Class
  52.  
');