LABEL - clignotement d 'une led
Rédigé par spheris
Aucun commentaire
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.
TELECHARGER L'EXEMPLE ICI