Воскресенье, 24.11.2024, 09:51 | Приветствую Вас Гость

...

Код

Главная » Статьи » Small Basic

Имитация трёх таймеров

counter = 0
GraphicsWindow.Width = 500
GraphicsWindow.Height = 600
GraphicsWindow.FontSize = 11
GraphicsWindow.Title = "Имитация трёх таймеров"
GraphicsWindow.BrushColor = "Blue"


Timer.Interval = 1000
Timer.Tick = Ontick

Sub Ontick
  
  If counter = 5 Then 
    counter = 0 
    EndIf
    If counter = 0 then
      GraphicsWindow.Clear()
  GraphicsWindow.DrawText(200,250,"Запуск имитации первого таймера")
elseif counter = 3 then
  GraphicsWindow.Clear()
    GraphicsWindow.DrawText(200,250,"Запуск имитации второго таймера")
  elseif counter = 4 then
    GraphicsWindow.Clear()
    GraphicsWindow.DrawText(200,250,"Запуск имитации третьего таймера")
    EndIf
counter = counter + 1
EndSub
 
 

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

Меню сайта

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

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

Мини-чат

Статистика


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

Форма входа

Друзья сайта

  • ЗОВ КОСМОСА

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

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

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

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