IRCForumlarý - IRC ve mIRC Kullanýcýlarýnýn Buluþma Noktasý
  sohbet

13Beðeni(ler)

Yeni Konu aç Cevapla
 
LinkBack Seçenekler Stil
Alt 13 Þubat 2011, 22:21   #1
Çevrimdýþý
Kullanýcýlarýn profil bilgileri misafirlere kapatýlmýþtýr.
IF Ticaret Sayýsý: (0)
IF Ticaret Yüzdesi:(%)
Hava Durumu [2011]




Merhabalar,

Belirteceðiniz Ýl ve Ýlçe merkezlerinin Devlet Meteoroloji Ýþleri'nden alýnan verilere göre 5 günlük hava tahminini ve o an ki hava durumunu özetleyen bir çalýþmayý mIRC botunuzda kullanacak þekilde tasarladým.

Bu çalýþmanýn fikri forumda daha eskilerden el33t tarafýndan paylaþýlmýþ fakat güncelliðini (veri alýnan sitelerdeki deðiþim nedeniyle) kaybetmiþ.

Aþaðýdaki kodu mIRC botunuza ekledikten sonra kanaldaki bir nickin(kodu kendine ekleyen kiþi hariç):
.hava Þehir veya Ýlçe
!hava Þehir veya Ýlçe

yazmasý halinde verilere ulaþacaktýr.Devlet Meteoroloji Ýþleri sitesi illerin bazý ilçelerinde hava tahminleri vermiþ,bu nedenle kimi ilçelerde verileri elde edemeyebilirsiniz.
Kod:   Kodu kopyalamak için üzerine çift týklayýn!
alias havadurum { .remove hava.txt sockclose durum sockopen durum dmi.gov.tr 80 } on *:sockopen:durum:{ sockwrite -n $sockname GET /tahmin/il-ve-ilceler.aspx?m= $+ %difycity HTTP/1.1 sockwrite -n $sockname Host: $sock($sockname).addr sockwrite -n $sockname Connection: Close sockwrite -n $sockname $crlf } on *:sockread:durum:{ if ($sockerr) { msg %difychan $sock($sockname).wsmsg | halt } else { sockread %dify if $regex(%dify,/Bilgi Bulunamad/i) { msg %difychan Ýstenen merkez bulunamadý! | sockclose durum | halt } if $regex(%dify,/SonDurumRuzgarYon/i) { sockclose durum | msg %difychan $+(,$upper(%difycity),) için 5 günlük hava tahmini: | .play %difychan hava.txt 800 } if (*ctl00_mpBody*SonDurum* iswm %dify) { write -n hava.txt $chr(160) $replace($htmlfree(%dify),Äž,Ð,ü,ü,ÅŸ,þ,ı,ý,Ç,Ç,ÄŸ,ð,Ä°,Ý,ç,ç,ö,ö,Åž,Þ) } if $regex(%dify,/ctl00_mpBody.+SonDurum.+alt="(.+)" title="/i) { write -n hava.txt $chr(160)  $replace($regml(1),Äž,Ð,ü,ü,ÅŸ,þ,ı,ý,Ç,Ç,ÄŸ,ð,Ä°,Ý,ç,ç,ö,ö,Åž,Þ)  } if (*ctl00_mpBody_*arka*trh*</t?>* iswm %dify) { write -n hava.txt $replace($htmlfree(%dify),Äž,Ð,ü,ü,ÅŸ,þ,ı,ý,Ç,Ç,ÄŸ,ð,Ä°,Ý,ç,ç,ö,ö,Åž,Þ) } if $regex(%dify,/ctl00_mpBody_.+(")?minS">.+</td>/i) { write -n hava.txt $chr(160) En düþük: $htmlfree(%dify) } if $regex(%dify,/ctl00_mpBody_.+(")?maxS">.+</td>/i) { write -n hava.txt $chr(160) En yüksek: $htmlfree(%dify) } if $regex(%dify,/ctl00_mpBody_imgHadise.+" title="(.+)" src=".+</td>/i) { write -n hava.txt $chr(160) Hava: $replace($regml(1),Äž,Ð,ü,ü,ÅŸ,þ,ı,ý,Ç,Ç,ÄŸ,ð,Ä°,Ý,ç,ç,ö,ö,Åž,Þ)  $lf } } } alias htmlfree { var %x, %i = $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$chr(32),%x), %x = $remove(%x,&nbsp;,°) return %x } on $*:text:/[!\.]hava\s\S+/ASi:#Meteoroloji:{ if ($sock(durum,1).status == active || $play(1)) { notice $nick Sýrada bekleyen çalýþmanýn bitmesini bekleyiniz. | halt } else { msg $chan Verilere ulaþýlmaya çalýþýyor,lütfen bekleyiniz... | set -e %difycity $replace($2,þ,s,Þ,S,ý,i,ç,c,Ç,c,ü,u,Ü,U,ö,o,Ö,O,ð,g,Ð,G) | set -e %difychan $chan | havadurum } }



Þayet kodu kendinize ekleyip kendinizin direktifiyle çalýþmasýný istiyorsanýz,aþaðýdaki koduda kendi mircinize eklersiniz:

Kod:   Kodu kopyalamak için üzerine çift týklayýn!
on *:input:#Meteoroloji:{ if $regex($1-,/[!\.]hava\s\S+/ASi) { if ($sock(durum,1).status == active || $play(1)) { echo -a Sýrada bekleyen çalýþmanýn bitmesini bekleyiniz. | halt } else { msg $chan Verilere ulaþýlmaya çalýþýyor,lütfen bekleyiniz... | set -e %difycity $replace($2,þ,s,Þ,S,ý,i,ç,c,Ç,c,ü,u,Ü,U,ö,o,Ö,O,ð,g,Ð,G) | set -e %difychan $chan | havadurum } } }

Ben kod içerisinde #kanal olarak #Meteoroloji kanalýný belirledim,siz kendinize göre kanal ismini deðiþebilirsiniz.
Kanaldan bir görünüm:

[21:29] <BLack> .hava sanliurfa
[21:29] <@Difuzyon> Verilere ulaþýlmaya çalýþýyor,lütfen bekleyiniz...
[21:29] <@Difuzyon> SANLIURFA için 5 günlük hava tahmini:
[21:29] <@Difuzyon> 14 Þubat Pazartesi- En düþük: 3- En yüksek: 13- Hava: YAÐMURLU
[21:29] <@Difuzyon> 15 Þubat Salý- En düþük: 7- En yüksek: 12- Hava: YAÐMURLU
[21:29] <@Difuzyon> 16 Þubat Çarþamba- En düþük: 6- En yüksek: 13- Hava: YAÐMURLU
[21:29] <@Difuzyon> 17 Þubat Perþembe- En düþük: 5- En yüksek: 13- Hava: PARÇALI BULUTLU
[21:29] <@Difuzyon> 18 Þubat Cuma- En düþük: 4- En yüksek: 13- Hava: YAÐMURLU
[21:29] <@Difuzyon> - SON DURUM * - 13 Þubat Pazar, 21:00- Hava- PARÇALI BULUTLU - Sýcaklýk : 6.6C- -->- Nem : %94- Basýnç : 1016.7 hPa- Görüþ : 20 km
[21:29] <BLack> veriler doðrumu
[21:30] <BLack> güncel hava tahminini nerden alýyorsun
[21:31] <@Difuzyon> veriler tamamen YALAN
[21:31] <@Difuzyon> yaðmurlu dediðine bakma, hava CÝLLOP gibi
[21:32] <BLack> :)
[21:32] <@Difuzyon> ;)
[22:12] <@Difuzyon> !hava eyup
[22:12] <@Difuzyon> EYUP için 5 günlük hava tahmini:
[22:12] <@Difuzyon> 14 Þubat Pazartesi- En düþük: 3- En yüksek: 9- Hava: ÇOK BULUTLU
[22:12] <@Difuzyon> 15 Þubat Salý- En düþük: 1- En yüksek: 7- Hava: YAÐMURLU
[22:12] <@Difuzyon> 16 Þubat Çarþamba- En düþük: 0- En yüksek: 6- Hava: ÇOK BULUTLU
[22:12] <@Difuzyon> 17 Þubat Perþembe- En düþük: 1- En yüksek: 10- Hava: PARÇALI BULUTLU
[22:12] <@Difuzyon> 18 Þubat Cuma- En düþük: 5- En yüksek: 15- Hava: YAÐMURLU
[22:12] <@Difuzyon> - SON DURUM * - 13 Þubat Pazar, 21:20- Hava- AZ BULUTLU - Sýcaklýk : 4C- -->- Nem : %56- Basýnç : 1018 hPa- Görüþ : 10 km

Hoþca paylaþýmlar dilerim...

Burdan Ýndir Bu forumdaki ekleri görübilmek için 25 mesaja sahip olmanýz gerekir. Sizin 0 Mesajýnýz var.

Konu Difuzyon tarafýndan (14 Þubat 2011 Saat 21:37 ) deðiþtirilmiþtir. Sebep: eklenti ilave edildi.
 
Alýntý ile Cevapla

IRCForumlari.NET Reklamlar
sohbet odalarý sohbet odalarý Benimmekan Mobil Sohbet
Alt 13 Þubat 2011, 22:24   #2
Çevrimdýþý
Kullanýcýlarýn profil bilgileri misafirlere kapatýlmýþtýr.
IF Ticaret Sayýsý: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Hava Durumu [2011]




güzel paylaþým teþekkürler..

 
Alýntý ile Cevapla

Alt 14 Þubat 2011, 06:30   #3
Çevrimdýþý
Kullanýcýlarýn profil bilgileri misafirlere kapatýlmýþtýr.
IF Ticaret Sayýsý: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Hava Durumu [2011]




Yine Döktürmüþsün Cenk Usta ((= Emeðine Saðlýk..

 
Alýntý ile Cevapla

Alt 14 Þubat 2011, 14:30   #4
Çevrimdýþý
Kullanýcýlarýn profil bilgileri misafirlere kapatýlmýþtýr.
IF Ticaret Sayýsý: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Hava Durumu [2011]




Güzel calýsma basarýlar. bende Karakterler bozuk cýktý ustad nasýl düzeltebilirim?

__________________
IRC ve Sanal bitmiþtir.
 
Alýntý ile Cevapla

Alt 14 Þubat 2011, 14:37   #5
Çevrimdýþý
Kullanýcýlarýn profil bilgileri misafirlere kapatýlmýþtýr.
IF Ticaret Sayýsý: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Hava Durumu [2011]




güzel bir seye benziyor
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajýnýz olmasý gerekir.

 
Alýntý ile Cevapla

Alt 14 Þubat 2011, 15:58   #6
Çevrimdýþý
Kullanýcýlarýn profil bilgileri misafirlere kapatýlmýþtýr.
IF Ticaret Sayýsý: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Hava Durumu [2011]




Ýlgiyle izliyoruz sizi üstad
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajýnýz olmasý gerekir.
, tebrik ederim...

 
Alýntý ile Cevapla

Alt 14 Þubat 2011, 18:22   #7
Çevrimiçi
Kullanýcýlarýn profil bilgileri misafirlere kapatýlmýþtýr.
IF Ticaret Sayýsý: (1)
IF Ticaret Yüzdesi:(%)
Cevap: Hava Durumu [2011]




Eline saðlýk umarým herkese faydalý olur.

 
Alýntý ile Cevapla

Alt 14 Þubat 2011, 19:10   #8
Çevrimdýþý
Kullanýcýlarýn profil bilgileri misafirlere kapatýlmýþtýr.
IF Ticaret Sayýsý: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Hava Durumu [2011]




Difuzyon Nickli Üyeden Alýntý
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajýnýz olmasý gerekir.
Merhabalar,

Belirteceðiniz Ýl ve Ýlçe merkezlerinin Devlet Meteoroloji Ýþleri'nden alýnan verilere göre 5 günlük hava tahminini ve o an ki hava durumunu özetleyen bir çalýþmayý mIRC botunuzda kullanacak þekilde tasarladým.

Bu çalýþmanýn fikri forumda daha eskilerden el33t tarafýndan paylaþýlmýþ fakat güncelliðini (veri alýnan sitelerdeki deðiþim nedeniyle) kaybetmiþ.

Aþaðýdaki kodu mIRC botunuza ekledikten sonra kanaldaki bir nickin(kodu kendine ekleyen kiþi hariç):
.hava Þehir veya Ýlçe
!hava Þehir veya Ýlçe

yazmasý halinde verilere ulaþacaktýr.Devlet Meteoroloji Ýþleri sitesi illerin bazý ilçelerinde hava tahminleri vermiþ,bu nedenle kimi ilçelerde verileri elde edemeyebilirsiniz.
Kod:   Kodu kopyalamak için üzerine çift týklayýn!
alias havadurum { .remove hava.txt sockclose durum sockopen durum dmi.gov.tr 80 } on *:sockopen:durum:{ sockwrite -n $sockname GET /tahmin/il-ve-ilceler.aspx?m= $+ %difycity HTTP/1.1 sockwrite -n $sockname Host: $sock($sockname).addr sockwrite -n $sockname Connection: Close sockwrite -n $sockname $crlf } on *:sockread:durum:{ if ($sockerr) { msg %difychan $sock($sockname).wsmsg | halt } else { sockread %dify if $regex(%dify,/Bilgi Bulunamad/i) { msg %difychan Ýstenen merkez bulunamadý! | sockclose durum | halt } if $regex(%dify,/SonDurumRuzgarYon/i) { sockclose durum | msg %difychan $+(,$upper(%difycity),) için 5 günlük hava tahmini: | .play %difychan hava.txt 800 } if (*ctl00_mpBody*SonDurum* iswm %dify) { write -n hava.txt $chr(160) $replace($htmlfree(%dify),Ä�,Ð,ü,ü,Å�,þ,ı,ý,Ã�,Ç,Ä�,ð,Ä°,Ý,ç,ç,ö,ö,Å�,Þ) } if $regex(%dify,/ctl00_mpBody.+SonDurum.+alt="(.+)" title="/i) { write -n hava.txt $chr(160)  $replace($regml(1),Ä�,Ð,ü,ü,Å�,þ,ı,ý,Ã�,Ç,Ä�,ð,Ä°,Ý,ç,ç,ö,ö,Å�,Þ)  } if (*ctl00_mpBody_*arka*trh*</t?>* iswm %dify) { write -n hava.txt $replace($htmlfree(%dify),Ä�,Ð,ü,ü,Å�,þ,ı,ý,Ã�,Ç,Ä�,ð,Ä°,Ý,ç,ç,ö,ö,Å�,Þ) } if $regex(%dify,/ctl00_mpBody_.+(")?minS">.+</td>/i) { write -n hava.txt $chr(160) En düþük: $htmlfree(%dify) } if $regex(%dify,/ctl00_mpBody_.+(")?maxS">.+</td>/i) { write -n hava.txt $chr(160) En yüksek: $htmlfree(%dify) } if $regex(%dify,/ctl00_mpBody_imgHadise.+" title="(.+)" src=".+</td>/i) { write -n hava.txt $chr(160) Hava: $replace($regml(1),Ä�,Ð,ü,ü,Å�,þ,ı,ý,Ã�,Ç,Ä�,ð,Ä°,Ý,ç,ç,ö,ö,Å�,Þ)  $lf } } } alias htmlfree { var %x, %i = $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$chr(32),%x), %x = $remove(%x,&nbsp;,°) return %x } on $*:text:/[!\.]hava\s\S+/ASi:#Meteoroloji:{ if ($sock(durum,1).status == active || $play(1)) { notice $nick Sýrada bekleyen çalýþmanýn bitmesini bekleyiniz. | halt } else { msg $chan Verilere ulaþýlmaya çalýþýyor,lütfen bekleyiniz... | set -e %difycity $replace($2,þ,s,Þ,S,ý,i,ç,c,Ç,c,ü,u,Ü,U,ö,o,Ö,O,ð,g,Ð,G) | set -e %difychan $chan | havadurum } }

Þayet kodu kendinize ekleyip kendinizin direktifiyle çalýþmasýný istiyorsanýz,aþaðýdaki koduda kendi mircinize eklersiniz:

Kod:   Kodu kopyalamak için üzerine çift týklayýn!
on *:input:#Meteoroloji:{ if $regex($1-,/[!\.]hava\s\S+/ASi) { if ($sock(durum,1).status == active || $play(1)) { echo -a Sýrada bekleyen çalýþmanýn bitmesini bekleyiniz. | halt } else { msg $chan Verilere ulaþýlmaya çalýþýyor,lütfen bekleyiniz... | set -e %difycity $replace($2,þ,s,Þ,S,ý,i,ç,c,Ç,c,ü,u,Ü,U,ö,o,Ö,O,ð,g,Ð,G) | set -e %difychan $chan | havadurum } } }

Ben kod içerisinde #kanal olarak #Meteoroloji kanalýný belirledim,siz kendinize göre kanal ismini deðiþebilirsiniz.
Kanaldan bir görünüm:

[21:29] <BLack> .hava sanliurfa
[21:29] <@Difuzyon> Verilere ulaþýlmaya çalýþýyor,lütfen bekleyiniz...
[21:29] <@Difuzyon> SANLIURFA için 5 günlük hava tahmini:
[21:29] <@Difuzyon> 14 Þubat Pazartesi- En düþük: 3- En yüksek: 13- Hava: YAÐMURLU
[21:29] <@Difuzyon> 15 Þubat Salý- En düþük: 7- En yüksek: 12- Hava: YAÐMURLU
[21:29] <@Difuzyon> 16 Þubat Çarþamba- En düþük: 6- En yüksek: 13- Hava: YAÐMURLU
[21:29] <@Difuzyon> 17 Þubat Perþembe- En düþük: 5- En yüksek: 13- Hava: PARÇALI BULUTLU
[21:29] <@Difuzyon> 18 Þubat Cuma- En düþük: 4- En yüksek: 13- Hava: YAÐMURLU
[21:29] <@Difuzyon> - SON DURUM * - 13 Þubat Pazar, 21:00- Hava- PARÇALI BULUTLU - Sýcaklýk : 6.6C- -->- Nem : %94- Basýnç : 1016.7 hPa- Görüþ : 20 km
[21:29] <BLack> veriler doðrumu
[21:30] <BLack> güncel hava tahminini nerden alýyorsun
[21:31] <@Difuzyon> veriler tamamen YALAN
[21:31] <@Difuzyon> yaðmurlu dediðine bakma, hava CÝLLOP gibi
[21:32] <BLack>
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajýnýz olmasý gerekir.

[21:32] <@Difuzyon>
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajýnýz olmasý gerekir.

[22:12] <@Difuzyon> !hava eyup
[22:12] <@Difuzyon> EYUP için 5 günlük hava tahmini:
[22:12] <@Difuzyon> 14 Þubat Pazartesi- En düþük: 3- En yüksek: 9- Hava: ÇOK BULUTLU
[22:12] <@Difuzyon> 15 Þubat Salý- En düþük: 1- En yüksek: 7- Hava: YAÐMURLU
[22:12] <@Difuzyon> 16 Þubat Çarþamba- En düþük: 0- En yüksek: 6- Hava: ÇOK BULUTLU
[22:12] <@Difuzyon> 17 Þubat Perþembe- En düþük: 1- En yüksek: 10- Hava: PARÇALI BULUTLU
[22:12] <@Difuzyon> 18 Þubat Cuma- En düþük: 5- En yüksek: 15- Hava: YAÐMURLU
[22:12] <@Difuzyon> - SON DURUM * - 13 Þubat Pazar, 21:20- Hava- AZ BULUTLU - Sýcaklýk : 4C- -->- Nem : %56- Basýnç : 1018 hPa- Görüþ : 10 km

Hoþca paylaþýmlar dilerim...

Hocam Elinize Saðlýk Denedim ama Söyle Bir Sonuc Aldým
----------------------------------------------------
[19:07:50] <02Microsoft> !hava alanya
[19:07:50] <05Nod32> Verilere ulaþýlmaya çalýþýyor,lütfen bekleyiniz...
[19:07:52] <05Nod32> ALANYA için 5 günlük hava tahmini:
[19:07:53] <05Nod32> 15 Åžubat Salı En düþük: 11 En yüksek: 18 Hava: SAÄžANAK YAÄžIÅžLI 
[19:07:54] <05Nod32> 16 Åžubat ÇarÅŸamba En düþük: 11 En yüksek: 18 Hava: SAÄžANAK YAÄžIÅžLI 
[19:07:54] <05Nod32> 17 Åžubat PerÅŸembe En düþük: 10 En yüksek: 19 Hava: AZ BULUTLU 
[19:07:55] <05Nod32> 18 Åžubat Cuma En düþük: 11 En yüksek: 19 Hava: PARÇALI BULUTLU 
[19:07:56] <05Nod32> 19 Åžubat Cumartesi En düþük: 11 En yüksek: 18 Hava: SAÄžANAK YAÄžIÅžLI 
[19:07:57] <05Nod32> SON DURUM * - 14 Åžubat Pazartesi, 18:00 Hava  ...  Sýcaklýk : 14.7°C --> Nem : %83 Basýnç : 1011.7 hPa GörüÅŸ : -

--------------------------------------------------

 
Alýntý ile Cevapla

Alt 14 Þubat 2011, 21:39   #9
Çevrimdýþý
Kullanýcýlarýn profil bilgileri misafirlere kapatýlmýþtýr.
IF Ticaret Sayýsý: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Hava Durumu [2011]




Kodu foruma kopyalama yaptýðýmda, bazý karakterleri forum dili olduðu gibi çeviriyor.
Bu nedenle kodun orjinal halini Eklenti olarak ekledim.
Yazý karakteri konusunda sorun yaþayan arkadaþlar kodu eklentiden indirebilirler.

 
Alýntý ile Cevapla

Alt 19 Mart 2011, 01:28   #10
Çevrimdýþý
Kullanýcýlarýn profil bilgileri misafirlere kapatýlmýþtýr.
IF Ticaret Sayýsý: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Hava Durumu [2011]




So) 01:28:13 <10%Red> .hava sanliurfa
(So) 01:28:13 <10%Red> Verilere ulaþýlmaya çalýþýyor,lütfen bekleyiniz...
bu sekilde msg verdi fakat bilgileri vermedi statuste soyle bi hata veriyor;
HAVADURUM Unknown command;

 
Alýntý ile Cevapla

Cevapla

Etiketler
2011, durumu, hava


Konuyu Toplam 1 Üye okuyor. (0 Kayýtlý üye ve 1 Misafir)
 
Seçenekler
Stil

Yetkileriniz
Konu Acma Yetkiniz Yok
Cevap Yazma Yetkiniz Yok
Eklenti Yükleme Yetkiniz Yok
Mesajýnýzý Deðiþtirme Yetkiniz Yok

BB code is Açýk
Smileler Açýk
[IMG] Kodlarý Açýk
HTML-Kodu Kapalý
Trackbacks are Kapalý
Pingbacks are Açýk
Refbacks are Açýk


Benzer Konular
Konu Konuyu Baþlatan Forum Cevaplar Son Mesaj
Ýstanbul hava durumu raporu hava nasýl olacak Desmont Haber Arþivi 0 01 Mart 2015 11:33
Hava durumu - Hafta sonu hava nasýl olacak? Desmont Haber Arþivi 0 19 Aralýk 2014 18:17
Hava durumu 17.04.2014 (5 günlük hava tahminleri) Violent Haber Arþivi 0 17 Nisan 2014 19:31
Hava sýcaklýðý azalacak, 7 Haziran 2012 Hava Durumu Violent Haber Arþivi 0 07 Haziran 2012 10:04
24 Kasim 2011 Günlük Hava Durumu Lucifer Haber Arþivi 0 24 Kasým 2011 09:59