Alarm Çalar Saat

[kamuran731]

[img]http://c1208.hizliresim.com/10/h/bwkf0.png[/img]

Bazı Düzenlemeler yapılarak tekrar yayınlandı 15.08.2012
artık Timer.ini dosyasına ihtiyaç olmayacak kayıtları regeditte saklayacak
ayrıca CTRL+K tuşu ile alarmı kuruyor CTRL+S tuşu ile siliyor v.s

[b]Program Linki[/b]
http://s2.dosya.tc/server18/dr3qAC/AlarmveSaatKamuran15.08.2012.exe.html


[b]Compile yaparken au3 dosyasının yanında bulunması gerekenler[/b]
http://www.upload.gen.tr/d.php/www/kw9gmkq6/tall_Edilenler_Alarm_au3__n_yan__na_____kart.rar.html

[b]Kaynak Kod 15.08.2012[/b]
[code]
#AutoIt3Wrapper_Icon=Install_Edilenler\Alarmİkon.ico
#AutoIt3Wrapper_Outfile=Alarm ve Saat Kamuran 15.08.2012.exe
#AutoIt3Wrapper_UseUpx=n
#AutoIt3Wrapper_Compression=3
#include <GDIPlus.au3> ;Arkaplan için
#include <DateTimeConstants.au3>
#include <GuiEdit.au3>
#include <GUIConstantsEx.au3>
#include <Sound.au3>
#include <WindowsConstants.au3>
#Include <GuiButton.au3>
Opt("TrayIconHide", 0)
Opt("TrayOnEventMode", 1) ; 0 = disable (Menüler işlem Görmez)
Opt("TrayMenuMode", 1) ; Sadece Kullanıcının oluşturduğu menüler Görünsün. (Script pause ve Exit Görünmesin)
;Opt("GUIOnEventMode",1) ; Labele tıkladığında atanan fonksiyonun çalışması için. Bunu kullanınca Sağ üstteki X işaretine basınca program kapanmıyor
;kapanabilmesi için $Form1 in aşağısına şu kodu girmelisin = GUISetOnEvent(-3, "On_Exit") ; Tepedeki X kapat işareti

HotKeySet ( "^y", "_Yenile" ) ; ctrl ve K ye basınca Fonksiyonu çalıştır
HotKeySet ( "^k", "_Kur" ) ; ctrl ve K ye basınca Fonksiyonu çalıştır
HotKeySet ( "^s", "_Sil" ) ; ctrl ve K ye basınca Fonksiyonu çalıştır
;====INI Kodları Yedek
;IniWrite("Timer.ini", "alarm1" ,"Tarih" , GUICtrlRead($hedit_tarihicin))

TraySetIcon("Install_Edilenler\Alarmİkon.ico") ; tray ikonu için
GUISetIcon(@TempDir & "\$.tmp") ;Tepedeki İkon için

$Form1 = GUICreate("Alarm - By Kamuran", 360, 220)

FileInstall("Install_Edilenler\arkaplan.bmp", @TempDir & "\$a.tmp")
GUICtrlCreatePic(@TempDir & "\$a.tmp",0,0,360,220) ;Arkaplan
GUICtrlSetState(-1,128) ; Arkaplan varken Butonların Tıklanabilmesi içindir
FileInstall("Install_Edilenler\muzik.bmp", @TempDir & "\$mu.tmp")
GUICtrlCreatePic(@TempDir & "\$mu.tmp",1,143,32,32) ;Müzik ikonu

;GUISetIcon("C:\Windows\System32\shell32.dll", -240) ;msn ikonu
GUISetIcon("Install_Edilenler\Alarmİkon.ico") ;Programın sol üstünde görünür. VEYA GUISetIcon("C:\Windows\System32\shell32.dll", -242) ;internet ikonu
GUISetBkColor(0x000080)
GUISetFont(10, 100, 0, "Segoe UI") ;masada olanları butonu etkıler

FileDelete(@TempDir & "\*.tmp")
FileInstall("Install_Edilenler\nettenGuncelle.exe", @TempDir & "\$g.tmp")
FileInstall("Install_Edilenler\O GECE SENDIN GELEN.mp3", @TempDir & "\$m.mp3" ,1)

GUISetState(@SW_SHOW)

$ButtonYenile = GUICtrlCreateButton("Yenile", 2, 7, 45, 26) ; ,Sol ,Üst ,Gen ,Yük
GUICtrlSetTip(-1, "CTRL+Y")
GUICtrlSetCursor (-1, 0)
GUICtrlSetBkColor(-1, 0xFFFFFF) ;Beyaz
$tarih = RegRead("HKEY_CURRENT_USER\Software\Kamuran Alarm\Alarm1", "Tarih")
$hedit_tarihicin = GUICtrlCreateDate($tarih, 48, 9, 90, 22, $DTS_SHORTDATEFORMAT)
GUICtrlSetFont(-3, 9, 800, 1, "Segoe UI")
GUICtrlSetTip(-1, "Sistemden alınan Bilgi.")
$hedit_saaticin = GUICtrlCreateDate(@HOUR&":"&@MIN&":"&@SEC , 141, 9, 80, 22, $DTS_TIMEFORMAT)
GUICtrlSetFont(-1, 9, 800, 0, "Segoe UI")
GUICtrlSetTip(-1, "Sistemden alınan Bilgi.")
$ButtonKur = GUICtrlCreateButton("Kur", 223, 4, 34, 32) ; ,Sol ,Üst ,Gen ,Yük
GUICtrlSetTip(-1, "CTRL+K")
GUICtrlSetCursor (-1, 0)
GUICtrlSetBkColor(-1, 0xFFFFFF) ;Beyaz
$ButtonSil = GUICtrlCreateButton("Sil", 257, 4, 34, 32) ; ,Sol ,Üst ,Gen ,Yük
GUICtrlSetTip(-1, "CTRL+S")
GUICtrlSetCursor (-1, 0)
GUICtrlSetBkColor(-1, 0xFFFFFF) ;Beyaz
$LabelMesaj = GUICtrlCreateLabel("Mesaj", 4, 32, 36, 35)
GUICtrlSetFont(-1, 9, 200, 0, "Segoe UI")
GUICtrlSetColor(-1, 0xFFFFFF)
$MesajKontrol = RegRead("HKEY_CURRENT_USER\Software\Kamuran Alarm\Alarm1", "Mesaj")
$hedit_Mesajicin = GUICtrlCreateEdit($MesajKontrol, 3, 48, 350, 70, $WS_VSCROLL+$ES_AUTOVSCROLL) ; $ES_WANTRETURN+$WS_VSCROLL+$ES_AUTOVSCROLL
GUICtrlSetTip(-1, "Alarm vakti geldiğinde çıkmasını istediğin Uyarıyı yaz.")
$AlarmBilgisi = GUICtrlCreateButton("Kurulu Alarm Bilgisi", 3 ,120, 130, 23) ; ,Sol ,Üst ,Gen ,Yük
GUICtrlSetCursor (-1, 0)
GUICtrlSetBkColor(-1, 0xFFFFFF) ;Beyaz
$ButtonGuncelleNetten = GUICtrlCreateButton("Sistem Tarih ve Saatini Gücelle", 135, 120, 185, 23) ; ,Sol ,Üst ,Gen ,Yük
GUICtrlSetTip(-1, "İnternet Yoksa Güncelleme Yapamaz.")
GUICtrlSetCursor (-1, 0)
GUICtrlSetBkColor(-1, 0xFFFFFF) ;Beyaz
$ButtonOynat = GUICtrlCreateButton("Oynat", 30, 148, 55, 23) ; ,Sol ,Üst ,Gen ,Yük
GUICtrlSetCursor (-1, 0)
GUICtrlSetBkColor(-1, 0xFFFFFF) ;Beyaz
$ButtonDurdur = GUICtrlCreateButton("Durdur", 86, 148, 55, 23) ; ,Sol ,Üst ,Gen ,Yük
GUICtrlSetCursor (-1, 0)
GUICtrlSetBkColor(-1, 0xFFFFFF) ;Beyaz

$hTray_Show_Item = TrayCreateItem("Gizle")
TrayItemSetOnEvent(-1, "To_Tray")
TrayCreateItem("Çık")
TrayItemSetOnEvent(-1,"On_Exit") ; Çalışacak Fonksiyon


AdlibRegister('_CheckAlarm', 100) ;Alarm Kontrol süresi 5 saniye

Func _CheckAlarm()
$Tarih=RegRead("HKEY_CURRENT_USER\Software\Kamuran Alarm\Alarm1", "Tarih")
$saat=RegRead("HKEY_CURRENT_USER\Software\Kamuran Alarm\Alarm1", "Saat")
$mesaj=RegRead("HKEY_CURRENT_USER\Software\Kamuran Alarm\Alarm1", "Mesaj")
ConsoleWrite( "-" & @HOUR&":"& @MIN& ":" &@SEC)
ConsoleWrite( "-" & @MDAY&":"& @MON& ":" &@YEAR)
;ConsoleWrite( "-" & @HOUR&":"& @MIN& ":" &@SEC & @CRLF)
;ConsoleWrite("hadi len "&$gun & "-" & $saat & @CRLF)
If $saat = @HOUR&":"& @MIN& ":" &@SEC And $Tarih = @MDAY&"."& @MON& "." &@YEAR Then
_PlayAlarm($mesaj)
;Sleep("1000") ;Bunu silersen Alarm çalmayabilir !!!!!!!
EndIf
;Next
EndFunc ;==>_CheckAlarm

$Muzik = (@TempDir & "\$m.mp3")
Func _PlayAlarm($mesaj)
_SoundPlay($Muzik)
;SoundPlay("kam.mp3",54)
TrayTip(".::Kamuran::.", "Alarm Çalıyor...", 5, 2)
Sleep("333")
$KamMesaj = MsgBox(4,"By Kamuran - Rose Net İnternet Cafe", $mesaj &@CRLF& "," &@CRLF& " Müzik Dursun mu?")
Sleep("200")
if $KamMesaj=6 Then
_SoundStop($Muzik)
ElseIf $KamMesaj=7 Then
EndIf
EndFunc

Func _Yenile()
_GUICtrlEdit_BeginUpdate($hedit_tarihicin) ;Eskisini Gizle Aşağıdakini Güncelleyerek Göster
$hedit_tarihicin = GUICtrlCreateDate($tarih, 48, 9, 90, 22, $DTS_SHORTDATEFORMAT)
GUICtrlSetFont(-3, 9, 800, 1, "Segoe UI")
GUICtrlSetTip(-1, "Sistemden alınan Bilgi.")
_GUICtrlEdit_BeginUpdate($hedit_saaticin) ;Eskisini Gizle Aşağıdakini Güncelleyerek Göster
$hedit_saaticin = GUICtrlCreateDate(@HOUR&":"&@MIN&":"&@SEC , 141, 9, 80, 22, $DTS_TIMEFORMAT)
GUICtrlSetFont(-1, 9, 800, 0, "Segoe UI")
GUICtrlSetTip(-1, "Sistemden alınan Bilgi.")
_GUICtrlEdit_BeginUpdate($hedit_Mesajicin) ;Eskisini Gizle Aşağıdakini Güncelleyerek Göster
$MesajKontrol = RegRead("HKEY_CURRENT_USER\Software\Kamuran Alarm\Alarm1", "Mesaj")
$hedit_Mesajicin = GUICtrlCreateEdit($MesajKontrol, 3, 48, 350, 70, $WS_VSCROLL+$ES_AUTOVSCROLL) ; $ES_WANTRETURN+$WS_VSCROLL+$ES_AUTOVSCROLL
GUICtrlSetTip(-1, "Alarm vakti geldiğinde çıkmasını istediğin Uyarıyı yaz.")
TrayTip(".::Kamuran::.", "Yenilendi", 5, 2)
EndFunc



Func _Kur()
RegWrite("HKEY_CURRENT_USER\Software\Kamuran Alarm\Alarm1", "Tarih", "REG_SZ",GUICtrlRead($hedit_tarihicin))
RegWrite("HKEY_CURRENT_USER\Software\Kamuran Alarm\Alarm1", "Saat", "REG_SZ",GUICtrlRead($hedit_saaticin))
;MsgBox(0, "Date 2", GUICtrlRead($n))
RegWrite("HKEY_CURRENT_USER\Software\Kamuran Alarm\Alarm1", "Mesaj", "REG_SZ",GUICtrlRead($hedit_Mesajicin))
TrayTip(".::Kamuran::.", "Alarm Kuruldu", 5, 2)
EndFunc

Func _Sil()
RegDelete("HKEY_CURRENT_USER\Software\Kamuran Alarm\Alarm1")
TrayTip(".::Kamuran::.", "Alarm Silindi", 5, 2)
EndFunc

Func ZamanBilgileriniGuncelle() ;Programdaki saat ve Tarih bilgisini yeniler
$hedit_tarihicin = GUICtrlCreateDate($tarih, 45, 25, 95, 25, $DTS_SHORTDATEFORMAT)
GUICtrlSetFont(-1, 10, 800, 0, "Segoe UI")
GUICtrlSetTip(-1, "Sistemden alınan Bilgi.")
$hedit_saaticin = GUICtrlCreateDate("", 45, 52, 95, 25, $DTS_TIMEFORMAT)
GUICtrlSetFont(-1, 10, 800, 0, "Segoe UI")
GUICtrlSetTip(-1, "Sistemden alınan Bilgi.")
EndFunc

Func On_Exit()
FileDelete(@TempDir & "\*.mp3")
FileDelete(@TempDir & "\*.tmp")
Exit
EndFunc

Func _Hakkinda()
MsgBox(0,"Hakkında","By Kamuran" ,2)
EndFunc


Func To_Tray()
DirRemove(@TempDir & "\kam" ,1)
If TrayItemGetText($hTray_Show_Item) = "Göster" Then
GUISetState(@SW_SHOW, $Form1)
GUISetState(@SW_RESTORE, $Form1)
TrayItemSetText($hTray_Show_Item, "Gizle")
Else
GUISetState(@SW_HIDE, $Form1)
TrayItemSetText($hTray_Show_Item, "Göster")
EndIf
EndFunc ;==>To_Tray


Func AlarmKuruldumu() ;Alarm Bilgilerini Yeni bir pencerede Göster
GUISetState(@SW_HIDE, $Form1)
GUICreate("Bilgiler", 363, 250)
#include <GDIPlus.au3> ;Arkaplan için
GUISetBkColor(0x800000) ;Koyu Kırmızı
$BakTarihe = RegRead("HKEY_CURRENT_USER\Software\Kamuran Alarm\Alarm1", "Tarih")
$BakSaate = RegRead("HKEY_CURRENT_USER\Software\Kamuran Alarm\Alarm1", "Saat")
$BakMesaJa = RegRead("HKEY_CURRENT_USER\Software\Kamuran Alarm\Alarm1", "Mesaj")
$widthCell = 30
$LabelBilgi = GUICtrlCreateLabel("ALARM BİLGİLERİ "&@CRLF&"Tarih : " &$BakTarihe &@CRLF& "Saat : " & $BakSaate ,3 ,3 ,435 ,345 )
GUICtrlSetFont(-1, 10, 800, 0, "Segoe UI")
GUICtrlSetColor(-1, 0xFFFFFF)
$hedit_MesajiGoster = GUICtrlCreateEdit("Mesaj = " & $BakMesaJa, 5, 58, 350, 190, $WS_VSCROLL + $ES_READONLY ) ; $ES_AUTOVSCROLL + $ES_READONLY $WS_VSCROLL
GUICtrlSetBkColor(-1, 0x000000)
GUICtrlSetColor(-1, 0xFFFFFF)
;(-1, 0x000000)
GUICtrlSetTip(-1, "Regde yazılı olan bilgileri Gösterir.")
$LabelSuAnkiTarihSaat = GUICtrlCreateLabel(""&@CRLF& @MDAY &"." &@MON &"."&@YEAR &@CRLF& @HOUR &":" &@MIN &":"&@SEC , 133, 3, 210, 48)
GUICtrlSetFont(-1, 10, 800, 0, "Segoe UI")
GUICtrlSetColor(-1, 0x808080) ;Gri
$Group1 = GUICtrlCreateGroup("Sistem Bilgileri (Şu Anki)", 128, 5, 128, 52)
GUICtrlSetBkColor(-1, 0x3B98D3)
GUICtrlSetColor(-9, 0xFFFFFF)
GUISetState() ;GUIyi Göster
Do
$msg = GUIGetMsg()
Until $msg = $GUI_EVENT_CLOSE ;Kapat Butonuna basınca Şunu Yap
;MsgBox(0, "Date 1", GUICtrlRead($date))
GUIDelete()
GUISetState(@SW_SHOW, $Form1)
;GUIDelete()
;GUISetState(@SW_ENABLE, $Form1) ; Ana guiyi tekrar aktif hale getirir.
EndFunc ;==>Example1


While 1
Sleep(10)
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
On_Exit() ;Exit
Case $ButtonYenile
_Yenile()
Case $ButtonGuncelleNetten ;netten güncelle
run(@TempDir & "\$g.tmp")
Case $ButtonOynat ; Müziği çal
_SoundPlay($Muzik)
Case $ButtonDurdur ; Müziği Durdur
_SoundStop($Muzik)
Case $ButtonKur ;Alarmı Kur
_Kur()
Case $ButtonSil ;Alarmı Sil
_Sil()
Case $AlarmBilgisi
AlarmKuruldumu()
;Case $LabelTarih
; _Hakkinda()
Case $GUI_EVENT_MINIMIZE
To_Tray()
EndSwitch
WEnd
;end By Kamuran 15.08.2012
[/code] Edited August 14, 2012 by kamuran731

[YAGMURADAM]

kamuran731,çalışmanız için teşekür ederim.Size bazı önerilerim var.autoitten anlamam ama program arayüzünden anlarım.
çalışmanızda label yani ana arayüzde yer alan Tarih,saat,mesaj,müzik v alarm yazılarını kodlamasını tek satırda vermişsiniz.Birini değişirdiğinizde hepsinin yeri kayıyor.Özellikle alta doğru.Diğer butonlarda yaptığınız gibi ayrı ayrı kodlasanız nasıl olur.Kodunuz sanırım bu
$LabelSolBasliklar = GUICtrlCreateLabel("Tarih Saat"&@CRLF&@CRLF& "Mesaj "&@CRLF&@CRLF& "Müzik" &@CRLF& "Alarm" , 5, 40, 40, 190)
Bunları ayrı kodlamanızı tavsiye ederim.
Ayrıca Oynat durdur bilgi sil komutlarının butonları hafif birbirinine girmiş gibi 1 piksel kadar.

"Durdur", 100, 140, 55, 23) ; ,Sol ,Üst ,Gen ,Yük
Sil", 100, 162, 55, 23) ; ,Sol ,Üst ,Gen ,Yük
Durdur sil arasında 22 birimlik fark varken siz 23 birimlik yükseklik kodlamışsınız.(162-140=22)
Son olarak istem Saat ve Tarihini Gücelle (İnternetten kısmında genişlik yetersiz.Zira yazıtipini sisteme ayarlı.Geniş karakterli yazı tipi kullanıldığında yazı tam butona sığmıyor.Aynı durum Yenile butonunda da var.
Bunları düzeltirseniz memnun olurum saygılarımla

[i][b]Sizden bir şey rica edeceğim.Dizüstü bilgisayarramın açılım için.Basitçe sesi açıp kapatacak bir au3 çlışması.
bu au3 ten yapılmış exeyi çalıştırdığımda ses açıkça kapatacak,kapalıysa açacak.İşlevini yapıp otomaik kapanacak.Saygılarımla[/b][/i]

Edited August 2, 2012 by YAGMURADAM

[SimpsoN_Bart]

[font="Tahoma"] @YAGMURADAM
Beep ile ses çalmayla ilgili burada birşeyler karalamıştım sanırım.

[code]http://www.tnctr.com/topic/202103-dllcall-komutu-ve-kullanym-yerleri/[/code]
[/font]

Edited August 3, 2012 by SimpsoN_Bart

[kamuran731]

@YAGMURADAM
yorum ve önerilerin için teşekkür ederim. Açıkçası değindiğin kısımların o kadar önemli olmadığını ve indirecek arkadaşlar
kendi zevkine göre düzenliyecekler diye düşünmüştüm. Ama yeniden düzenlemem iyi oldu yeni fark ettim ilk verdiğim kodlarda bir hata vardı
müzik çaldığı zaman durdurulsunmu diyaloguna evet dediğimiz halde müzik çalmaya devam ediyordu v.b tüm hataları düzenleyip tekrar yayınladım.
daha evvel indiren arkadaşlar indirdiğini silip yeni verdiğim kodları indirip kullansınlar. iyi günlerde kullanmanız dileğiyle.

Leptop için ise bende bir dosya var tıkılayınca ses açık ise kapatıyor; kapalı ise açıyor
Senin için upload ettim
LİNK
http://www.upload.gen.tr/d.php/www/t09ist4m/sesi_kontrol.exe.html

Edited August 3, 2012 by kamuran731

[YAGMURADAM]

kamuran731,çalışmanızda bazı sorunlar tespit ettim.au3 dosyası exe ye çevrilemiyor.3 ayrı dosya istiyor.
1.Install_Edilenler klasörü içinde [b]internet.ico[/b],[b]arkaplan.bmp[/b] dosyasını ve bir de [b]netten güncelle.exe[/b] dosyasını istiyor.Sanırım dikkatinizden kaçtı.
Sizden istediğim ses açıp kapama programına yanıt vermişsiniz.Öncellikle ilginize teşekkür ederim.Maalesef hiçbir etkide bulunmuyor.ss ne açıkken ve de ne de kapalıyken sesi açıp kapatıyor.Bilgilerinize.Saygılarımla

[kamuran731]

@YAGMURADAM
aslında sorun yok ama programın istediği dosyaları kendiniz kolaylıkla eklersiniz diye düşünmüştüm.
Ses kapatma Açma eklentisi bende çalışıyor sende neden çalışmadı anlamadım win7 kullanıyorsan belki uyumlu değildir

neyse kodları biraz daha geliştirdim artık Timer.ini dosyasına ihtiyaç olmayacak kayıtları regeditte saklayacak
ayrıca CTRL+K tuşu ile alarmı kuruyor CTRL+S tuşu ile siliyor v.s Kodları güncelledim au3 dosyasının yanında olması gereken klasörü de upload ettim. [b]Sorunsuz ve çok güzel oldu daha önce indirenler yeni verdiğimi kullansınlar[/b]

Edited August 10, 2012 by kamuran731