Resultat de couleur

Invité

Voici mon code :

Code:: label couleur,proprietes,effacer
label onze,douze,treize,quatorze,quinze,seize
label personaliser,personaliser2,personaliser3
label personaliser4,personaliser5,personaliser6

dim red,green,blue

left 0,300
top 0,130
width 0,200
height 0,250
caption 0,"Resultat De Couleurs"
border_small 0

picture 4
left 4,12
top 4,5
height 4,95
width 4,170
color 4,0,0,0

track_bar 1
left 1,4
top 1,105
hint 1,"Rouge"
min 1,0:max 1,255
on_change 1,couleur

track_bar 2
left 2,4
top 2,135
hint 2,"Bleu"
min 2,0:max 2,255
on_change 2,couleur

track_bar 3
left 3,4
top 3,165
hint 2,"Vert"
min 3,0:max 3,255
on_change 3,couleur

list 5
left 5,152
width 5,30
top 5,108
height 5,18
item_add 5,"0"
color 5,232,233,218

list 6
left 6,152
width 6,30
top 6,168
height 6,18
item_add 6,"0"
color 6,232,233,218

list 7
left 7,152
width 7,30
top 7,138
height 7,18
item_add 7,"0"
color 7,232,233,218

button 8
left 8,12
top 8,200
height 8,21
width 8,170
caption 8,"Propriétés"
on_click 8,proprietes

rem -------------------------------------------------------

form 9
hide 9
left 9,100
top 9,150
width 9,500
caption 9,"Propriétés"
command_target_is 9

picture 10
hide 10
top 10,5
left 10,300
width 10,187
height 10,196

picture 11
hide 11
left 11,20
top 11,20
width 11,30
height 11,25
on_click 11,onze
print_target_is 11
print "Focus"

picture 12
hide 12
left 12,60
top 12,20
width 12,30
height 12,25
on_click 12,douze
print_target_is 12
print "----------"

picture 13
hide 13
left 13,100
top 13,20
width 13,30
height 13,25
on_click 13,treize
print_target_is 13
print "----------"

picture 14
hide 14
left 14,140
top 14,20
width 14,30
height 14,25
on_click 14,quatorze
color 10,0,0,0
print_target_is 14
print "----------"

picture 15
hide 15
left 15,180
top 15,20
width 15,30
height 15,25
on_click 15,quinze
color 10,0,0,0
print_target_is 15
print "----------"

picture 16
hide 16
left 16,220
top 16,20
width 16,30
height 16,25
on_click 16,seize
color 10,0,0,0
print_target_is 16
print "----------"

button 23
left 23,20
width 23,180
top 23,55
caption 23,"Choisir comme couleur personnaliser"

button 24
left 24,205
width 24,45
top 24,55
caption 24,"Effacer"
on_click 24,effacer

list 17
hide 17
left 17,30
width 17,30
top 17,108
height 17,18
item_add 17,"0"
color 17,232,233,218

list 18
hide 18
left 18,30
width 18,30
top 18,168
height 18,18
item_add 18,"0"
color 18,232,233,218

list 19
hide 19
left 19,30
width 19,30
top 19,138
height 19,18
item_add 19,"0"
color 19,232,233,218

alpha 20
hide 20
left 20,70
top 20,109
caption 20,"Rouge"

alpha 21
hide 21
hide 21
left 21,70
top 21,139
caption 21,"Vert"

alpha 22
hide 22
hide 22
left 22,70
top 22,169
caption 22,"Bleu"

rem fin ---------------------------------------------------------------------------------

end

couleur:
red=position(1):clear 5:item_add 5,""+str$(red)
green=position(3):clear 6:item_add 6,""+str$(green)
blue=position(2):clear 7:item_add 7,""+str$(blue)
red=position(1):clear 17:item_add 17,""+str$(red)
green=position(3):clear 18:item_add 18,""+str$(green)
blue=position(2):clear 19:item_add 19,""+str$(blue)

red=position(1):hint 5,"Rouge « "+str$(red)+" »"
green=position(3):hint 6,"Vert « "+str$(green)+" »"
blue=position(2):hint 7,"Bleu « "+str$(blue)+" »"
red=position(1):hint 17,"Rouge « "+str$(red)+" »"
green=position(3):hint 18,"Vert « "+str$(green)+" »"
blue=position(2):hint 19,"Bleu « "+str$(blue)+" »"
color 4,red,green,blue
color 10,red,green,blue
return

proprietes:
show 9
show 10
show 11
show 12
show 13
show 14
show 15
show 16
show 17
show 18
show 19
show 20
show 21
show 22
return

rem quanqont click ----------------------------------------------

onze:
print_target_is 11
print "Focus"
print_target_is 16
print "----------"
print_target_is 12
print "----------"
print_target_is 13
print "----------"
print_target_is 14
print "----------"
print_target_is 15
print "----------"
on_click 23,personaliser
return

douze:
print_target_is 12
print "Focus"
print_target_is 11
print "----------"
print_target_is 16
print "----------"
print_target_is 13
print "----------"
print_target_is 14
print "----------"
print_target_is 15
print "----------"
on_click 23,personaliser2
return

treize:
print_target_is 13
print "Focus"
print_target_is 11
print "----------"
print_target_is 12
print "----------"
print_target_is 16
print "----------"
print_target_is 14
print "----------"
print_target_is 15
print "----------"
on_click 23,personaliser3
return

quatorze:
print_target_is 14
print "Focus"
print_target_is 11
print "----------"
print_target_is 12
print "----------"
print_target_is 13
print "----------"
print_target_is 16
print "----------"
print_target_is 15
print "----------"
on_click 23,personaliser4
return

quinze:
print_target_is 15
print "Focus"
print_target_is 11
print "----------"
print_target_is 12
print "----------"
print_target_is 13
print "----------"
print_target_is 14
print "----------"
print_target_is 16
print "----------"
on_click 23,personaliser5
return

seize:
print_target_is 16
print "Focus"
print_target_is 11
print "----------"
print_target_is 12
print "----------"
print_target_is 13
print "----------"
print_target_is 14
print "----------"
print_target_is 15
print "----------"
on_click 23,personaliser6
return

personaliser:
color 11,red,green,blue
return

personaliser2:
color 12,red,green,blue
return

personaliser3:
color 13,red,green,blue
return

personaliser4:
color 14,red,green,blue
return

personaliser5:
color 15,red,green,blue
return

personaliser6:
color 16,red,green,blue
return

rem tous effacer ------------------------------

effacer:
color 11,255,255,255
color 12,255,255,255
color 13,255,255,255
color 14,255,255,255
color 15,255,255,255
color 16,255,255,255
print_target_is 16
print "----------"
print_target_is 11
print "Focus"
print_target_is 12
print "----------"
print_target_is 13
print "----------"
print_target_is 14
print "----------"
print_target_is 15
print "----------"
return

Nombre de messages : 2747 Date d'inscription : 13/09/2009

J'ai essayé. C'est plutôt joli !
Mais ça sert à quoi ?

Sujet: Re: Resultat de couleur Lun 26 Oct 2009 - 9:00

Bravo Nicolas,

Un petit inconvénient, tu as mis le bleu en deuxieme position. Dans PANORAMIC l'odre c'est R,G,B. et l'info bulle vert est sur le bleu

à JJN4,
çà sert à checher la couleur dont tu as besoin et quand tu as terminé tes règlages, il ne te reste plus qu'a relevé les nombre qui représente les variables r,g,b pour mettre dans ton code.

Il existe le même dans les exemples, il s'appelle FINAL_COLOR ( mais il plante)

Merci Nicolas, c'est ce qu'on appelle un utilitaire.

A+

Sujet: Re: Resultat de couleur Lun 26 Oct 2009 - 9:18

Nicolas,

Si ce n'est pas trop demandé, j'aimerai que tu corriges ton programme,
Car comme le format est petit je compte l'utiliser (à coté de Panoramic éditor). Mais pour cela il faudrait que le vert soit en deuxieme position(pour eviter de noter les couleurs dans le désordre).

D'avance merci et à plus.

Nombre de messages : 2747 Date d'inscription : 13/09/2009

Ok, mais alors le deuxième tableau est inutile.
A moins que (le petit) Nicolas (c'est de l'humour),
qui n'est pas très bavard, ait eu un autre objectif (?)
Il suffit de faire apparaître les chiffres sur le premier tableau.
Et ce serait bien que ça se termine par un copier
qu'on pourrait coller directement dans l'éditeur.

Nombre de messages : 2747 Date d'inscription : 13/09/2009

Au fait, final color ne plante pas, de mon côté.
(je possède XP, peut-être que ça varie avec ça...?)

Invité

J'ai inversé le bleu avec le vert avec leur sous-titre tout est en marche !

Voici mon code :

Code:: label couleur,proprietes,effacer
label onze,douze,treize,quatorze,quinze,seize
label personaliser,personaliser2,personaliser3
label personaliser4,personaliser5,personaliser6

dim red,green,blue

left 0,300
top 0,130
width 0,200
height 0,250
caption 0,"Resultat De Couleurs"
border_small 0

picture 4
left 4,12
top 4,5
height 4,95
width 4,170
color 4,0,0,0

track_bar 1
left 1,4
top 1,105
hint 1,"Rouge"
min 1,0:max 1,255
on_change 1,couleur

track_bar 3
left 3,4
top 3,135
hint 3,"Vert"
min 3,0:max 3,255
on_change 3,couleur

track_bar 2
left 2,4
top 2,165
hint 2,"Bleu"
min 2,0:max 2,255
on_change 2,couleur

list 5
left 5,152
width 5,30
top 5,108
height 5,18
item_add 5,"0"
color 5,232,233,218

list 6
left 6,152
width 6,30
top 6,168
height 6,18
item_add 6,"0"
color 6,232,233,218

list 7
left 7,152
width 7,30
top 7,138
height 7,18
item_add 7,"0"
color 7,232,233,218

button 8
left 8,12
top 8,200
height 8,21
width 8,170
caption 8,"Propriétés"
on_click 8,proprietes

rem -------------------------------------------------------

form 9
hide 9
left 9,100
top 9,150
width 9,500
caption 9,"Propriétés"
command_target_is 9

picture 10
hide 10
top 10,5
left 10,300
width 10,187
height 10,196

picture 11
hide 11
left 11,20
top 11,20
width 11,30
height 11,25
on_click 11,onze
print_target_is 11
print "Focus"

picture 12
hide 12
left 12,60
top 12,20
width 12,30
height 12,25
on_click 12,douze
print_target_is 12
print "----------"

picture 13
hide 13
left 13,100
top 13,20
width 13,30
height 13,25
on_click 13,treize
print_target_is 13
print "----------"

picture 14
hide 14
left 14,140
top 14,20
width 14,30
height 14,25
on_click 14,quatorze
color 10,0,0,0
print_target_is 14
print "----------"

picture 15
hide 15
left 15,180
top 15,20
width 15,30
height 15,25
on_click 15,quinze
color 10,0,0,0
print_target_is 15
print "----------"

picture 16
hide 16
left 16,220
top 16,20
width 16,30
height 16,25
on_click 16,seize
color 10,0,0,0
print_target_is 16
print "----------"

button 23
left 23,20
width 23,180
top 23,55
caption 23,"Choisir comme couleur personnaliser"

button 24
left 24,205
width 24,45
top 24,55
caption 24,"Effacer"
on_click 24,effacer

list 17
hide 17
left 17,30
width 17,30
top 17,108
height 17,18
item_add 17,"0"
color 17,232,233,218

list 18
hide 18
left 18,30
width 18,30
top 18,168
height 18,18
item_add 18,"0"
color 18,232,233,218

list 19
hide 19
left 19,30
width 19,30
top 19,138
height 19,18
item_add 19,"0"
color 19,232,233,218

alpha 20
hide 20
left 20,70
top 20,109
caption 20,"Rouge"

alpha 21
hide 21
hide 21
left 21,70
top 21,139
caption 21,"Vert"

alpha 22
hide 22
hide 22
left 22,70
top 22,169
caption 22,"Bleu"

rem fin ---------------------------------------------------------------------------------

end

couleur:
red=position(1):clear 5:item_add 5,""+str$(red)
green=position(2):clear 6:item_add 6,""+str$(green)
blue=position(3):clear 7:item_add 7,""+str$(blue)
red=position(1):clear 17:item_add 17,""+str$(red)
green=position(2):clear 18:item_add 18,""+str$(green)
blue=position(3):clear 19:item_add 19,""+str$(blue)

red=position(1):hint 5,"Rouge « "+str$(red)+" »"
green=position(3):hint 6,"Vert « "+str$(blue)+" »"
blue=position(2):hint 7,"Bleu « "+str$(green)+" »"
red=position(1):hint 17,"Rouge « "+str$(red)+" »"
green=position(3):hint 18,"Vert « "+str$(blue)+" »"
blue=position(2):hint 19,"Bleu « "+str$(green)+" »"
color 4,red,green,blue
color 10,red,green,blue
return

proprietes:
show 9
show 10
show 11
show 12
show 13
show 14
show 15
show 16
show 17
show 18
show 19
show 20
show 21
show 22
return

rem quanqont click ----------------------------------------------

onze:
print_target_is 11
print "Focus"
print_target_is 16
print "----------"
print_target_is 12
print "----------"
print_target_is 13
print "----------"
print_target_is 14
print "----------"
print_target_is 15
print "----------"
on_click 23,personaliser
return

douze:
print_target_is 12
print "Focus"
print_target_is 11
print "----------"
print_target_is 16
print "----------"
print_target_is 13
print "----------"
print_target_is 14
print "----------"
print_target_is 15
print "----------"
on_click 23,personaliser2
return

treize:
print_target_is 13
print "Focus"
print_target_is 11
print "----------"
print_target_is 12
print "----------"
print_target_is 16
print "----------"
print_target_is 14
print "----------"
print_target_is 15
print "----------"
on_click 23,personaliser3
return

quatorze:
print_target_is 14
print "Focus"
print_target_is 11
print "----------"
print_target_is 12
print "----------"
print_target_is 13
print "----------"
print_target_is 16
print "----------"
print_target_is 15
print "----------"
on_click 23,personaliser4
return

quinze:
print_target_is 15
print "Focus"
print_target_is 11
print "----------"
print_target_is 12
print "----------"
print_target_is 13
print "----------"
print_target_is 14
print "----------"
print_target_is 16
print "----------"
on_click 23,personaliser5
return

seize:
print_target_is 16
print "Focus"
print_target_is 11
print "----------"
print_target_is 12
print "----------"
print_target_is 13
print "----------"
print_target_is 14
print "----------"
print_target_is 15
print "----------"
on_click 23,personaliser6
return

personaliser:
color 11,red,green,blue
return

personaliser2:
color 12,red,green,blue
return

personaliser3:
color 13,red,green,blue
return

personaliser4:
color 14,red,green,blue
return

personaliser5:
color 15,red,green,blue
return

personaliser6:
color 16,red,green,blue
return

rem tous effacer ------------------------------

effacer:
color 11,255,255,255
color 12,255,255,255
color 13,255,255,255
color 14,255,255,255
color 15,255,255,255
color 16,255,255,255
print_target_is 16
print "----------"
print_target_is 11
print "Focus"
print_target_is 12
print "----------"
print_target_is 13
print "----------"
print_target_is 14
print "----------"
print_target_is 15
print "----------"
return

Sujet: Re: Resultat de couleur Lun 26 Oct 2009 - 14:52

Merci Nicolas, tout est en ordre.

jjn4, c'est curieux je suis aussi sous XP. En fait final color fonctionne, mais je ne peus pas le fermer autrement que par une fin de tache ???

A+

Sujet: Re: Resultat de couleur Lun 26 Oct 2009 - 15:01

Bizarre... chez moi (Vista) Final_color marche très bien et se ferme tout à fait normalement par clic sur 'Quit'.
D'ailleurs je l'avais un peu arrangé, pour mon usage personnel, avec la traduction de la valeur en hexadécimal:

Code:: label main_loop,finished, Convhex

dim red, green, blue
dim sred, sgreen, sblue
dim lf, hf, yr, yv, yb, lt, d, h$
lf = 320 : rem largeur fenêtre de couleur
hf = 50 : rem hauteur fenêtre
yr = hf
yr = hf + 10
yv = yr + 40
yb = yv + 40
lt = lf - 60 : rem largeur trackbars
sred = -1

rem fenêtre principale (FORM0)
left 0,100:top 0,150:width 0,lf+60:height 0,250
caption 0,"Couleur résultante R, G, B"

rem picture pour afficher la couleur résultante
picture 1:left 1,10:top 1,0:width 1,lf:height 1,hf

rem création de track_bar pour couleur rouge
track_bar 2:left 2,50:top 2,yr:width 2,lt
min 2,0:max 2,255: Rem limites curseur

rem création de track_bar pour couleur verte
track_bar 5:left 5,50:top 5,yv:width 5,lt
min 5,0:max 5,255: Rem limites curseur

rem création de track_bar pour couleur bleue
track_bar 7:left 7,50:top 7,yb:width 7,lt
min 7,0:max 7,255: Rem limites curseur

rem ALPHA pour légendes des track_bar
alpha 3:left 3,10:top 3,yr+2:caption 3,"ROUGE"
alpha 4:left 4,10:top 4,yv+2:caption 4,"VERT"
alpha 6:left 6,10:top 6,yb+2:caption 6,"BLEU"

alpha 8:left 8,lt+50:top 8,yr+6:caption 8,"Alpha 8"
alpha 9:left 9,lt+50:top 9,yv+6:caption 9,"Alpha 9"
alpha 10:left 10,lt+50:top 10,yb+6:caption 10,"Alpha 10"

rem système de menu
main_menu 11:sub_menu 12:parent 12,11:caption 12,"Quitter"

main_loop:
red=position(2): d = red: GOSUB ConvHex
caption 8,str$(red) + " (h" + h$ + ")"
green=position(5): d = green: GOSUB ConvHex
caption 9,str$(green) + " (h" + h$ + ")"
blue=position(7): d = blue: GOSUB ConvHex
caption 10,str$(blue) + " (h" + h$ + ")"
if red<>sred or green<>sgreen or blue<>sblue
color 1,red,green,blue
sred = red: sgreen = green: sblue= blue
end_if
Rem wait 200
if clicked(12)=1 then goto finished
goto main_loop

finished:
terminate
end

ConvHex:
REM conversion décimal/hexa de d, résultat h$ sur 2 caractères
h$=""
REPEAT
h$ = MID$("0123456789ABCDEF", 1+16*FRAC(d/16), 1) + h$
d = INT(d/16)
UNTIL d <= 0
IF LEN(h$) < 2 THEN h$ = "0" + h$
RETURN

PS: je voulais rajouter la fonction de copie du résultat dans le presse-papier sur demande, soit sous forme décimale, soit sous forme hexa, (menus ClipDec et ClipHex) mais je n'ai pas réussi à faire marcher la fonction:

Code:: MEMO 15: Top 15, .... : HIDE 15
...
ADD_ITEM 15, v$: rem la valeur à copier dans le PP
CLIPBOARD_COPY 15

ça ne produit pas d'erreur, mais ça ne copie rien du tout.
Je l'ai fait sous une autre forme, mais pas très orthodoxe (appel à un programme externe), c'est pourquoi je ne la mets pas ici.

Sujet: Re: Resultat de couleur Lun 26 Oct 2009 - 19:57

Salut JL35,

Je viens d'essayer ton code, hé bé crois-moi si tu veus je ne peus pas sortir autrement que par une fin de tache ???

A+

Sujet: Re: Resultat de couleur Lun 26 Oct 2009 - 21:53

Je ne comprends pas bien, qu'appelles-tu une fin de tâche ?
- clic sur Quitter
- clic sur la croix en haut à droite (chez moi ça ne marche pas)
- ou bien la méthode brutale: Ctl/Alt/Suppr et 'arrêter le processus' ?

Dis-donc Jean Claude, j'ai eu un moment d'inattention et tu m'as largement dépassé en nombre de messages !!! Suspect

il va falloir que je mette les bouchées doubles !
Tu vas finir par battre Jack lui-même, c'est pô juste.

Sujet: Re: Resultat de couleur Mar 27 Oct 2009 - 7:54

JL35
Une fin de tache c'est bien comme tu dis (ctrl+shift+echap), je dois donc avoir un Bug dans Mon xp.
J'avoue que je suis un bavard, mais je n'avais pas pensé à regarder le "mouchard"
A+

Nombre de messages : 2747 Date d'inscription : 13/09/2009

Je ne comprenais pas le problème de Jean Claude, puisque chez moi, Final_color ne se ferme pas avec le bouton Fermer (la croix rouge en haut à droite) mais on y arrive facilement avec Quit.
Mais avec ton adaptation que j'ai essayée, JL35, j'ai le même problème, impossible d'en sortir autrement que par CTRL-ALT-SUPPR.
Par contre, le programme de Nicolas se ferme bien avec le bouton Fermer.
Bizarre, bizarre...

Sujet: Re: Resultat de couleur Jeu 29 Oct 2009 - 15:20

Vraiment bizarre comme tu dis... si je reprends mon code ci-dessus par copier/coller il se ferme tout à fait proprement sur 'Quitter', quoi que je fasse comme manoeuvres... (je suis sous Vista, mais ça ne devrait pas changer grand chose...).

PS merci Jean Claude, je ne connaissais pas Ctrl/Shift/Echap, ça fait gagner une étape par rapport à Ctrl/Alt/Suppr.

Nombre de messages : 2747 Date d'inscription : 13/09/2009

Je sais pourquoi le programme Final_color et celui de JL35 peuvent se coincer en sortant, c'est qu'ils contiennent une boucle potentiellement infinie, alors que le programme de Nicolas n'en contient pas, ce qui fait fait qu'on peut en sortir sans problème.

Sujet: Re: Resultat de couleur Jeu 29 Oct 2009 - 17:28

Je ne vois pas où est la boucle potentiellement infinie, la main_loop ? la sortie me paraît tout à fait orthodoxe, et je confirme que je n'arrive pas à reproduire le défaut (action sur Quitter inopérante).

D'ailleurs j'ai même fait sauter le wait 200 dans la boucle, du coup le mouvement dans les track_bars est beaucoup plus fluide.

Sujet: Re: Resultat de couleur Sam 7 Nov 2009 - 22:36

Nicolas,
j'ai voulu me servir de ton code pour définir les 3 variables couleurs dont j'avais besoin. Mais apparament il y a un os. Quand je je bouge le curseur du bas (bleu), les chiffres qui bougent sont ceux du vert (finalement ta premiere version était mieux)
A toi de voir
A+

Invité

Bizarre Jean Claude chez moi quand je bouge la bare du bleu ou du vert les chiffres corresponde à la couleur.

Sujet: Re: Resultat de couleur Dim 8 Nov 2009 - 8:57

J'ai repris ton 2ème code sur le forum, éffectivement il marche bien.

Je pense que j'ai du me planter à l'enregistrement (ou au copier/coller)

Bef, çà marche

A+

» Comment faire: if label(r3$)=1 then resultat=r3$ ?
» Barre de titre sans les 3 boutons
» Couleur d'une variable qui n'est pas un mot-clé
» Palette couleur
» J'ai perdu la couleur !!!