traitement Image

traitement Image - VB/VBA/VBS - Programmation

Marsh Posté le 09-11-2010 à 23:17:11    

Bonsoir,
 
je viens vous poser une petite question.
Je veux faire un traitement d'image. Je passe mon image depuis une picture1, dans une matrice, puis, après modification (passage en niveau de gris) , je veux vérifier le travail en réimportant la matrice dans une image.
Mais j'ai pas mal de soucis.  
Cela me renvoie l'erreur '9' dépassement de la plage, lors de l'attribution  

Code :
  1. Matrice2(i, j).Blue = Gris(Matrice(i, j))


 
 
Voyez une solution à ce problème?  
Je sent bien qu'il y a une problème au niveau de ma matrice 2... faut t'il faire un redim? pour la mettre à la même taille que la matrice 1.
Ensuite, est ce que mettre la fonction "Gris" comme byte est acceptable?
 
Je bosse sous VB6
Merci d'avance
 
Voici mon code  
 
 
 

Code :
  1. Option Explicit
  2. Option Base 1
  4. Private Type BITMAP
  5.     bmType As Long
  6.     bmWidth As Long
  7.     bmHeight As Long
  8.     bmWidthBytes As Long
  9.     bmPlanes As Integer
  10.     bmBitsPixel As Integer
  11.     bmBits As Long
  12. End Type
  14. Private Type Pixel
  15.     Red As Byte
  16.     Green As Byte
  17.     Blue As Byte
  18. End Type
  20. Private Declare Function GetObject Lib "gdi32" Alias "GetObjectA" (ByVal hObject As Long, ByVal nCount As Long, lpObject As Any) As Long
  21. Private Declare Function GetBitmapBits Lib "gdi32" (ByVal hBitmap As Long, ByVal dwCount As Long, lpBits As Any) As Long
  22. Private Declare Function SetBitmapBits Lib "gdi32" (ByVal hBitmap As Long, ByVal dwCount As Long, lpBits As Any) As Long
  24. Dim Matrice() As Pixel
  25. Dim Matrice2() As Pixel
  26. Dim Rvb As Long
  27. Dim NHeight, MWidth As Integer
  29. 'renvoi le niveau de gris du Rvb
  30. Private Function Gris(bloc As Pixel) As Long
  31.   Dim Moyenne As Long
  32.   Moyenne = (bloc.Red + (bloc.Green / 256) + (bloc.Blue / 65536)) / 3
  33.   Gris = RGB(Moyenne, Moyenne, Moyenne)
  34. End Function
  36. '***************************************************************************
  38. 'Procedure qui copie une image PictureBox vers une matrice de pixels
  39. Private Sub MatrixFromImage(Picture As PictureBox, Matrice() As Pixel)
  40.    
  41.     Dim PicBits() As Byte, PicInfo As BITMAP
  42.     Dim Size As Long
  43.     Dim i, j As Integer
  44.     Dim Z As Long
  45.    
  46.     GetObject Picture.Image, Len(PicInfo), PicInfo
  47.    
  48.     Size = PicInfo.bmWidth * PicInfo.bmBitsPixel * PicInfo.bmHeight / 8
  49.    
  50.     ReDim PicBits(Size) As Byte
  51.     ReDim Matrice(PicInfo.bmHeight, PicInfo.bmWidth) As Pixel
  52.    
  53.    
  54.     GetBitmapBits Picture.Image, Size, PicBits(1)
  55.    
  56.     For i = 1 To PicInfo.bmHeight
  57.         For j = 1 To PicInfo.bmWidth
  58.             Z = (i - 1) * PicInfo.bmWidth * 4 + (j - 1) * 4 + 1
  59.             Matrice(i, j).Blue = PicBits(Z)
  60.             Matrice(i, j).Green = PicBits(Z + 1)
  61.             Matrice(i, j).Red = PicBits(Z + 2)
  62.         Next j
  63.     Next i
  64.    
  65.     NHeight = PicInfo.bmHeight
  66.     MWidth = PicInfo.bmWidth
  67.    
  68. End Sub
  70. Private Sub ImageFromMatrix(Picture As PictureBox, Matrice() As Pixel)
  71.     Dim PicBits() As Byte
  72.     Dim i, j As Integer
  73.     Dim Z As Long
  74.    
  75.     ReDim PicBits(UBound(Matrice(), 1) * UBound(Matrice(), 2) * 4)
  76.    
  77.    
  78.    
  79.     For i = 1 To UBound(Matrice(), 1)
  80.         For j = 1 To UBound(Matrice(), 2)
  81.             Z = Z + 1
  82.            
  83.             PicBits(Z) = Matrice(i, j).Blue
  84.             PicBits(Z + 1) = Matrice(i, j).Green
  85.             PicBits(Z + 2) = Matrice(i, j).Red
  86.             PicBits(Z + 3) = 0
  87.            
  88.             Z = Z + 3
  89.         Next j
  90.     Next i
  91.    
  92.     SetBitmapBits Picture.Image, UBound(PicBits), PicBits(1)
  93.     Picture.Refresh
  94. End Sub
  97. Private Sub Command1_Click()
  99. Dim chemin As String
  101. chemin = App.Path
  102. If Right(chemin, 1) <> "\" Then
  103. chemin = chemin & "\" & "Images-test\"
  104. End If
  105. chemin = chemin & "test-niveau-de-gris.jpg"
  106. Picture1.Picture = LoadPicture(chemin)
  109. End Sub
  112. Private Sub Command2_Click()
  115.     Dim i, j As Integer
  116.     Call MatrixFromImage(Picture1, Matrice())
  117.     Picture2.Width = Picture1.Width
  118.     Picture2.Height = Picture1.Height
  119.    
  120.     For i = 1 To NHeight
  121.       For j = 1 To MWidth
  122.         Matrice2(i, j).Blue = Gris(Matrice(i, j))
  123.         Matrice2(i, j).Green = Gris(Matrice(i, j))
  124.         Matrice2(i, j).Red = Gris(Matrice(i, j))
  125.        Next j
  126.      Next i
  127.    
  128.      Call ImageFromMatrix(Picture2, Matrice2())
  129.    
  130.  
  131.      
  132. End Sub

Message cité 1 fois
Message édité par lio-12 le 09-11-2010 à 23:19:30
Reply

Marsh Posté le 09-11-2010 à 23:17:11   

Reply

Marsh Posté le 10-11-2010 à 17:15:45    

personne :( ?

Reply

Marsh Posté le 10-11-2010 à 19:06:28    

lio-12 a écrit :


Code :
  1. 'renvoi le niveau de gris du Rvb
  2. Private Function Gris(bloc As Pixel) As Long
  3.   Dim Moyenne As Long
  4.   Moyenne = (bloc.Red + (bloc.Green / 256) + (bloc.Blue / 65536)) / 3
  5.   Gris = RGB(Moyenne, Moyenne, Moyenne)
  6. End Function



Sans vraiment m'y connaitre en vb je dirais que ta fonction Gris() renvoie un pixel entier et non juste une composant blue.
Tu devrais renvoyer 'moyenne' au lieu de 'RVB(Moyenne, Moyenne,Moyenne) ?


---------------
Seul Google le sait...
Reply

Marsh Posté le 11-11-2010 à 00:18:42    

oui excuse moi c'est une erreur je l'avais pas modifié sur le post ;)

Reply

Marsh Posté le 11-11-2010 à 22:34:36    

Toujours pas?

Reply

Sujets relatifs:

Leave a Replay

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