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

...

Код

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

Часики

#include <GUIConstantsEx.au3>
#include <Timers.au3>


func Clock()
GUISetFont(Random(15,35))
$h = GUICtrlCreateLabel("", 0, 30,100,100)
GUICtrlSetData($h,@hour)
GUISetFont(Random(15,35))
$m = GUICtrlCreateLabel("", 200, 30,100,100)
GUICtrlSetData($m,@min)
GUISetFont(Random(15,35))
$s = GUICtrlCreateLabel("", 400, 30,100,100)
GUICtrlSetData($s,@sec)
EndFunc

GUICreate("My clock", 500, 500)

Local $hStarttime = _Timer_Init()
Clock()
GUISetState(@SW_SHOW)

While 1
if _Timer_Diff($hStarttime) > 1000 Then
$hStarttime = _Timer_Init()
Clock()
EndIf
Switch GUIGetMsg()
Case $GUI_EVENT_CLOSE
Exit
EndSwitch
WEnd


 

Категория: Autoit | Добавил: moskov (10.09.2020)
Просмотров: 155 | Рейтинг: 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]

Мини-чат

Статистика


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

Форма входа

Друзья сайта

  • ЗОВ КОСМОСА

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

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

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

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