TCMB den Günlük Döviz Kurunu Alma

Bu makalemizde TCMB günlük USD, EURO Alış Satış birim fiyatlarını alıp, Bir önceki günkü kurla karşılaştırıp Artış veya Azalış oranını göstereceğiz.

Günlük kurları TCMB nin http://www.tcmb.gov.tr/kurlar/today.xml dosyasından çekeceğiz.Bir önceki günkü kuruda;
Örnek:http://www.tcmb.gov.tr/kurlar/200705/30052007.xml seklinde xml dosyası. Bunu aşağıdaki kodları
incelediğinizde otomak olarak program alacak.

Formunuzu aşağıdaki Şekil 1 deki gibi tasarlayın...Bahadirsa

Şekil 1

Forma yazılacak kodlar:

Public Class Form1
    Dim tarih(3) As String
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        With Me
            .Text = "Bugünkü Döviz Kurunu Al"
            .MaximizeBox = False
        End With

    End Sub
    Private Sub btnAl_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAl.Click
        ‘bugunkü kuru alma
        Dim kur As DataSet = New DataSet
        kur.ReadXml("http://www.tcmb.gov.tr/kurlar/today.xml")
        Dim USD As DataRow = kur.Tables(1).Rows(0)
        Dim EURO As DataRow = kur.Tables(1).Rows(11)
        Me.txtusd.Text = USD(4)
        Me.txtusd2.Text = USD(5)
        Me.txteuro.Text = EURO(4)
        Me.txteuro2.Text = EURO(5)

        ‘bir gün önceki kuru alma
        Dim dun As String
        tarih(0) = Now.Date.Month
        If tarih(0) < 10 Then
            tarih(0) = 0 & tarih(0)
        ElseIf tarih(0) >= 10 Then
            tarih(0) = tarih(0)
        End If
        tarih(1) = Format(Now, "yyyy" & tarih(0))

        tarih(2) = (Now.Day - 1)

        If tarih(2) < 10 Then
            tarih(2) = 0 & tarih(2)
        ElseIf tarih(0) >= 10 Then
            tarih(2) = tarih(2)
        End If

        tarih(3) = Format(Now, tarih(2) & tarih(0) & "yyyy")

        Dim dunku_kur As DataSet = New DataSet
        ‘bir önceki gun formati
        ‘http://www.tcmb.gov.tr/kurlar/200705/30052007.xml seklinde

        dun = "http://www.tcmb.gov.tr/kurlar/" & tarih(1) & "/" & tarih(3) & ".xml"
        dunku_kur.ReadXml(dun)

        Dim dunku_USD As DataRow = dunku_kur.Tables(1).Rows(0)
        Dim dunku_EURO As DataRow = dunku_kur.Tables(1).Rows(11)

        ‘Dunku kura gore artma/azalma oranlama
        txtoran.Text = 100 * (Val(txtusd.Text) - Val(dunku_USD(4)))
        txtoran2.Text = 100 * (Val(txteuro.Text) - Val(dunku_EURO(4)))
        ‘Virgulden sonra iki rakam alma
        Dim a, b As Single
        a = txtoran.Text
        b = txtoran2.Text
        a = CSng(Format(a, "#,##0.00"))
        b = CSng(Format(b, "#,##0.00"))
        txtoran.Text = a
        txtoran2.Text = b

        If Val(a > 0) Then
            pbox1.Image = Image.FromFile("images\yukari.GIF")
        ElseIf Val(a < 0) Then
            pbox1.Image = Image.FromFile("images\asagi.GIF")
        End If

        If Val(b > 0) Then
            pbox2.Image = Image.FromFile("images\yukari.GIF")
        ElseIf Val(b < 0) Then
            pbox2.Image = Image.FromFile("images\asagi.GIF")
        End If

    End Sub

End Class