Un SCROLL_BAR qui en voit de toutes les couleurs

Sujet: Un SCROLL_BAR qui en voit de toutes les couleurs Mar 10 Mar 2020 - 11:32

Bonjour à tous !

L’idée est de pouvoir sélectionner une couleur parmi un échantillonnage, avec un seul réglage pour les valeurs RVB.

Dans cet exemple de 256 couleurs vous trouverez :

- un PICTURE pour visualiser la couleur sélectionnée ;
- un SCROLL_BAR qui peut être remplacé par un TRACK_BAR ou un autre moyen de réglage… .

Un SCROLL_BAR qui en voit de toutes les couleurs Sans_t15

Code:: DIM r%,v%,b%
DIM valeurScrollbar%

LABEL couleurPicture

WIDTH 0,400
HEIGHT 0,400
COLOR 0,0,0,0

PICTURE 1
TOP 1,50
LEFT 1,150
HEIGHT 1,50
WIDTH 1,50
COLOR 1, 255,0,0

SCROLL_BAR 10
HEIGHT 10,20
TOP 10,300
LEFT 10,50
WIDTH 10,250
MIN 10,0
MAX 10,256

ON_CHANGE 10,couleurPicture

END

couleurPicture:

   valeurScrollbar% = POSITION(10)

   IF valeurScrollbar% => 0 AND valeurScrollbar% < 42
   r%= 255
   v%= valeurScrollbar%*6
   b%= 0
   COLOR 1,r%,v%,b%
   RETURN
   END_IF

   IF valeurScrollbar% >41 AND valeurScrollbar% < 85
   r%= 255-((valeurScrollbar%-42)*6)
   v%= 255
   b%= 0
   COLOR 1,r%,v%,b%
   RETURN
   END_IF

   IF valeurScrollbar% >84 AND valeurScrollbar% < 128
   r%= 0
   v%= 255
   b%= (valeurScrollbar%-85)*6
   COLOR 1,r%,v%,b%
   RETURN
   END_IF

   IF valeurScrollbar% >127 AND valeurScrollbar% < 171
   r%= 0
   v%= 255-((valeurScrollbar%-128)*6)
   b%= 255
   COLOR 1,r%,v%,b%
   RETURN
   END_IF

   IF valeurScrollbar% >170 AND valeurScrollbar% < 214
   r%= (valeurScrollbar%-171)*6
   v%= 0
   b%= 255
   COLOR 1,r%,v%,b%
   RETURN
   END_IF

   IF valeurScrollbar% >213 AND valeurScrollbar% < 257
   r%= 255
   v%= 0
   b%= 255-((valeurScrollbar%-214)*6)
   COLOR 1,r%,v%,b%
   END_IF

RETURN

Voici l’étendue des 256 couleurs sélectionnables de cet exemple :

Un SCROLL_BAR qui en voit de toutes les couleurs Sans_t16

On peut ajouter une extension pour obtenir une zone sélectionnable de gris... Pour ceux qui sont intéressés, quelques minutes pour la programmer et je poste un exemple…

EDIT : extension des couleurs avec une zone de gris de 42 niveaux :

Code:: DIM r%,v%,b%
DIM valeurScrollbar%

LABEL couleurPicture

WIDTH 0,400
HEIGHT 0,400
COLOR 0,0,0,0

PICTURE 1
TOP 1,50
LEFT 1,150
HEIGHT 1,50
WIDTH 1,50
COLOR 1, 255,0,0

SCROLL_BAR 10
HEIGHT 10,20
TOP 10,300
LEFT 10,50
WIDTH 10,250
MIN 10,0
MAX 10,299

ON_CHANGE 10,couleurPicture

END

couleurPicture:

   valeurScrollbar% = POSITION(10)

   IF valeurScrollbar% => 0 AND valeurScrollbar% < 42
   r%= 255
   v%= valeurScrollbar%*6
   b%= 0
   COLOR 1,r%,v%,b%
   RETURN
   END_IF

   IF valeurScrollbar% >41 AND valeurScrollbar% < 85
   r%= 255-((valeurScrollbar%-42)*6)
   v%= 255
   b%= 0
   COLOR 1,r%,v%,b%
   RETURN
   END_IF

   IF valeurScrollbar% >84 AND valeurScrollbar% < 128
   r%= 0
   v%= 255
   b%= (valeurScrollbar%-85)*6
   COLOR 1,r%,v%,b%
   RETURN
   END_IF

   IF valeurScrollbar% >127 AND valeurScrollbar% < 171
   r%= 0
   v%= 255-((valeurScrollbar%-128)*6)
   b%= 255
   COLOR 1,r%,v%,b%
   RETURN
   END_IF

   IF valeurScrollbar% >170 AND valeurScrollbar% < 214
   r%= (valeurScrollbar%-171)*6
   v%= 0
   b%= 255
   COLOR 1,r%,v%,b%
   RETURN
   END_IF

   IF valeurScrollbar% >213 AND valeurScrollbar% < 257
   r%= 255
   v%= 0
   b%= 255-((valeurScrollbar%-214)*6)
   COLOR 1,r%,v%,b%
   RETURN
   END_IF

   IF valeurScrollbar% >256 AND valeurScrollbar% < 300
   r%= 255-((valeurScrollbar%-257)*6)
   v%= 255-((valeurScrollbar%-257)*6)
   b%= 255-((valeurScrollbar%-257)*6)
   COLOR 1,r%,v%,b%
   END_IF

RETURN

Couleurs disponibles :

Un SCROLL_BAR qui en voit de toutes les couleurs Sans_t17

Bonne programmation à tous !

Hello every one !
Bonne idée, Marc.
Après ta permission, j’apporte mon grain de sel pour rehausser le gout … à mon goût !

Code:: rem ============================================================================
rem Un SCROLL_BAR qui en voit de toutes les couleurs
rem Auteur : Marc
rem Modif : Papydall
rem ============================================================================
DIM r%,v%,b%
DIM valeurScrollbar%
LABEL couleurPicture

WIDTH 0,400 : HEIGHT 0,400 : COLOR 0,0,0,0
' Un PICTURE pour visualiser la couleur selectionnée
PICTURE 1 : TOP 1,50 : LEFT 1,150 : HEIGHT 1,50 : WIDTH 1,50 : COLOR 1, 255,0,0
' Un SCROLL_BAR pour visualiser une glissière avec des marqueurs
SCROLL_BAR 10 : HEIGHT 10,20 : TOP 10,300 : LEFT 10,50 : WIDTH 10,250 : MIN 10,0 : MAX 10,299
' Un ALPHA pour afficher les valeurs RVB
ALPHA 99 : TOP 99,120 : LEFT 99,150 : FONT_COLOR 99,255,255,255

ON_CHANGE 10,couleurPicture

END
rem ============================================================================
couleurPicture:
   valeurScrollbar% = POSITION(10)
   IF valeurScrollbar% => 0 AND valeurScrollbar% < 42
   r%= 255
   v%= valeurScrollbar%*6
   b%= 0
   COLOR 1,r%,v%,b%
   END_IF

   IF valeurScrollbar% > 41 AND valeurScrollbar% < 85
   r%= 255-((valeurScrollbar%-42)*6)
   v%= 255
   b%= 0
   COLOR 1,r%,v%,b%
   END_IF

   IF valeurScrollbar% > 84 AND valeurScrollbar% < 128
   r%= 0
   v%= 255
   b%= (valeurScrollbar%-85)*6
   COLOR 1,r%,v%,b%
   END_IF

   IF valeurScrollbar% > 127 AND valeurScrollbar% < 171
   r%= 0
   v%= 255-((valeurScrollbar%-128)*6)
   b%= 255
   COLOR 1,r%,v%,b%
   END_IF

   IF valeurScrollbar% > 170 AND valeurScrollbar% < 214
   r%= (valeurScrollbar%-171)*6
   v%= 0
   b%= 255
   COLOR 1,r%,v%,b%
   END_IF

   IF valeurScrollbar% > 213 AND valeurScrollbar% < 257
   r%= 255
   v%= 0
   b%= 255-((valeurScrollbar%-214)*6)
   COLOR 1,r%,v%,b%
   END_IF

   IF valeurScrollbar% > 256 AND valeurScrollbar% < 300
   r%= 255-((valeurScrollbar%-257)*6)
   v%= 255-((valeurScrollbar%-257)*6)
   b%= 255-((valeurScrollbar%-257)*6)
   COLOR 1,r%,v%,b%
   END_IF
   ' On récupère les valeurs RVB
   CAPTION 99,"R = " + str$(r%) + chr$(13) +"V = " + str$(v%) + chr$(13) +"B = " + str$(b%)

RETURN
rem ============================================================================

Spoiler:

Nombre de messages : 7095 Localisation : 77 Date d'inscription : 29/11/2007

Ah ouais, sympas ces petits coloriages...
et utiles en plus !

Bonjour à tous et merci de vos retours.

Certes, ce n'est qu'un tout petit programme, mais je trouvais sympa de pourvoir choisir une couleur avec un seul réglage.

On aurait pu aussi afficher simplement la barre de couleurs et cliquer dessus pour sélectionner sa couleur préférée...
Ce sera l'occasion d'ouvrir un autre post avec un tout petit exemple.

A bientôt et bonne programmation à tous !

» Montant en toutes lettres
» Comment voit-on une priorité sur une fonction?
» Afficher un nombre en toutes lettres
» Bonjour a toutes et a tous
» Ne cherchez plus vos couleurs grace à ma petite palette!