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

...

Код

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

Печать по таймеру

#include <GUIConstantsEx.au3>
#include <Timers.au3>
Local $counter = 0
Local $text = "Я скрипт,который любит печатать тексты!"
Local $mytext =""
Local $hGUI = GUICreate("Печать по таймеру", 300, 200)


Local $labtext  = GUICtrlCreateLabel("0",0,0,300,200)
GUICtrlSetFont($labtext,25)

Local $hStarttime = _Timer_Init()

GUISetState(@SW_SHOW, $hGUI)

While 1

If _Timer_Diff($hStarttime) > 250 Then
$hStarttime = _Timer_Init()
printtext()
endif

Switch GUIGetMsg()
Case $GUI_EVENT_CLOSE
ExitLoop
Endswitch
WEnd


func printtext()
$counter = $counter + 1
$mytext &= StringMid($text,$counter,1)
GUICtrlSetData($labtext,$mytext)
EndFunc

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

Мини-чат

Статистика


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

Форма входа

Друзья сайта

  • ЗОВ КОСМОСА

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

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

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

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