Hava durumunu sitenizde gösterin

admin — Tue, 15 Dec 2009 02:04:16 +0000

Merhaba,

Buradan yıllar önce bir site için yapmuş olduğum ASP kodlarını paylaşmak istiyorum.

Bu kodlar sayesinde weather.com hava verilerini kendi sitenizde yayınlayabilirsiniz.

hava.asp olarak bir asp dosyası açalım ve aşağıdaki kodları kullanalım.

<%@ Language=VBScript ‘ başlıyoruz.
Response.ContentType = “text/html”
Response.CharSet = “ISO-8859-9″ ’sayfa dilini türkçe olarak girdik.

Dim XmlHTTP, SourceFile, objDOM, objChild, I ’ değişkenler

SourceFile = “http://xoap.weather.com/weather/local/TUXX0014?cc=*&dayf=1∏=xoap&par=1007017884&key=8fa5357d76181c74″ ‘Buradaki bilgileri (key, url, local code) weather.com dan alabiliyorsunuz.
Set XmlHTTP = Server.CreateObject(“MSXML2.ServerXMLHTTP” ) ‘MSXML2 Object’inin serverinizde kurulu olması gerekiyor.
XmlHTTP.Open “GET” , SourceFile, false
XmlHTTP.SEnd

Set objDOM = Server.CreateObject(“Msxml2.DomDocument.3.0″ )
objDOM.async = False
objDOM.loadXML(XmlHTTP.ResponseText)
If objDOM.parseError.errorCode = 0 Then
hatali = “huyt” ‘Buradaki hata mesajını istediğiniz gibi değiştirin.

dim xmlNode
UpTime = objDOM.documentElement.selectSingleNode(“cc/lsup” ).Text
tmp = objDOM.documentElement.selectSingleNode(“cc/tmp” ).Text
flik = objDOM.documentElement.selectSingleNode(“cc/flik” ).Text
t = objDOM.documentElement.selectSingleNode(“cc/t” ).Text
icon = objDOM.documentElement.selectSingleNode(“cc/icon” ).Text
winds = objDOM.documentElement.selectSingleNode(“cc/wind/s” ).Text
windd = objDOM.documentElement.selectSingleNode(“cc/wind/t” ).Text
hmid = objDOM.documentElement.selectSingleNode(“cc/hmid” ).Text
vis = objDOM.documentElement.selectSingleNode(“cc/vis” ).Text
uvi = objDOM.documentElement.selectSingleNode(“cc/uv/i” ).Text
uvt = objDOM.documentElement.selectSingleNode(“cc/uv/t” ).Text
dewp = objDOM.documentElement.selectSingleNode(“cc/dewp” ).Text

durumen = Request.QueryString(“durumen” ) ‘QueryStringte drumen eğer boşsa ingilizce icon, değilse ona göre icon belirleriz.
If durumen <> “” Then
icon = durumen
Else
Select Case icon’Bundan sonrası Caseler, bunlar çok önemli, durumların rakamsal karşılıklarını ben tek tek çıkardım ve karşılıklarını yazdım. Mesela 11 ve 45 numaralı durumlar yagmurlu, duruma göre türkçe veya ingilice yazılacak. Devam…

Case “11″ ,“45″
durumen = “Rainy”
durumtr=“Yağmurlu”

Case “30″ ,“44″
durumen = “Clouds”
durumtr=“Parçalý Bulutlu”

Case “27″ ,“28″
durumen = “Cloudy”
durumtr=“Parçalý Bulutlu”

Case “23″ ,“24″ ,“31″ ,“33″
durumtr=“Açýk”
durumen = “Clear”

Case “13″ ,“14″ ,“15″ ,“16″ ,“25″ ,“41″ ,“42″ ,“43″ ,“46″
durumtr=“Karlý”
durumen = “Snow”

Case “5″ ,“7″ ,“8″ ,“10″
durumtr=“Sulu Kar”
durumen = “Sleet”

Case “6″ ,“18″
durumtr=“Tipi”
durumen = “Blizzard”

Case “0″ ,“1″ ,“2″ ,“3″ ,“4″ ,“12″ ,“17″ ,“35″ ,“37″ ,“38″ ,“39″,“40″ ,“47″
durumtr=“Saðnak Yaðmur”
durumen = “RainShower”

Case “36″ ,“32″
durumtr=“Güneþli”
durumen = “Sunny”

Case “9″ ,“19″ ,“20″ ,“21″ ,“22″ ,“34″ ,“29″
durumtr=“Sisli”
durumen = “fogy”

Case “26″
durumtr=“Bulutlu”
durumen = “Cloudy”

Case Else
durumtr=“N/A”
durumen = “N/A”
End Select
End If

‘Aşağıdaki kodlar zamanla ilgili olarak gece veya gündüz hallerini bildiren kodlardır. Mevsimlere göre değiştirebilirsiniz. yazın 21:00 dan sonra gece yapabilirsiniz.

zaman = Request.QueryString(“zaman” )
If zaman = “gece” Then
backgroundimage = “alts2″
ElseIf zaman = “gunduz” Then
backgroundimage = “alts”
Else
Select Case Hour(Now)
Case 5,6,7,8,9,10,11,12,13,14,15,16,17
backgroundimage = “alts”
Case 18,19,20,21,22,23
backgroundimage = “alts2″
Case Else
backgroundimage = “alts2″
End Select
End If
Else
hatali = “hayt”
End If
Set objDOM = Nothing
Set Source = Nothing
Set XMLHttp = Nothing

%>

Şimdide hava durumunun görüneceği sayfayı havadurumu.asp olarak oluşturuyorum ben

HAVA DURUMU

MASLAK’TA HAVA

<%= durumtr ‘buradan durumu türkçe olarak seçtik, istersek durumen diyerek ingilizcesini seçebilirdik. %>

<%
‘ Fahrenayt’tan °C’a ceviren Kodlama yapmamız gerek çünkü hava durumunu çektiğimiz weather.com sıcaklık değerini Fahrenayt olarak göstermektedir.
yahoo = Replace(tmp,“°F” ,“” ,1, -1, 1)
function converti(dblTempF)
converti = (5/9) * ( dblTempF -32 )
End function

dim dblGradIf
dblGradIf = yahoo
tehoo=Left(converti(yahoo),4)
sciakluks = tehoo & “°C”
Response.Write sciakluks ’sicaklığı yazzzzzz!!!! %>

Durum : <%=durumtr ‘durumu yazzzz%>

<%
teng = Replace(vis,” Mi” ,“” ,1,-1,1) ‘görüş netliğini millden metreye çevirmeliyiz
komg = teng*1.850 %>
Görüş Netliği : <%= komg & ” m”%>

Hissedilen Sıcaklık : <%=sciakluks %>

Nem Oranı : <%= hmid ‘nem oranını yazz%>

<%=“Rüzgâr : ” %> <%
yekes = Replace(winds,” MPH” ,“”,1, -1, 1) ‘Rüzgar hızını mil değerinden KmH’a çevirmeliyiz
Response.Write windd & ” ” & winds & ” KmPH” %>

<%
Set objDOM = Nothing
Set Source = Nothing
Set XMLHttp = Nothing

‘Object’lerimizi kapattik )
%>

Evet bu kadar.

Umarım yararlı olmuştur. Uzun süre önce yazdığım için (Weather.com daki değişimlerin durumunu bilmiyorum) şu an çalışıp çalışmadığını bile bilmiyorum. Ama yeni geliştirelecek kodlar için arkadaşlara fikir olabilir diye paylaşıyorum.

Not: Bu kodlar 02 Mart 2006 tarihinde http://forum.maxiasp.com/soru.asp?is=oku&sno=6563 adresinden tarafımca yayınlanmıştır.

Kolay Gelsin )


Durum :	<%=durumtr ‘durumu yazzzz%>
<% teng = Replace(vis,” Mi” ,“” ,1,-1,1) ‘görüş netliğini millden metreye çevirmeliyiz komg = teng1.850 %> Görüş Netliği :*	<%= komg & ” m”%>
Hissedilen Sıcaklık :	<%=sciakluks %>
Nem Oranı :	<%= hmid ‘nem oranını yazz%>
<%=“Rüzgâr : ” %>	<% yekes = Replace(winds,” MPH” ,“”,1, -1, 1) ‘Rüzgar hızını mil değerinden KmH’a çevirmeliyiz Response.Write windd & ” ” & winds & ” KmPH” %>

Tunahan.net » Havadurumu

Hava durumunu sitenizde gösterin