DöViz Kuru Scripti yapımı

Asp kodları DöViz Kuru Scripti yapımı Hazır program kodları hakkında bilgi paylaş; Her yerde bulabileceğiniz bir script aslında. Ama şimdi yapacağımız script verileri tam olarak çekiyor ve tcmb....
Cevapla
 
Seçenekler
  #1  
Arama 28-10-2007, 09:47
W-S - ait Kullanıcı Resmi (Avatar)
W-S W-S forumda değil

Üyelik Tarihi: 23/08/07
Mesajlar: 1.486
 
     WS-Ticareti: (7)
Blog Yazıları: 7
Teşekkürleri: 829
125 Msg. 239 Tşkr.
Rep Gücü: 100 W-S isimli üye Tecrübe puanını kapatmıştır.

DöViz Kuru Scripti yapımı

Her yerde bulabileceğiniz bir script aslında. Ama şimdi yapacağımız script verileri tam olarak çekiyor ve tcmb.gov.tr adresinden otomatik olarak kendini güncelliyor. Aslında dediğim gibi bir çok yerde var ama çoğunda sorun var rakamları tam almıyor yada farklı farklı gösterimler yapıyor.

Başlıyalım ..

Öncelike tablomuzu oluşturalım. Bunun için 6 satır ve 2 hücrelik bir tablo yapalım.

tablomuzun ilk satırına "DOLAR" diyelim. 2. satıra "alış" 3. satıra "satış" diyelim.
4.satıra "EURO" diyelim 5. "alış" ve 6. satıra "satış" ekliyelim. Tablomuz bitti diye hesaplıyorum.

----------- KODLAMA BÖLÜMÜ ------------------
'merkez bankasına bağlanarak döviz kurlarını çekelim
<%
Public Function VeriAl(strGelen)
Set objVeriAl = Server.CreateObject("Microsoft.XMLHTTP" )
objVeriAl.Open "GET" , strGelen, FALSE
objVeriAl.sEnd
VeriAl = objVeriAl.Responsetext
SET objVeriAl = Nothing
End Function

'dolar için verileri tanımlayalım.
strAdres = "http://www.tcmb.gov.tr/kurlar/today.html"
strVeri = VeriAL(strAdres)
iDolar=InStr(strVeri,"USD" )
strDolarAlis=Mid(strVeri,iDolar+38,10)
strDolarSatis=Mid(strVeri,iDolar+51,10)
'burada yer alan 38,10 rakamları belirlemektedir.Rakamları değiştirerek farklı sonuçlar ortaya çıktığını görebilirsiniz.

'euro için verileri tanımlayalım.

iEuro=InStr(strVeri,"EUR" )

strEuroAlis=Mid(strVeri,iEuro+38,11) 'alış
strEuroSatis=Mid(strVeri,iEuro+50,11) 'satış
%>

------------Bağlantı Bölümü bitti------------
sayfamızın en üst bölümüne yerleştirdiğimiz zaman sorun yaşamadan çalıştırabilirsiniz.

Şimdi döviz kurlarını çektik ama tabloda göstermemiz gerekiyor.Bunun için hatırlarsanız tablomuzu 2 sütun yapmıştık ve biz 1. sütunu kullandık.

Şimdi 2. sütun 2. satıra kodumuzu yazalım. (2. satırdan başlama sebebimiz alış = karşılığı )

Dolar
Alış <%=strdolaralis%> 'sadece kodu yazmanız yeterli
Satış <%=strdolarsatis%>
Euro
Alış <%=streuroalis%>
Satış <%=streurosatis%>
__________________
~ ~
"Alıntı yaptığınızda link vermeyi ihmal etmeyiniz!"
Alıntı ile Cevapla
  #2  
Arama 04-12-2007, 04:05

Üyelik Tarihi: 04/12/07
Mesajlar: 1
 
     WS-Ticareti: (0)
Teşekkürleri: 0
0 Msg. 0 Tşkr.
Rep Gücü: 0 sahure deneyimleri belirsiz.
Merhabalar,
Ben ASP ile uğraşmaya yeni başladım.Ben sizin yukarıdaki örneğiniz gibi bir uygulama yapacağım fakat devlet meteoroloji işlerinin xml dosyasından veri çekip tablolara yazdıracağım.
Yukarıda 2 sütun ve 6 satırlık tabloyu frontpage de oluşturabilirmiyiz?
HTML kodunun üstüne ASP kodunu mu ekleyeceğiz?
En sondaki kurları yazdıracağımız bölümü nereye yazacağız???
Şimdiden yardımlarınız için teşekkürler....
Alıntı ile Cevapla
Cevapla


Seçenekler


Benzer Konular
Konu Konu Açanlar Forum Cevaplar Güncel Mesajlar
Türk Yapımı Forum Scripti İçin Sponsor TurkBB Sponsor Arayanlar 0 26-08-2008 05:17
köy scripti dernek scripti vakıf scripti semt scripti belediye scripti ilçe scripti seref23 Websitesi Alış - Satış 2 30-05-2008 11:29
köy scripti dernek scripti vakıf scripti semt scripti belediye scripti ilçe scripti seref23 Webmastersitesi çöplüğü 0 30-05-2008 11:26
köy scripti dernek scripti vakıf scripti semt scripti belediye scripti ilçe scripti seref23 Script Satış 0 30-05-2008 10:51
Sitene 11 Ülkenin Para Birimini Kaplayan Döviz Kuru Ekle Koy haberiz Html kodları 0 02-12-2007 03:21

Link vermek için alttaki kodu sitenize ekleyebilirsiniz. Veya Ctrl+C ile Kopyalayınız
Örnek görünüm: Webmaster Sitesi