Advertisement
Guest User

Untitled

a guest
Jul 22nd, 2014
194
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.57 KB | None | 0 0
  1. Partial Public Class MainPage
  2. Inherits PhoneApplicationPage
  3. Dim webClient As New System.Net.WebClient
  4. Dim a As String
  5. Dim b As String
  6. Dim result As String = Nothing
  7. ' Constructor
  8. Public Sub New()
  9. InitializeComponent()
  10. End Sub
  11.  
  12. Private Sub Button1_Click(sender As System.Object, e As System.Windows.RoutedEventArgs) Handles Button1.Click
  13. a = "USD"
  14. b = "GBP"
  15. webClient = New WebClient
  16. Dim result As String = webClient.DownloadStringAsync(New Uri("http://rate-exchange.appspot.com/currency?from=" + a + "&to=" + b) as String)
  17. TextBox1.Text = result
  18. End Sub
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement