Differenze tra le versioni di "Individuare il colore di un determinato pixel"
Da Gambas-it.org - Wikipedia.
Riga 2: | Riga 2: | ||
'''Public''' Sub Button1_Click() | '''Public''' Sub Button1_Click() | ||
− | Dim | + | Dim im As Image |
Dim nCol As Integer | Dim nCol As Integer | ||
− | + | im = Image.Load("<FONT color=gray>''/percorso/del/file/immagine''</font>") | |
− | <FONT color=gray>' ''Individueremo il pixel dell'immagine mediante le sue coordinate x ed y:''</font> | + | <FONT color=gray>' ''Individueremo il pixel dell'immagine mediante le sue coordinate x ed y (che ovviamente dovranno essere specificate):''</font> |
− | nCol = | + | nCol = im<FONT color=#B22222>[''x'', ''y'']</font> |
− | Print "Il numero decimale del colore del pixel è: "; nCol | + | Print "Il numero decimale del colore del pixel è: "; nCol, "&h"; Hex(nCol) |
'''End''' | '''End''' | ||
Riga 18: | Riga 18: | ||
====Individuare il colore di un pixel di un'immagine cliccandoci sopra con il mouse==== | ====Individuare il colore di un pixel di un'immagine cliccandoci sopra con il mouse==== | ||
Mostriamo un esempio nel quale, cliccando su un'immagine inserita in una ''PictureBox'', viene mostrato in una ''TextLabel'' il colore del pixel, nonché in console il corrispondente numero: | Mostriamo un esempio nel quale, cliccando su un'immagine inserita in una ''PictureBox'', viene mostrato in una ''TextLabel'' il colore del pixel, nonché in console il corrispondente numero: | ||
− | + | Private im As Image | |
− | + | ||
− | |||
'''Public''' Sub Form_Open() | '''Public''' Sub Form_Open() | ||
Riga 27: | Riga 26: | ||
<FONT color=gray>' ''Carichiamo l'immagine in una variabile di tipo "Image"...''</font> | <FONT color=gray>' ''Carichiamo l'immagine in una variabile di tipo "Image"...''</font> | ||
− | + | im = Image.Load("<FONT color=gray>''/percorso/del/file/immagine''</font>") | |
<FONT color=gray>' ''...e la convertiamo in una "Picture":''</font> | <FONT color=gray>' ''...e la convertiamo in una "Picture":''</font> | ||
− | pc = | + | pc = im.Picture |
<FONT color=gray>' ''Rendiamo la "PictureBox" delle medesime dimensioni dell'immagine caricata:''</font> | <FONT color=gray>' ''Rendiamo la "PictureBox" delle medesime dimensioni dell'immagine caricata:''</font> | ||
With PictureBox1 | With PictureBox1 | ||
− | .W = | + | .W = im.W |
− | .H = | + | .H = im.H |
<FONT color=gray>' ''Quindi carichiamo l'immagine, contenuta nella variabile di tipo "Picture", nella "PictureBox":''</font> | <FONT color=gray>' ''Quindi carichiamo l'immagine, contenuta nella variabile di tipo "Picture", nella "PictureBox":''</font> | ||
.Picture = pc | .Picture = pc | ||
Riga 44: | Riga 43: | ||
'''Public''' Sub PictureBox1_MouseDown() | '''Public''' Sub PictureBox1_MouseDown() | ||
+ | |||
+ | Dim nCol As Integer | ||
<FONT color=gray>' ''Individuiamo le coordinate x ed y del puntatore del mouse, quando clicchiamo nella "PictureBox" sull'immagine:''</font> | <FONT color=gray>' ''Individuiamo le coordinate x ed y del puntatore del mouse, quando clicchiamo nella "PictureBox" sull'immagine:''</font> |
Versione delle 09:15, 14 ago 2016
Per individuare il colore di un determinato pixel di un'immagine si dovrà utilizzare semplicemente il seguente codice:
Public Sub Button1_Click() Dim im As Image Dim nCol As Integer im = Image.Load("/percorso/del/file/immagine") ' Individueremo il pixel dell'immagine mediante le sue coordinate x ed y (che ovviamente dovranno essere specificate): nCol = im[x, y] Print "Il numero decimale del colore del pixel è: "; nCol, "&h"; Hex(nCol) End
Verrà restituito il numero decimale del colore del pixel, determinato dalle coordinate x ed y all'interno dell'immagine.
Individuare il colore di un pixel di un'immagine cliccandoci sopra con il mouse
Mostriamo un esempio nel quale, cliccando su un'immagine inserita in una PictureBox, viene mostrato in una TextLabel il colore del pixel, nonché in console il corrispondente numero:
Private im As Image Public Sub Form_Open() Dim pc As Picture ' Carichiamo l'immagine in una variabile di tipo "Image"... im = Image.Load("/percorso/del/file/immagine") ' ...e la convertiamo in una "Picture": pc = im.Picture ' Rendiamo la "PictureBox" delle medesime dimensioni dell'immagine caricata: With PictureBox1 .W = im.W .H = im.H ' Quindi carichiamo l'immagine, contenuta nella variabile di tipo "Picture", nella "PictureBox": .Picture = pc End With End Public Sub PictureBox1_MouseDown() Dim nCol As Integer ' Individuiamo le coordinate x ed y del puntatore del mouse, quando clicchiamo nella "PictureBox" sull'immagine: With Mouse nCol = i[.X, .Y] End With ' Quindi otteniamo il numero del colore del pixel cliccato con il mouse... Print "Il numero del colore del pixel cliccato è: "; nCol, "&h"; Hex(nCol) ' ...nonché mostriamo il suo colore nella "TextLabel" posta sul Form: TextLabel1.Background = nCol End