' 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