Étude des propriétés hydriques et des mécanismes d ... - sacre

Annexes
For i = 1 To (InfoBMP.biWidth * 3) Step 3
Get #1, IndexLecture + i, Pix
Image(i, Indexy) = Pix.Rouge
Image(i + 1, Indexy) = Pix.Vert
Image(i + 2, Indexy) = Pix.Bleu
Next i
If Indexy = 1 Then
Exit Do
Else
Indexy = Indexy - 1
End If
IndexLecture = IndexLecture + (InfoBMP.biWidth * 3) + (InfoBMP.biWidth Mod 4) 'on considere
seulement le 24 Bit > 3*octet
Loop
indexligne = 1
total = 0
moyenneligne = 0
nbpix = Cells(2, 6)
nbpixvu = 0
For j = 1 To InfoBMP.biHeight
For i = 1 To LongueurLigne Step 3
If SeuillageBinaire(Image(i, j), ValSeuilR) = 255 And _
SeuillageBinaire(Image(i + 1, j), ValSeuilV) = 255 And _
SeuillageBinaire(Image(i + 2, j), ValSeuilB) = 255 Then
'Cells(indexligne, 1) = (InfoBMP.biWidth * 3) + 1 - i
'Cells(indexligne, 2) = j
'indexligne = indexligne + 1
total = total + 1
End If
Next i
nbpixvu = nbpixvu + 1
If nbpixvu = nbpix Then
Cells(indexligne, 1) = total
Cells(indexligne, 2) = total / nbpix
'Cells(indexligne, 2) = j
indexligne = indexligne + 1
total = 0
nbpixvu = 0
End If
Next j
Close #1
End If
End Sub
Kévin Beck (2006) 225