blackman12

programa özel destek vermiyorum lakin örnek bir kullanım açısından katılımsız yapmak istediğiniz programın linkini verirseniz bir bakarım.

Fast Airbender için yazdığım fonksiyonları yayınlamaya devam edeyim. En iyisi bu bölüme biraz canlılık gerekiyor arkadaşlar. Şimdi de DMİ'den hava durumu bilgilerini çeken fonksiyonları sizinle paylaşıyorum: SEHİRLER: burada DMİ nin desteklediği 81 il ve diğer ilçelerin ilkodları ve ilçe alfabetik sırasına göre kodları mevcuttur. $sehirler[x][0] komutunda il/ilçe kodu gelir. $sehirler[x][1] de ise il/ilçe adı gelir. Birazdan bahsedeceğim _YerOku fonksiyonu buradaki il/ilçe kodu ile çalışmaktadır. $mesela = _YerOku fonksiyonu girdiğiniz il/ilçe koduna göre DMİ nin sayfasına bağlanır ve hava durumu verilerini okuyarak arraya kaydeder. burada $mesela bir array olarak döndüyse işlem başarılı olmuştur ve $mesela[0] değişkenine işlenecek veri depolanmıştır. $mesela[1] değişkenine ise ilkodu depolanmıştır. Eğer $mesela bir array değil ve değeri -2 ise fonksiyon internet sayfasına bağlanamamış veya veriyi okuyamamış demektir. Eğer $mesela bir array değil ve değeri -1 ise girdiğiniz kod herhangi bir herhangi bir merkez bulunamamış demektir. $mesela[0] değişkenine depoladığımız veriyi _CografiGetir, _SonDurumGetir, _XGunlukGetir fonksiyonlarında kullanacağız. Şimdi sırayla onları açıklayalım. _CografiGetir fonksiyonu _YerOku fonksiyonunda belirtilen il hakkındaki cografi özellikleri çağırır. $tCografi = _CografiGetir($mesela[0]) komutunu kullanırsak arraya depolanacak veriler sırayla şunlardır: 0: Sayi, 1: Yukseklik, 2: Enlem, 3: Boylam, 4: Gündoğumu, 5: Günbatımı, 6: Bölge, 7: Havza bilgisi _SonDurumGetir fonksiyonu _YerOku fonksiyonunda belirtilen il hakkında son ulaşılan bilgileri çağırır. Kullanımı: $tSonD = _SonDurumGetir($mesela[0]) komutunu kullanırsak arraya depolanacak veriler sırayla şunlardır: 0: Sayi, 1: Hava Durumu, 2: Sıcaklık, 3: Nem, 4: Basınç, 5: Görüş Mesafesi, 6: Rüzgar Yönü, 7: Rüzgar Hızı, 8: Son Durum Resim No, 9: Rüzgar Yön Resim No _XGunlukGetir fonksiyonu _YerOku fonksiyonunda belirtilen il hakkında gelecek maksimum 5 gün hakkında bilgi verir. Kullanımı: $t5Gunluk = _XGunlukGetir($mesela[0],3) = 3 günlük veri gelir. _XGunlukGetir($mesela[0]) = 5 günlük veri gelir. Geri dönüşü ise şu şekildedir. $t5Gunluk[a][ b] a= Gunler b= 0: Değişken Sayısı, 1: Tarih, 2: Minimum Sıcaklık, 3: Maksimum Sıcaklık, 4: Durum, 5: Minimum Nem, 6: Maksimum Nem, 7: Rüzgar Yönü,8: Rüzgar Hızı, 9: Hava Durum Resim No, 10: Rüzgar Yön Resim No Örnegin $t5Gunluk[2][1] = değeri 2. günün tarihini verir. yada $t5Gunluk[1][2] = değeri 1. günün en düşük sıcaklık değerini verir. [codebox] Dim $sehirler[341][2] = [[340,340],[01,"ADANA"],[02,"ADIYAMAN"],[03,"AFYONKARAHISAR"],[04,"AGRI"],[05,"AMASYA"],[06,"ANKARA"],[07,"ANTALYA"],[08,"ARTVIN"],[09,"AYDIN"], _ [10,"BALIKESIR"],[11,"BILECIK"],[12,"BINGOL"],[13,"BITLIS"],[14,"BOLU"],[15,"BURDUR"],[16,"BURSA"],[17,"CANAKKALE"], [18,"CANKIRI"],[19,"CORUM"],[20,"DENIZLI"], _ [21,"DIYARBAKIR"],[22,"EDIRNE"],[23,"ELAZIG"],[24,"ERZINCAN"],[25,"ERZURUM"],[26,"ESKISEHIR"],[27,"GAZIANTEP"], [28,"GIRESUN"],[29,"GUMUSHANE"],[30,"HAKKARI"], _ [31,"HATAY"],[32,"ISPARTA"],[33,"MERSIN"],[34,"ISTANBUL"],[35,"IZMIR"],[36,"KARS"],[37,"KASTAMONU"],[38,"KAYSERI"],[39,"KIRKLARELI"],[40,"KIRSEHIR"], _ [41,"KOCAELI"],[42,"KONYA"],[43,"KUTAHYA"],[44,"MALATYA"], [45,"MANISA"],[46,"K.MARAS"],[47,"MARDIN"],[48,"MUGLA"],[49,"MUS"],[50,"NEVSEHIR"],[51,"NIGDE"], _ [52,"ORDU"],[53,"RIZE"],[54,"SAKARYA"],[55,"SAMSUN"], [56,"SIIRT"],[57,"SINOP"],[58,"SIVAS"],[59,"TEKIRDAG"],[60,"TOKAT"],[61,"TRABZON"],[62,"TUNCELI"], _ [63,"SANLIURFA"],[64,"USAK"],[65,"VAN"],[66,"YOZGAT"],[67,"ZONGULDAK"],[68,"AKSARAY"],[69,"BAYBURT"],[70,"KARAMAN"],[71,"KIRIKKALE"],[72,"BATMAN"],[73,"SIRNAK"], _ [74,"BARTIN"],[75,"ARDAHAN"],[76,"IGDIR"],[77,"YALOVA"],[78,"KARABUK"],[79,"KILIS"],[80,"OSMANIYE"],[81,"DUZCE"],[0201,"CELIKHAN"],[0301,"BAYAT"],[0302,"BASMAKCI"], _ [0303,"BOLVADIN"],[0304,"CAY"],[0305,"COBANLAR"],[0306,"DINAR"],[0307,"EMIRDAG"],[0308,"EVCILER"],[0309,"HOCALAR"],[0310,"ISCEHISAR"],[0311,"IHSANIYE"], _ [0312,"KIZILOREN"],[0313,"SANDIKLI"],[0314,"SINANPASA"],[0315,"SUHUT"],[0316,"SULTANDAGI"],[0401,"DOGUBEYAZIT"],[0402,"PATNOS"],[6801,"ORTAKOY"],[0501,"MERZIFON"], _ [0502,"SULUOVA"],[0601,"BALA"],[0602,"BEYPAZARI"],[0603,"CANKAYA"],[0604,"CUBUK"],[0605,"ELMADAG"],[0606,"ETIMESGUT"],[0607,"GOLBASI"],[0608,"GUDUL"],[0609,"HAYMANA"], _ [0610,"KALECIK"],[0611,"KAZAN"],[0612,"KECIOREN"],[0613,"KIZILCAHAMAM"],[0614,"MAMAK"],[0615,"NALLIHAN"],[0616,"POLATLI"],[0617,"SEREFLIKOCHISAR"],[0701,"ALANYA"], _ [0702,"DEMRE"],[0703,"ELMALI"],[0704,"FINIKE"],[0705,"KAS"],[0706,"KEMER"],[0707,"KEPEZ"],[0708,"KONYAALTI"],[0709,"KORKUTELI"],[0710,"KUMLUCA"],[0711,"MANAVGAT"], _ [0801,"HOPA"],[0901,"DIDIM"],[0902,"KUSADASI"],[0903,"SULTANHISAR"],[0904,"SOKE"],[0905,"NAZILLI"],[1001,"AYVALIK"],[1002,"DURSUNBEY"],[1003,"BANDIRMA"], _ [1004,"EDREMIT"],[1005,"GONEN"],[1006,"MARMARAADASI"],[1007,"SINDIRGI"],[7401,"AMASRA"],[1101,"BOZUYUK"],[1102,"GOLPAZARI"],[1103,"OSMANELI"],[1104,"PAZARYERI"], _ [1105,"SOGUT"],[1301,"MUTKI"],[1501,"BUCAK"],[1502,"TEFENNI"],[1601,"GEMLIK"],[1602,"HARMANCIK"],[1603,"INEGOL"],[1604,"KELES"],[1605,"M.KEMALPASA"], _ [1606,"YENISEHIR"],[1701,"BIGA"],[1702,"BOZCAADA"],[1703,"GOKCEADA"],[1704,"LAPSEKI"],[1705,"EZINE"],[1801,"CERKES"],[1802,"ILGAZ"],[1803,"YAPRAKLI"], _ [2001,"ACIPAYAM"],[2002,"BABADAG"],[2003,"CAMELI"],[2004,"CARDAK"],[2005,"CIVRIL"],[2006,"GUNEY"],[2007,"KALE-DENIZLI"],[2008,"KARAHAYIT"],[2009,"PAMUKKALE"], _ [2010,"SARAYKOY"],[2011,"TAVAS"],[8101,"AKCAKOCA"],[2201,"IPSALA"],[2202,"UZUNKOPRU"],[2501,"HINIS"],[2502,"OLTU"],[2601,"ALPU"],[2602,"CIFTELER"],[2603,"GUNYUZU"], _ [2604,"MIHALICCIK"],[2605,"SARICAKAYA"],[2606,"SIVRIHISAR"],[2607,"SEYITGAZI"],[2801,"SEBINKARAHISAR"],[3001,"CUKURCA"],[3002,"SEMDINLI"],[3101,"ISKENDERUN"], _ [7601,"ARALIK"],[3201,"AKSU"],[3202,"EGIRDIR"],[3203,"SENIRKENT"],[3204,"ULUBORLU"],[3205,"YALVAC"],[3401,"BAKIRKOY"],[3402,"BESIKTAS"],[3403,"BEYKOZ"], _ [3404,"BUYUKADA"],[3405,"CATALCA"],[3406,"EYUP"],[3407,"FATIH"],[3408,"HADIMKOY"],[3409,"KADIKOY"],[3410,"PENDIK"],[3411,"SARIYER"],[3412,"SILIVRI"],[3413,"SILE"], _ [3414,"SISLI"],[3415,"TUZLA"],[3416,"UMRANIYE"],[3417,"USKUDAR"],[3501,"ALIAGA"],[3502,"BERGAMA"],[3503,"BORNOVA"],[3504,"CESME"],[3505,"CIGLI"],[3506,"DIKILI"], _ [3507,"FOCA"],[3508,"GAZIEMIR"],[3509,"KEMALPASA"],[3510,"KONAK"],[3511,"MENEMEN"],[3512,"ODEMIS"],[3513,"SEFERIHISAR"],[3514,"SELCUK"],[3515,"TORBALI"],[4601,"AFSIN"], _ [4602,"ELBISTAN"],[7001,"ERMENEK"],[3601,"ARPACAY"],[3602,"KAGIZMAN"],[3603,"SARIKAMIS"],[3701,"INEBOLU"],[3801,"BUNYAN"],[3802,"DEVELI"],[3803,"PINARBASI"], _ [3804,"SARIZ"],[3805,"TOMARZA"],[3806,"YESILHISAR"],[7101,"KARAKECILI"],[7102,"KESKIN"],[3901,"DEMIRKOY"],[3902,"LULEBURGAZ"],[4001,"CICEKDAGI"],[4002,"MUCUR"], _ [4101,"GEBZE"],[4102,"GOLCUK"],[4103,"KANDIRA"],[4104,"KARTEPE"],[4201,"AKSEHIR"],[4202,"BEYSEHIR"],[4203,"CUMRA"],[4204,"EREGLI-KONYA"],[4205,"KARAPINAR"], _ [4206,"KULU"],[4207,"SEYDISEHIR"],[4301,"ALTINTAS"],[4302,"DOMANIC"],[4303,"DUMLUPINAR"],[4304,"EMET"],[4305,"GEDIZ"],[4306,"SAPHANE"],[4307,"SIMAV"], _ [4308,"TAVSANLI"],[4401,"AKCADAG"],[4402,"DOGANSEHIR"],[4403,"KALE-MALATYA"],[4501,"AKHISAR"],[4502,"ALASEHIR"],[4503,"DEMIRCI"],[4504,"KOPRUBASI"],[4505,"SALIHLI"], _ [4506,"SOMA"],[4507,"TURGUTLU"],[4701,"KIZILTEPE"],[4702,"MAZIDAGI"],[4703,"NUSAYBIN"],[3301,"ANAMUR"],[3302,"SILIFKE"],[4801,"BODRUM"],[4802,"DALAMAN"], _ [4803,"DATCA"],[4804,"FETHIYE"],[4805,"KOYCEGIZ"],[4806,"MARMARIS"],[4807,"MILAS"],[4808,"YATAGAN"],[4901,"MALAZGIRT"],[5001,"AVANOS"],[5002,"DERINKUYU"], _ [5003,"KOZAKLI"],[5004,"URGUP"],[5201,"GOLKOY"],[5202,"UNYE"],[5301,"ARDESEN"],[5401,"GEYVE"],[5402,"HENDEK"],[5403,"KARASU"],[5501,"BAFRA"],[5601,"BAYKAN"], _ [5602,"ERUH"],[5801,"DIVRIGI"],[5802,"GEMEREK"],[5803,"GURUN"],[5804,"KANGAL"],[5805,"SARKISLA"],[6301,"BIRECIK"],[6302,"CEYLANPINAR"],[6303,"SIVEREK"], _ [6304,"VIRANSEHIR"],[5901,"CERKEZKOY"],[5902,"CORLU"],[5903,"MALKARA"],[6001,"BASCIFTLIK"],[6002,"ERBAA"],[6003,"NIKSAR"],[6004,"TURHAL"],[6005,"YESILYURT"], _ [6006,"ZILE"],[6101,"MACKA"],[6202,"OF"],[6401,"BANAZ"],[6402,"ESME"],[6403,"SIVASLI"],[6404,"ULUBEY-USAK"],[6501,"MURADIYE"],[7701,"CINARCIK"],[6601,"AKDAGMADENI"], _ [6602,"BOGAZLIYAN"],[6603,"SORGUN"],[6701,"ALAPLI"],[6702,"CAYCUMA"],[6703,"DEVREK"],[6704,"EREGLI-KARADENIZ"]] Func _YerOku($kod) Local $text, $i, $t, $return[2] if Not IsNumber($kod) then Return -1 for $i = 1 to $sehirler[0][0] if Number($sehirler[$i][0]) = Number($kod) Then $t = $i Exitloop endif Next $return[0] = BinaryToString(InetRead('http://www.dmi.gov.tr/tahmin/il-ve-ilceler.aspx?m='&$sehirler[$t][1],1)) if $return[0] = "" Then Return -2 if StringInStr(_AraGetir($return[0],"<title>","</title>"),"istenen merkez bulunamad") <> 0 then Return -1 $return[1] = $t Return $return EndFunc Func _CografiGetir($text) ;tCografi: 0: Sayi, 1: Yukseklik, 2: Enlem, 3: Boylam, 4: Gündoğumu, 5: Günbatımı, 6: Bölge, 7: Havza Local $tCografi[8] $tCografi[0] = 7 $tCografi[1] = _AyirGetir($text,'pMerkezYuksekligi">','</p>') $tCografi[2] = _AyirGetir($text,'pMerkezEnlem">','</p>') $tCografi[3] = _AyirGetir($text,'pMerkezBoylam">','</p>') $tCografi[4] = StringTrimLeft(_AyirGetir($text,'pMerkezGD">','</p>','>'),1) $tCografi[5] = StringTrimLeft(_AyirGetir($text,'pMerkezGB">','</p>','>'),1) $tCografi[6] = _KelimeDuzelt(_AyirGetir($text,'pMerkezBolge">','</p>')) If $tCografi[6] = "Güneydoğu Anadolu" Then $tCografi[6] = "G. Anadolu" If $tCografi[6] = "Doğu Anadolu" Then $tCografi[6] = "D. Anadolu" $tCografi[7] = _KelimeDuzelt(_AyirGetir($text,'pMerkezHavza">','</p>')) Return $tCografi EndFunc Func _XGunlukGetir($text,$x = 5) ;t5Gunluk[a][ b] a= Gunler b= 0: Değişken Sayısı, 1: Tarih, 2: Minimum Sıcaklık, 3: Maksimum Sıcaklık, 4: Durum, 5: Minimum Nem, 6: Maksimum Nem, 7: Rüzgar Yönü, ; 8: Rüzgar Hızı, 9: Hava Durum Resim No, 10: Rüzgar Yön Resim No if $x > 5 then $x = 5 Local $t5Gunluk[$x][11], $a, $i for $i = 1 to $x if $i = 1 or $i = 3 or $i = 5 Then $t5Gunluk[$i-1][0] = 10 $t5Gunluk[$i-1][1] = _AraGetir($text,'thmGun'&$i&'" class="arkaTrh">','</th>') $t5Gunluk[$i-1][2] = _AraGetir($text,'thmMin'&$i&'" class="minS">','</td>') $t5Gunluk[$i-1][3] = _AraGetir($text,'thmMax'&$i&'" class="maxS">','</td>') $t5Gunluk[$i-1][4] = _KelimeDuzelt(_AraGetir($text,'imgHadise'&$i&'" title="','" src="../FILES/imgIcon/')) $t5Gunluk[$i-1][5] = _AraGetir($text,'thmNemMin'&$i&'" class="minN">','</td>') $t5Gunluk[$i-1][6] = _AraGetir($text,'thmNemMax'&$i&'" class="maxN">','</td>') $t5Gunluk[$i-1][7] = _AyirGetir($text,'thmRuzgarYon'&$i&'">','" title="','"') $t5Gunluk[$i-1][8] = _AraGetir($text,'thmRuzgarHiz'&$i&'">','</td>') for $a = 1 to $hadise[0][0] if StringInStr($hadise[$a][1],_AraGetir($text,'imgHadise'&$i&'" title="','" src="../FILES/imgIcon/')) Then $t5Gunluk[$i-1][9] = $hadise[$a][0] EndIf Next $t5Gunluk[$i-1][10] = _AyirGetir($text,'thmRuzgarYon'&$i&'">','.gif" alt="','/') Else if $i = 2 Then $t5Gunluk[$i-1][0] = $x-1 Else $t5Gunluk[$i-1][0] = 10 EndIf $t5Gunluk[$i-1][1] = _AraGetir($text,'thmGun'&$i&'" class="arkaAlterTrh">','</th>') $t5Gunluk[$i-1][2] = _AraGetir($text,'thmMin'&$i&'" class="arkaAlter minS">','</td>') $t5Gunluk[$i-1][3] = _AraGetir($text,'thmMax'&$i&'" class="arkaAlter maxS">','</td>') $t5Gunluk[$i-1][4] = _KelimeDuzelt(_AraGetir($text,'imgHadise'&$i&'" title="','" src="../FILES/imgIcon/')) $t5Gunluk[$i-1][5] = _AraGetir($text,'thmNemMin'&$i&'" class="arkaAlter minN">','</td>') $t5Gunluk[$i-1][6] = _AraGetir($text,'thmNemMax'&$i&'" class="arkaAlter maxN">','</td>') $t5Gunluk[$i-1][7] = _AyirGetir($text,'thmRuzgarYon'&$i&'" class="arkaAlter">','" title="','"') $t5Gunluk[$i-1][8] = _AraGetir($text,'thmRuzgarHiz'&$i&'" class="arkaAlter">','</td>') for $a = 1 to $hadise[0][0] if StringInStr($hadise[$a][1],_AraGetir($text,'imgHadise'&$i&'" title="','" src="../FILES/imgIcon/')) Then $t5Gunluk[$i-1][9] = $hadise[$a][0] EndIf Next $t5Gunluk[$i-1][10] = _AyirGetir($text,'thmRuzgarYon'&$i&'" class="arkaAlter">','.gif" alt="','/') EndIf Next Return $t5Gunluk EndFunc Func _SonDurumGetir($text) ;SonDurum: 0: Sayi, 1: Hava Durumu, 2: Sıcaklık, 3: Nem, 4: Basınç, 5: Görüş Mesafesi, 6: Rüzgar Yönü, 7: Rüzgar Hızı, 8: Son Durum Resim No, 9: Rüzgar Yön Resim No Local $tSonDurum[10] $tSonDurum[0] = 9 $tSonDurum[1] = _KelimeDuzelt(_AyirGetir($text,'SonDurumHava">','" /> </p>','"')) $tSonDurum[2] = _AyirGetir($text,'pSonDurumSicaklik">') $tSonDurum[3] = _AraGetir($text,'pSonDurumNem"><strong>Nem</strong><em>: ','</em></p>') $tSonDurum[4] = _AyirGetir($text,'pSonDurumBasinc">') $tSonDurum[5] = _AyirGetir($text,'pSonDurumGorus">') $tSonDurum[6] = _AyirGetir($text,'pSonDurumRuzgarYon">','" /> </p>','"') $tSonDurum[7] = _AraGetir($text,'pSonDurumRuzgarHiz"><em>','</em></p>') $tSonDurum[8] = "" ;MsgBox(0,"",_AyirGetir($text,'SonDurumHava">','" /> </p>','"')) for $a = 1 to $hadise[0][0] if StringInStr($hadise[$a][1],_AyirGetir($text,'SonDurumHava">','" /> </p>','"')) Then if (Number(StringReplace(StringTrimLeft(_AyirGetir($text,'pMerkezGB">','</p>','>'),1),":","")) < Number(@HOUR&@MIN)) or (Number(StringReplace(StringTrimLeft(_AyirGetir($text,'pMerkezGD">','</p>','>'),1),":","")) > Number(@HOUR&@MIN)) Then $tSonDurum[8] = "1" & $hadise[$a][0] Else $tSonDurum[8] = "0" & $hadise[$a][0] EndIf ExitLoop EndIf Next if $tSonDurum[8] = "" or $tSonDurum[8] = "..." Then if (Number(StringReplace(StringTrimLeft(_AyirGetir($text,'pMerkezGB">','</p>','>'),1),":","")) < Number(@HOUR&@MIN)) or (Number(StringReplace(StringTrimLeft(_AyirGetir($text,'pMerkezGD">','</p>','>'),1),":","")) > Number(@HOUR&@MIN)) Then $tSonDurum[8] = "1" & $hadise[27][0] Else $tSonDurum[8] = "0" & $hadise[27][0] EndIf EndIf $tSonDurum[9] = _AyirGetir($text,'pSonDurumRuzgarYon">','.gif" alt="',"/") Return $tSonDurum EndFunc[/codebox][b] [size="3"][color="#FF0000"]Not: Fonksiyonların yapımı tamamen bana aittir ve Fast Airbender programında kullanımına göre yazılmıştır. Program içerisinde kullanıldıklarından dolayı kontrol komutlarını yazmadım ve tekrar bir düzenleme yapmadan sizinle paylaşıyorum. Örneğin : $tCografi = _CografiGetir("labalubatwisttwist") gibi bir kullanımla hata almanız normaldir.[/color][/size][/b]

Ulen adam dükkanı kapattı siz içeride misiniz hala ya?! yeter bee annaam. delinin biri kuyuya taş attı bizimkiler de einstein kesildi ha. [color="#FF0000"][b]> Uyarı Aldınız.[/b][/color]

Bugun paylaştığım fonksiyonlar zaten tek bir udf'm içinden seçtiğim fonksiyonlar, evden çıkmam gerektiği için geri kalanı paylaşamadım. Yarın devam ederim. Sizinde yazdığınız veya kullandığınız udfler varsa paylaşın derim

StringBetween fonksiyonundan esinlenerek yazdığım bu fonksiyonlarla bir text içerisinden aradığınız bir kelimeyi alarak döndürebilirsiniz. [codebox]Func _AyirGetir($text,$basla, $son = "</em></p>", $ayrac = "nbsp;", $flag = 0) Local $aGetir, $aAyir $aGetir = _AraGetir($text,$basla,$son,$flag) if $flag = 1 Then for $i = 0 to UBound($aGetir) -1 $aAyir = StringSplit($aGetir[$i],$ayrac) $aGetir[$i] = $aAyir[$aAyir[0]] Next Return $aGetir Else $aAyir = StringSplit($aGetir,$ayrac) Return $aAyir[$aAyir[0]] EndIf EndFunc func _AraGetir($text,$basla= "</strong>:",$son="</p>",$flag = 0) if $text = "" then Return $basla = StringRegExpReplace($basla, "(\.|\||\*|\?|\+|\(|\)|\{|\}|\[|\]|\^|\$|\\)", "\\$1") $son = StringRegExpReplace($son, "(\.|\||\*|\?|\+|\(|\)|\{|\}|\[|\]|\^|\$|\\)", "\\$1") $getirelecek = StringRegExp($text, "(?s)(?i)" & $basla & "(.*?)" & $son, 3) if $flag = 1 Then Return $getirelecek Return _Turkcelestir($getirelecek[0]) EndFunc[/codebox]

Internet üzerinde en sağlam bulduğum IP den Yer bulma işlemini yapan site için bir fonksiyon hazırladım. Bu fonksiyonu çalıştırarak ip adresi, şehir, ülke ve koordinatlar gibi bir sürü veriyi elde edebilirsiniz. Fonksiyon parametresiz çalıştığında sadece şehiri verir, parametre olarak 0 ı girerseniz, dönüş bir arraydır ve tüm bilgileri arraya depolar. Fonksiyon parametresi olarak 1-9 arası bir sayı kullanırsanız sadece istediğiniz veriyi elde edersiniz: 1: IP Adresi 2: Şehir 3: Ülke Adı 4: Ülke Kodu 5: Bayrak Linki 6: Bölge 7: İnternet Sağlayıcısı 8: X Koordinatı 9: Y Koordinatı [codebox]Func _GetLocation($istenen = "") ; 0: Değişken Sayısı 1: IP Adresi 2: Şehir 3: Ülke Adı 4: Ülke Kodu 5: Bayrak Linki 6: Bölge 7: İnternet Sağlayıcısı 8: X Koordinatı 9: Y Koordinatı Local $sonuc[10] $veri = BinaryToString(InetRead("http://www.ipgp.net/api/xml/"&GetIP()&"/szPFl37NMy",1)) if (not @error) or $veri <> "" Then $sonuc[0] = 9 $sonuc[1] = _AyirGetir($veri,"<Ip>","</Ip>") $sonuc[2] = _AyirGetir($veri,"<City>","</City>") $sonuc[3] = _AyirGetir($veri,"<Country>","</Country>") $sonuc[4] = _AyirGetir($veri,"<Code>","</Code>") $sonuc[5] = _AyirGetir($veri,"<Flag>","</Flag>") $sonuc[6] = _AyirGetir($veri,"<Region>","</Region>") $sonuc[7] = _AyirGetir($veri,"<Isp>","</Isp>") $sonuc[8] = _AyirGetir($veri,"<Lat>","</Lat>") $sonuc[9] = _AyirGetir($veri,"<Lng>","</Lng>") if IsNumber($istenen) Then if $istenen = 0 Then Return $sonuc Else Return $sonuc[$istenen] EndIf Elseif $istenen = "" Then Return $sonuc[2] EndIf Else SetError(0) Return 0 EndIf EndFunc [/codebox] GetIP, autoitin _GetIP fonksiyonuna bir alternatiftir. O fonksiyon başka iki siteden ip alıyor. Ve 2. siteden alınan ipyi birincinin üstüne yazdığından bana biraz sağlıksız geldi. O yüzden bu fonksiyonu yazdım. [codebox] Func GetIP() $IP = _AyirGetir(BinaryToString(InetRead("http://ipaddress.net16.net/ip.php",1)),"<body>","</body>") if @error or $IP = "" Then $IP = BinaryToString(InetRead("http://automation.whatismyip.com/n09230945.asp", 1)) if @error or $IP = "" Then Return 0 Else Return $IP EndIf Else Return $IP EndIf EndFunc [/codebox] Not: AyırGetir, AraGetir, ve Turkcelestir fonksiyonlarını sitemizde bulabilirsiniz.

İnternetten bir veri okuturken türkçe karakterlerin abuk subuk şekillerde geldiğine şahit olmuşsunuzdur. Bu fonksiyon işte bu şekilleri türkçe karakterlere dönüştürüyor. Düzenleme: Fonksiyon içerisindeki karakterler forum düzeninde internetteki o saçma şekillere dönüştüğünden, fonksiyonu şu şekilde veriyorum: http://tinypaste.com/b3e6a528 şifre: tnctr Not: Fonksiyon bana aittir.

Hayaller Uyurken Yaşanır. TRK

O dosyayı senin yazdığına emin misin? "sadece fileinstall" yazarak kodlama yapılmaz da neyse. exeyi buraya upload et çıkaralım.

Zaten yeterince pahalıya kullandığımız interneti bir de adil kullanım hakkı olmayan paketlerle alsaydık, evimize incir ağacı dikilirdi. Şimdiye kadar gayet karlı bir şekilde kullandığıma inanıyorum ben interneti 8mbin üstünde destek alıyor(d)um ve ayda ortalama 200 gbın üstünde veri indiriyor(d)um. Ha bu saatten sonra nolur, sanki beni burada zorla mı tutuyolar geçerim başka tarifeye ki bu benim gibi 200 gb download yapanları etkiler, normal bir internet kullanıcısının haberi bile olmaz bu durumdan Not: Bu arada eve posta geldi, Adil Kullanım Hakkı 50 GBa yükseltilmiş, NETLİMİTSİZ fiyatı ise 59 TL

ayakkabıcı bu olaydan sonra tükkanı kapattı beyler, zarar büyük.

"dünyanın yaşını tutsan birkaçbin yıl oluyorr" dünyanın yaşını saat bulunduktan sonra tutmaya başlamadılar. geriye yönelik jeolojik kanıtlarla ve radyoaktif elementlerin yarılama ömürlerini vs. kullanarak çok yakın şekilde hesaplanabiliyor, tam olarak kullanılan yöntemi bilmiyorum ama dünya tam olarak [b]4,577[/b] milyar yıl yaşında.

soruyu ömden de sormuşsunuz ilgili cevabı vermiştim size.

[codebox]#include <ButtonConstants.au3> #include <GUIConstantsEx.au3> #include <GuiIPAddress.au3> #include <WindowsConstants.au3> Global $ScriptDir = @ScriptDir if StringRight($ScriptDir,1) <> "\" Then $ScriptDir &= "\" Global $TxtFile = $ScriptDir & "IP.txt" If FileExists($TxtFile) = 0 Then FileWrite($TxtFile, "") ;Global $file = FileOpen("IP.txt", 1) ;If $file = -1 Then ; MsgBox(0, "Error", "Unable to open file.") ; Exit ;EndIf $MainGUI = GUICreate("Form1", 220, 447, 192, 124) $ipcreate = GUICtrlCreateButton("IP text oluştur", 10, 64, 150, 30, $WS_GROUP) ;$IPAddress1 = _GUICtrlIpAddress_Create($MainGUI, 10, 136, 150, 30) ;_GUICtrlIpAddress_Set($IPAddress1, "0.0.0.0") GUISetState() While 1 $nMsg = GUIGetMsg() Switch $nMsg Case $GUI_EVENT_CLOSE Exit Case $ipcreate CreateText() EndSwitch WEnd Func CreateText() $line = 1 Do FileWriteLine($TxtFile, $line) $line = $line + 1 Until $line = 255 EndFunc [/codebox] Guictrlsetonevent ı kullanman için guioneventmode u aktifleştirmen gerekli. şu anda ben aktifleştirmedim.

Adı radyafon, arkadaşları ona aynştayn diyor.

Kintaronun AM8 Mega Packinde vardı ama kendisi de görmemiş heralde dimi Kintaro Buyur DLL Dosyası: http://www.mediafire.com/?qtysnb5cm8c6qux

Explorer altındaki tüm değerlere bak sadece bu üçünden oluşmuyor zaten. dragdrophandlers lar contextmenuhandlerslar falan tamamı orada.

msn güncelle demedim ben sana. modeminin firmwareini güncelle dedim.

kulağına çok saçma gelebilir biliyorum ama modeminin firmwareini güncelle. bende windows 7 ye geçtiğimden beri msne giremiyordum internete bağlanmama rağmen. Meğer windows 7 için olan msnin son sürümüyle benim firmware arasında uyumsuzluk varmış

Fizikte koşullarını zorlamak istiyorsan Esen derim. Ağzın açık hayretle çözeceğin sorular görüceksin. Ama Matematik, Analitik Geometri, Geometri, Cebir gibi derslerde Karekökün Köşetaşı metodu harika.

O sorun senle alakalı değil düzeltemezsin ben cimrilik yapıp label boyutunu az vermişim ondan oluyo onun için de sürüm yenilenmez. yenilesem zaten tonla fikir var aklımda. Arayüz kullanmayı öğrendin mi peki programda?

bu programla istediğin menüleri deaktif istediklerini ise aktif edebilirsin: http://www.mediafire.com/?bqzplr87mrlkgwe [img]http://i.imgur.com/Wyfed.png[/img]

Oğlum niye öyle diyosun ondaki editör herhangi bir websitesinde bile yok

Abdullah baya baya öğrenmişsin he programı ama daha kurcalaman gereken çok yer var özellikle şu seçenekler menüsünde ipucu eklemek için yaptığım yer.

Buyrun video için yeni link: [code]http://www.mediafire.com/?wxo45pmcf561fl4[/code]