VB-Online Döviz Kurları

[mayhemious]

simdi öncelikle Visual Basici açıyoruz..

Daha sonra Projekt/Components (Ctrl+T) e giriyoruz...
Burda bi çok bilesen var biz burdan sadece INET yani Microsoft Internet Transfer Control ü seçip tamama basıyoruz.
Yan taraftaki araçlara bi tane ekstra araç geliyo buna basıp formumuza bir adet yerlestiriyoruz...

Daha sonra güzel bi biçimde 4 tane (Dolar alıs-satıs, Euro alıs-satıs) düzenli text box olusturuyoruz. Label ve framelerle süslüyoruz..

simdi formumuzun kodlara geldi asagıdaki kodları aynen kopyalayabilirsiniz...

Kod: Tümünü seç

Private Sub Form_Load()
Dim strkur As String


strkur = Inet1.OpenURL("http://www.tcmb.gov.tr/kurlar/today.html")
Text1.Text = Mid(strkur, InStr(strkur, "USD") + 42, 5)
Text2.Text = Mid(strkur, InStr(strkur, "USD") + 55, 5)
Text3.Text = Mid(strkur, InStr(strkur, "EUR") + 42, 5)
Text4.Text = Mid(strkur, InStr(strkur, "EUR") + 55, 5)
End Sub

Gelelim kodları açıklamaya...


Alt tarafa geçtigimizde strkur degiskenine sitemizdeki kodları atıyoruz.. Sonra 1. text box ımıza USD yi aratıp 42 karakter sonrasından baslayacak biçimde 5 karakter yazdırıyoruz.. Ama kaynak kodlarına göre 42 karakter.. Yani html codelarınıda sayarken isin içine katıyoruz...

Aynı sekilde 2. 3. ve 4. text boxumızada kurları yazdırıyoruz..

Kısaca mantık bu umarım isinize yarayan seyler anlatmısımdır...