Differenze tra le versioni di "Individuare il colore di un determinato pixel"
Da Gambas-it.org - Wikipedia.
(Nuova pagina: Per individuare il colore di un determinato pixel di un'immagine si dovrà utilizzare semplicemente il seguente codice: '''Public''' Sub Button1_Click() Dim i As New Image Dim n...) |
|||
Riga 14: | Riga 14: | ||
'''End''' | '''End''' | ||
Verrà restituito il numero decimale del colore del pixel, determinato dalle coordinate ''x'' ed ''y'' all'interno dell'immagine. | Verrà restituito il numero decimale del colore del pixel, determinato dalle coordinate ''x'' ed ''y'' all'interno dell'immagine. | ||
+ | |||
+ | |||
+ | ====Esempio pratico==== | ||
+ | Mostriamo un esempio nel quale, cliccando su un'immagine inserita in una ''PictureBox'', viene mostrato in una ''TextLabel'' il colore del pixel, e viene restituito in console il corrispondente numero: | ||
+ | '''Private''' i As New Image | ||
+ | '''Private''' nCol As Integer | ||
+ | |||
+ | |||
+ | '''Public''' Sub Form_Open() | ||
+ | |||
+ | Dim pc As Picture | ||
+ | |||
+ | i = i.Load("/home/ploppo/Scrivania/g.png") | ||
+ | |||
+ | pc = i.Picture | ||
+ | |||
+ | With PictureBox1 | ||
+ | .W = i.W | ||
+ | .H = i.H | ||
+ | .Picture = pc | ||
+ | End With | ||
+ | |||
+ | '''End''' | ||
+ | |||
+ | |||
+ | '''Public''' Sub PictureBox1_MouseDown() | ||
+ | |||
+ | With Mouse | ||
+ | nCol = i[.X, .Y] | ||
+ | End With | ||
+ | |||
+ | Print "Il numero del colore del pixel cliccato è: "; nCol | ||
+ | |||
+ | TextLabel1.Background = nCol | ||
+ | |||
+ | '''End''' |
Versione delle 11:14, 19 nov 2012
Per individuare il colore di un determinato pixel di un'immagine si dovrà utilizzare semplicemente il seguente codice:
Public Sub Button1_Click() Dim i As New Image Dim nCol As Integer i = i.Load("mia_immagine.xxx") ' Individueremo il pixel dell'immagine mediante le sue coordinate x ed y: nCol = i[x, y] Print "Il numero decimale del colore del pixel è: "; nCol End
Verrà restituito il numero decimale del colore del pixel, determinato dalle coordinate x ed y all'interno dell'immagine.
Esempio pratico
Mostriamo un esempio nel quale, cliccando su un'immagine inserita in una PictureBox, viene mostrato in una TextLabel il colore del pixel, e viene restituito in console il corrispondente numero: Private i As New Image
Private nCol As Integer Public Sub Form_Open() Dim pc As Picture i = i.Load("/home/ploppo/Scrivania/g.png") pc = i.Picture With PictureBox1 .W = i.W .H = i.H .Picture = pc End With End Public Sub PictureBox1_MouseDown() With Mouse nCol = i[.X, .Y] End With Print "Il numero del colore del pixel cliccato è: "; nCol TextLabel1.Background = nCol End