Previsioni del lotto e lottologia
Interpretazione dei Sogni
Significato dei Nomi
Musica degli Spot
Ricette Semplici
Elenco Lavora con Noi
Matematica e Geometria
Fisica e Chimica
Ingegneria e Urbanistica
Hardware e Software
Listati Visual Basic .NET
Applicazioni Simple APPs
Schemi di Elettronica
Cerca su Romoletto Blog
Contatta Romoletto Blog
Come ottenere un’ immagine grayscale: ovvero convertire in scala di grigi un’immagine colori una semplice funzione in codice VB.NET
Introduzione
Può capitare che in alcune parti del nostro programma occorra ottenere per qualche motivo un’immagine grayscale. Ad esempio se stiamo implementando un elaboratore di immagini, sapere come trasformare un’immagine in scala di grigi, tramite codice vb.net è uno dei passi fondamentali. La funzione che ho implementato, girando qua e la sul web e rielaborando il tutto, che si occupa appunto di ottenere l’immagine grayscale è: IngAC_IMMAGINE_SCALAdiGRIGI (ByVal Immagine As Bitmap) As Bitmap.
Public Function IngAC_IMMAGINE_NEGATIVO(ByVal Immagine As Bitmap) As Bitmap
' Si crea la GrayScale_Matrix
Dim GrayScale_Matrix As Single()() = {
New Single() {0.299, 0.299, 0.299, 0, 0},
New Single() {0.587, 0.587, 0.587, 0, 0},
New Single() {0.114, 0.114, 0.114, 0, 0},
New Single() {0, 0, 0, 1, 0},
New Single() {0, 0, 0, 0, 1}}
' Si crea una copia dell'immagine di partenza
Dim bmp As New Bitmap(Immagine)
Dim imgattr As New ImageAttributes()
Dim rc As New Rectangle(0, 0, Immagine.Width, Immagine.Height)
Dim g As Graphics = Graphics.FromImage(Immagine)
Dim cm As New ColorMatrix(GrayScale_Matrix )
' Si associa la GrayScale_Matrix con una ImageAttributes
imgattr.SetColorMatrix(cm)
' Si applica la GrayScale_Matrix all'immagine
g.DrawImage(bmp, rc, 0, 0, Immagine.Width, Immagine.Height,
GraphicsUnit.Pixel, imgattr)
' Reset
g.Dispose()
Return Immagine ' Restituisce l'immagine modificata
End FunctionLa funzione immagine grayscale in VB.NET
La funzione IngAC_IMMAGINE_SCALAdiGRIGI ha come input:
- Immagine che è l’immagine orginale che può provenire sia da file che da picturebox o anche da altri oggetti image o bitmap.
In output si avrà un’immagine uguale all’originale ma modificata in scala di grigi, da usare come più ci aggrada.
Funzionamento di IngAC_IMMAGINE_SCALAdiGRIGI()
Il funzionamento è lineare; occorre innanzi tutto includere Imports System.Drawing.Imaging che permette di accedere alle funzionalità grafiche di vb.net e alle varie classi inerenti. Creata la matrice GrayScale_Matrix , per permettere una maggiore velocità di elaborazione rispetto ai classici cicli for pixel per pixel, si passa alla definizione dell’area da elaborare (tramite l’oggetto rectangle) e infine all’elaborazione vera e propria con g.DrawImage.
Link Utili:
Immagine grayscale – Codice VB.NET
Alcuni post della stessa categoria...
Link sponsorizzati inseriti nella pagina.
Random Post
PUBBLICITÀ
|
Disclaimer:
|
Copyright:
|
Precedente
MENU'
Successivo