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
|