|
Bu makalemizdede vb.net ile TCMB'den döviz kur bilgilerinin son güncel halini hızlı bir şekilde nasıl çekeceğimizi inceleyeceğiz .
Öncelikli olarak sayfamıza 4 adet label ekleyelim dolar alış, satış, euro alış ve satışlarını göstermek için kullnıcagız. Ekledikten sonra kod bölümümüze geçebiliriz.
Sub dovizislem()
Dim url As String = "http://www.tcmb.gov.tr/kurlar/today.html"
Dim strVeri As String = GetHTML(url)
Dim iDolar As String = InStr(strVeri, "USD")
Dim iEuro As String = InStr(strVeri, "EUR")
Dim strDolarAlis As String = Mid(strVeri, iDolar + 38, 10)
Dim strDolarSatis As String = Mid(strVeri, iDolar + 51, 10)
Dim strEuroAlis As String = Mid(strVeri, iEuro + 38, 11)
Dim strEuroSatis As String = Mid(strVeri, iEuro + 51, 11)
lbl_dolar.Text = strDolarSatis
lbl_euro.Text = strEuroSatis
End Sub
Private Function GetHTML(ByVal strURL As String) As String
Dim objResponse As WebResponse = Nothing
Dim strHTML As String
Try
Dim objUri As Uri = New Uri(strURL)
Dim objRequest As WebRequest = WebRequest.Create(objUri)
objResponse = objRequest.GetResponse
Dim objStream As Stream = objResponse.GetResponseStream
Dim encode As Encoding = System.Text.Encoding.UTF8
Dim objReader As StreamReader = New StreamReader(objStream, encode)
strHTML = objReader.ReadToEnd
Catch ex As Exception
Return ex.ToString
Finally
objResponse.Close()
End Try
Return strHTML
End Function
Kodlarımızı yazdıktan sonra sayfamızın load eventine döviz işlemi ekleyerek degerlerimizi yüklüyoruz.
Başka makalede görüşmek dilegiyle
.netle kalın.
|