Darendeli Bilgisayar Saat & Tarih Düzenleyici V1

[darendeli]

İNDİR:Darendeli Bilgisayar Saat & Tarih Düzenleyici V1
ŞİFRE: darendeli

[BlueLife]

@darendeli

Zaman bilgisini güncellemek için, uzak bir sunucudan faydalanabilirsin. En basit olarak zaman bilgisini veren hızlı bir site bulup, sitedeki bilgeleri çekerek güncelleme yapabilirsin. Onun haricinde program başlayınca veyahut ilk kez saat değiştirilince eski saat bilgisini bir değişkende yedekleyip sonra bu bilgileri kullanabilirsin. Lakin haliyle bu verimli olmaz. Programın ne kadar açık kalacağı vs. gibi durumlarda yedeklenen saat bilgisi hatalı olacaktır. Uzak bir sunucudan zaman bilgisini çekmek daha mantıklı...

Tabi programın değişkene atadığı zaman bilgisini bir timer ile sürekli güncellenebilir. Lakin yinede program hatalı zaman bilgisini uygulayıp kapandğında ve sonra yeniden açıldığında alınan bilgiler hatalı olacaktır...

Kod: Tümünü seç

#RequireAdmin
#include <ButtonConstants.au3>
#include <ComboConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <Date.au3>

Local $FirsTime[3] =  [@hour,@MIN, @SEC]

#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Darendeli Sistem Saat & Tarih Düzenleyici", 521, 197, 192, 124)
$Group1 = GUICtrlCreateGroup("Sistem Saati Değişiklik Ayarı", 8, 16, 249, 89)
$Input1 = GUICtrlCreateInput("", 24, 56, 57, 21)
$Input2 = GUICtrlCreateInput("", 104, 56, 57, 21)
$Input3 = GUICtrlCreateInput("", 184, 56, 57, 21)
$Label1 = GUICtrlCreateLabel("SAAT", 32, 80, 32, 17)
$Label2 = GUICtrlCreateLabel("DAKİKA", 112, 80, 43, 17)
$Label3 = GUICtrlCreateLabel("SANİYE", 192, 80, 43, 17)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group2 = GUICtrlCreateGroup("Sistem Tarihi Değişiklik Ayarı", 264, 16, 249, 89)
$Input4 = GUICtrlCreateInput("", 280, 56, 57, 21)
$Input5 = GUICtrlCreateInput("", 360, 56, 57, 21)
$Input6 = GUICtrlCreateInput("", 440, 56, 57, 21)
$Label4 = GUICtrlCreateLabel("GÜN", 288, 80, 32, 17)
$Label5 = GUICtrlCreateLabel("AY", 368, 80, 43, 17)
$Label6 = GUICtrlCreateLabel("YIL", 448, 80, 43, 17)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Button1 = GUICtrlCreateButton("SAATi GÜNCELLE", 8, 114, 247, 35)
$Button3 = GUICtrlCreateButton("Orjinal SAATE GÜNCELLE", 8, 154, 247, 35)
$Button2 = GUICtrlCreateButton("TARİHİ GÜNCELLE", 264, 114, 247, 65)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###


While 1
	$nMsg = GUIGetMsg()
	Switch $nMsg
		Case $GUI_EVENT_CLOSE
			Exit
		Case $Button1
           _saat_degistir()
		Case $Button2
		   _Tarih_degistir()
		Case $Button3
			_SetTime($FirsTime[0], $FirsTime[1], $FirsTime[2])
      EndSwitch

WEnd

Func _saat_degistir()
	$Input11 = GUICtrlRead ($Input1)
	$Input22 = GUICtrlRead ($Input2)
	$Input33 = GUICtrlRead ($Input3)
	_SetTime($Input11, $Input22, $Input33)
EndFunc


Func _Tarih_degistir()
	$Input44 = GUICtrlRead ($Input4)
	$Input55 = GUICtrlRead ($Input5)
	$Input66 = GUICtrlRead ($Input6)
	_SetDate($Input44, $Input55, $Input66)
EndFunc

[darendeli]

Tesekkürler Arraya Aktarmayı Düsünmemiştim