ana sayfayı bir tabloya bağladım yüklendiğinde olayına
Kod:
Private Sub Form_Load()
' XML verisini çekme
Dim xml As Object
Set xml = CreateObject("MSXML2.ServerXMLHTTP.6.0")
Dim url As String
Dim responseText As String
' Merkez Bankası'nın API URL'si
url = "https://www.tcmb.gov.tr/kurlar/today.xml"
xml.Open "GET", url, False
xml.send
' API'den gelen veriyi okuma
responseText = xml.responseText
' XML verisini işleme
Dim doc As Object
Set doc = CreateObject("MSXML2.DOMDocument")
doc.async = False
doc.LoadXML responseText
' Dolar ve Euro kurlarını bulma (Alış ve Satış Kurları)
Dim usdBuying As Double
Dim usdSelling As Double
Dim eurBuying As Double
Dim eurSelling As Double
usdBuying = CDbl(doc.SelectSingleNode("//Currency[@Kod='USD']/ForexBuying").Text)
usdSelling = CDbl(doc.SelectSingleNode("//Currency[@Kod='USD']/ForexSelling").Text)
eurBuying = CDbl(doc.SelectSingleNode("//Currency[@Kod='EUR']/ForexBuying").Text)
eurSelling = CDbl(doc.SelectSingleNode("//Currency[@Kod='EUR']/ForexSelling").Text)
' Metin kutularına döviz kurlarını yazdırın
Me.Dolaralis.Value = Format(usdBuying / 10000, "0.0000")
Me.Dolarsatis.Value = Format(usdSelling / 10000, "0.0000")
Me.Euroalis.Value = Format(eurBuying / 10000, "0.0000")
Me.Eurosatis.Value = Format(eurSelling / 10000, "0.0000")
End Sub