论坛 › 『 作品展览 』 › 发个基本没什么用的代码[简单代码实现的计时/倒计时]

netegg 发表于 2010-10-24 14:55:03

发个基本没什么用的代码[简单代码实现的计时/倒计时]

本帖最后由 netegg 于 2011-10-26 16:36 编辑

重新编辑了下，精简了些#NoTrayIcon
#include <WindowsConstants.au3>
HotKeySet('{esc}', 'exitau3')
GUICreate("", 178, 108, 400, 268, BitOR($DS_MODALFRAME, $WS_POPUPWINDOW))
$time = GUICtrlCreateLabel("00:59:50 ", 24, 12, 240, 40)
GUICtrlSetFont(-1, 50, 400, 0, "MS Sans Serif")
$timer = GUICtrlCreateLabel("01:00:10 ", 24, 56, 210, 40)
GUICtrlSetFont(-1, 50, 400, 0, "MS Sans Serif")
AdlibRegister('timer')
GUISetState(@SW_SHOW)
While 1
        Sleep(100)
WEnd
Func exitau3()
        AdlibUnRegister('timer')
        Exit
EndFunc   ;==>exitau3
Func timer()
        While 1
                $k = Number(StringLeft(GUICtrlRead($time), 2))
                $i = Number(StringMid(GUICtrlRead($time), 4, 2))
                $j = Number(StringRight(StringTrimRight(GUICtrlRead($time), 1), 2))
                $l = Number(StringLeft(GUICtrlRead($timer), 2))
                $m = Number(StringMid(GUICtrlRead($timer), 4, 2))
                $n = Number(StringRight(StringTrimRight(GUICtrlRead($timer), 1), 2))
                ; 计时
                If $j <> 59 Then
                        $j += 1
                Else
                        $j = 0
                        If $i < 59 Then
                                $i += 1
                        Else
                                $i = 0
                                If $k < 23 Then
                                        $k += 1
                                Else
                                        $k = 0
                                EndIf
                        EndIf
                EndIf
                ;倒计时
                If $n > 0 Then
                        $n -= 1
                Else
                        $n = 59
                        If $m <> 0 Then
                                $m -= 1
                        Else
                                $m = 59
                              If $l <> 0 Then
                                        $l -= 1
                                Else
                                        $l = 23
                              EndIf
                        EndIf
                EndIf
                GUICtrlSetData($time, StringFormat("%02d:%02d:%02d\n", $k, $i, $j))
                GUICtrlSetData($timer, StringFormat("%02d:%02d:%02d\n", $l, $m, $n))
                Sleep(1000)
        WEnd
EndFunc   ;==>timer

lpxx 发表于 2010-10-24 15:12:03

你怎么会觉得没用呢？

wangqinpei 发表于 2010-11-26 10:16:24

这个没办法退出倒计时啊。。。不好用

webshare 发表于 2010-12-1 09:20:21

不错啊，写得不错啊

qiaojoly 发表于 2010-12-30 09:59:25

运行出错了

netegg 发表于 2011-1-1 02:04:20

回复 3# wangqinpei

不明白你什么意思

tianrenhao 发表于 2011-1-20 15:38:57

我们只是路人

zyj001991 发表于 2011-2-6 01:14:13

顶你一个。。。。

lusunbaby 发表于 2011-5-11 15:59:26

null

留名记录………

smooth 发表于 2013-11-30 09:20:06

应该蛮有用的，就是得好好研究它。

查看完整版本: 发个基本没什么用的代码[简单代码实现的计时/倒计时]