RENK KODLARI

RENK KODLARI

Bu çalışmamda Excel’deki 56 ve 256^3  renk kodları ve simülasyonları verilmiştir.

Renk indeksini bulmak için aşağıdaki KTF (Kullanıcı Tanımlı Fonksiyon) kullanılır.  Bu Kodlar 56 renk için işlem görür.

Function Renki(aln As Range, Optional sy As Boolean = False) As Integer

Application.Volatile True

If sy = True Then

    Renki = aln(1, 1).Font.ColorIndex

Else

    Renki = aln(1, 1).Interior.ColorIndex

End If

End Function

Sözdizimi Örnek:

DOLGU RENGİ İÇİN

=Renki(A1)

=Renk(A1;)

=Renki(A1;0)

=Renki(A1;FALSE)

FONT REGİ İÇİN

=Renki(A1;1)

=Renki(A1;TRUE)

RED – GREEN – BLUE RGB RENK SİSTEMİ

 RGB RENK SİSTEMİ,  Kırmızı – Red, Yeşil –Green ve Mavi – Blue renklerinin karışımından oluşur. Buna ksaca RGB denir.

 RGB‘nin her bileşeni  8 bit kullanır. Her bileşen tamsayı olarak 0’dan 255’e kadar değer alır.

Buna göre,  2^8*2^8*2^8=2^24=256*256*256=16.777.216  renk oluşturulabilir.

Yukarıda renk kodları ile oynayarak  16.777.216  değişik renk elde etmek mümkün.

Aşağıda belirtilen KTF ile RGB kodları bulunur. (Yandaki tabloda tüm renklere yer verilmemiştir. Örnek olması açısında  bir miktar renk alınmıştır.)

Function R_G_B(hcr As Range, Optional op As Integer) As Long

    Dim C As Long

    Dim R As Long

    Dim G As Long

    Dim B As Long

    C = hcr.Interior.Color

    R = C Mod (2) ^ 8

    G = C \ (2) ^ 8 Mod (2) ^ 8

    B = C \ ((2) ^ 8) ^ 2 Mod (2) ^ 8

    If op = 1 Then

        R_G_B = R

    ElseIf op = 2 Then

        R_G_B = G

    ElseIf op = 3 Then

        R_G_B = B

    Else

        R_G_B = C

    End If

End Function

 

Formüllerle RGB kodlarından Access kodunun bulunması ve Access kodundan RGB kodlarının bulunması.

RGB kodları yardımı ile Acces Kodunun bulunması:

=R+G*2^8+B*2^16

Acces Kodundan RGB Kodlarının bulunması:

R için: =INT(MOD(Access Kodu;2^8))

G için: =INT(MOD(Acces Kodu/2^8;2^8))

B için: =INT(MOD(Access Kodu/(2^8)^2;2^8))

 

Dosya:

renkkodlari

admin

Kamuda, yurt içi ve yurt dışı görevlerde 37 yıl çalışmamın ardından 2013 yılında emekli oldum. 1989 yılında hem bilgisayarla ve hem de Lotus123 tanıştım. İşlerimi yapmada pek çok programdan yararlandım. En son Microsoft Office ile devam ettim. Çalışma hayatımda, Microsft Office bana çok yardımcı Olmuştur. Özellikle Excel ile ve Acces ile veri tabanlarımın tutulmasından analizlerine kadar, Word ile yazışmalarımın yapılmasında, sunumlarım için ise Power Point etkin araçlar olmuştur. Excel, bana çalışmalarımda etkin, doğru ve hızlı sonuçlar elde etmemi sağlamıştır. Çalışma hayatımda bu durum, Bilgi İşlem Bölümünün bana sağlayamayacağı kadar kolaylıklar ve en önemlisi bana hazır olarak gelen programları test etme ve kullanabilirliklerinin ortaya çıkarılmasında oldukça yararları olmuştur. Yılların bana verdiği bu deneyimlerle ve değişik alanlarda üyesi olduğum sitelerden gelen sorulara verdiğim yanıtlarla oluşturduğum çalışmalarımı paylaşmaya çalışıyorum. Bu konuda hep fikrim sorulmuştur. Nasıl bir yol izlenmesini önerirsiniz gibi. Önerim şu; İşinizi iyi, doğru ve hızlı yapmak mı istiyorsunuz? O zaman bu tür ofis programlarını iyi kullanmaya bakınız. Kimse sizden programcı olmayı beklemiyor. Programcılar da kafanızdaki problemi ve işinizi tam olarak bilemeyeceklerinden size üretilen programlar; arzu ettiğiniz biçimde olmayabilirler. Yine programcılar programlarını yapsınlar. Ancak, programda bir hata veya arıza olduğunda hazırlıklı değilseniz., yarı yolda kalırsınız. O zaman ne yapacaksınız? Programcıları mı arayacaksınız.? Bunu yapan programcı da bu işe bakmıyor veya ayrılmış olabilir. Bu durumda kendinize güveneceksiniz. Çünkü sizin bir çalışmanız vardır. Bu amatörce de olsa sizi yarı yolda bırakmayacaktır. Umarım bu sitede eklediğim dosya ve bilgiler, kullanıcılara ve ziyaretçilere yararlı olur. Saygılarımla... İdris SERDAR

You may also like...

Bir cevap yazın