valeurs anormales retournées par getpixelRésolu

Question

bonjour, 



j'utilise l'api getpixel dans une macro sous VBA  pour excel afin
de lire les valeurs rgb d'une image et de les deposer ensuite dans une
feuille excel afin d'y realiser des calculs trop complexes pour le
faire directement sous vb6  ( passage par tableau crois&#233; dynamique
et  graphiques ). 

je n'affiche pas l'image  dans un picture.box  mais je la met dans un objet bitmap .

il s'agit en fait d'un travail en boucle sur des millers de scan de feuilles d'arbres pour un travail scientifique  .

mon pb : les valeurs rgb renvoy&#233;es par getpixel ne sont pas exactement
celles que je peut lire au m&#234;me endroit en utilisant  la souris et
les infos de pixel dans un logiciel comme xnview ou irfan view. 

les valeurs renvoy&#233;es par get pixel sont  proches des valeurs lues
sur xnview mais regroup&#233;es sur certaines valeurs seulement .

les valeurs rgb retourn&#233;es sont rpartie de fa&#231;on discrete sur la gamme
0-255 et non de fa&#231;on conitnue avec un pas  fix de 8 .

il y a dej&#224; eu une discussion sur quelques chose qui ressemble un peu &#224; cel&#224;  

http://vbfrance.com/forum.v2.aspx?id=400214

est ce que getpixel fait la m&#234;me chose cad qu'il tient compte de la
configuration graphique du pc pour renvoyer des valeurs rgb apporchante
et non des valeurs "exactes"  ?



hlb

crenaud76 · Accepted Answer

Mettre une réponse accepté cela veut dire "cliquer sur le bouton "Réponse acceptée !" qui se trouve sous le ou les réponses ayant solutionner ton problème. Ainsi, cela apparait lorsque l'on liste les questions du forum et cela permet aux autrs (qui aurait le même souci que toi plus tard) de savoir qu'une réponse satisfaisante se cache derrière ta question ... Qd tu auras eu besoin de recherché un truc ou deux sur le forum tu comprendras l'intéret de la chose ...
Pour connaitre le bitplan de la config windows, je suppose qu'une api doit trainer mais je la connais pas et j'ai pas apiguide sur cette bécane ...

cs_Jack · Answer

Salut
Pour lire les couleurs, tu fais comment ? (un peu dur de te r&#233;pondre sans &#233;l&#233;ment)
Les couleurs de base sont toujours d&#233;finies sur un octet. Pourquoi parles-tu de pas fixe de 8 ?
Si &#231;a peut aider :

Dim Gr As Long, PicHdc As Long, lX As Long, lY As Long
Gr = GetPixel(PicHdc, lX, lY)
RedValue = Red(Gr)
BluePixel = Blue(Gr)
GreenPixel = Green(Gr)

Avec :
Function Red(ByVal Color As Long) As Integer
   Red = Int(Color - Int((Color - Int(Color / 65536) * 65536) / 256) * 256 - Int(Color / 65536) * 65536)
End Function
Function Green(ByVal Color As Long) As Integer
   Green = Int((Color - Int(Color / 65536) * 65536) / 256)
End Function
Function Blue(ByVal Color As Long) As Integer
   Blue = Int(Color / 65536)
End Function

Vala
Jack, MVP VB
NB : Je ne r&#233;pondrai pas aux messages priv&#233;s 

Le savoir est la seule mati&#232;re qui s'accroit quand on la partage. (Socrate)

cs_Jack · Answer

Eventuellement, si tu lis l'anglais, parcours cette source dont l'auteur semble maitriser la gestion des couleurs.

Vala
Jack, MVP VB
NB : Je ne r&#233;pondrai pas aux messages priv&#233;s 

Le savoir est la seule mati&#232;re qui s'accroit quand on la partage. (Socrate)

crenaud76 · Answer

Get pixel te retourne la valeur de al couleur qui est réellement affiché (même si tu n'affiches pas l'image, il travaille comme si elle l'était).
Une couleur RGB est une combinaison de 255*255*255 soit 16 million de couleur.
Si dans ta config d'affichage Windows, tu n'es pas en 16M de couleur, l'API GetPixel() te donne la couleur la plus proche de la couleur réelle en fonction de ta config de drésolution écran.

Christophe

i4551 · Answer

merci &#224; tous , 
je pense que c'est Cristophe qui avais la solution au pb , l'un des postes ou je teste l'application &#233;tais  en 16 bits d'affichage couleur et non en 32 .( fait pour gagner du tem
 ps ) , je suis repass&#233; en 32 bit no pb 

pour jack  ci dessous le code (sans lesd&#233;clarations)


Set img = LoadPicture(faji)


imgdc = CreateCompatibleDC(GetDC(0)) 'cr&#233;e un Devide Context (DC)


SelectObject imgdc, img 'charge l'image ds le DC



 


Function dif(locdc, xc, yc)
couleur = GetPixel(locdc, xc, yc)
tabcoul(1) = Int(couleur / 65536)
tabcoul(2) = Int((couleur - (65536 * tabcoul(1))) / 256)
tabcoul(3) = couleur - ((tabcoul(1) * 65536) + (tabcoul(2) * 256))
dif = Maxp(tabcoul) - Minp(tabcoul)
End Function

Function coulrgb(locdc, xc, yc)


couleur = GetPixel(locdc, xc, yc)


tabcoul(1) = Int(couleur / 65536)


tabcoul(2) = Int((couleur - (65536 * tabcoul(1))) / 256)


tabcoul(3) = couleur - ((tabcoul(1) * 65536) + (tabcoul(2) * 256))


End Function

 Function Maxp(values()) As _
    Variant
Dim i As Integer
Dim max_value As Variant


    max_value = values(LBound(values))
    For i = LBound(values) + 1 To UBound(values)
        If max_value < values(i) Then max_value = values(i)
    Next i


    Maxp = max_value
End Function

' Return the smallest parameter value.
Function Minp(values()) As _
    Variant
Dim i As Integer
Dim min_value As Variant


    min_value = values(LBound(values))
    For i = LBound(values) + 1 To UBound(values)
        If min_value > values(i) Then min_value = values(i)
    Next i


    Minp = min_value
End Function
que du classique donc , les valeurs rgb sont charg&#233;es dans un tableau,  maxp et min sortent les valeurs extremes , ladiff&#233;rence sert a distinguer les points de vrai couleurs du fond plus ou moin blanc (dif <20 pixels)  et donc a reperer la feuille d'arbre photograpi&#233;e ou scann&#233;e sur le fond ensuite c'est le boul&#244;t d'excel de faire les calculs . 
tout cel&#224; ressemble un peu au magic wand  de photoshop

avec &#231;&#224; je traite une image en moins d'une 1/2  seconde ( 1200*1600 pixels) c'est pas mal 

and now , the show must go on 
kenavo

crenaud76 · Answer

Pense à mettre une réponse accepté quelque part ....

Christophe

i4551 · Answer

christophe ? 

comprends pas ce que tu veux dire c'est quoi une reponse accept&#233;e et poutquoi faire cel&#224; ? . c'est li&#233;e aux r&#232;gles du forum ?? 
autre chose ; 
quelqu'un  sait t'i lsi on peut et comment en vb conn&#226;itre   la config de couleur de windows , pour au minimu envoyer un message d'alerte et  eventuellement la  modifier via le programme . 
hlb

Valeurs anormales retournées par getpixel

7 réponses

Discussions similaires