Récupération code couleur par un click souris [Résolu]
A voir également:
- &hff00&
- Code couleur visual basic - Meilleures réponses
- Couleur basic - Meilleures réponses
- Visual Basic / VB.NET : Recuperer le delay du double click de la souris - CodeS SourceS - Guide
- Visual Basic / VB.NET : Fonction api pour detection des clicks souris et situation - CodeS SourceS - Guide
- Delphi / Pascal : Récupérer la couleur d'un pixel de l'écran - CodeS SourceS - Guide
- Récupérer le code couleur rgb d'une cellule excel - Forum - VB.NET
- Code couleur resistance à imprimer - Forum - Visual Basic 6
15 réponses
Salut
pas compris une chose si c'est toi qui definit les couleurs pour ta
carte ex rouge pour le dep 93 rgb(255,0,0)
ce n'est plus rouge c.ad ce n'est plus FF0000 en hexa que tu obtiens ?
pas compris une chose si c'est toi qui definit les couleurs pour ta
carte ex rouge pour le dep 93 rgb(255,0,0)
ce n'est plus rouge c.ad ce n'est plus FF0000 en hexa que tu obtiens ?
Bonsoir,
Passer de la couleur 63CF9C à 66CC99 ou l'inverse n'est pas trop grave.
Si tu utilises un JPEG comme source, ce n'est pas étonnant, la compression passe par une approximation des couleurs.
Passer de la couleur 63CF9C à 66CC99 ou l'inverse n'est pas trop grave.
Si tu utilises un JPEG comme source, ce n'est pas étonnant, la compression passe par une approximation des couleurs.
Pour info: 255 idem à ---> rgb(255,0,0) ) idem à ---> FF0000
--------------------------------------------------------------------
Passer de la couleur 63CF9C à 66CC99 ou l'inverse n'est pas trop grave ?......... Ce n'est pas grave pour un programme qui récupère le code couleur pour réaliser un traitement particulier
If Couleur Lue sur l'écran = 6737049 alors je lance un traitement
If Couleur Lue sur l'écran = 65256 alors je lance un autre traitement
Etc..........
--------------------------------------------------------------------
-Ce logiciel est utilisé et tourne correctement sur différents ordinateurs XP, Vista et Windows 7
Soyez gentil de lire les messages avant de poster une réponse
--------------------------------------------------------------------
Passer de la couleur 63CF9C à 66CC99 ou l'inverse n'est pas trop grave ?......... Ce n'est pas grave pour un programme qui récupère le code couleur pour réaliser un traitement particulier
If Couleur Lue sur l'écran = 6737049 alors je lance un traitement
If Couleur Lue sur l'écran = 65256 alors je lance un autre traitement
Etc..........
--------------------------------------------------------------------
-Ce logiciel est utilisé et tourne correctement sur différents ordinateurs XP, Vista et Windows 7
Soyez gentil de lire les messages avant de poster une réponse
Bonjour,
Je décomposerais dans ce cas en valeurs R,G,B et déterminerais mes actions en fonction de fourchettes de proportions.
Je décomposerais dans ce cas en valeurs R,G,B et déterminerais mes actions en fonction de fourchettes de proportions.
cs_Le Pivert
- Messages postés
- 6627
- Date d'inscription
- jeudi 13 septembre 2007
- Statut
- Contributeur
- Dernière intervention
- 4 avril 2020
Bonjour ,
Ce sujet n'a rien avoir avec la programmation puisqu'il fonctionne très bien sur les autres pc. Il faudrait voir les réglages couleurs de ton écran. Mais tu ne nous dit pas sur quel système tu es: XP, Vista et Windows 7!
Ce sujet n'a rien avoir avec la programmation puisqu'il fonctionne très bien sur les autres pc. Il faudrait voir les réglages couleurs de ton écran. Mais tu ne nous dit pas sur quel système tu es: XP, Vista et Windows 7!
Bonjour,
Le code Couleur lu par le programme sur le PC Windows XP qui ne semble plus fonctionner correctement est: RGB(156,207,99) .
Je viens de faire deux autres essais avec le même programme en cliquant sur la même Couleur:
- Sur un autre PC XP: Le code lu est RGB(153,204,102)
- Sur un PC Vista: Le code lu est également RGB(153,204,102)
Par avance Merci pour votre aide
Le code Couleur lu par le programme sur le PC Windows XP qui ne semble plus fonctionner correctement est: RGB(156,207,99) .
Je viens de faire deux autres essais avec le même programme en cliquant sur la même Couleur:
- Sur un autre PC XP: Le code lu est RGB(153,204,102)
- Sur un PC Vista: Le code lu est également RGB(153,204,102)
Par avance Merci pour votre aide
Bonjour,
Comme je n'avais pas la réponse à mon problème sur ce site, j'ai posé la même question sur Developpez.Net.
Monsieur XylonAkau a eu la gentillesse de me répondre et de me donner la solution à mon problème.
Un paramètre d'affichage à été modifié à mon insu. La correction suivante à été appliquée:
- Panneau de Configuration - Affichage - Paramètres - Qualité Couleur - Remplaçé 16 Bits par 32 Bits.
Encore bravo à Monsieur XylonAkau sur Developpez.Net.
Mille Merci.
--
Comme je n'avais pas la réponse à mon problème sur ce site, j'ai posé la même question sur Developpez.Net.
Monsieur XylonAkau a eu la gentillesse de me répondre et de me donner la solution à mon problème.
Un paramètre d'affichage à été modifié à mon insu. La correction suivante à été appliquée:
- Panneau de Configuration - Affichage - Paramètres - Qualité Couleur - Remplaçé 16 Bits par 32 Bits.
Encore bravo à Monsieur XylonAkau sur Developpez.Net.
Mille Merci.
--
Le problème fondamental n'est par pour autant réglé, car :
si cette appli doit être distribuée :
- la configuration pourra être à nouveau différente sur le PC d'exécution
- on ne change jamais la configuration de l'utilisateur.
si cette appli doit être distribuée :
- la configuration pourra être à nouveau différente sur le PC d'exécution
- on ne change jamais la configuration de l'utilisateur.
Bonjour Monsieur UcFoutu,
Qu'avez vous à me proposer pour regler ce problème.
Votre solution me sera très précieuse
Par avance Merci
Cordialement.
--
Qu'avez vous à me proposer pour regler ce problème.
Votre solution me sera très précieuse
Par avance Merci
Cordialement.
--
Bonjour,
Je suis désolé, mais je ne sais pas comment considérer les proportions de RGB.
Dans mes programmes j'ai les instructions:
Couleur = Picture1.Point(X, Y)
if Couleur = 16777215 then Call .........
Sauf erreur de ma part je pense que le traitement sera identique avec l' instructions ci-dessous:
if Picture1.Point(X, Y) = rgb(187,783,199) then Call ........
J'ai un petit outil qui me permet d'afficher toutes la palette de couleur et, pour chacune d'elle d'afficher le code couleur
numérique et RGB. --> 16777215 est identique à rgb(187,783,199).
------------------------------------------------------------------
Il y a certainement quelque chose que je ne comprends pas.
Auriez vous l'amabilité de préciser votre réponse (si vous avez un exemple simple de deux instructions ce serait plus que parfait).
Par avance Merci.
Je suis désolé, mais je ne sais pas comment considérer les proportions de RGB.
Dans mes programmes j'ai les instructions:
Couleur = Picture1.Point(X, Y)
if Couleur = 16777215 then Call .........
Sauf erreur de ma part je pense que le traitement sera identique avec l' instructions ci-dessous:
if Picture1.Point(X, Y) = rgb(187,783,199) then Call ........
J'ai un petit outil qui me permet d'afficher toutes la palette de couleur et, pour chacune d'elle d'afficher le code couleur
numérique et RGB. --> 16777215 est identique à rgb(187,783,199).
------------------------------------------------------------------
Il y a certainement quelque chose que je ne comprends pas.
Auriez vous l'amabilité de préciser votre réponse (si vous avez un exemple simple de deux instructions ce serait plus que parfait).
Par avance Merci.
rgb(187,783,199)
n'existe pas. Aucune composante ne saurait excéder 255 !
Voici comment on extrait les composantes RGB d'une couleur dont on a la valeur en Long (exemple) :
A partir de ces valeurs absolues, ont détermine les valeurs relatives (la composition, donc, de la couleur). Et on travaille ensuite sur des fourchettes de ces valeurs relatives (arithmétique)
Si entre xR% et yR% de rouge et entre xB% et yB% de vert et entre xB% et yB% de bleu, alors ...
Ce n'est que de l'arithmétique.
n'existe pas. Aucune composante ne saurait excéder 255 !
Voici comment on extrait les composantes RGB d'une couleur dont on a la valeur en Long (exemple) :
Dim R As Integer, G As Integer, B As Integer, coul As Long
coul = 12767201
R = &HFF& And coul
G = (&HFF00& And coul) \ 256
B = (&HFF0000 And coul) \ 65536
MsgBox "R = " & R & vbCrLf & "G = " & G & vbCrLf & "B = " & B & vbCrLf
A partir de ces valeurs absolues, ont détermine les valeurs relatives (la composition, donc, de la couleur). Et on travaille ensuite sur des fourchettes de ces valeurs relatives (arithmétique)
Si entre xR% et yR% de rouge et entre xB% et yB% de vert et entre xB% et yB% de bleu, alors ...
Ce n'est que de l'arithmétique.
J'ajoute qu'il est plus que probable que ces mésaventures résultent du fait que tu lis les couleurs affichées (d'où l'intervention de la configuration) au lieu de lire celles correspondant à un fichier (coordonnées dans le fichier) qui, elles, restent toujours identiques.
La conception serait alors à reconsidérer.
________________________
Réponse exacte ? => "REPONSE ACCEPTEE" facilitera les recherches.
Pas d'aide en ligne installée ? => ne comptez pas sur moi pour simplement répéter son contenu. Je n'interviendrai que si nécessité de la compléter.
La conception serait alors à reconsidérer.
________________________
Réponse exacte ? => "REPONSE ACCEPTEE" facilitera les recherches.
Pas d'aide en ligne installée ? => ne comptez pas sur moi pour simplement répéter son contenu. Je n'interviendrai que si nécessité de la compléter.
Je vais faire des essais.
Merci pour votre réponse.
rgb(187,783,199) Erreur de ma part cela est évident.
Merci pour votre réponse.
rgb(187,783,199) Erreur de ma part cela est évident.
Bonjour Ucfoutu
après avoir testé c'est plutot
après avoir testé c'est plutot
R = (&HFF0000 And coul) \ 65536
G = (&HFF00& And coul) \ 256
B = &HFF& And coul
plus rien compris
http://www.colorcombos.com/colors/FF0000
avec la calculatrice si je convertis FF0000 en dec > 16711680
FF0000 ce n'est pas la couleur rouge ?
http://www.colorcombos.com/colors/FF0000
avec la calculatrice si je convertis FF0000 en dec > 16711680
FF0000 ce n'est pas la couleur rouge ?
Euh...
Mets donc un label label1 sur un form et ce code au click d'un bouton de commande :
FF n'est pas FF0000
et maintenant :
MsgBox Hex(RGB(255, 0, 0))
Le rouge est FF
Et pourquoi donc une calculatrice ?
VB6 possède Val et Hex.
Val("&HFF0000") ===>> donne 16711680
Val("&HFF") =====>> donne 255
Hex(rgb(255,0,0)) ===>> donne FF et non FF0000
msgbox RGB(255,0,0) = vbRed donne true
MsgBox 255 = vbRed donne true
MsgBox 16711680 = vbRed donne false
MsgBox 16711680 = vbBlue donne true
Msgbox Val("&HFF0000") = vbblue donne true
Mets donc un label label1 sur un form et ce code au click d'un bouton de commande :
Label1.BackColor = &HFF0000 MsgBox "c'est bleu !" Label1.BackColor = 16711680 MsgBox "c'est également bleu, hein ..." Label1.BackColor = 255 MsgBox "voilà le rouge ..." Label1.BackColor = &HFF MsgBox "voilà encore le rouge ..." MsgBox &HFF0000 = &HFF
FF n'est pas FF0000
et maintenant :
MsgBox Hex(RGB(255, 0, 0))
Le rouge est FF
Et pourquoi donc une calculatrice ?
VB6 possède Val et Hex.
Val("&HFF0000") ===>> donne 16711680
Val("&HFF") =====>> donne 255
Hex(rgb(255,0,0)) ===>> donne FF et non FF0000
msgbox RGB(255,0,0) = vbRed donne true
MsgBox 255 = vbRed donne true
MsgBox 16711680 = vbRed donne false
MsgBox 16711680 = vbBlue donne true
Msgbox Val("&HFF0000") = vbblue donne true
c'est bien bleu au moins je ne suis pas daltonien (:-
je me rends compte que ma méthode pour convertir rgb(r,g,b) en hexa est fausse
si j'ai rgb(255,0,0) alors je dis la valeur hexa pour chacun r en hexa est FF , g = 00 et b = 00 ce qui donne FF0000 et c'est faut ,c'est bleu pas rouge alors plutot former à l'inverse 0000FF
rgb(0,0,255) en hexa FF0000
rgb(80,0,255) => FF0050
je me rends compte que ma méthode pour convertir rgb(r,g,b) en hexa est fausse
si j'ai rgb(255,0,0) alors je dis la valeur hexa pour chacun r en hexa est FF , g = 00 et b = 00 ce qui donne FF0000 et c'est faut ,c'est bleu pas rouge alors plutot former à l'inverse 0000FF
rgb(0,0,255) en hexa FF0000
rgb(80,0,255) => FF0050