Memecah Komponen Warna

Untuk para desainer di komputer, penentuan komponen warna sangatlah berpengaruh pada hasil desain

Sabtu Legi, 18 Februari 2006

Yang dibahas di artikel ini bukanlah cara pemilihan warna untuk desain, karena seperti yang terlihat, desainku sendiri di web ini pun cukup amburadul :)
Pembahasan lebih pada teknis pemisahan komponen suatu warna (separasi), dengan menggunakan program Visual Basic.

Sedikit membahas tentang komponen warna, bahwa dalam dunia digital (komputer), warna dikodekan dalam 3 komponen, yaitu R (Red), G (Green) dan B (Blue). Jadi warna yang sekian banyaknya, terbentuk atas tiga komponen ini.

Campuran ketiga komponen tersebut, dengan tergantung pada intensitas masing-masing, akan membentuk warna-warna yang berbeda. Masing-masing komponen memiliki range antara 0 dan 255, dimana 0 adalah minimal (gelap), dan 255 adalah maksimal (terang).

Misalnya komponen R bernilai 255, sedangkan G dan B bernilai 0, maka warna yang dihasilkan adalah merah.

Misalnya warna kuning (yellow), adalah campuran dari R dan G yang bernilai 255, sedangkan B bernilai 0.
Warna telur asin (cyan), adalah campuran G dan B yang bernilai 255, sedangkan R bernilai 0. Begitu seterusnya.

Jika masing-masing komponen bernilai 255, hasilnya putih. Kalo ketiganya 0, berarti hitam.

Ok, itu adalah pengkodean warna berdasar pada RGB, yang lebih banyak digunakan di dunia digital.

Pengkodean lain, yang digunakan untuk pewarnaan di dunia nyata (dicetak), adalah CMYK (Cyan Magenta Yellow dan Black). Hampir sama dengan RGB, CMYK juga gabungan dari keempat warna tersebut. Yang membedakan adalah, CMYK menggunakan kepekatan, bukan intensitas.
Semakin tinggi nilai komponen di CMYK, maka warnanya semakin gelap.
Selain itu, komponen K bukanlah warna hitam, melainkan tingkat kepekatan dari ketiga komponen yang lain.

Hm, aku kurang paham betul dengan pengkodean CMYK ini, jadi mohon koreksinya :)

Ok, kita lanjutkan ke pemrogramannya.

Silakan buka Visual Basic, lalu buat project baru.

Komponen yang dibutuhkan oleh aplikasi ini adalah Microsoft Common Dialog Control 6.0. Silakan tambahkan komponen tersebut ke project, melalui menu Project > Components... atau CTRL+T

Tambahkan komponen CommonDialog tersebut ke form, lalu tambahkan komponen yang lain, seperti terlihat pada gambar ini:

Lihat gambar

Berikan nama komponen sesuai tulisan yang bersangkutan. Sedangkan type komponen sesuai dengan warnanya.
Warna hijau adalah komponen Textbox, merah berarti CommandButton, biru adalah Picture, dan hitam adalah CommonDialog.

Setelah itu, masuk ke Code-View (F7), dan isikan kode program ini:

' strict mode Option Explicit Dim Warna As Long Dim NF As String Dim MouseDown As Boolean ' browse gambar Private Sub Command1_Click() On Error GoTo Batal ' jika ditekan cancel, batalkan CommonDialog1.FileName = NF CommonDialog1.ShowOpen ' tampilkan dialog open file NF = CommonDialog1.FileName Text1 = NF If Dir(NF) <> "" Then ' jika gambar dipilih, Set Picture1.Picture = LoadPicture(NF) ' tampilkan di Picture1 End If Batal: End Sub ' keluar program Private Sub Command2_Click() Unload Me ' hapus form dari memori End Sub ' tombol mouse ditekan Private Sub Picture1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) MouseDown = True ' ingat bahwa tombol ditekan Picture1_MouseMove Button, Shift, X, Y End Sub ' mouse melewati gambar di Picture1 Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) If MouseDown Then ' jika tombol ditekan Warna = Picture1.Point(X, Y) ' ambil warna pada posisi mouse CekWarna ' tampilkan info warna End If End Sub ' penekanan tombol mouse dilepas Private Sub Picture1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single) MouseDown = False End Sub ' Picture2 diklik Private Sub Picture2_Click() CommonDialog1.Color = Warna ' CommonDialog1.ShowColor ' tampilkan dialog pilih warna Warna = CommonDialog1.Color CekWarna ' tampilkan informasinya End Sub ' menampilkan informasi RGB warna Sub CekWarna() Dim s, t As String If Warna < 0 Then Exit Sub ' jika warna tidak beres, keluar saja Picture2.BackColor = Warna ' tampilkan warna pada Picture2 s = Hex(Warna) ' rubah jadi hexa If Len(s) < 6 Then ' jika panjangnya kurang dari 6 digit s = String(6 - Len(s), "0") & s ' tambahkan "0" pada sisi kiri End If txtR = Hex2Desimal(Mid(s, 5, 2)) ' ambil dua digit mulai posisi 5, Red txtG = Hex2Desimal(Mid(s, 3, 2)) ' Green txtB = Hex2Desimal(Mid(s, 1, 2)) ' Blue txtRGB = Mid(s, 5, 2) & Mid(s, 3, 2) & Mid(s, 1, 2) ' tampilkan di textbox ProsesCMYK txtR, txtG, txtB ' proses CMYK End Sub ' merubah hexa ke desimal Function Hex2Desimal(ByVal H As String) As Byte Hex2Desimal = antiHex(Left(H, 1)) * 16 + antiHex(Right(H, 1)) End Function ' merubah digit hexa ke angka desimal "1" = 1, "A" = 10 Function antiHex(ByVal strHex As String) As Integer If Asc(strHex) >= 48 And Asc(strHex) <= 57 Then antiHex = Asc(strHex) - 48 ElseIf Asc(strHex) >= 65 And Asc(strHex) <= 70 Then antiHex = Asc(strHex) - 55 End If End Function ' menampilkan informasi CMYK Sub ProsesCMYK(r, g, b) Dim tc As Single, tm As Single, ty As Single, tk As Single Dim c, m, Y, k ' hitung skala masing-masing komponen (0 - 1) tc = 1 - (r / 255) tm = 1 - (g / 255) ty = 1 - (b / 255) ' cari komponen terkecil tk = IIf(tc > tm, IIf(tm > ty, ty, tm), IIf(tc > ty, ty, tc)) ' tk maksimal If tk = 1 Then tk = 0.9999999 ' hitung kepekatan c = Abs(Int(((1 - (r / 255) - tk) / (1 - tk)) * 100)) m = Abs(Int(((1 - (g / 255) - tk) / (1 - tk)) * 100)) Y = Abs(Int(((1 - (b / 255) - tk) / (1 - tk)) * 100)) k = Abs(Int(tk * 100)) ' tampilkan txtC = c & "%" txtM = m & "%" txtY = Y & "%" txtK = k & "%" End Sub ' jika isi txtRGB (textbox) dirubah Private Sub txtRGB_Change() Dim s As String s = UCase(txtRGB) ' jadikan huruf besar If Len(s) <> 6 Then Exit Sub ' jika tidak benar, keluar saja 'format RGB: RRGGBB txtR = Hex2Desimal(Mid(s, 1, 2)) ' ambil tiap digit txtG = Hex2Desimal(Mid(s, 3, 2)) txtB = Hex2Desimal(Mid(s, 5, 2)) Warna = RGB(txtR, txtG, txtB) ' ambil nilai RGB-nya Picture2.BackColor = Warna ' tampilkan di Picture2 ProsesCMYK txtR, txtG, txtB ' tampilkan CMYK End Sub ' penekanan tombol keyboard pada textbox txtRGB Private Sub txtRGB_KeyPress(KeyAscii As Integer) ' ijinkan jika yang ditekan adalah angka (0 - 9) If KeyAscii >= 48 And KeyAscii <= 57 Then Exit Sub ' ijinkan tombol backspace If KeyAscii = 8 Then Exit Sub ' ijinkan A - F If KeyAscii >= 65 And KeyAscii <= 70 Then Exit Sub ' ijinkan a - f, setelah dirubah jadi A - F If KeyAscii >= 97 And KeyAscii <= 102 Then KeyAscii = KeyAscii - 32 Exit Sub End If ' selain itu, abaikan KeyAscii = 0 End Sub

Keterangan program ada pada source, semoga lebih jelas.

Ok, met koding ^_^
 

Daftar Komentar

jefrey

minta tolong kirimin program ke emailku. aku lagi skripsi mau buat program kecil untuk mencari string dalam kalimat. jadi mencari semua huruf dari huruf a,A s/d z/Z ditambah simbol yang sering muncul. tolong ya kirim ke jef_bitrayer@yahoo.com.

riorzky

wah kalo mas yang ini di kirimi aku juga mau donk rio@teknoku.com

Aryo Sanjaya

Wah, kalo masing-masing minta dikirimi source, lak yo bingung aku :)) Ok, gini aja, tak paste di sini, biar adil. Bikin satu project VB, tambahkan 1 textbox (Text1), satu listbox (List1) dan satu command button (Command1), lalu di event command1_click, masukkan perintah ini: begin code---------------------------- Private Sub Command1_Click() Dim ketemu(1 To 255) As Integer Dim teks As String Dim strcek As String Dim i As Integer, n As Integer, p As Integer Dim m As Integer ' kalo ingin huruf besar/kecil sama, gunakan teks=ucase(text1) teks = Text1.Text ' tanda baca, tambahkan jika perlu :) strcek = "!.,:;=@#%" ' A-Z For i = 65 To 90 strcek = strcek & Chr(i) Next ' a-z For i = 97 To 122 strcek = strcek & Chr(i) Next ' For i = 1 To Len(strcek) c = Mid(strcek, i, 1) n = 0 m = 1 While InStr(m, teks, c) > 0 n = n + 1 p = InStr(m, teks, c) m = p + 1 Wend ketemu(Asc(c)) = n Next For i = LBound(ketemu) To UBound(ketemu) If ketemu(i) > 0 Then List1.AddItem "huruf " & Chr(i) & " = " & ketemu(i) & " kali" End If Next End Sub end code---------------------------- semoga dapat dipahami ;)

NIPONG

Tolong kirim ke emailq da tugas nich...thank

Aryo Sanjaya

Halo Nipong, Minta dikirimi code yang mana nih? kan ada dua tuh (warna dan pencarian huruf). Apa gak lebih mudah kalo Nipong ambil sendiri di sini, tinggal copy dan kirim ke email diri sendiri kan :D

Aryo Sanjaya

Asd

riorzky

wah kalo mas yang ini di kirimi aku juga mau donk
rio@teknoku.com

jefrey

minta tolong kirimin program ke emailku. aku lagi skripsi mau buat program kecil untuk mencari string dalam kalimat. jadi mencari semua huruf dari huruf a,A s/d z/Z ditambah simbol yang sering muncul. tolong ya kirim ke jef_bitrayer@yahoo.com.

jefrey

minta tolong kirimin program ke emailku. aku lagi skripsi mau buat program kecil untuk mencari string dalam kalimat. jadi mencari semua huruf dari huruf a,A s/d z/Z ditambah simbol yang sering muncul. tolong ya kirim ke jef_bitrayer@yahoo.com.

sukarno

gimana kalau bikin aplikasi warna pakai delphi????
tolong ya
penting banget nih....