1. Tải bản cài đặt AutoIT mới nhất

    Chào Khách. Nếu bạn mới tham gia và chưa cài đặt AutoIT.
    Vui lòng vào topic trên để tải bản AutoIT mới nhất nhé
    Dismiss Notice
  2. Quy định và nội quy

    Chào Khách. Vui lòng đọc kỹ nội quy và quy định của diễn đàn
    Để tránh bị ban một cách đáng tiếc nhé!
    Dismiss Notice
  3. Hướng dẫn chèn mã AutoIT trong diễn đàn

    Chào Khách. Vui lòng xem qua bài viết này
    Để biết cách chèn mã AutoIT trong diễn đàn bạn nhé :)
    Dismiss Notice

Hỏi đáp [Solved] Giúp em tạo GUI đếm ngược thời gian với (có cả phút và giây)

Thảo luận trong 'Thảo luận chung - Hỏi đáp' bắt đầu bởi Hoàng Tuân, 12/12/17.

Trạng thái chủ đề:
Không mở trả lời sau này.
  1. Hoàng Tuân

    Hoàng Tuân Thành viên
    • 8/11

    Tham gia ngày:
    9/1/16
    Bài viết:
    82
    Đã được thích:
    11
    Như tittle, e muốn tạo ra cái đếm ngc thời gian mà có nó hiện ra label cả phút lẫn giây đi ạ, e cần gấp lắm
     
  2. Huân Hoàng

    Huân Hoàng Administrator Thành viên BQT Administrator Super Moderator
    • 93/113

    Tham gia ngày:
    29/9/15
    Bài viết:
    642
    Đã được thích:
    1,181
    Mã (AutoIt):

    Global $ThoiGianCaiDat = [2, 0] ;2 phút, 0 giây

    $Form = GUICreate("Form", 375, 205, 192, 114)
    GUISetFont(20)
    $Label_MIN = GUICtrlCreateLabel(StringFormat('%02d', $ThoiGianCaiDat[0]), 50, 8, 100, 40, 0x301 + 0x800000)
    $Label_SEC = GUICtrlCreateLabel(StringFormat('%02d', $ThoiGianCaiDat[1]), 152, 8, 100, 40, 0x301 + 0x800000)
    GUISetState()

    AdlibRegister('DemThoiGian', 1000)

    While GUIGetMsg() <> -3
        Sleep(10)
    WEnd

    Func DemThoiGian()
        $min = Number(GUICtrlRead($Label_MIN))
        $sec = Number(GUICtrlRead($Label_SEC)) - 1
        ;----------------------------------------------------------------
        If $sec < 0 Then
            $sec = 59
            $min -= 1
        EndIf
        ;----------------------------------------------------------------
        If $min < 0 Then
            MsgBox(4096, 'Thông báo', 'Hết giờ')
            GUICtrlSetData($Label_MIN, StringFormat('%02d', $ThoiGianCaiDat[0]))
            GUICtrlSetData($Label_SEC, StringFormat('%02d', $ThoiGianCaiDat[1]))
            AdlibUnRegister('DemThoiGian')
            Return
        EndIf
        ;----------------------------------------------------------------
        GUICtrlSetData($Label_SEC, StringFormat('%02d', $sec))
        GUICtrlSetData($Label_MIN, StringFormat('%02d', $min))
    EndFunc
     
     
    Chỉnh sửa cuối: 12/12/17
    Ta Minh Tam thích bài này.
  3. Huân Hoàng

    Huân Hoàng Administrator Thành viên BQT Administrator Super Moderator
    • 93/113

    Tham gia ngày:
    29/9/15
    Bài viết:
    642
    Đã được thích:
    1,181
    Code trên iêm nhầm 2 chỗ, đã sửa lại code
     
Trạng thái chủ đề:
Không mở trả lời sau này.

Chia sẻ trang này

Đang tải...