Digitaluhr

**Oscar**

Ich habe Dir mal schnell einen Countdown-Timer geschrieben, den Du sicherlich leichter verstehst:

Spoiler anzeigen

[autoit]

#include <GUIConstantsEx.au3>

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

$iCounterStart = 100 ; in Sekunden

GUICreate('Countdown-Timer', 600, 100)
$progressbar = GUICtrlCreateProgress(10, 10, 580, 20)
GUICtrlSetData($progressbar, 100)
$label = GUICtrlCreateLabel($iCounterStart & ' sek.', 20, 40, 60, 20)
$button = GUICtrlCreateButton('Start', 75, 70, 70, 20)
GUISetState()
$iCounter = $iCounterStart
$bStartStop = False
$iOldValue = @SEC
Do
$msg = GUIGetMsg()
If $msg = $button Then
$bStartStop = Not $bStartStop
Switch $bStartStop
Case True
GUICtrlSetData($button, 'Pause')
Case False
GUICtrlSetData($button, 'Weiter')
EndSwitch
EndIf
If $bStartStop Then
If $iOldValue <> @SEC Then
$iOldValue = @SEC
$iCounter -= 1
GUICtrlSetData($progressbar, Int(100/$iCounterStart*$iCounter))
GUICtrlSetData($label, $iCounter & ' sek.')
EndIf
Else
$iOldValue = @SEC
EndIf
If $iCounter < 1 Then
MsgBox(0, 0, 'Zeit um!')
ExitLoop
EndIf
Until $msg = $GUI_EVENT_CLOSE

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

nicric

Hallo erst mal,

ich habe nun doch ganz ein paar Wochen gewartet ob sich das Problem von alleine lösen tut oder jemand ähnliches zu berichten hat. Da dem nicht so ist, scheine nur ich betroffen zu sein? Also seit vermutlich einem Windowsupdate (XP) vor ca. 2 Monaten geht die Uhr genau 1 Stunde nach! Da kann ich machen was ich will; neustarten oder mit Atomuhr abgleichen bringt alles nix. Hat vielleicht jemand eine Idee woran das liegen kann??? Würde auf die ansonsten tolle Uhr ungern verzichten wollen.

Grüße
nicric

**BugFix**

@nicric: Schau mal in dein BIOS, was dort für eine Zeit geführt wird. Evtl. Problem mit Sommerzeit?

nicric

Die Zeit im Bios scheint ebenfalls von der Digitaluhr syncronisiert zu werden. Wenn ich die Bioszeit richtig stelle, sehe ich beim Windowsstart mal kurz unten rechts die exakte Zeit. Aber sobald jedoch die Digitaluhr aus dem Autostart startet und sich im Internet syncronisiert, wird wieder eine Stunde zurückgestellt! Beim nächsten Systemstart ist dann auch wieder die falsche Zeit im Bios. Ist Internet deaktiviert, ist alles paletti - sobald sich die Uhr im Netz jedoch syncronisieren kann, werden die Digitaluhr, die Win-Uhr und die Bios-Uhr wieder eine Stunde zurückgestellt ?!?

**autoBert**

Hallo nicric,

geh mal auf Eigenschaften von Datum und Uhrzeit. Auf dem Kartenreiter Zeitzone ist bei mir auch nach einem Update dich Checkbox: Uhr automatisch auf Sommer- /Winterzeit nicht mehr geChecked gewesen, wenn du dann die Zeit mit dem Internet synchronisierst geht die Uhr automatisch exakt 1 Stunde nach, da die Sommerzeit nicht eingerechnet ist

mfg (Auto)Bert

nicric

Hallo (Auto)Bert,

da sag ich nur mal Volltreffer und vielen Dank für den Tip! Uhr geht wieder richtig!!

Grüße
nicric

seturo1375

Tolles Skript Oscar ! Hab die Win7 Uhr gleichmal gegen deine ersetzt

Und super kommentiert, kann man sich einiges ableiten als Anfänger

**Oscar**

Danke, für das Lob.
Und ja, bei mir ist die Uhr natürlich auch im Autostart. Die meisten meiner Programme schreibe ich ja in erster Linie für mich selbst.
Aber dadurch, dass Du diesen Thread mal wieder hervorgeholt hast, habe ich gleich mal gecheckt, ob das Script noch mit der neuesten AutoIt-Version funktioniert.
Ja, es funktioniert noch. Muss ich also nichts anpassen.

qon

Zitat von Oscar

Danke, für das Lob.
Und ja, bei mir ist die Uhr natürlich auch im Autostart. Die meisten meiner Programme schreibe ich ja in erster Linie für mich selbst.
Aber dadurch, dass Du diesen Thread mal wieder hervorgeholt hast, habe ich gleich mal gecheckt, ob das Script noch mit der neuesten AutoIt-Version funktioniert.
Ja, es funktioniert noch. Muss ich also nichts anpassen.

Hi,

die .exe funktioniert bei mir natürlich auch noch einwandfrei, allerdings kann ich das script nicht selbst kompilen, es erscheinen mir folgende Errors:

Spoiler anzeigen

Code

C:\Users\Max\Desktop\Digitaluhr\Digitaluhr.au3(563,24) : ERROR: _SoundStop() called with Const or expression on ByRef-param(s).
				_SoundStop('Wecker')
				~~~~~~~~~~~~~~~~~~~^
D:\Programme\Autoit\Include\Sound.au3(246,31) : REF: definition of _SoundStop().
Func _SoundStop(ByRef $aSndID)
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
C:\Users\Max\Desktop\Digitaluhr\Digitaluhr.au3(566,52) : ERROR: _SoundOpen() called with wrong number of args.
			$AlarmSound = _SoundOpen($AlarmSignal1, 'Wecker')
			~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
D:\Programme\Autoit\Include\Sound.au3(56,24) : REF: definition of _SoundOpen().
Func _SoundOpen($sFile)
~~~~~~~~~~~~~~~~~~~~~~~^
C:\Users\Max\Desktop\Digitaluhr\Digitaluhr.au3(568,33) : ERROR: _SoundSeek() called with Const or expression on ByRef-param(s).
				_SoundSeek('Wecker', 0, 0, 0)
				~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
D:\Programme\Autoit\Include\Sound.au3(384,53) : REF: definition of _SoundSeek().
Func _SoundSeek(ByRef $aSndID, $iHour, $iMin, $iSec)
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
C:\Users\Max\Desktop\Digitaluhr\Digitaluhr.au3(578,24) : ERROR: _SoundStop() called with Const or expression on ByRef-param(s).
				_SoundStop('Wecker')
				~~~~~~~~~~~~~~~~~~~^
D:\Programme\Autoit\Include\Sound.au3(246,31) : REF: definition of _SoundStop().
Func _SoundStop(ByRef $aSndID)
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
C:\Users\Max\Desktop\Digitaluhr\Digitaluhr.au3(581,52) : ERROR: _SoundOpen() called with wrong number of args.
			$AlarmSound = _SoundOpen($AlarmSignal2, 'Wecker')
			~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
D:\Programme\Autoit\Include\Sound.au3(56,24) : REF: definition of _SoundOpen().
Func _SoundOpen($sFile)
~~~~~~~~~~~~~~~~~~~~~~~^
C:\Users\Max\Desktop\Digitaluhr\Digitaluhr.au3(583,33) : ERROR: _SoundSeek() called with Const or expression on ByRef-param(s).
				_SoundSeek('Wecker', 0, 0, 0)
				~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
D:\Programme\Autoit\Include\Sound.au3(384,53) : REF: definition of _SoundSeek().
Func _SoundSeek(ByRef $aSndID, $iHour, $iMin, $iSec)
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
C:\Users\Max\Desktop\Digitaluhr\Digitaluhr.au3(591,22) : ERROR: _SoundStop() called with Const or expression on ByRef-param(s).
		_SoundStop('Wecker')
		~~~~~~~~~~~~~~~~~~~^
D:\Programme\Autoit\Include\Sound.au3(246,31) : REF: definition of _SoundStop().
Func _SoundStop(ByRef $aSndID)
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
C:\Users\Max\Desktop\Digitaluhr\Digitaluhr.au3(786,24) : ERROR: _SoundStop() called with Const or expression on ByRef-param(s).
				_SoundStop('Wecker')
				~~~~~~~~~~~~~~~~~~~^
D:\Programme\Autoit\Include\Sound.au3(246,31) : REF: definition of _SoundStop().
Func _SoundStop(ByRef $aSndID)
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
C:\Users\Max\Desktop\Digitaluhr\Digitaluhr.au3(795,25) : ERROR: _SoundStop() called with Const or expression on ByRef-param(s).
					_SoundStop('Wecker')
					~~~~~~~~~~~~~~~~~~~^
D:\Programme\Autoit\Include\Sound.au3(246,31) : REF: definition of _SoundStop().
Func _SoundStop(ByRef $aSndID)
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
C:\Users\Max\Desktop\Digitaluhr\Digitaluhr.au3(798,53) : ERROR: _SoundOpen() called with wrong number of args.
				$AlarmSound = _SoundOpen($AlarmSignal1, 'Wecker')
				~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
D:\Programme\Autoit\Include\Sound.au3(56,24) : REF: definition of _SoundOpen().
Func _SoundOpen($sFile)
~~~~~~~~~~~~~~~~~~~~~~~^
C:\Users\Max\Desktop\Digitaluhr\Digitaluhr.au3(800,34) : ERROR: _SoundSeek() called with Const or expression on ByRef-param(s).
					_SoundSeek('Wecker', 0, 0, 0)
					~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
D:\Programme\Autoit\Include\Sound.au3(384,53) : REF: definition of _SoundSeek().
Func _SoundSeek(ByRef $aSndID, $iHour, $iMin, $iSec)
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
C:\Users\Max\Desktop\Digitaluhr\Digitaluhr.au3(811,24) : ERROR: _SoundStop() called with Const or expression on ByRef-param(s).
				_SoundStop('Wecker')
				~~~~~~~~~~~~~~~~~~~^
D:\Programme\Autoit\Include\Sound.au3(246,31) : REF: definition of _SoundStop().
Func _SoundStop(ByRef $aSndID)
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
C:\Users\Max\Desktop\Digitaluhr\Digitaluhr.au3(819,25) : ERROR: _SoundStop() called with Const or expression on ByRef-param(s).
					_SoundStop('Wecker')
					~~~~~~~~~~~~~~~~~~~^
D:\Programme\Autoit\Include\Sound.au3(246,31) : REF: definition of _SoundStop().
Func _SoundStop(ByRef $aSndID)
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
C:\Users\Max\Desktop\Digitaluhr\Digitaluhr.au3(822,53) : ERROR: _SoundOpen() called with wrong number of args.
				$AlarmSound = _SoundOpen($AlarmSignal2, 'Wecker')
				~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
D:\Programme\Autoit\Include\Sound.au3(56,24) : REF: definition of _SoundOpen().
Func _SoundOpen($sFile)
~~~~~~~~~~~~~~~~~~~~~~~^
C:\Users\Max\Desktop\Digitaluhr\Digitaluhr.au3(824,34) : ERROR: _SoundSeek() called with Const or expression on ByRef-param(s).
					_SoundSeek('Wecker', 0, 0, 0)
					~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
D:\Programme\Autoit\Include\Sound.au3(384,53) : REF: definition of _SoundSeek().
Func _SoundSeek(ByRef $aSndID, $iHour, $iMin, $iSec)
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
C:\Users\Max\Desktop\Digitaluhr\Digitaluhr.au3(837,22) : ERROR: _SoundStop() called with Const or expression on ByRef-param(s).
		_SoundStop('Wecker')
		~~~~~~~~~~~~~~~~~~~^
D:\Programme\Autoit\Include\Sound.au3(246,31) : REF: definition of _SoundStop().
Func _SoundStop(ByRef $aSndID)
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
C:\Users\Max\Desktop\Digitaluhr\Digitaluhr.au3(894,22) : ERROR: _SoundStop() called with Const or expression on ByRef-param(s).
		_SoundStop('Wecker')
		~~~~~~~~~~~~~~~~~~~^
D:\Programme\Autoit\Include\Sound.au3(246,31) : REF: definition of _SoundStop().
Func _SoundStop(ByRef $aSndID)
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
C:\Users\Max\Desktop\Digitaluhr\Digitaluhr.au3(1086,22) : ERROR: _SoundStop() called with Const or expression on ByRef-param(s).
		_SoundStop('Wecker')
		~~~~~~~~~~~~~~~~~~~^
D:\Programme\Autoit\Include\Sound.au3(246,31) : REF: definition of _SoundStop().
Func _SoundStop(ByRef $aSndID)
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
C:\Users\Max\Desktop\Digitaluhr\Digitaluhr.au3 - 18 error(s), 0 warning(s)

Alles anzeigen

Weisst du vielleicht, woran das liegt?

seturo1375

Nichts zu danken, solch mühevolle Arbeit muss honoriert werden und sieht auch noch sehr schick aus !

Dein Skript hat mich auch gleich mal auf die Idee gebracht, mein momentanes Projekt mit einem ordentlichen Tray Menu zu versorgen.

Werd ich gleich mal in Angriff nehmen

Jonathan

omg, echt cooles Script, nur beim start der .au3 kommt ne fehlermeldung, funktioniert bei meinem OS nciht (win7 X54) aber beim .exestart gehts

jedenfalls: aber ³

**Oscar**

qon: Upps, stimmt! Das Script hatte ich hier bei mir irgendwann mal angepasst, aber die Versionsnummer nicht geändert, deshalb dachte ich, dass das Script das Gleiche ist, wie hier im Forum.
Habe das geänderte Script jetzt mal geuploadet (Post #1).

Edit: Jonathan: Mit der neuen Version, kannst Du auch wieder das Script benutzen.

bugmenot1

Hallo Oscar,
was mir gerade aufgefallen ist, wenn der Hintergrund der Uhr transparent ist, dann kann ich auf Windows 7 Professional x64 nicht mehr durch diese hindurchklicken, bei XP ging das noch.
Haben das Problem noch andere oder bin ich hier allein?
(Wenn in den Kompatibilitätseinstellungen von Windows "Desktopgestaltung deaktivieren" angehakt ist, dann funktioniert das hindurchklicken, allerdings sieht dann der Desktop sehr bescheiden aus

Grüße