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

Ekim 22

PHP ile Merkez Bankası döviz kurları

Yorumlar (0) Tarih : 22 Ekim 2007 Pazartesi Saat: 14:45:26
Kategoriler : Programlama
Etiketler : php, döviz, kuru

Site iletişim formundan Doğan beyin gönderdiği bir mail ile daha önce yayınladığım döviz kuru sisteminin Php versiyonunun lazım olduğu haberini aldım ve kendisine yardımcı olmak adına gerekli kodları burada yayınlıyorum.

Söylemek isterim ki kodlar bana ait değil, Ben pek php bilmediğim için bunu arşivimde buldum, gerçek sahibini bilmediğim için kaynak gösteremiyorum ama bir çok yerde vardır sanırım bu kod.

Buyrun;

Kod:
<? 

$content = file_get_contents("http://www.tcmb.gov.tr/kurlar/toDay.xml"); 

$dolar_bul = explode('<Currency Kod="USD" CurrencyCode="USD">' ,$content); 

$dolar_bul = explode('</ForexBuying>',$dolar_bul[1]); 

$dolar_alis = explode('<ForexBuying>',$dolar_bul[0]); 

$dolar_bul = explode('</ForexSelling>',$dolar_bul[1]); 

$dolar_satis = explode('<ForexSelling>',$dolar_bul[0]); 

$dolar_alis = $dolar_alis[1]; 

$dolar_satis = $dolar_satis[1]; 



$euro_bul = explode('<Currency Kod="EUR" CurrencyCode="EUR">' ,$content); 

$euro_bul = explode('</ForexBuying>',$euro_bul[1]); 

$euro_alis = explode('<ForexBuying>',$euro_bul[0]); 

$euro_bul = explode('</ForexSelling>',$euro_bul[1]); 

$euro_satis = explode('<ForexSelling>',$euro_bul[0]); 

$euro_alis = $euro_alis[1]; 

$euro_satis = $euro_satis[1]; 

?>

Bu kodlar ile verileri aldık, bir tablo içerisinde gösterecek olursak
Kod:
<strong>T.C. Merkez Bankası Döviz Kuru </strong> 

<table width="100%" border="0" cellspacing="2" cellpadding="2"> 

<tr> 

<td width="31%"> </td> 

<td width="34%"><center>ALIŞ</center></td> 

<td width="35%"><center>SATIŞ</center></td> 

</tr> 

<tr> 

<td>USD dolar</td> 

<td width="34%"><div align="Right"><?=$dolar_alis ?> YTL</div></td> 

<td width="35%"><div align="Right"><?=$dolar_satis ?> YTL</div></td> 

</tr> 

<tr> 

<td>EUR euro</td><td width="34%"><div align="Right"><?=$euro_alis ?> YTL

</div></td>

<td width="35%"><div align="Right"><?=$euro_satis ?>YTL</div></td> 

</tr> 

</table>

Ekim 22

Her siteye siyah kurdela

Yorumlar (5) Tarih : 22 Ekim 2007 Pazartesi Saat: 12:24:23
Kategoriler : Hayata Dair
Etiketler : bayrak, div, siyah kurdela, site üstüne bayrak

Arkadaşlar son yaşadığımız olaylardan sonra ben şahsen siteme Türk Bayrağı ve Siyah kurdela koydum, Sizlerde koymak isterseniz diye kodlarını veriyorum.

Buyrun;

Kod:
<style type="text/css">

#bayrak a {

position: Absolute;

top: 0px;

Left: 0px;

position: Fixed;

text-indent: -1000px;

width: 100px;

height: 100px;

overflow: hidden;

background: url("http://www.hakansen.com/images/siyahkurdelalibayrak.png") 0 0 no-repeat;

} </style>

<div id="bayrak"><a href="http://www.hakansen.com"></a></div>

Ekim 21

Kopartan Karikatürler 1

Yorumlar (2) Tarih : 21 Ekim 2007 Pazar Saat: 14:53:44
Kategoriler : Resim, Gelde Gülme
Etiketler : kopartan, karikatürler






Devamı Var ...

Ekim 18

XML Servislerinden Veri Almak

Yorumlar (1) Tarih : 18 Ekim 2007 Perşembe Saat: 13:50:29
Kategoriler : Programlama
Etiketler : xml, DOMDocument, msxml2, istatistik, veri almak

XML`in çeşitli kullanımları ile ilgili örnek yazılar yazmıştım, fakat bu sefer farklı bir yöntem izleyeceğiz msxml2.DOMDocument ile veri almak işlemini yapıcaz fakat biraz değişik bir yol ile.

Öncelikle uygulamayı kendi sitemde denemek için bir xml servisi oluşturdum. Bu serviste www.hakansen.com adresinde ki tüm yazı ve yorumların sayısını başka bir sitede nasıl gösterileceğini göstermek istedim.

www.hakansen.com/kod/stats.asp adresinden başlayalım.

Kod:
- <istatistik>

  <ToplamKonu>145</ToplamKonu> 

  <ToplamYorum>142</ToplamYorum> 

  </istatistik>


şeklinde bir servis oluşturdum içerisindeki veriler veritabanındakilere göre otomatik olarak değişiyor.

Peki bunu başka bir sitede nasıl alıp kullanabilirim.

Bunun için ise verileri alma fonksiyonumuzu hazırlayalım.

Kod:
Function GetStats(Veri,url)

     Set xObj=Server.CreateObject("msxml2.DOMDocument")

     xobj.async=False

     xobj.setProperty "ServerHTTPRequest",True

     xobj.load(url)

     

     If (xObj.parseError.errorCode <> 0) Then

         GetStats =  xObj.parseError.reason

     Else

         Set sonuc=xobj.getElementsByTagName("istatistik")

         GetStats = (sonuc.Item(0).childnodes.Item(Veri).text)

     End If

End Function

şeklinde fonksiyonumuzu belirledik, Bu fonksiyonu biraz açıklamak gerekirse.

GetStats fonksiyonunu tanımlarken Url kısmına çekilecek verinin adresini belirtiyoruz.
Veri kısmına ise <istatistik> alt dizisinde bulunan verilerin sırasını giriyoruz bu sıra aynı Array nesnesi gibi 0,1,2,3,4... şeklinde gidecek yani 0 dan başlayacak.

Buraya kadar anlaşıldıysa uygulamaya da geçelim
Kod:
www.hakansen.com sitesinde şuan itibariyle Toplam <b><%=GetStats(0,"http://www.hakansen.com/kod/stats.asp")%> Konu</b> ve <b><%=GetStats(1,"http://www.hakansen.com/kod/stats.asp")%> Yorum</b> bulunmaktadır.

yazdığınız zaman
www.hakansen.com sitesinde şuan itibariyle Toplam 145 Konu ve 142 Yorum bulunmaktadır.
şeklinde bir cevap ile karşılaşacaksınız ve xmldeki verileri almış olacaksınız.

Ekim 17

Kel Bahaneleri

Yorumlar (0) Tarih : 17 Ekim 2007 Çarşamba Saat: 02:07:27
Kategoriler : Gelde Gülme
Etiketler : Kel, Bahaneleri, komik

Kel Bahaneleri
1-) Bana yakisiyor.

2-) Erkeklik hormonu fazla salgilaninca saclar dokulurmus. Yani fazla erkekler kel olurmus. Ne kadar kellik o kadar erkeklik.

3-) Tarihe bir bakin, butun buyuk adamlar keldir.

4-) Butun sac kozmetikleri para tuzagi

5-) istesem sac ektiririm ama insanin dogal hali daha guzeL.

6-) Zeki kadinlar kelleri çekici buluyor.

7-) Kelligimle dalga gecilmesine kizmiyorum cunku o benim kusurum degil, karizmamin bir parcasi.

8- ) Benim sac kurutma derdim yok neyseki. sukrediyorum halime.

9-) Benim babamin kirpi gibi saclari vardi

10-)Cekicilik beyinden gelir, uzerindeki killardan degil.

11-)Sen kafani kazitsan sana yakismaz. Kafa derin benimki kadar duzgun ve benimki gibi yuz fizyonomisine uygun olmali.

12-)Tarihte Japon dogusculeri kafalarini kazitip daha erkek gorunurlermis.

13-)Antropolojide zekaya delalet eden kivrimli beyine sahip kafataslari deri yuzeyi, genelde fazla saca musait olmamaktadir.

14-)Bir adamin kafasinda ya kil yada akil olur...

15-)Maden olan yerde ot bitmez


eXTReMe Tracker