20
EXE RANK
SpoinieN-
Fexe Kullanıcısı
Puanları
0
Çözümler
0
- Katılım
- 27 May 2010
- Mesajlar
- 29,079
- Tepkime puanı
- 0
- Puanları
- 0
- Yaş
- 27
- Web sitesi
- www.cankskn.com
Ş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...
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..
Alıntıdır..
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:
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 SubGelelim 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..
Alıntıdır..