' 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
This miniprogram shows you the use of the timer. The Timer is a unvisible widget, which makes it possible to program a time course. If the Timer property is enabled, then the method starts again and again with a given delay.
You need 1 timer widget to get the program going. The timer must be enabled, when it shall start. Therefore you should switch the Enabled Property of the timer to the value TRUE.
The Code
PUBLIC SUB Timer1_Timer() PRINT 1 END
If you want to stop the timer, then add a commandbutton to your form with the following code:
PUBLIC SUB Button1_Click() Timer1.Enabled = FALSE END
-- ReinerHoffmann - 31 Jan 2004