Online Döviz Bilgileri (vb)

[velociraptor]

Şimdi öncelikle Visual Basici açıyoruz..

Daha sonra Projekt/Components (Ctrl+T) e giriyoruz...
Burda bi çok bileşen 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 yerleştiriyoruz...

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

Şimdi formumuzun kodlara geldi aşağı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çtiğimizde strkur değişkenine sitemizdeki kodlarıatıyoruz.. Sonra 1. text box ımıza USD yi aratıp 42 karaktersonrasından başlayacak biçimde 5 karakter yazdırıyoruz.. Ama kaynakkodlarına göre 42 karakter.. Yani html codelarınıda sayarken işin içinekatıyoruz...

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

ALINTIDIR

[tasiyici]

bu işlemi hava durumu içinde yapmak mumkünmü acaba tarkan abi

[velociraptor]

vb ile hersey yapilabilir , gel gelelim ben coder degilim , hava durumu icin olani bulursam eklerim