25. Yüzyıl Türk Uyarı Levhaları
17 Ekim 2007- Kurbanlik sibernetik organizmalarinizin titanyum kaplamalarini Türk Hava Kurumu’na bagislayiniz.
- Dikkat!..Meteor düşebilir..
- Lütfen uzaya tükürmeyiniz.
- Buraya uranyum döken eşektir..
-Türbeye chip, süper iletken materyal, fiber optik kablo bağlamayiniz..
- Silikon bazli, display ozellikli kaldirim taslarinin degismesinden dolayi verdigimiz rahatsizliktan ötürü özür dileriz…(Çemişgezek Büyükşehir Belediyesi)
- Galaktik yol, indirme bindirme yapılmaz.
- Oy kullananlar lütfen parmaklarınızı radyasyonlu sıvıya istenmeden batırınız..
- Galaktik yolculuklarda lütfen ışın silahınızı görevli androidlere veriniz.
- Bina içi isinlama kabini 4 kisiliktir. 12 yasindan kucuklerin yanliz binmesi yasaktir.
- Işınlanırken burun karıştırmak bünye kısa devresine yol açabilir.
- Süpersonik atomik lazer güç üniteli testereyle odun kesilir..
- Lütfen yerlere chip atmayiniz
- Seyir halindeyken flymobil tuvalet deposunu boşaltmak yasaktir..
- Van kedisi ve sivas kangal kopeginin klon cihazina sokulmasi yasaktir..
- Telepati hattinda frekanslarin saglikli işlemesi için yuksek sesle konuşmayiniz, geğirmeyiniz
- Işınlanma odasina evcil hayvanla girmek yasaktir..
- Buraya çöp döken mutanttır..
- Galaksi hava boşluğunda sollama yapmayınız
- Dikkat azami hız 30 ışık yılı..
- Trafik uyarı simgelerini işın tabancasıyla yakmayınız
- Lütfen jupiter ayilarına kabuklu yemis atmayin.
- Bu bölümde sanal sigara icebilirsiniz..
- Lapalı yerlerde uranyum ve uranyum ürünlerinin kullanılması TCK xyzkl numaralı yasası gereği yasaktır...
- Lütfen androide pasonuzu istemeden gösteriniz.
- Seyahat esnasında güneşe yakın bölgelerde osurmamaya özen gösteriniz.
- Dikkat ! uzay gemisi çıkabilir ...
- Robotlara hidrolik yağ ikram etmeyiniz ...
- Galaktik yolculuk sırasında insan ve android lerin ikramlarından almayınız
Devamı
Yorumlar (0)
Tarih : 17 Ekim 2007 Çarşamba Saat: 02:06:30
Kategoriler : Gelde Gülme
Etiketler : 25. Yüzyıl Türk Uyarı Levhaları, komik
Fikrimin ince gülü
30 Ağustos 2007Fikrimin ince gülü, kalbimin sen bulbülü O gun ki gördüm seni, yaktın ah yaktın beni… Görduğüm günden beri, olmuşum inan deli O gün ki gördüm seni, yaktın ah yaktın beni… Ateşli dudakların, gamzeli yanakların O gün ki gördüm seni, yaktın ah yaktın beni…
Bu dizi çok güzel olacağa benziyor, birde fragmanlarını izliyelim.
Bırakıp Gittiğin Kalbinse Eğer, Elbet Döneceksin.
Birde baktım ki uzun zamandır karalamamışım seni blogum, artık seninle de ilgilenicem ama önce işlerimi bi bitireyim.
Devamı
Yorumlar (0)
Tarih : 30 Ağustos 2007 Perşembe Saat: 23:36:28
Kategoriler : Muzik & Video, Şarkı Sözü
Etiketler : fikrimin ince gülü
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
ASP Mid fonksiyonu
7 Ağustos 2007ASP de en çok kullanılan fonksiyonlardan bir diğeri de Mid fonksiyonudur.
Mid (Metin, Başlangıç, [Uzunluk])
Gönderilen ifade de belirtilen karekter pozisyonundan itibaren istenilen kadar değeri geri gönderir.
Mid (string_ifade, başlangıç_noktası,[alınacak karakter sayısı])
Alıcanacak karakter sayısı opsiyoneldir. Eğer belirtilmezse ifadenin sonuna kadar alacaktır.
Mid ("HAKAN ŞEN", 4, 2)
ifadesinde geriye dönen değer AN olacaktır.
Devamı
Yorumlar (1)
Tarih : 7 Ağustos 2007 Salı Saat: 20:43:27
Kategoriler : Makale, Programlama
Etiketler : mid, asp, vb, function, fonksiyon
Elnino - Dön Desem Gelirmisin
5 Temmuz 2007Bu sözleri gayet iyi biliyorum, Askerdeyken Elnino ile çok yakın bir dostluğumuz vardı, daha önce çok ısrar etmiştim, Şeref Namus şarkısına klip çekmişti şimdi de dön desem gelirmisin adlı parçaya klip çekmiş. Ayrıca yeni Atraksiyon albümü de çıkmış dinlemenizde fayda var diye düşünüyorum.
İşte yeni klip, ilk kez, elnino.gen.tr ile birlikte hakansen.com`da
Duy, beni sen duy, gör beni sen gör
Sev, beni sen sev, gel sen yeter,
Dön desem gelirmisin, gelirmisin yine bana
Kapım sana açık hadi sarıl kollarıma
Herşey yalan güzelim kalbim hasret sana
Seni senden istiyorum uzaklarda durmasana
Mesafeler ewet gerçekten önemli
Dünyaları getirseler senden kıymetlimi
Bu hasretlik elbet biter uyma sen kimselere
Gurbette buluşuruz rest çekeriz herkese
Sabah olmuyor dedim zindan kara gecelerde
Aklım biyerlerde ama kalbim hep seninle
Senin yerin benim yanım
Senin için aksın kanım
Durmaz bu bedende canım
Senle herşeye varım.
Duy, beni sen duy, gör beni sen gör
Sev, beni sen sev, gel sen yeter,
Ah bu kader neden oldun derbeder
bak günler gelir geçer sevdiğimi bana ver
evet uzaksın şimdi çok daha da uzak
yabancı diyarlarda hayat bize tuzak
şaka gibi bu geçmiş anlayamadım hala
yarama tuz basan basana merhem nerde acaba
kimbilir çözüm sen belkide bir başkası
sensiz olmaz olmasın benimlesin aşkısı
gülüp geçtiler aşkıma gülüp geçtiler bana
çocukluk seninkisi dediler dönmez asla sana
evet hala dönmedin sebebi var mı acaba
umutlarım tükenmedi bekliyorum hala.
Duy, beni sen duy, gör beni sen gör
Sev, beni sen sev, gel sen yeter,
Tesadüf eseri bak görüştük yine şimdi
kader mi sevgi mi tanrım bu neyin nesi peki
anladım sen bana kızgınsın yada anlayamadım
yıllar yılı boşa çabaladım şimdi ne yapmalıyım.
Bu sıralar elim kolum daha da bi bağlı
seni özlerken sivil bile olamamak bilirmisin ne kadar acı
bu delikanlı kendi aştı
koş kollarını sana açtı
boş degil kalbinde binlerce artçı
senin yerin herzaman ayrı öylede kalacak
ben ne zaman ölürsem işte o zaman son bulacak
bu sözlerim yalan gibi mi güzelim
ben seni sevdim hepde sevecegim
Elnino Hakkında her türlü bilgiyi mp3 ve kliplerini www.elnino.gen.tr adresinde bulabilirsiniz.
Devamı
Yorumlar (2)
Tarih : 5 Temmuz 2007 Perşembe Saat: 00:35:06
Kategoriler : Muzik & Video, Şarkı Sözü
Etiketler : elnino, dön, desem, gelirmisin, mp3, video, klip, youtube
