Differenze tra le versioni di "Desaturare un colore"
Da Gambas-it.org - Wikipedia.
(Creata pagina con "Per desaturare un colore, ossia per ingrigirlo, può essere adottato il seguente codice: '''Public''' Sub Main() Dim r, g, b, a As Integer Dim colore As Long <FONT...") |
|||
| Riga 1: | Riga 1: | ||
Per desaturare un colore, ossia per ingrigirlo, può essere adottato il seguente codice: | Per desaturare un colore, ossia per ingrigirlo, può essere adottato il seguente codice: | ||
| − | + | Public Sub Main() | |
Dim r, g, b, a As Integer | Dim r, g, b, a As Integer | ||
| Riga 21: | Riga 21: | ||
Print Val("&" & Hex(colore, 6) & "&"), Hex(colore, 6) | Print Val("&" & Hex(colore, 6) & "&"), Hex(colore, 6) | ||
| − | + | End | |
Versione attuale delle 14:47, 3 lug 2024
Per desaturare un colore, ossia per ingrigirlo, può essere adottato il seguente codice:
Public Sub Main()
Dim r, g, b, a As Integer
Dim colore As Long
' Desaturiamo ad esempio il colore "giallo":
r = 255
g = 255
b = 0
a = 255
colore = (r * 11 + g * 16 + b * 5) / 32
Print colore
r = colore
g = colore
b = colore
colore = CLong(b Or (g * CInt(2 ^ 8)) Or (r * CInt(2 ^ 16)) Or (a * CInt(2 ^ 24)))
Print Val("&" & Hex(colore, 6) & "&"), Hex(colore, 6)
End
