1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
| ' Gambas class file
PUBLIC hConsoleTimer AS Timer 'on peut aussi le créer grâce à l'IDE
PUBLIC siCount AS SHORT 'décompte du temps
PUBLIC iTemp AS INTEGER 'durée définie
PUBLIC SUB Timer1_Timer()
DIM sPremier AS STRING 'premier mot
DIM sLasuite AS STRING ' second mot
INC siCount 'incrément du compteur
IF siCount MOD 100 = 0 THEN 'défilement du texte à chaque fois que le reste de la division est nul (division juste)
sPremier = Left(LCDLabel1.Text, 1)
sLasuite = Right(LCDLabel1.Text, Len(LCDLabel1.Text) - 1)
LCDLabel1.text = sLasuite & sPremier
ENDIF
IF siCount = iTemp THEN
ME.Close 'fermeture quand compteur= temps choisi
ENDIF
END
PUBLIC SUB Form_Open()
ME.Center
hConsoleTimer = NEW Timer AS "Timer1" 'création du timer
hConsoleTimer.Delay = 1 'delay 1 Milliseconde pour la fluidité du progressBar
hConsoleTimer.Enabled = TRUE 'démarrage du timer
iTemp = 7000 'durée choisie, ici 7 secondes soit 7000 millisecondes
LCDLabel1.Text = (" Exemple de Banderole a Defilement en LCDLabel ... ")
END
|