Komfortabler Time & Date changer!

Lenny

Hallo!
Ich habe mal wieder nichts Sinnvolles programmiert!
Mit diesem Programm kann man die Windows System-Zeit und das System-Datum komfortabel umstellen!

Leider konnte ich die .zip Datei noch nicht hochladen, weil sich dann mein router immer Aufhängt!

Per E-mail könnte ich ihn allerdings verschicken!

Was kann ich verbessern ?

Mfg Lenny! =)

Ich hoffe damit ist der Autoit Code gemeint

Spoiler anzeigen

[autoit]

#include <GUIConstants.au3>
#include<date.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Time & Date Changer", 270, 112, 193, 115)
$Label1 = GUICtrlCreateLabel("Stellen sie die zeit im folgenden Format ein: HH.MM.SS ", 0, 0, 266, 17)
$Label1 = GUICtrlCreateLabel("Stellen sie das Datum im Format ein :DD.MM.YY", 0, 56, 234, 17)
$Input1 = GUICtrlCreateInput("", 0, 24, 33, 21)
$Input2 = GUICtrlCreateInput("", 40, 24, 33, 21)
$Input3 = GUICtrlCreateInput("", 80, 24, 33, 21)
$Input4 = GUICtrlCreateInput("", 0, 80, 33, 21)
$Input5 = GUICtrlCreateInput("", 40, 80, 33, 21)
$Input6 = GUICtrlCreateInput("", 80, 80, 33, 21)
$Button1 = GUICtrlCreateButton("Übernehmen", 128, 24, 129, 17, 0)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
$ihour = GUICtrlRead($Input1)
$iminute = GUICtrlRead($Input2)
_SetTime($ihour, $iminute)
$iday = GUICtrlRead($Input4)
$imonth = GUICtrlRead($Input5)
$iyear = GUICtrlRead($Input6)
_SetDate($iday, $imonth, $iyear)
send("!{f4}")
EndSwitch
WEnd

[/autoit]

wie gesagt ... ganz simpel =)

**Xenobiologist**

Hi,

stell doch erstmal nur den Source rein.

Danke!

So long,

Mega

Lenny

Hallo!
Könnte ich was verbessern oder weiter Funktionen einbau3n ?

Danke ... Lenny

**Oscar**

Zitat

Original von Warlenny
Hallo!
Könnte ich was verbessern oder weiter Funktionen einbau3n ?

Testen, ob Eingaben gültig/sinnvoll sind?!

MfG. Oscar

**Alina**

Hallo @Warlenny - Lenny.

Also die Idee ist doch gut und sicherlich kann es die eine oder andere mal gebrauchen und ich finde es auch gut, das solche kleinen verständlichen Programme gepostet werden, da gerade Anfängerinnen da was lernen können.

Wenn Du weiter daran arbeiten möchtest, dann vielleicht überprüfen, ob die Stundenangabe zwischen 00 und 23 liegt und das auch mit den Minuten usw. Aber eigentlich nicht nötig, da ja bekannt ist, das z. B. die Stunden bei 00 beginnen und bei 23 aufhören (nicht bei 24 )

Lenny

Hallo ihr!

Hat zwar lange gedauert aber jetzt ist mein Script fertig! (Nein ich habe nicht pausenlos dran gearbeitet!)

Wenn ihr Verbesserungs Vorschläge Habt bitte posten!

Vielen dank! Lenny

Hier der Source:

Spoiler anzeigen

[autoit]

#include <GUIConstants.au3>
#include<date.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Time & Date Changer", 270, 112, 193, 115)
$Label1 = GUICtrlCreateLabel("Stellen sie die zeit im folgenden Format ein: HH.MM.SS ", 0, 0, 266, 17)
$Label1 = GUICtrlCreateLabel("Stellen sie das Datum im Format ein :DD.MM.YY", 0, 56, 234, 17)
$Input1 = GUICtrlCreateInput("", 0, 24, 33, 21)
$Input2 = GUICtrlCreateInput("", 40, 24, 33, 21)
$Input3 = GUICtrlCreateInput("", 80, 24, 33, 21)
$Input4 = GUICtrlCreateInput("", 0, 80, 33, 21)
$Input5 = GUICtrlCreateInput("", 40, 80, 33, 21)
$Input6 = GUICtrlCreateInput("", 80, 80, 33, 21)
$Button1 = GUICtrlCreateButton("Übernehmen", 128, 24, 129, 17, 0)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

[/autoit] [autoit][/autoit] [autoit]

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
$ihour = GUICtrlRead($Input1)
$iminute = GUICtrlRead($Input2)
$isekunde = GUICtrlRead($Input3)
If $ihour <= 24 and $iminute <= 60 And $isekunde <= 60 then
_SetTime($ihour, $iminute)
Else
MsgBox(64, "Ungültige Eingabe", "Bitte tragen sie bei den Stunden nur Zahlen von 0-23, bei den Minuten Zahlen von 0-59 und bei den Sekunden Zahlen von 0-59 ein!")
EndIf

$iday = GUICtrlRead($Input4)
$imonth = GUICtrlRead($Input5)
$iyear = GUICtrlRead($Input6)
If $iday <= 32 and $imonth <= 13 Then
_SetDate($iday, $imonth, $iyear)
Else
MsgBox(64, "Ungültige Eingabe", "Ungültige Eingabe! Bitte halten sie sich an das Regionale Zeitformat!")
Endif
EndSwitch
WEnd

[/autoit]

....

Klein aber Fein... Der script ist kurz aber ... ôo ... wurz !?!

**Xenobiologist**

Hi,

was noch helfen könnte wäre GuictrlSetLimit oder noch besser gleich per GUIRegisterMsg kontrollieren, aber das ist sicher noch zu schwierig für dich.

So long,

Mega

Lenny

Ja ich denke auch aber ich werde mich mal wieder durch die Hilfe beißen ( :keks: ) und danach suchen!

Vielen Dank! .....

Lenny