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 ^_^