Как сделать таймер


timer---.png timerarrow.pngtimer-uu.png
' Gambas class file
PUBLIC SUB _new()

TextLabel1.Text = "XXXXXX"
Timer1.Delay = 200
Timer1.Enabled = TRUE

END



PUBLIC SUB Timer1_Timer()

IF TextLabel1.Text = "XXXXXX" THEN
TextLabel1.Text = "UUU"
ELSE
TextLabel1.Text = "XXXXXX"
END IF

END



Программа таймера

Эта минипрограмма показывает вам использование таймера. Timer - это невидимый виджет (widget), который делает возможным программировать ход времени. Если свойство Timer установлено, тогда метод стартует вновь и вновь с заданной задержкой.

Вам нужен 1 timer widget для работы программы. Таймер должен быть enabled, когда он стартует. Таким образом вы должны переключить Enabled Property (свойство возможен) таимера на значение TRUE.

Код

PUBLIC SUB Timer1_Timer()
PRINT 1
END

Если вы хотите остановить таймер, тогда добавьте клавишу на вашу форму со следующим кодом:

PUBLIC SUB Button1_Click()
Timer1.Enabled = FALSE
END

-- ReinerHoffmann - 31 Jan 2004