Hakan ŞEN Kişisel Günce - Etiket : z / http://www.hakansen.com

xmlHTTP ile Merkez Bankası Döviz Kurları (Ayrıntılı Açıklama)

7 Ağustos 2007

Bilindiği gibi xmlHTTP`yi başka sitelerden veri çekmek için kullanıyoruz. xmlHTTP ile ilgili diğer yazılarım için http://www.hakansen.com/etiket/xmlhttp/ adresinden diğer konulara göz gezdirebilirsiniz.

Bu yazıda http://www.tcmb.gov.tr/kurlar/today.html adresinden Merkez Bankası döviz kurlarını anlık olarak nasıl alınır mantığı nedir ne değildir onu göstermeye çalışacağım.

Öncelikle Fonksiyonumuzu kurarak başlayalım.

Kod:

Public Function GETHTTP(strGelen) 

Set objVeriAl = Server.CreateObject("Microsoft.XMLHTTP" ) 

objVeriAl.Open "GET" , strGelen, False

objVeriAl.sEnd 

GETHTTP= objVeriAl.Responsetext 

Set objVeriAl = Nothing

End Function

Bu her zaman kullandığımız xmlhttp ile get metodu ile veri çekmek için kullanacağımız koddur.

şimdi devam edelim ve http://www.tcmb.gov.tr/kurlar/today.html adresine bağlanalım.

Kod:

strURL = "http://www.tcmb.gov.tr/kurlar/toDay.html" 

strVeri = GETHTTP(strAdres)

Siteye bağlandık ve responsetext olarak kaynağını aldık.

Şimdi sıra geldi USD yani dolar kurunu bu kodların içerisinden nasıl alırız onu öğrenmeye. Bu işlemi yapabilmek için inStr() ve Mid() fonksiyonlarını kullanacağız.

Kod:

iDolar=InStr(strVeri,"USD" ) 

strDolarAlis=Mid(strVeri,iDolar+39,10)

strDolarSatis=Mid(strVeri,iDolar+52,10)

InStr() fonksiyonu ile aldığımız kaynak kodunda USD yazan yerin karakter sırasını alıyoruz ve Mid() fonksiyonuyla koddaki karakterler arasında kurların yazdığı bölümü alıyoruz.

Kod:

strDolarAlis=Mid(strVeri,iDolar+39,10)

kodunda kaynak kodunun USD geçen yerinden 39 karakter sonrasindan başlayarak 10 karakter sonrasina kadar geçen bölümü alıyoruz, bu bölüm Merkez Bankası Dolar Alış kurunu almış oluyoruz.

Aynı şekilde EUR değerlerini de almak için

Kod:

iEuro=InStr(strVeri,"EUR" ) 

strEuroAlis=Mid(strVeri,iEuro+39,11)

strEuroSatis=Mid(strVeri,iEuro+52,11)

Böylelikle tüm verileri almış oluyoruz, bunları sitede kullanmak istediğimiz yerlerde

Kod:

Response.Write "Dolar Satış : "& strdolarsatis &"<br>"

Response.Write "Dolar Alış : "& strDolarAlis &"<br>"

Response.Write "Euro Satış : "& strEuroSatis &"<br>"

Response.Write "Euro Alış : "& strEuroAlis &"<br>"

şeklinde istediğiniz yerde kullanabilirsiniz.

Kodun komple çalışan versiyonuna http://www.hakansen.com/Kod/doviz.kurlari.txt adresinden ulaşabilirsiniz.

Devamı
Yorumlar (0)
Tarih : 7 Ağustos 2007 Salı Saat: 20:52:07
Kategoriler : Makale, Programlama
Etiketler : asp, xmlhttp, merkez bankası, kurları, instr, mid, fonksiyon

Fenerbahçe Gazetesi Güncelleme

6 Ağustos 2007

Fenerbahçe Spor Klübünün resmi yayın organı olan Fenerbahçe Gazetesinin web sitesinde bir kaç güncelleme yapıldı.

Kodlaması 2006 yılı sonlarında tarafımdan yapılan www.fenerbahcegazetesi.com sitesinde gelen istek üzerine haberler kısmında birkaç değişiklik ve güncelleme yapıldı.

Devamı
Yorumlar (0)
Tarih : 6 Ağustos 2007 Pazartesi Saat: 20:15:57
Kategoriler : Referanslar
Etiketler : FB, fener bahçe, fenerbahçe gazetesi, fenerbahcegazetesi.com

Nejat Alp - Arkadaşım

27 Temmuz 2007

sevgi ne guzel sey degil mi ?
tanrinin bize verdigi en guzel hediye
hic olmadık zamanda icimize alev gibi dusen
dunyadaki en guzel duygu bence
hayatin gercek anlami degil mi ?
sadece sevgili anlaminda soylemiyorum
butun sevdiklerimizin kiymetini bilmeliyiz
cunku onları ne zaman kaybedecegimizi bilemeyiz ki
onları ne kadar cok sevdigimizi soyleyecek sansimiz olmayabilir

sevgi dedimde aklima ne galdi biliyor musunuz
gecenlerde basimizdan bir olay gecti
aylarca beraber oldugum bir sevgilim vardi
gozumden bile sakindigim
o kadar guzel bir kizdi ki,anlatamam
deli gibi kiskaniyordum,hicbir arkadasima tanistrmadim onu
bigun evde oturuyorduk
o mutfaktayken,ben hayatta hic yapmadigim birseyi yaptim
ve onun telefonundaki mesajlari okudum
birde ne gorsem dersiniz
"askim cumartesi gunu satt 2 de kadikoy iskelesinde bulusalim mi ?" diyen bir mesaj
keske okumasaydim
tabii saat 2 de bende ordaydim
aman allahim gozlerime inanamadim
hayatta en cok sevdigim ve yillardir ayni sahneyi paylastigim piyanist arkadasim ozan
beni onunla aldatmisti
yemin ederim beynimden vurulmusa dondum
kisacasi ayrildik
duydum ki 20 gun sonra onuda terketmis
bizim semtte kucuk bir meyhane var,orda gordum ozani
dertli dertli iciyordu gozleri dolu dolu
kadehimi kaptigim gibi oturdum yanina
ve ona dedim ki

(sarki burda baslamaktadir)

Devamı Var ...

Devamı
Yorumlar (8)
Tarih : 27 Temmuz 2007 Cuma Saat: 00:00:44
Kategoriler : Muzik & Video, Şarkı Sözü
Etiketler : nejat, alp, arkadaşım, ozan, aşk acısı, video, youtube

Nazo - Sensizlik Ölümden Bile Zor

23 Temmuz 2007

Vur hadi bir hamleyle çek tetiği
Yok olan kalp ağrı duyar mı hiç kanar mı

Sensizlik ölümden bile zor
Hergün hergün ölmek gibi
Acısı çok devası yok
Sensin devası ilaç gibi

Gittiğinde kalbimi de aldın
Bak bende bir hiç bıraktın
Sen bensiz olursun
Ben seniz yarım kaldım

Sensizlik ölümden bile zor
Hergün hergün ölmek gibi
Acısı çok devası yok
Sensin devası ilaç gibi

Gittiğinde kalbimi de aldın
Bak bende bir hiç bıraktın
Ve bari sana bak geride
Gözden akan yaş bıraktım

Ve bari sana bak geride
Kalpten akan yaş bıraktım