Differenze tra le versioni di "Convertire il formato RGBA di un colore nei corrispondenti valori decimale ed esadecimale"
Da Gambas-it.org - Wikipedia.
(Creata pagina con "Per convertire il formato RGBA di un colore nei corrispondenti valori decimale ed esadecimale, possiamo adottare il calcolo contenuto nel seguente codice: '''Public''' Sub Ma...") |
|||
| Riga 5: | Riga 5: | ||
Dim colore As Long | Dim colore As Long | ||
| + | <FONT Color=gray>' ''Il valore del colore di formato RGBA va considerato secondo Gambas come segue: <FONT Color=black>alfa</font>, <FONT Color=red>rosso</font>, <FONT Color=green>verde</font>, <FONT Color=blue>blu</font>.''</font> | ||
| + | a = 255 | ||
| + | <FONT Color=red>r</font> = 100 | ||
| + | <FONT Color=green>g</font> = 150 | ||
<FONT Color=blue>b</font> = 255 | <FONT Color=blue>b</font> = 255 | ||
| − | + | ||
| − | |||
| − | |||
| − | |||
colore = CLong(b Or (g * CInt(2 ^ 8)) Or (r * CInt(2 ^ 16)) Or (a * CInt(2 ^ 24))) | colore = CLong(b Or (g * CInt(2 ^ 8)) Or (r * CInt(2 ^ 16)) Or (a * CInt(2 ^ 24))) | ||
Versione delle 10:37, 4 mag 2017
Per convertire il formato RGBA di un colore 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
