Namaz Vakitleri V1.01

nightmare3519 · June 29, 2014

sanaldosya.org_1404065733__sanaldosyaorg

sanaldosya.org_1404065743__sanaldosyaorg

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 Gereksinimleri

Windows XP, Windows Vista, Windows 7 ya da Windows 8 işletim sistemi
500 KB bellek alanı.
1 Ghz işlemci

[spoiler]

[/spoiler]

Uygulama (exe):

Namaz Vakitleri v1.0.1.7z 2,49MB

Kaynak kodları (au3):

Namaz Vakitleri v1.0.1 Kaynak Kodları.7z 1,69MB Edited June 30, 2014 by nightmare3519

awengers44 · June 29, 2014

Çalışma ve paylaşım için teşekkür ederiz.:)

Şehir değiştirmek istediğimde hata veriyor.

Bay_RC · June 29, 2014

Çalışma ve paylaşım için teşekkür ederiz. :)

Şehir değiştirmek istediğimde hata veriyor.

aynen.

A80 · June 29, 2014

Sağ Tık > Yönetici Olarak Çalıştır

mehmetozsoy · June 29, 2014

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

awengers44 · 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 :)

mehmetozsoy · 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.

awengers44 · 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.

mehmetozsoy · June 29, 2014

Size en yakın konum neresiyse orayı seçin. Birkaç saniyelik fark sorun yaratmayacaktır tahminimce :).

nightmare3519 · June 30, 2014

Ileti güncellendi

ekremkaradeniz · July 2, 2014

çok güzel olmuş elinize sağlık acaba bu programı ams ile hazırlamak mümkün olur mu

hasan gul · 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

mehmetozsoy · 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

bkrydn68 · 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ş..

Edited July 3, 2014 by bkrydn68

kayboz · July 3, 2014

proğram internet olmadan çalışıyor mu ?

KintaRo · 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.

mehmetozsoy · July 3, 2014

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

bilgitron · 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.

SimpsoN_Bart · 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:

psychotr · July 10, 2014

sdfsdfsdf

Edited July 10, 2014 by psychotr

mehmetozsoy · July 10, 2014

ben bunu gezginler.nettede görmüştüm heralde.

Evet bilgimiz var. Paylaşan biziz.

bilgitron · July 11, 2014

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

Sign In

Namaz Vakitleri V1.01

Recommended Posts

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Join the conversation

Recently Browsing 0 members