Avatar billede vbghost Nybegynder
15. september 2000 - 23:23 Der er 6 kommentarer og
1 løsning

fra hex til rgb (hurtigt!)

er der ikke nogen der lige har en kode til at få hex (dvs. FF88FF) til RGB værdier...

helst ikke noget med do og loop (det kan jeg sådan set selv lave), men er der ikke en der ligger med en god kode... ;)
Avatar billede powell Nybegynder
16. september 2000 - 09:57 #1
Jeg har ikke koden men ved hvordan det skal gøres...

RGB værdierne er decimal værdi og den værdi du har er sammensat af de tre decimalværdier i hex.

(FF88FF) er derfor R = FF G = 88 B = FF, nu skal du bare konvertere talene fra hex til decimal.

hex er et 16-tals system og det vil sige at FF er lig med 255. Det skulle være lige til at gå til.
Avatar billede vbghost Nybegynder
16. september 2000 - 17:56 #2
powell: hvis jeg ikke vidste det ville jeg nok spørge!...???
Avatar billede powell Nybegynder
18. september 2000 - 08:23 #3
Mit svar, hvar ikke for at nedværdige din viden, men blot for evt. at kunne hjælpe andre der engang ville søge på dit spørgsmål, som ikke ved en kæphest omkring det.
Avatar billede privaten Nybegynder
18. september 2000 - 08:54 #4
\'-----------------------------------------------------------------
\'PURPOSE: Returns red/green/blue color from RGB color value.
\'ACCEPTS: RGB color value as Long, and component number as integer
\'        that represents the component color to return (1=red,
\'        2=green, 3=blue).
\'RETURNS: The intensity of the color component (0 - 255) as an
\'        integer or -1 indicating that an argument was invalid.
\'-----------------------------------------------------------------
Function GetRGB (RGBval As Long, Num As Integer) As Integer
\' Check if Num, RGBval are valid.
If Num > 0 And Num < 4 And RGBval > -1 And RGBval < 16777216 Then
  GetRGB = RGBval \\ 256 ^ (Num - 1) And 255
Else
  \' Return True (-1) if Num or RGBval are invalid.
  GetRGB = True
End If
End Function
Avatar billede privaten Nybegynder
18. september 2000 - 08:55 #5
fx:

    MsgBox GetRGB(16384, 1)
    MsgBox GetRGB(16384, 2)
    MsgBox GetRGB(16384, 3)
Giver 3 messageboxe, med værdierne 0, 64 og 0 hvilker svarer til en \'meget mørkegrøn\' farve
Avatar billede vbghost Nybegynder
18. september 2000 - 19:17 #6
...??? Fatter man noget... ??? Prøv lige at læse spørgsmålen lige en gang til!!!????

HEX OG RGB ER IKKE LIGE DET SAMMEN...

Og for det andet har jeg selv lavet functionen...

f.eks.
hvis det er
FF=15*16+15
8F=8*16+15
FA=15*16+10

osv ;)

Avatar billede vbghost Nybegynder
18. september 2000 - 19:19 #7
fint ;)
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Kurser inden for grundlæggende programmering

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester

Seneste spørgsmål Seneste aktivitet
I går 21:00 Libre Office Impress Af Frank i Andre styresystemer
I går 11:47 VB script Af Jenshentze i Word
I går 11:21 Popup ved opstart Af mort1 i Windows
04/0918:50 Slet lokal konto Af ErikHg i Windows
04/0916:05 Ændre tal i en celle Af xvid i Excel