analyse colorimetrique d'une image

analyse colorimetrique d'une image - VB/VBA/VBS - Programmation

Marsh Posté le 05-02-2014 à 14:38:39    

bonjour,
 
je cherche comment faire le programme en VB express
pour analyser les couleurs d'une image jpeg
 
en gros il me faudrait surtout le % de jaune( tout "jaunes" confondus)  et le % de noir
d'avance merci pour votre aide

Reply

Marsh Posté le 05-02-2014 à 14:38:39   

Reply

Marsh Posté le 05-02-2014 à 16:39:05    

Les images jpeg sont compressées, alors on ne peut pas faire de statistique en examinant le fichier tel quel. Il faut d'abord le décompresser en le chargeant en mémoire, et ensuite, il doit être possible de récupérer la valeur RGB de chaque pixel.

Reply

Marsh Posté le 05-02-2014 à 19:33:50    

merci, olivthill, tu s'aurais comment faire ?

Reply

Marsh Posté le 05-02-2014 à 22:17:31    

Voici une solution qui marche probablement :


Imports System.Drawing
 
Public Class Form1
  Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
  PictureBox1.Image = Image.FromFile("c:\Image\Toto.jpg" )
 
  Dim bmp As New Drawing.Bitmap(PictureBox1.Image)
  Dim x As Integer
  Dim y As Integer
  Dim clr As Integer
  For y = 0 To bmp.Height
     For x = 0 To bmp.Width
        With bmp.GetPixel(x, y)
          clr = .R & .G & .B
          MessageBox.show(.R)
          MessageBox.show(.G)
          MessageBox.show(.B)
          MessageBox.Show(clr)
        End With
     Next x
  Next y
 
End Sub
End Class

Reply

Marsh Posté le 06-02-2014 à 20:13:33    

merci je vais essayer cela :)

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed