Differenze tra le versioni di "Convertire il formato RGBA di un colore nei corrispondenti valori decimale ed esadecimale"
Da Gambas-it.org - Wikipedia.
| Riga 1: | Riga 1: | ||
| − | Per convertire il formato RGBA di un colore nei corrispondenti valori decimale ed esadecimale, possiamo adottare il calcolo contenuto nel seguente codice: | + | Per convertire il formato RGBA di un colore, come previsto in Gambas <SUP>[[[#Note|Nota 1]]]</sup>, nei corrispondenti valori decimale ed esadecimale, possiamo adottare il calcolo contenuto nel seguente codice: |
'''Public''' Sub Main() | '''Public''' Sub Main() | ||
| Riga 16: | Riga 16: | ||
'''End''' | '''End''' | ||
| + | |||
| + | |||
| + | |||
| + | =Note= | ||
| + | [1] ATTENZIONE ! In Gambas il colore di formato RGBA è così composto: | ||
| + | A R G B | ||
| + | e il valore del canale Alfa della piena opacità é uguale a zero, mentre il valore della piena trasparenza è 255 ! | ||
Versione delle 10:39, 4 mag 2017
Per convertire il formato RGBA di un colore, come previsto in Gambas [Nota 1], nei corrispondenti valori decimale ed esadecimale, possiamo adottare il calcolo contenuto nel seguente codice:
Public Sub Main()
Dim b, g, r, a As Byte
Dim colore As Long
' Il valore del colore di formato RGBA va considerato secondo Gambas come segue: alfa, rosso, verde, blu.
a = 255
r = 100
g = 150
b = 255
colore = CLong(b Or (g * CInt(2 ^ 8)) Or (r * CInt(2 ^ 16)) Or (a * CInt(2 ^ 24)))
Print Val("&" & Hex(colore, 8) & "&"), Hex(colore, 8)
End
Note
[1] ATTENZIONE ! In Gambas il colore di formato RGBA è così composto:
A R G B
e il valore del canale Alfa della piena opacità é uguale a zero, mentre il valore della piena trasparenza è 255 !
