Başlangıç > Kodlar > VB.NET ile Tcmb den günlük kuru alan fonksiyon ve kullanımı

VB.NET ile Tcmb den günlük kuru alan fonksiyon ve kullanımı


http://www.tcmb.gov.tr den istediğiniz döviz cinsinin alış veya satış kurunu alan fonksiyon

Dim key_cont as integer

Private Sub main_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

key_cont = Asc(Mid(CStr(1 / 2), 2, 1)) ‘İŞLETİM SİSTEMİNİN ONDALIKLI SAYILARI AYIRIRKEN KULLANDIĞI NOKTALAMA İŞARETNİN ASCII KODUNU ALIR

‘FONKSİYONUN ÖRNEK ÇAĞRILMA ŞEKİLLERİ
‘main İSİMLİ FORMUNUZDA rate ADINDA BİR TEXTBOX OLDUĞUNU DÜŞÜNELİM

rate.Text = Take_Rate("USD", 3) ‘ALIŞ FİYATINI DÖNDÜRÜR

‘VEYA

rate.Text = Take_Rate("EUR", 4) ‘SATIŞ FİYATINI DÖNDÜRÜR

End Sub

Public Function Take_Rate(ByVal type As String, ByVal selection As Integer) As String
'type DEĞİŞKENİ İLE GÖNDERİLEN DÖVİZ CİNSİNİN selection DEĞİŞKENİNİN DEĞERİNE GÖRE
'ALIŞ YADA SATIŞ FİYATINI GERİ DÖNDÜRÜR.****3=ALIŞ 4=SATIŞ****
'GELEN DEĞERİN İÇİNDEKİ NOKTALAMA İŞARETİNİ SİSTEMİN KULLANDIĞI AYIRAÇA ÇEVİRİR.
Dim xmlFile As String
Dim oDoc As New XmlDocument
Dim currNode As Xml.XmlNode
Dim currNodeHepsi As Xml.XmlNodeList
On Error GoTo HATA
xmlFile = "http://www.tcmb.gov.tr/kurlar/today.xml"
oDoc.Load(xmlFile)
currNodeHepsi = oDoc.DocumentElement.ChildNodes
For Each currNode In currNodeHepsi
If currNode.Name <> "Currency" Then Exit For
On Error Resume Next
If Err.Number = 0 Then
If currNode.Attributes.Item(1).InnerText = type Then
day_rate = currNode.ChildNodes.Item(selection).InnerText
End If
End If
Next
turn_rate = Nothing
For i = 1 To day_rate.Length
If Mid(day_rate, i, 1) = "." Or Mid(day_rate, i, 1) = "," Then
turn_rate += Chr(key_cont)
Else
turn_rate += Mid(day_rate, i, 1)
End If
Next
Return turn_rate
Exit Function
HATA:
Return Nothing
End Function


TD Software


Reklamlar
  1. Henüz yorum yapılmamış.
  1. No trackbacks yet.

Bir Cevap Yazın

Aşağıya bilgilerinizi girin veya oturum açmak için bir simgeye tıklayın:

WordPress.com Logosu

WordPress.com hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Twitter resmi

Twitter hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Facebook fotoğrafı

Facebook hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Google+ fotoğrafı

Google+ hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Connecting to %s

%d blogcu bunu beğendi: