WIDGETS GAMBAS
LOGICIELS GAMBAS 3
TUTORIELS
VISITES

   visiteurs

   visiteurs en ligne

Où ça, qui ça?
LABEL - clignotement d'une led
CLIGNOTEMENT D'UNE LED


changercouleur.png

Bonjour,
Aujourd'hui nous allonsvoir comment faire clignoter un Label vide de son texte . Il donnera l'apparence d'une LED, petit signal visuel très pratique pour votre application.

Créez un label , ajoutez lui une propriété BORDER = RAISED, une propriété BACKGROUD = &H000000& .
Créez maintenant 2 boutons, un pour allumer, un pour eteindre notre LED.
un timer est indispensable dans votre programme dès que vous avez besoin d'une fonction faisant intervenir le temps.
Le luxe est même d'ajouter un slider qui nous fera varier la vitesse de notre clignotement.

Vous pourrez télécharger plus bas l'application exemple.

Maintenant voici le code de notre application que je vais commenter en rouge:
' Gambas class file

PUBLIC SUB _new()
END

PUBLIC SUB Form_Open()
ME.Center 'centre la fenetre
END

PUBLIC SUB Timer1_Timer() 'cette fonction est le clignotement par lui meme
SELECT CASE lled.Background
CASE &h000000&
lled.Background = &h00FF00&
CASE &h00FF00&
lled.Background = &h000000&
END SELECT
END

PUBLIC SUB bon_Click() 'bouton de demarrage clignotement
Timer1.Enabled = TRUE
END

PUBLIC SUB boff_Click() 'bouton arret
Timer1.Enabled = FALSE
END

PUBLIC SUB Slider1_Change()'variation du slider entrainant variation de vitesse clignotement
Timer1.Delay = Slider1.Value
END

voila pour aujourd'hui.


Date de création : 18/05/2010 @ 11:02
Dernière modification : 18/05/2010 @ 11:12
Catégorie : LABEL
Page lue 3144 fois


Imprimer l'article Imprimer l'article


react.gifRéactions à cet article

Personne n'a encore laissé de commentaire.
Soyez donc le premier !


ACCES RAPIDE
RECHERCHE




LOGICIELS GAMBAS 2
LES INSTRUCTIONS
LES COMPOSANTS
Divers

^ Haut ^