[MAKALE] - Visual Basic ile Günlük Döviz Kurlarını Almak

[eSa]

Bu makalede günlük döviz kurlarını Merkez Bankası web sitesinden nasıl alınacağını ve programımızda bunu nasıl göstereceğimizi çok kısa olarak değineceğim.

Bunun için oluşturacağımız fonksiyonu projemizde istediğimiz yerden kullanabilmek için bir modül içerisine public olarak yazacağız.

[COLOR=#0000ff]Public Function[/COLOR] kur_goster()[COLOR=#0000ff] As String[/COLOR]


[COLOR=#0000ff]Dim [/COLOR]wsonuc [COLOR=#0000ff]As String[/COLOR]
[COLOR=#0000ff]Dim [/COLOR]xmlobj [COLOR=#0000ff]As Object[/COLOR]
[COLOR=#0000ff]Dim [/COLOR]idolar, ieuro, iparite [COLOR=#0000ff]As Integer[/COLOR]


[COLOR=#0000ff]Set [/COLOR]xmlobj = CreateObject("microsoft.xmlhttp")
xmlobj.Open "Get", "http://www.tcmb.gov.tr/kurlar/today.html", [COLOR=#0000ff]False[/COLOR]
xmlobj.send
wsonuc = xmlobj.responsetext
[COLOR=#0000ff]Set [/COLOR]xmlobj = [COLOR=#0000ff]Nothing[/COLOR]


idolar = InStr(wsonuc, "USD/TRY")
ieuro = InStr(wsonuc, "EUR/TRY")
iparite = InStr(wsonuc, "EUR/USD")


kur_goster = "USD/TRY : " & Trim(Mid(wsonuc, idolar + 79, 11)) & vbCrLf & _
    "EUR/TRY : " & Trim(Mid(wsonuc, ieuro + 79, 11)) & vbCrLf & _
    "EUR/USD : " & Trim(Mid(wsonuc, iparite + 38, 11))
    
[COLOR=#0000ff]End Function[/COLOR]

Kullanıma örnek olması için boş bir form açıp içine bir adet label nesnesi yerleştirdim.

Form_load kısmına ise;

[COLOR=#0000ff]Private Sub[/COLOR] Form_Load()
    Label1.Caption = kur_goster
[COLOR=#0000ff]End Sub[/COLOR]

yazmam yeterli oldu. ekran çıktısı aşağıdaki gibidir.

Bu makalede kullanılan programlar : Visual Basic 6.0

Bir sonraki makalede görüşmek üzere..

eSa