Gambas France BETA


Pas de compte ? Incription

LCDLabel :

Un exemple d'utilisation de LCDLabel :



Un exemple de banderole à défilement à télécharger : Banderole LCDLabel



Le Code :



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é
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 ... ") 'Les accents de notre belle langue ne s'affiche pas dans les LCDLabel

END

====================

Navigation :



<-- Liens du Wiki : <--
<-- Accueil du WIKI : <--
<-- Contrôle par Contrôle <--

====================

Documentation :



====================