nightmare3519 Posted June 29, 2014 Share Posted June 29, 2014 (edited) Ramazan nedeniyle sizler için namaz vakitlerini, iftar - imsak vakitlerini takip edebileceğiniz, namaz vakitlerinden önce bildirim alabileceğiniz, iftar - imsağa ne kadar süre kaldığını görebileceğiniz bir uygulama hazırlamak istedim.Uygulamayı Ramazan'da iftar - imsak vakitlerini takip etmek için kullanabileceğiniz gibi Ramazan dışında da namaz vakitlerini takip etmek için kullanabilirsiniz. Umarım işinize yarar.ÖzellikleriÜlke / il / ilçeye göre namaz vakitlerini görebilirsiniz.Namaz vakitlerinden 5 dakika önce sesli / sessiz bildirim alabilirsiniz.Namaz vakti geldiğinde bildirim alıp ezan sesi dinleyebilirsiniz.İftar - imsak vaktine ne kadar süre kaldığını takip edebilirsiniz.Başlangıçta çalışma özelliği vardır.Veriler Diyanet İşleri Başkanlığı'nın sitesinden çekildiği için doğruluğundan emin olabilirsiniz.Sistem GereksinimleriWindows XP, Windows Vista, Windows 7 ya da Windows 8 işletim sistemi500 KB bellek alanı.1 Ghz işlemci[spoiler][/spoiler]Uygulama (exe): Namaz Vakitleri v1.0.1.7z 2,49MBKaynak kodları (au3):Namaz Vakitleri v1.0.1 Kaynak Kodları.7z 1,69MB Edited June 30, 2014 by nightmare3519 Quote Link to comment Share on other sites More sharing options...
awengers44 Posted June 29, 2014 Share Posted June 29, 2014 Çalışma ve paylaşım için teşekkür ederiz.:) Şehir değiştirmek istediğimde hata veriyor. Quote Link to comment Share on other sites More sharing options...
Bay_RC Posted June 29, 2014 Share Posted June 29, 2014 Çalışma ve paylaşım için teşekkür ederiz. :) Şehir değiştirmek istediğimde hata veriyor. aynen. Quote Link to comment Share on other sites More sharing options...
A80 Posted June 29, 2014 Share Posted June 29, 2014 Sağ Tık > Yönetici Olarak Çalıştır Quote Link to comment Share on other sites More sharing options...
mehmetozsoy Posted June 29, 2014 Share Posted June 29, 2014 (edited) Sorun giderildi. Güncel halini aynı linkler üzerinden indirebilirsiniz. [hr] v1.0.1 sürümüne güncellenmiştir (30.06.2014). Yenilikler: Ülke / şehir / ilçe seçimindeki hata giderildi. Edited June 29, 2014 by mehmetozsoy Quote Link to comment Share on other sites More sharing options...
awengers44 Posted June 29, 2014 Share Posted June 29, 2014 @mehmetozsoy Teşekkür ederim program çalışıyor çok önemli değil ama bursa şehrinde yıldırım ilçesi yok :) Quote Link to comment Share on other sites More sharing options...
mehmetozsoy Posted June 29, 2014 Share Posted June 29, 2014 Bütün veriler Diyanet İşleri Başkanlığı'nın sitesinden çekiliyor. Bu yüzden yapabileceğim bir şey yok ne yazık ki. Quote Link to comment Share on other sites More sharing options...
awengers44 Posted June 29, 2014 Share Posted June 29, 2014 Sağlık olsun programınız çok güzel ellerinize sağlık. 650.000,lik nüfusu yok saymışlar demekki sayenizde görmüş olduk diyanet işlerine mail atarız düzeltirler inşaallah. Quote Link to comment Share on other sites More sharing options...
mehmetozsoy Posted June 29, 2014 Share Posted June 29, 2014 Size en yakın konum neresiyse orayı seçin. Birkaç saniyelik fark sorun yaratmayacaktır tahminimce :). Quote Link to comment Share on other sites More sharing options...
nightmare3519 Posted June 30, 2014 Author Share Posted June 30, 2014 Ileti güncellendi Quote Link to comment Share on other sites More sharing options...
ekremkaradeniz Posted July 2, 2014 Share Posted July 2, 2014 çok güzel olmuş elinize sağlık acaba bu programı ams ile hazırlamak mümkün olur mu Quote Link to comment Share on other sites More sharing options...
hasan gul Posted July 2, 2014 Share Posted July 2, 2014 hayırlı ramazanlar çok güzel biraz reklendirmek gerek bide pencereyi istediğimiz yere sürkleye bilsek iyi olurdu genede allah razı olsun bu bir emektir Quote Link to comment Share on other sites More sharing options...
mehmetozsoy Posted July 3, 2014 Share Posted July 3, 2014 İstediğiniz yere sürükleyebilirsiniz zaten. İftar / imsağa kalan süreyi gösteren kutuyu mu kastediyorsunuz? Tasarım konusunda yeteneğimiz yok ama değişiklik yapmak isterseniz karşı çıkmayız :). Geliştirilmeye açık. hayırlı ramazanlar çok güzel biraz reklendirmek gerek bide pencereyi istediğimiz yere sürkleye bilsek iyi olurdu genede allah razı olsun bu bir emektir Quote Link to comment Share on other sites More sharing options...
bkrydn68 Posted July 3, 2014 Share Posted July 3, 2014 (edited) benim bilgisayar sapıttı ..imajdan geri yükledim..virüslü felan olmasın..win 8.1 pro var bende... internet kağnı oldu..dosyalar sağ tık yapınca açılıyor, çift tıklayınca açılmıyor.. ne iş kardeş.. Edited July 3, 2014 by bkrydn68 Quote Link to comment Share on other sites More sharing options...
kayboz Posted July 3, 2014 Share Posted July 3, 2014 proğram internet olmadan çalışıyor mu ? Quote Link to comment Share on other sites More sharing options...
KintaRo Posted July 3, 2014 Share Posted July 3, 2014 benim bilgisayar sapıttı ..imajdan geri yükledim..virüslü felan olmasın..win 8.1 pro var bende... internet kağnı oldu..dosyalar sağ tık yapınca açılıyor, çift tıklayınca açılmıyor.. ne iş kardeş.. Programı durduk yerde kötülemeyin. Sonuçta açık kaynak kodlu bir program. AutoIT'ten iyi anlayan arkadaşlarımız var, öyle bir şey olsa zaten farkedilirdi. Quote Link to comment Share on other sites More sharing options...
mehmetozsoy Posted July 3, 2014 Share Posted July 3, 2014 (edited) proğram internet olmadan çalışıyor mu ? Program çekilen bütün verileri bilgisayara kaydeder. Eğer bilgisayarda gereken veriler varsa o verileri alıp kullanır, yoksa Diyanet'in sitesinden güncel verileri indirip kullanır ve bilgisayara kaydeder. Anlayacağınız üzere önbellek sistemi vardır. Daha önceden internet varken programı kullandıysanız internet yokken aynı bölgeyi seçtiğinizde gösterecektir. benim bilgisayar sapıttı ..imajdan geri yükledim..virüslü felan olmasın..win 8.1 pro var bende... internet kağnı oldu..dosyalar sağ tık yapınca açılıyor, çift tıklayınca açılmıyor.. ne iş kardeş.. Sizin bilgisayarınızla ilgili bir sorun olmalı. Ya da farkında olmadan bc vc reklamını geçerken otomatik inen programı çalıştırdınız. Programın kesinlikle kötü bir amacı yoktur. Buyurun Virus Total sonucu: https://www.virustotal.com/tr/file/ce64d680c4c9de37dc3b5de0618cab94b20df2222e54b2be2f5f3f3203b222c4/analysis/1404401600/ Edited July 3, 2014 by mehmetozsoy Quote Link to comment Share on other sites More sharing options...
bilgitron Posted July 3, 2014 Share Posted July 3, 2014 Program çok iyi birde vakit gelince seçekli olarak ezan okusun veya bilgisayar sesini mute yapsın. istersen bir batch ile yapabilirsin. Orn. Shell("Nircmd.exe mutesysvolume 2") --- 1 Mute --- 0 on volume --- 2 toogle volume gibi nircmd yi araştır. bayağı özellikleri var. Quote Link to comment Share on other sites More sharing options...
SimpsoN_Bart Posted July 3, 2014 Share Posted July 3, 2014 Program çok iyi birde vakit gelince seçekli olarak ezan okusun veya bilgisayar sesini mute yapsın. istersen bir batch ile yapabilirsin. Orn. Shell("Nircmd.exe mutesysvolume 2") --- 1 Mute --- 0 on volume --- 2 toogle volume gibi nircmd yi araştır. bayağı özellikleri var. Güzel fikir fakat böyle basit şeyler için 3. part yazılımlara gerek yok ki. Autoit bunları tek başına fazla fazla yapıyor. Ben biraz düzenledim programı istediğim gibi bu dediklerini bi tanesini koydum güzel oldu :) Programı yazan arkadaşı tebrik ederiz bu arada farklı ve yararlı olmuş :hi: Quote Link to comment Share on other sites More sharing options...
psychotr Posted July 10, 2014 Share Posted July 10, 2014 (edited) sdfsdfsdf Edited July 10, 2014 by psychotr Quote Link to comment Share on other sites More sharing options...
mehmetozsoy Posted July 10, 2014 Share Posted July 10, 2014 ben bunu gezginler.nettede görmüştüm heralde. Evet bilgimiz var. Paylaşan biziz. Quote Link to comment Share on other sites More sharing options...
bilgitron Posted July 11, 2014 Share Posted July 11, 2014 (edited) Birde Windows sesini kapasa iyi olur Biraz Scipt ile oynadım [spoiler] #Region ;**** Directives created by AutoIt3Wrapper_GUI **** #AutoIt3Wrapper_Icon=Icons\icon.ico #AutoIt3Wrapper_Compression=4 #AutoIt3Wrapper_Res_Comment=www.sanaldosya.org tarafından hazırlanan bu uygulama ile imsak ve iftar vakitlerini takip edebilirsiniz. #AutoIt3Wrapper_Res_Description=www.sanaldosya.org #AutoIt3Wrapper_Res_Fileversion=1.0.0.0 #AutoIt3Wrapper_Res_LegalCopyright=Sanal Dosya #AutoIt3Wrapper_Res_Language=1055 #AutoIt3Wrapper_Res_Field=CompanyName|Sanal Dosya Takımı #EndRegion ;**** Directives created by AutoIt3Wrapper_GUI **** Global $countries, $cities, $city_names, $city_id, $city_name, $county_names, $county_id, $done = 1, $country_id, $downloadcities, $downloadcounties, $last_country, $last_city, $last_county, $update, $underlined = 0, $time = 0, $hour = @HOUR & @MIN, $date = @MDAY & @MON & @YEAR, $sendwarn = 1, $play = 0, $stop = 0, $playing = 0, $sendsoundon, $sendwarn, $TRAY_EVENT_PRIMARYDOUBLE = -13, $combostyle = 0x0003 + 0x00200000, $update_ramadan = 0, $update_ramadan1 = 0, $last_time, $PT Opt("TrayMenuMode", 1) Opt("TrayOnEventMode", 1) #include-once ProcessSetPriority(@AutoItPID, 0) #include <Sound.au3> #include "Includes\Memory.au3" #include "Includes\JSMN.au3" #include "Includes\WinHttp.au3" #include "Includes\functions.au3" #include "Includes\_UskinLibrary.au3" #include "Includes\Table.au3" If _Singleton("ptimessanal", 1) = 0 Then MsgBox(16, "Hata", "Programın bir kopyası zaten çalışıyor.") Exit EndIf DirCreate(@AppDataDir & "\Sanal Dosya\Namaz Vakitleri\Themes") DirCreate(@AppDataDir & "\Sanal Dosya\Namaz Vakitleri\Sounds") DirCreate(@AppDataDir & "\Sanal Dosya\Namaz Vakitleri\Icons") FileInstall("Themes\Theme.msstyles", @AppDataDir & "\Sanal Dosya\Namaz Vakitleri\Themes\Theme.msstyles") FileInstall("Sounds\EzanSesi.mp3", @AppDataDir & "\Sanal Dosya\Namaz Vakitleri\Sounds\EzanSesi.mp3") FileInstall("Sounds\Alarm01.mp3", @AppDataDir & "\Sanal Dosya\Namaz Vakitleri\Sounds\Alarm01.mp3") FileInstall("Sounds\Alarm02.mp3", @AppDataDir & "\Sanal Dosya\Namaz Vakitleri\Sounds\Alarm02.mp3") FileInstall("Sounds\Alarm03.mp3", @AppDataDir & "\Sanal Dosya\Namaz Vakitleri\Sounds\Alarm03.mp3") FileInstall("Sounds\Alarm04.mp3", @AppDataDir & "\Sanal Dosya\Namaz Vakitleri\Sounds\Alarm04.mp3") FileInstall("Sounds\Alarm05.mp3", @AppDataDir & "\Sanal Dosya\Namaz Vakitleri\Sounds\Alarm05.mp3") FileInstall("Sounds\Alarm06.mp3", @AppDataDir & "\Sanal Dosya\Namaz Vakitleri\Sounds\Alarm06.mp3") FileInstall("Sounds\Alarm07.mp3", @AppDataDir & "\Sanal Dosya\Namaz Vakitleri\Sounds\Alarm07.mp3") FileInstall("Sounds\Alarm08.mp3", @AppDataDir & "\Sanal Dosya\Namaz Vakitleri\Sounds\Alarm08.mp3") FileInstall("Sounds\Alarm09.mp3", @AppDataDir & "\Sanal Dosya\Namaz Vakitleri\Sounds\Alarm09.mp3") FileInstall("Sounds\Alarm10.mp3", @AppDataDir & "\Sanal Dosya\Namaz Vakitleri\Sounds\Alarm10.mp3") FileInstall("Sounds\Alarm11.mp3", @AppDataDir & "\Sanal Dosya\Namaz Vakitleri\Sounds\Alarm11.mp3") FileInstall("Sounds\Alarm12.mp3", @AppDataDir & "\Sanal Dosya\Namaz Vakitleri\Sounds\Alarm12.mp3") FileInstall("Sounds\Alarm13.mp3", @AppDataDir & "\Sanal Dosya\Namaz Vakitleri\Sounds\Alarm13.mp3") FileInstall("Sounds\Alarm14.mp3", @AppDataDir & "\Sanal Dosya\Namaz Vakitleri\Sounds\Alarm14.mp3") FileInstall("Sounds\Alarm15.mp3", @AppDataDir & "\Sanal Dosya\Namaz Vakitleri\Sounds\Alarm15.mp3") FileInstall("Sounds\Alarm16.mp3", @AppDataDir & "\Sanal Dosya\Namaz Vakitleri\Sounds\Alarm16.mp3") FileInstall("Sounds\Alarm17.mp3", @AppDataDir & "\Sanal Dosya\Namaz Vakitleri\Sounds\Alarm17.mp3") FileInstall("Sounds\Alarm18.mp3", @AppDataDir & "\Sanal Dosya\Namaz Vakitleri\Sounds\Alarm18.mp3") FileInstall("Sounds\Alarm19.mp3", @AppDataDir & "\Sanal Dosya\Namaz Vakitleri\Sounds\Alarm19.mp3") FileInstall("Sounds\Alarm20.mp3", @AppDataDir & "\Sanal Dosya\Namaz Vakitleri\Sounds\Alarm20.mp3") FileInstall("Icons\play.ico", @AppDataDir & "\Sanal Dosya\Namaz Vakitleri\Icons\play.ico") FileInstall("Icons\stop.ico", @AppDataDir & "\Sanal Dosya\Namaz Vakitleri\Icons\stop.ico") _Uskin_LoadDLL() _USkin_Init(@AppDataDir & "\Sanal Dosya\Namaz Vakitleri\Themes\Theme.msstyles") TraySetToolTip("Namaz Vakitleri") $tray_showhide = TrayCreateItem("Gizle") TrayCreateItem("") $tray_about = TrayCreateItem("Hakkında") $tray_exit = TrayCreateItem("Çıkış") TraySetState() TraySetClick(16) TraySetOnEvent($TRAY_EVENT_PRIMARYDOUBLE, "showGUI") GUIRegisterMsg(0x0024, "WM_GETMINMAXINFO") $warn = getSettings("warn") $sound_on = getSettings("sound_on") $sound = StringReplace(getSettings("sound"), "Alarm", "Alarm ") $warnprice = getSettings("warnprice") $warnstyle = getSettings("warnstyle") $warntop = getSettings("warntop") $warnlocation = getSettings("warnlocation") $gui_settings = GUICreate("Ayarlar", 300, 270) GUICtrlCreateGroup("Bildirimler", 10, 10, 277, 120) $ctrl_startup = GUICtrlCreateCheckbox("Programı başlangıçta çalıştır", 20, 30) $reg_startup = RegRead("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run", "ptimessanal") If Not @error Then GUICtrlSetState(-2, 1) RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run", "ptimessanal", "REG_SZ",'"' & @ScriptFullPath & '" -startup') EndIf $ctrl_warn = GUICtrlCreateCheckbox("Namaz vaktinden 5 dakika önce uyar", 20, 50) GUICtrlSetState(-1, $warn) $ctrl_sound_on = GUICtrlCreateCheckbox("Ses çal:", 35, 75) GUICtrlSetState(-1, $sound_on) $ctrl_sound = GUICtrlCreateCombo("", 95, 75, 110, 20, $combostyle) GUICtrlSetData(-1, "Ezan Sesi|Alarm 01|Alarm 02|Alarm 03|Alarm 04|Alarm 05|Alarm 06|Alarm 07|Alarm 08|Alarm 09|Alarm 10|Alarm 11|Alarm 12|Alarm 13|Alarm 14|Alarm 15|Alarm 16|Alarm 17|Alarm 18|Alarm 19|Alarm 20", $sound) $ctrl_play = GUICtrlCreateButton("", 210, 74, 30, 22, 0x0040) GUICtrlSetImage(-1, @AppDataDir & "\Sanal Dosya\Namaz Vakitleri\Icons\play.ico") GUICtrlSetFont(-1, 10) $ctrl_warnprice = GUICtrlCreateCheckbox("Namaz vakti gelince ezan sesi çal", 20, 100) GUICtrlSetState(-1, $warnprice) GUICtrlCreateGroup("", -99, -99, 1, 1) GUICtrlCreateGroup("Süre Gösterimi", 10, 135, 277, 120) $ctrl_warnstyle = GUICtrlCreateCombo("", 20, 160, 200, 20, $combostyle) GUICtrlSetData(-1, "Kare içerisinde göster|Balon içerisinde göster", $warnstyle) $ctrl_warntop = GUICtrlCreateCombo("", 20, 190, 200, 20, $combostyle) GUICtrlSetData(-1, "Her zaman göster|Masaüstünde göster", $warntop) $ctrl_warnlocation = GUICtrlCreateCombo("", 20, 220, 200, 20, $combostyle) GUICtrlSetData(-1, "Sağ altta göster|Sol altta göster|Sağ üstte göster|Sol üstte göster", $warnlocation) GUICtrlCreateGroup("", -99, -99, 1, 1) $gui = GUICreate("Namaz Vakitleri", 520, 350, Default, Default, 0x00040000 + 0x00020000 + 0x00010000) GUISetState(@SW_SHOW) For $id In $CountryIds $countries = $countries & "|" & getCountryName($id) Next $countries = StringReplace($countries, "|", "", 1) $ctrl_countries = GUICtrlCreateCombo("", 10, 20, 120, 20, $combostyle) GUICtrlSetData(-1, $countries) GUICtrlSetTip(-2, "Ülke") $ctrl_cities = GUICtrlCreateCombo("", 135, 20, 120, 20, $combostyle) GUICtrlSetTip(-1, "Şehir - Eyalet") $ctrl_counties = GUICtrlCreateCombo("", 260, 20, 120, 20, $combostyle) GUICtrlSetTip(-1, "İlçe") GUICtrlCreateDate("", 385, 20, 120, 20, 0) GUICtrlSetState(-1, 128) $ramadan = GUICtrlCreateCheckbox("İftar / İmsak Vakti İçin Kalan Süreyi Göster", 10, 250, 220, 20) $ramadan1 = GUICtrlCreateCheckbox("Bilgisayar Sesini Kapat", 10, 280, 220, 20) $ramadan_reg = RegRead("HKEY_CURRENT_USER\Software\Sanal Dosya\Namaz Vakitleri", "ramadan") $ramadan1_reg = RegRead("HKEY_CURRENT_USER\Software\Sanal Dosya\Namaz Vakitleri", "ramadan1") GUICtrlSetState(-2, $ramadan_reg) GUICtrlSetState(-3, 128) GUICtrlSetState(-1, $ramadan1_reg) GUICtrlSetState(-1, 128) $ctrl_settings = GUICtrlCreateButton("Ayarlar", 240, 250, 105, 20) $link_s = GUICtrlCreateLabel("www.sanaldosya.org", 396, 250, 120, 20) GUICtrlSetFont(-1, Default, Default, Default) GUICtrlSetColor(-2, 0x0081e6) GUICtrlSetCursor(-3, 0) Global $Table = _GUICtrlTable_Create(10, 60, 246, 25, 6, 2) _GUICtrlTable_Set_Justify_All($Table, 1, 1) _GUICtrlTable_Set_TextFont_All($Table, 8.5, 800, 0, "Tahoma") _GUICtrlTable_Set_TextColor_All($Table, 0x555555) For $i = 1 To 6 setTable($i) Next _GUICtrlTable_Set_Border_Table($Table, 0x555555) $sel_country = RegRead("HKEY_CURRENT_USER\Software\Sanal Dosya\Namaz Vakitleri", "sel_country") $sel_city = RegRead("HKEY_CURRENT_USER\Software\Sanal Dosya\Namaz Vakitleri", "sel_city") $sel_county = RegRead("HKEY_CURRENT_USER\Software\Sanal Dosya\Namaz Vakitleri", "sel_county") If ($sel_country = False) Or ($sel_city = False) Or ($sel_county = False) Then $sel_country = "2" $sel_city = "539" $sel_county = "9541" EndIf If Not($cmdline[0] = 0) And ($cmdline[1] = "-startup") Then GUISetState(@SW_HIDE) TrayItemSetText($tray_showhide, "Göster") EndIf While 1 $pos = WinGetPos($gui) $msg = GUIGetMsg(1) _ReduceMemory() Global $date = @MDAY & @MON & @YEAR If Not $msg[1] = $gui_settings Then If Not ($hour = @HOUR & @MIN) Then $hour = @HOUR & @MIN $update = 1 $msg[0] = $ctrl_counties $msg[1] = $gui EndIf EndIf If $update_ramadan = 1 Then If GUICtrlRead($ramadan) = 1 Then $msg[0] = $ramadan $msg[1] = $gui Else ToolTip("") EndIf $update_ramadan = 0 EndIf If $update_ramadan1 = 1 Then If GUICtrlRead($ramadan1) = 1 Then $msg[0] = $ramadan1 $msg[1] = $gui Else ToolTip("") EndIf $update_ramadan1 = 0 EndIf If ($done <= 4) Then Switch $done Case 1 If Not($cmdline[0] = 0) And ($cmdline[1] = "-startup") Then $update = 1 EndIf $name = getCountryName($sel_country) GUICtrlSetData($ctrl_countries, $name) $msg[0] = $ctrl_countries $msg[1] = $gui Case 2 If Not($cmdline[0] = 0) And ($cmdline[1] = "-startup") Then $update = 1 EndIf If $downloadcities Then $cities = getCities($country_id) For $i = 1 To UBound($cities) - 1 If $cities[$i][1] = $sel_city Then $name = $cities[$i][2] ExitLoop EndIf Next GUICtrlSetData($ctrl_cities, $name) $msg[0] = $ctrl_cities $msg[1] = $gui EndIf Case 3 If Not($cmdline[0] = 0) And ($cmdline[1] = "-startup") Then $update = 1 EndIf If $downloadcounties Then $counties = getCounties($city_id) For $i = 1 To UBound($counties) - 1 If $counties[$i][1] = $sel_county Then $name = $counties[$i][2] ExitLoop EndIf Next GUICtrlSetData($ctrl_counties, $name) $msg[0] = $ctrl_counties $msg[1] = $gui EndIf Case 4 If Not($cmdline[0] = 0) And ($cmdline[1] = "-startup") Then $update = 1 EndIf If $downloadcounties Then $msg[0] = $ramadan $msg[0] = $ramadan1 $msg[1] = $gui EndIf EndSwitch $done+=1 EndIf Switch $msg[1] Case $gui Switch $msg[0] Case -3, -4 GUISetState(@SW_HIDE, $gui) TrayItemSetText($tray_showhide, "Göster") Case $link_s ShellExecute("http://sanaldosya.org") Case $ramadan1 Local $remaining RegWrite("HKEY_CURRENT_USER\Software\Sanal Dosya\Namaz Vakitleri", "ramadan1", "REG_SZ", GUICtrlRead($ramadan1)) Case $ramadan Local $remaining RegWrite("HKEY_CURRENT_USER\Software\Sanal Dosya\Namaz Vakitleri", "ramadan", "REG_SZ", GUICtrlRead($ramadan)) If ($time = 0) Or ($time = 5) Or ($time = 6) Then If Not($time = 0) Then If getMin($PT[6]) > getFajr() Then $remaining = returnMin("24:00") - returnMin(@HOUR & ":" & @MIN) + returnMin(getFajr()) $remaining = convertFullHour($remaining) Else $fajr = getFajr() $remaining = convertFullHour(returnMin($fajr) - returnMin(@HOUR & ":" & @MIN)) EndIf Else $fajr = getFajr() $remaining = convertFullHour(returnMin($fajr) - returnMin(@HOUR & ":" & @MIN)) EndIf If GUICtrlRead($ramadan) = 1 Then setTip("İmsağa kalan süre", "İmsağa " & getHour($remaining) & " saat " & getMin($remaining) & " dakika kaldı.") Else ToolTip("") EndIf Else $remaining = convertFullHour(returnMin($PT[5]) - returnMin(@HOUR & ":" & @MIN)) If GUICtrlRead($ramadan) = 1 Then setTip("İftara kalan süre", "İftara " & getHour($remaining) & " saat " & getMin($remaining) & " dakika kaldı.") Else ToolTip("") EndIf EndIf Case $ctrl_settings GUISetState(@SW_DISABLE, $gui) GUISetState(@SW_LOCK, $gui) GUISetState(@SW_SHOW, $gui_settings) Case $ctrl_countries If Not StringInStr($last_country, GUICtrlRead($ctrl_countries), 1) Then $country_id = getCountryId(GUICtrlRead($ctrl_countries)) $downloadcities = downloadCities($country_id) If $downloadcities Then $last_country = GUICtrlRead($ctrl_countries) resetcombo($ctrl_cities) resetcombo($ctrl_counties) $city_names = "" $cities = getCities($country_id) For $i = 1 To UBound($cities) - 1 If StringInStr($cities[$i][2], "--") Then ContinueLoop EndIf $city_names = $city_names & "|" & $cities[$i][2] Next GUICtrlSetData($ctrl_cities, $city_names) GUICtrlSetState($ramadan, 128) ToolTip("") Else If Not $update = 1 Then noConnection() EndIf EndIf EndIf Case $ctrl_cities If Not StringInStr($last_city, GUICtrlRead($ctrl_cities), 1) And $downloadcities Then $city_name = GUICtrlRead($ctrl_cities) For $i = 1 To UBound($cities) - 1 If $cities[$i][2] = $city_name Then $city_id = $cities[$i][1] ExitLoop EndIf Next $downloadcounties = downloadCounties($city_id) If $downloadcounties Then $last_city = GUICtrlRead($ctrl_cities) resetcombo($ctrl_counties) $county_names = "" $counties = getCounties($city_id) For $i = 1 To UBound($counties) - 1 $county_names = $county_names & "|" & $counties[$i][2] Next GUICtrlSetData($ctrl_counties, $county_names) GUICtrlSetState($ramadan, 128) ToolTip("") Else If Not $update = 1 Then noConnection() EndIf EndIf EndIf Case $ctrl_counties If (StringInStr($last_county, GUICtrlRead($ctrl_counties), 1) = False) Or ($update = 1) Then If $downloadcities And $downloadcounties Then If $update = 0 Then $last_time = 0 $county_name = GUICtrlRead($ctrl_counties) For $i = 1 To UBound($counties) - 1 If $counties[$i][2] = $county_name Then $county_id = $counties[$i][1] ExitLoop EndIf Next If downloadPrayerTimes($country_id, $city_id, $county_id) Then $last_county = GUICtrlRead($ctrl_counties) For $i = 1 To 6 setTable($i) Next $PT = getPrayerTimes($country_id, $city_id, $county_id) $time = 0 For $i = 6 To 1 Step -1 If GetUnixTimeStamp() > GetUnixTimeStamp(0, 0, 0, getHour(backMin($PT[$i])), getMin(backMin($PT[$i]))) Then _GUICtrlTable_Set_TextColor_All($Table, 0x555555) _GUICtrlTable_Set_TextColor_Row($Table, $i, 0xff0000) $time = $i ExitLoop EndIf Next For $i = 1 To 6 setTable($i, $PT[$i]) Next RegWrite("HKEY_CURRENT_USER\Software\Sanal Dosya\Namaz Vakitleri", "sel_country", "REG_SZ", $country_id) RegWrite("HKEY_CURRENT_USER\Software\Sanal Dosya\Namaz Vakitleri", "sel_city", "REG_SZ", $city_id) RegWrite("HKEY_CURRENT_USER\Software\Sanal Dosya\Namaz Vakitleri", "sel_county", "REG_SZ", $county_id) $last_time = $PT[$time] If $update = 1 Then If Not $time = 0 Then If $PT[$time] = @HOUR & ":" & @MIN Then If $warnprice = "1" Then $pricesound = _SoundOpen(@AppDataDir & "\Sanal Dosya\Namaz Vakitleri\Sounds\EzanSesi.mp3") _SoundPlay($pricesound) MsgBox(64, "Bilgi", getTime($time)) _SoundStop($pricesound) EndIf EndIf EndIf EndIf If $warn = 1 Then Local $reminute, $pid If $time = 6 Then $reminute = returnMin(getFajr()) - returnMin(@HOUR & ":" & @MIN) Else $reminute = returnMin($PT[$time + 1]) - returnMin(@HOUR & ":" & @MIN) EndIf If $reminute = 5 Then If $sound_on = 1 Then $alarmsound = StringReplace($sound, " ", "") $warnsound = _SoundOpen(@AppDataDir & "\Sanal Dosya\Namaz Vakitleri\Sounds\" & $alarmsound & ".mp3") _SoundPlay($warnsound) EndIf Switch $time Case 1 $pid = Run(@AutoItExe & ' /AutoIt3ExecuteLine "MsgBox(64, ''Bilgi'', ''Sabah namazına 5 dakika kaldı.'')"') Case 2 $pid = Run(@AutoItExe & ' /AutoIt3ExecuteLine "MsgBox(64, ''Bilgi'', ''Öğle namazına 5 dakika kaldı.'')"') Case 3 $pid = Run(@AutoItExe & ' /AutoIt3ExecuteLine "MsgBox(64, ''Bilgi'', ''İkindi namazına 5 dakika kaldı.'')"') Case 4 $pid = Run(@AutoItExe & ' /AutoIt3ExecuteLine "MsgBox(64, ''Bilgi'', ''Akşam namazına 5 dakika kaldı.'')"') Case 5 $pid = Run(@AutoItExe & ' /AutoIt3ExecuteLine "MsgBox(64, ''Bilgi'', ''Yatsı namazına 5 dakika kaldı.'')"') Case 6 $pid = Run(@AutoItExe & ' /AutoIt3ExecuteLine "MsgBox(64, ''Bilgi'', ''İmsağa 5 dakika kaldı.'')"') Case 0 $pid = Run(@AutoItExe & ' /AutoIt3ExecuteLine "MsgBox(64, ''Bilgi'', ''İmsağa 5 dakika kaldı.'')"') EndSwitch If $sound_on = 1 Then WinWait("Bilgi") While 1 Sleep(100) $pidexists = ProcessExists($pid) $sexists = StringInStr(_SoundStatus($warnsound), "stopped") If $pidexists Then If $sexists Then $warnsound = _SoundOpen(@AppDataDir & "\Sanal Dosya\Namaz Vakitleri\Sounds\" & $alarmsound & ".mp3") _SoundPlay($warnsound) EndIf Else _SoundStop($warnsound) ExitLoop EndIf Wend EndIf EndIf EndIf If $time = 6 Then $tip_time = returnMin(getFajr()) - returnMin(@HOUR & ":" & @MIN) Else $tip_time = returnMin($PT[$time + 1]) - returnMin(@HOUR & ":" & @MIN) EndIf $tip_time_formatted = convertFullHour($tip_time) $tip_hour = getHour($tip_time_formatted) $tip_min = getHour($tip_time_formatted) Switch $time Case 1 TraySetToolTip("Sabah namazına " & $tip_hour & " saat " & $tip_min & " dakika var.") Case 2 TraySetToolTip("Öğle namazına " & $tip_hour & " saat " & $tip_min & " dakika var.") Case 3 TraySetToolTip("İkindi namazına " & $tip_hour & " saat " & $tip_min & " dakika var.") Case 4 TraySetToolTip("Akşam namazına " & $tip_hour & " saat " & $tip_min & " dakika var.") Case 5 TraySetToolTip("Yatsı namazına " & $tip_hour & " saat " & $tip_min & " dakika var.") Case 6 TraySetToolTip("İmsak vaktine " & $tip_hour & " saat " & $tip_min & " dakika var.") Case 0 TraySetToolTip("İmsak vaktine " & $tip_hour & " saat " & $tip_min & " dakika var.") EndSwitch $update = 0 GUICtrlSetState($ramadan1, 64) $update_ramadan1 = 1 GUICtrlSetState($ramadan, 64) $update_ramadan = 1 Else If Not $update = 1 Then noConnection() EndIf EndIf EndIf $update = 0 EndIf EndSwitch Case $gui_settings $play_status = _SoundStatus($play) If ($play_status = "stopped") And ($playing = 1) Then GUICtrlSetImage($ctrl_play, @AppDataDir & "\Sanal Dosya\Namaz Vakitleri\Icons\play.ico") $playing = 0 EndIf If $sendwarn = 1 Then $msg[0] = $ctrl_warn $sendwarn = 0 EndIf If $sendsoundon = 1 Then $msg[0] = $ctrl_sound_on $sendsoundon = 0 EndIf Switch $msg[0] Case -3 _SoundStop($play) GUICtrlSetImage($ctrl_play, @AppDataDir & "\Sanal Dosya\Namaz Vakitleri\Icons\play.ico") $playing = 0 setSettings("warn") setSettings("sound_on") setSettings("sound") setSettings("warnprice") setSettings("warnstyle") setSettings("warntop") setSettings("warnlocation") $warn = getSettings("warn") $sound_on = getSettings("sound_on") $sound = StringReplace(getSettings("sound"), "Alarm", "Alarm ") $warnprice = getSettings("warnprice") $warnstyle = getSettings("warnstyle") $warntop = getSettings("warntop") $warnlocation = getSettings("warnlocation") If GUICtrlRead($ctrl_startup) = 1 Then RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run", "ptimessanal", "REG_SZ",'"' & @ScriptFullPath & '" -startup') Else RegDelete("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run", "ptimessanal") EndIf GUISetState(@SW_ENABLE, $gui) GUISetState(@SW_UNLOCK, $gui) GUISetState(@SW_SHOW, $gui) GUISetState(@SW_HIDE, $gui_settings) If GUICtrlRead($ramadan) = 1 Then $update_ramadan = 1 EndIf If GUICtrlRead($ramadan1) = 1 Then $update_ramadan1 = 1 EndIf Case $ctrl_warn _SoundStop($play) GUICtrlSetImage($ctrl_play, @AppDataDir & "\Sanal Dosya\Namaz Vakitleri\Icons\play.ico") $playing = 0 If GUICtrlRead($ctrl_warn) = 1 Then GUICtrlSetState($ctrl_sound_on, 64) $sendsoundon = 1 Else GUICtrlSetState($ctrl_sound_on, 128) GUICtrlSetState($ctrl_sound_on, 4) $sendsoundon = 1 EndIf Case $ctrl_sound_on _SoundStop($play) GUICtrlSetImage($ctrl_play, @AppDataDir & "\Sanal Dosya\Namaz Vakitleri\Icons\play.ico") $playing = 0 If GUICtrlRead($ctrl_sound_on) = 1 Then GUICtrlSetState($ctrl_sound, 64) GUICtrlSetState($ctrl_play, 64) Else GUICtrlSetState($ctrl_sound, 128) GUICtrlSetState($ctrl_play, 128) EndIf 8) Case $ctrl_sound _SoundStop($play) GUICtrlSetImage($ctrl_play, @AppDataDir & "\Sanal Dosya\Namaz Vakitleri\Icons\play.ico") $playing = 0 Case $ctrl_play If $playing = 1 Then _SoundStop($play) Else $read = GUICtrlRead($ctrl_sound) $sound = StringReplace($read, " ", "") If FileExists(@AppDataDir & "\Sanal Dosya\Namaz Vakitleri\Sounds\" & $sound & ".mp3") Then $play = _SoundOpen(@AppDataDir & "\Sanal Dosya\Namaz Vakitleri\Sounds\" & $sound & ".mp3") _SoundPlay($play) GUICtrlSetImage($ctrl_play, @AppDataDir & "\Sanal Dosya\Namaz Vakitleri\Icons\stop.ico") $playing = 1 EndIf EndIf EndSwitch EndSwitch $ci = GUIGetCursorInfo() If IsArray($ci) Then If $ci[4] = $link_s Then If $underlined = 0 Then GUICtrlSetFont($link_s, Default, Default, 4) $underlined = 1 EndIf Else If $underlined = 1 Then GUICtrlSetFont($link_s, Default, Default, Default) $underlined = 0 EndIf EndIf Else If $underlined = 1 Then GUICtrlSetFont($link_s, Default, Default, Default) $underlined = 0 EndIf EndIf If TrayItemGetState($tray_exit) = 65 Then TrayItemSetState($tray_exit, 4) Exit ElseIf TrayItemGetState($tray_about) = 65 Then TrayItemSetState($tray_about, 4) about() ElseIf TrayItemGetState($tray_showhide) = 65 Then TrayItemSetState($tray_showhide, 4) If TrayItemGetText($tray_showhide) = "Gizle" Then GUISetState(@SW_HIDE) TrayItemSetText($tray_showhide, "Göster") Else GUISetState(@SW_SHOW) GUISetState(@SW_RESTORE) WinActivate("Namaz Vakitleri") TrayItemSetText($tray_showhide, "Gizle") EndIf EndIf WEnd[/spoiler] Edited July 11, 2014 by KintaRo Quote Link to comment Share on other sites More sharing options...
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.
Note: Your post will require moderator approval before it will be visible.