Relever des points sur une image

Bonsoir,

Je cherche à relever les coordonnées de points dans une image qui serait visualisée sur une grille Excel.
Est-ce faisable ?

Nota : J'ai trouvé la méthode proposée par SilkyRoad, elle ne me convient pas car l'image doit être mise dans un graphique.
- l'image est alors compactée
- l'image n'est pas collée au bord du graphique.

Merci de vos conseils.

PPz

bonjour

avec les apis tu peux determiner la position de la souris au niveau de l'image
et meme determiner le pixel( couleur et coordonéés)

tu a ca dans la faq
au plaisir

Bonsoir,

Est-ce clGdiPlus ?

PPz

Salut
En fait Patrick te proposer d'utiliser les API, les API se sont des outils "de base" de Windows on va dire.
Il est possible avec certaines d'entre elles de contrôler la couleur des pixels, pas forcement en fonction de la position de la souris, mais en tout point de l’écran.
Ceci dit, il serait intéressant je pense de nous mettre un fichier exemple, pour se faire une idée des difficultés.
Je vais regarder ce qu'offre clGDIPlus.

[Edit]
A en voir le tuto de Arkham46 (son codeur) sur clGDIPlus, cette classe intègre les fonctions GetPixel et SetPixel, qui permettent respectivement de contrôler et de définir la couleur d'un pixel. Reste à voire ce que tu souhaites faire.
[/Edit]

++
Qwaz

rebonsoir

un exemple parmi tant d'autre en piecejointe

au plaisir

Bonsoir,

Avec un peu de retard voici un exemple de photo ().
C'est une photo du ciel et je souhaite pointer les positions des étoiles.
La photo est plus grande que l'écran 3456 x 2304, il faut donc récupérer la position du curseur sur l'écran et la translation de l'écran.

La solution de Patrick fonctionne parfaitement pour récupérer la position de la souris sur un écran de PC. Elle ne marche pas avec un Mac., elle ne marche pas si l'image déborde de l'écran.

A+

PPz

Salut
Faut déjà voir si tu as un grand nombre de photo a faire, ou si du manuel te suffit.
Si je devais faire un truc du style, je commencerais pas retravailler ma photo à l'aide d'un code. Je regarderais la valeur de luminosité de chaque pixels de l'image et je trancherais les contrastes. Si pixel claire (faut voir pour déterminer un seuil) pixel en blanc, si pixel sombre, pixel en noir. Ca permettrait de déparasiter un peu l'image.
Les outil de clGDIPlus devrait t'aider.
++
Qwaz

Bonjour,

Je ne cherche pas à avoir tous les points blancs de l'image, mais à avoir les coordonnées X et Y des points sélectionnés à la main.

Merci

PPz

Salut
Si c'est juste ça pas la peine de faire un code compliqué.
Voila qui devrait suffire, je te laisse adapter pour que les valeurs se renseignent dans la feuille excel, si besoin demande.
++
Qwaz

Bonjour,

Je commence à exploiter le fichier, cela va m'aider.
En lisant l'aide en ligne, j'ai lu que les informations étaient exprimées en point.
Mon image a la dimension de 2593,44995 x 1729,45007 points.
Alors que je devrait trouver 3456 x 2304 pixels.

Puis-je considérer qu'il y a un rapport 1,332 entre les pixels et les points ?

PPz

Salut
Quel intérêt de convertir en pixel? si tu veux uniquement faire un suivi, il suffit d'avoir une base commune entre chaque mesures non? ici se serait le point et non le pixel. Enfin je dis ça je dis rien ;)

Il me semble qu'il y a une subtilité en fonction de la résolution de l'image (le nombre de point par pixel, ppp), mais je remet pas le doigt dessus. Si ton image a toujours le même PPP (96 pour ton image) le ratio est en effet de 1.333, plus exactement 1/0.75, donc ca donne ça
[Edit] Pour éviter d'avoir des décimales parasites lors de l'utilisation des scrolls, j'ai rajouté un peu de code dans MouseMove, il faudrait peut être arrondir également les valeur contenu dans les CStr car parfois des décimales apparaissent...[/Edit]

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18

Private Sub Image1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single) 'On ajuste pour tomber sur un pixel rond TmpPix = Round(ScrollTop * (1 / 0.75), 0) ScrollTop = TmpPix * 0.75 TmpPix = Round(ScrollLeft * (1 / 0.75), 0) ScrollLeft = TmpPix * 0.75 'juste pourfaire suivre le textbox TextBox1.Top = ScrollTop TextBox1.Left = ScrollLeft   End Sub   Private Sub Image1_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)   'On calcul la position sur l'image   TextBox1.Text = CStr((X + ScrollLeft) * (1 / 0.75)) + " / " + CStr((Y + ScrollTop) * (1 / 0.75)) End Sub

---

++
Qwaz

Bonsoir,

Merci de ces compléments.
Chez moi pour retomber sur mes pieds et trouver les bonnes coordonnées dans les 4 coins de l'image j'ai du supprimer l'addition de ScrollLeft et ScrollTop, la formule que j'utilise est

Code:

---

TextBox1.Text = CStr(X * (1 / 0.75)) + " / " + CStr(Y * (1 / 0.75))

---

Bon dimanche

PPz

Salut
En effet c'est une erreur de ma part, j’étais parti a l'origine avec l'idée de mettre une picturebox et de la faire se déplacer avec un scrollbar. Vu que j'ai opté pour l'image directement dans le UserForm, il est en effet faux de mettre les ScrollLeft et Top.
Par contre pour éviter les nombres à virgule (c'est gênant pour des pixels)

Code:

---

TextBox1.Text = CStr(Round(X * (1 / 0.75), 0)) + " / " + CStr(Round(Y * (1 / 0.75), 0))

---

++
Qwaz

une petite intrusion a*1/b=a/b;)

Code:

---

TextBox1.Text = Round(X / 0.75, 0) & " / " & Round(y / 0.75, 0)

---

Lol... en effet, j'en oubli les bases :aie:, :ccool: