xmlHTTP ile Merkez Bankası Döviz Kurları (Ayrıntılı Açıklama)
7 Ağustos 2007Bilindiğ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.
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.
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.
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.
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
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
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
xmlHTTP ile url kontrolü
6 Ağustos 2007xmlHTTP Kullanarak sorgulanmak istenen URL`nin var olup olmadığını kontrol etmek mümkündür.
kayit.kisaltiyor.us adresinde kısaltılacak urller girildiğinde öyle bir adresin var olup olmadığını kontrol etmek için kullanıyordum, bir yerlerde işinize yarayabilir.
Function GETHTTP(adres)
On Error Resume Next
Set StrHTTP = Server.CreateObject("MSXML2.ServerXMLHTTP")
StrHTTP.Open "GET" , adres, False
StrHTTP.sEnd
If Err.Number = -2147012889 Then
Mesaj = "<font style=""color:red;"">DNS Yanıt vermiyor, Siteye ulaşılamadı</font>"
ElseIf Err.Number = -2147012867 Then
Mesaj = "<font style=""color:red;"">Url Bulunamadı</font>"
Else
Mesaj = "Url Bulundu Çalışıyor"
End If
GETHTTP = Mesaj
Set StrHTTP = Nothing
End Function
strUrl = Request("url")
If strUrl = "" Then strUrl = "www.hakansen.com"
If Mid(strUrl,1,7) <> "http://" Then strUrl = "http://"&strUrl
Veri = GETHTTP(strUrl)
Response.Write Veri
strUrl değişkenini request("url") nesnesi ile aldık ama bunu başka bir siteden input değeri ile post veya get methodu ile bir formdan gönderip de işlem yapabilirsiniz.
Devamı
Yorumlar (1)
Tarih : 6 Ağustos 2007 Pazartesi Saat: 21:14:49
Kategoriler : Makale, Programlama
Etiketler : xml, xmlhttp, asp, url kontrolü, fonksiyon,
404.asp hata sayfalarında kullanılan linkleri hazırlama fonksiyonu
25 Temmuz 2007Benim sitemde de gördüğünüz gibi http://www.hakansen.com/oku/134-asp-video-gosterme-fonksiyonu-duzeltme/ tarzi linkleri hazırlamak için bir fonksiyon hazırlamıştım.
Konu başlığı ASP Video Gösterme Fonksiyonu (Düzeltme) bunu linkle fonksiyonunda çalıştırdığımızda asp-video-gosterme-fonksiyonu-duzeltme diye bir string elde ediyoruz, bunu da seo dostu url linklerinde kullanabiliriz.
Kodun çalışan halini
adresinde bulabilirsiniz.
Devamı
Yorumlar (1)
Tarih : 25 Temmuz 2007 Çarşamba Saat: 11:33:14
Kategoriler : Programlama
Etiketler : asp, hata sayfası, url yapma, 404.asp, link, seo
SLTurkiye Url Servisi Url Oluşturma (LSL)
2 Mayıs 2007SLTurkiye Url ile koordinatlara göre Second Life haritasında web üzerinden gösterilebiliyor.
Bu kod ile de Inworld`de (oyun içerisinde) bulunduğunuz yerin SLTurkiye Url kodunu oluşturan küçük bir kod uygulaması link vermek isteyenlerin işine yarayabilir.
Web üzerinden url oluşturmak için de SLTurkiye Url Oluşturucuyu kullanabilirsiniz.
default
{
touch_start(integer t)
{
string regionname = llDumpList2String(llParseString2List(llGetRegionNa me(),[" "],[]),"%20");
vector pos = llGetPos();
integer x = (integer)pos.x;
integer y = (integer)pos.y;
integer z = (integer)pos.z;
llOwnerSay("http://SLTurkiye.com/git/"+regionname+"/"+(string)x+"/"+(string)y+"/"+(string)z+"/");
}
}
Devamı
Yorumlar (0)
Tarih : 2 Mayıs 2007 Çarşamba Saat: 14:05:00
Kategoriler : Programlama
Etiketler : slurl, slturkiye, git, map, lsl, linden, second life
Url Link Verme (LSL)
2 Mayıs 2007Bilindiği gibi uzun süredir second life isimli bir oyun üzerinde yoğunlaştım 
www.slturkiye.com sitesinden de uzun zamandır oyunla ve oyunun kendi programlama dili olan Linden Scripting Language (LSL) ile ilgili bir kaç döküman yazıyorum. Artık yazdıklarıma burada da yer vereceğim.
Bu scripti kullanarak scriptin bulunduğu nesneye tıklandığında (touch) bir uyarı penceresi çıkacak ve kullanıcının burada belirtilen siteye gidip gitmediği `Go To Page` butonu ile siteye oyun içerisinden yönlendirilecektir.
default
{
touch_start(integer total_number)
{
llLoadURL(llDetectedKey(0), "Sitemi Ziyaret Edin!", "http://www.hakansen.com");
}
}
Devamı
Yorumlar (0)
Tarih : 2 Mayıs 2007 Çarşamba Saat: 13:57:48
Kategoriler : Programlama
Etiketler : lsl, url, link, verme, Linden Scripting Language, billythe Kit,
