Четверг, 28.11.2024, 09:40 | Приветствую Вас Гость

...

Код

Главная » Статьи » Autoit

Секундомер

#include <GUIConstantsEx.au3>
#include <Timers.au3>
Local $counter = 0
Local $state = 0
Local $hGUI = GUICreate("Секундомер", 300, 200)

Local $idRun = GUICtrlCreateButton("Запустить", 0, 170, 85, 25)
Local $idStop = GUICtrlCreateButton("Остановить", 100, 170, 85, 25)
Local $idUpdate = GUICtrlCreateButton("Обнулить", 200, 170, 85, 25)

Local $labtext  = GUICtrlCreateLabel("0", 140,20,50,50)
GUICtrlSetFont($labtext,25)

Local $hStarttime = _Timer_Init()

GUISetState(@SW_SHOW, $hGUI)

While 1
if $state = 1 then
If _Timer_Diff($hStarttime) > 1000 Then
$hStarttime = _Timer_Init()
Clock()
endif
EndIf
Switch GUIGetMsg()
Case $GUI_EVENT_CLOSE
ExitLoop
Case $idRun
$state = 1
Case $idStop
$state = 0
Case $idUpdate
$counter = 0
GUICtrlSetData($labtext,$counter)
EndSwitch
WEnd


func Clock()
$counter = $counter + 1
GUICtrlSetData($labtext,$counter)
EndFunc

Категория: Autoit | Добавил: moskov (02.04.2022)
Просмотров: 104 | Рейтинг: 0.0/0
Добавлять комментарии могут только зарегистрированные пользователи.
[ Регистрация | Вход ]

Меню сайта

Категории раздела

PHP [41]
C++ [71]
Autoit [108]
Processing [105]
Basic4GL [7]
Fasm [2]
PABC [7]
Js [236]
Gentee [1]
Python [204]
Java android [3]
Small Basic [9]

Мини-чат

Статистика


Онлайн всего: 10
Гостей: 10
Пользователей: 0

Форма входа

Друзья сайта

  • ЗОВ КОСМОСА

  • Хулиган Вселенной

  • Тюремная поэзия

  • Религиозная поэзия

  • Сайт клана ЛеГиоН
  • Поиск