Strona: [  << <   1   > >>  ]  z  1     
Autor Temat: Kolor w systemie szesnastkowym
mikmas
From Łódź Stadt




Typ: neutral
Postów: 772
Zarejestrowany: Apr 2003
Kolor w systemie szesnastkowym

Kolor w systemie szesnastkowym to chyba RGB?  Potrzebuje informacji na temat koloru RGB - potrzebne mi to do strony netowej, aby zamienić Kolor występujący w VB na kolor do stron internetowych. Czy ktoś rozumie o co mi biega?


_____________________________________________
4C;65;70;69;65;6A;20;62;79;9C;20;73;69;EA;20;
62;61;72;64;7A;69;65;6A;20;73;6B;6F;6E;63;65;
6E;74;72;6F;77;61;B3;20;6E;61;20;6F;64;70;6F;
77;69;65;64;7A;69;2C;20;61;20;6E;69;65;20;6E;
61;20;72;6F;7A;73;7A;79;66;72;6F;77;79;77;61;
6E;69;75;20;3A;50

12-09-2003 13:12
Pokaż profil mikmas  Wyślij email do mikmas   Odwiedź stronę mikmas       3632553
kicaj




Typ: neutral
Postów: 271
Zarejestrowany: Aug 2003

chodzi ci o to aby zamienic np. rgb(0,0,0)=> #000000 cos takiego w html'u ?

Jak tak to:
kolor = "#" & Hex(RGB(czerwony, zielony, niebieski))

12-09-2003 14:23
Pokaż profil kicaj  Wyślij email do kicaj        3914568
m-a-x



Typ: neutral
Postów: 366
Zarejestrowany: Jan 2003

Mała poprawka: sposób kicaja nie będzie tak do końca działał. Musisz to co uzyskasz odwrócić tzn np

BA6C55 --> 556CBA

Chodzi tu o to że po wywołaniu tak zadeklarowanych funkcji wynik masz podany w ten sposób: BBRRGG (B - blue, R - red, G - green) a przeglądarki odczytują to oczywiście w sytstemie RGB a nie BGR.

Inaczej: możesz to zrobić w ten sposób (i nie bawić się w żadne odwracanie):

kolor = "#" & hex(czerwony) & hex(zielony) & hex(niebieski)

Zapomniałem dodać: (bardzo ważna rzecz) wynik funkcji hex musi być dwucyfrowy tzn gdy funkcja zwróci np 5 to musisz przed piątke dodać 0 !

[Post edytowany dnia 12-09-2003 19:23 przez m-a-x]


_____________________________________________

Problemem zazwyczaj nie jest brak osób znających odpowiedź a zadanie właściwego pytania!

12-09-2003 19:20
Pokaż profil m-a-x  Wyślij email do m-a-x   
Chudy
[TLHW]Wiktor



Typ: moderator
Postów: 574
Zarejestrowany: Aug 2002

Kiedyś zrobiłem program co to właśnie robił. Jak chcesz projekt to ci moge podesłać.


_____________________________________________
Projekt "Thunder Cannons" nadchodzi...

12-09-2003 20:41
Pokaż profil Chudy  Wyślij email do Chudy   Odwiedź stronę Chudy       1220895
mikmas
From Łódź Stadt




Typ: neutral
Postów: 772
Zarejestrowany: Apr 2003

Dzięx Chudy - jakbyś mógł to sendnij na . Tylko, że nie wiem, czy aby napewno zrozumieliście o co mi chodzi: chodzi mi o zamienienie kolor w VB na RGB. Odniosłem takie wrażenie, ale nie wiem czy uzasadnione .


_____________________________________________
4C;65;70;69;65;6A;20;62;79;9C;20;73;69;EA;20;
62;61;72;64;7A;69;65;6A;20;73;6B;6F;6E;63;65;
6E;74;72;6F;77;61;B3;20;6E;61;20;6F;64;70;6F;
77;69;65;64;7A;69;2C;20;61;20;6E;69;65;20;6E;
61;20;72;6F;7A;73;7A;79;66;72;6F;77;79;77;61;
6E;69;75;20;3A;50

17-09-2003 17:28
Pokaż profil mikmas  Wyślij email do mikmas   Odwiedź stronę mikmas       3632553
m-a-x



Typ: neutral
Postów: 366
Zarejestrowany: Jan 2003

Grrr.... ...hehehe.

Tu masz fragment kodu mojego programu - funkcje zamieniającą kolor VB na kolor używnay na stronkach HTML:

Public Function ustawKolorHTML(ByVal kOlorek As Long) As String
kolor = Hex(kOlorek)
Select Case Len(kolor)
    Case 6
        kolor = kolor
    Case 5
        kolor = "0" & kolor
    Case 4
        kolor = "00" & kolor
    Case 3
        kolor = "000" & kolor
    Case 2
        kolor = "0000" & kolor
    Case 1
        kolor = "00000" & kolor
End Select
kolor = Mid(kolor, 5, 2) & Mid(kolor, 3, 2) & Left(kolor, 2)
ustawKolorHTML = kolor
End Function


Zapomniałem dodać: jeszce przed tym kolorkiem musi być znak "#" wiec: kolor = "#" & kolor

[Post edytowany dnia 17-09-2003 17:51 przez m-a-x]


_____________________________________________

Problemem zazwyczaj nie jest brak osób znających odpowiedź a zadanie właściwego pytania!

17-09-2003 17:48
Pokaż profil m-a-x  Wyślij email do m-a-x   
kicaj




Typ: neutral
Postów: 271
Zarejestrowany: Aug 2003

aha wiec chodzi ci oto ze chcesz zamienic &h123456 (lub 122432) na rgb(r,g,b) to nie wiem jak to zrobic ale gdzie widzialem taki program co to robil jak go znajde to ci go przesle

17-09-2003 18:29
Pokaż profil kicaj  Wyślij email do kicaj        3914568
Chudy
[TLHW]Wiktor



Typ: moderator
Postów: 574
Zarejestrowany: Aug 2002

A więc o to chodzi ?!? Spójrz tutaj:
http://www.coderscity.pl/no-vb4all/tips/tip19.htm


_____________________________________________
Projekt "Thunder Cannons" nadchodzi...

17-09-2003 18:41
Pokaż profil Chudy  Wyślij email do Chudy   Odwiedź stronę Chudy       1220895
kicaj




Typ: neutral
Postów: 271
Zarejestrowany: Aug 2003

c =kolor (hex lub int)
Do While Len(c) < 6
c = "0" & c
Loop
b = Int("&h" & Mid(c, 1, 2))
g = Int("&h" & Mid(c, 3, 2))
r = Int("&h" & Mid(c, 5, 2))
Picture3.BackColor = RGB(r, g, b)


a wie ktos jak przeksztalcic rgb na cmyk
chyba ze ktos potrafi rozjasniac i sciemnac obrazek

17-09-2003 21:30
Pokaż profil kicaj  Wyślij email do kicaj        3914568
m-a-x



Typ: neutral
Postów: 366
Zarejestrowany: Jan 2003

To wkońcu napisz o co tak naprawde Ci chodziło. Jeżeli o poszczególne kolory R, G, B to po co w to mieszałeś jakiś HTML jeżeli nie to pierwsza odpowiedź powinna Ci wystarczyć i pozostałe są nie potrzebne


_____________________________________________

Problemem zazwyczaj nie jest brak osób znających odpowiedź a zadanie właściwego pytania!

17-09-2003 22:23
Pokaż profil m-a-x  Wyślij email do m-a-x   
mikmas
From Łódź Stadt




Typ: neutral
Postów: 772
Zarejestrowany: Apr 2003

Dziex wszystkim ! MAX: Masz rację, ale nie jestem the beściak w HTML i nie wiedziałem czy aby napewno RGB jest używany na stronach HTML


_____________________________________________
4C;65;70;69;65;6A;20;62;79;9C;20;73;69;EA;20;
62;61;72;64;7A;69;65;6A;20;73;6B;6F;6E;63;65;
6E;74;72;6F;77;61;B3;20;6E;61;20;6F;64;70;6F;
77;69;65;64;7A;69;2C;20;61;20;6E;69;65;20;6E;
61;20;72;6F;7A;73;7A;79;66;72;6F;77;79;77;61;
6E;69;75;20;3A;50

18-09-2003 14:29
Pokaż profil mikmas  Wyślij email do mikmas   Odwiedź stronę mikmas       3632553
Wszystkich odpowiedzi: 10 :: Maxymalnie na stronę: 20
Strona: [  << <   1   > >>  ]  z  1