Counter gesucht

    Ich habe ihn heute einen zweiten Monitor aufgestellt und dort läuft der Timer. Der Arbeitsplatz ist im Fertigungsbereich und er sieht den nicht immer da umgedreht und zu den anderen Mitarbeitern zeigt, die sollen sehen wann er in den Ruhestand geht. Am letzten Tag wird wohl nicht mehr viel gearbeitet. Und Ann wäre es lustig wenn seine Zeit blinkt.
    Der Tag wäre der 30.11, oder wenn ich es testen wollte die letzten 8 Stunden vor Timer Ende.
    Okay zum Test könnte ich auch das Datum am Pc verändern....

    Gruß

    Noch ein Vorschlag:
    Maus nach oben bewegen und die verbleibende Zeit anzeigen lassen.
    (Einstellung der Anzeigegröße über den Teiler der Desktophöhe.)

    Skript
    [autoit]

    ´
    #include <Date.au3>

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

    Opt('GUIOnEventMode', 1)

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

    Global Const $sDatum = '2012/11/22 14:00:00'

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

    Global $iH = Round(@DesktopHeight / 8, 0)

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

    Global $aPos[2]

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

    Global $hGUI, $SEC = @SEC, $hLabel, $iOffset = -$iH, $iOffsetAlt = $iOffset

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

    $hGUI = GUICreate('', @DesktopWidth, $iH, 0, $iOffset, 0x80000000)
    $hLabel = GUICtrlCreateLabel(Dif(), 0, 0, @DesktopWidth, $iH, 0x0201)

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

    GUISetOnEvent(-3, '_Exit', $hGUI)
    GUICtrlSetFont(-1, $iH * 0.75, 600, 0, 'Arial', 5)
    GUICtrlSetColor(-1, 0xA0A0A0)
    GUISetBkColor(0x202020)
    GUISetState(@SW_SHOW, $hGUI)

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

    While Sleep(20)
    $aPos = MouseGetPos()
    Update()
    Move()
    WEnd

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

    Func Move()
    If $aPos[1] < $iH Then
    $iOffset += $iH / 8
    If $iOffset > 0 Then $iOffset = 0
    Else
    $iOffset -= $iH / 8
    If $iOffset < -$iH Then $iOffset = -$iH
    EndIf
    If $iOffset <> $iOffsetAlt Then
    $iOffsetAlt = $iOffset
    WinMove($hGUI, '', 0, $iOffset)
    EndIf
    EndFunc ;==>Move

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

    Func Update()
    Local $iTMP = @SEC
    If $iTMP = $SEC Then Return
    If $iOffset = -$iH Then Return
    $SEC = $iTMP
    GUICtrlSetData($hLabel, Dif())
    EndFunc ;==>Update

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

    Func Dif()
    Local $D = _DateDiff('D', _NowCalc(), $sDatum)
    ToolTip($D)
    Local $H, $M, $S
    _TicksToTime(_DateDiff('s', _NowCalc(), $sDatum) * 1000 - $D * 24 * 60 * 60 * 1000, $H, $M, $S)
    Return S($D) & ' / ' & S($H) & ':' & S($M) & ':' & S($S)
    EndFunc ;==>Dif

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

    Func S($a)
    Return StringRight('00' & $a, 2)
    EndFunc ;==>S

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

    Func _Exit()
    Exit
    EndFunc ;==>_Exit

    [/autoit]


    Edit: Irgendwas stimmt mit der Anzeige nicht.
    Ich kann aber grade nicht herausfinden was.
    Es werden jedenfalls falsche Zahlen angezeigt !

    Edit2: Ich glaube der Fehler ist nun weg. aber keine Garantie.