Membuat Program Konversi Warna RGB

Postingan Aku kali ini akan membahas bagaimana cara membuat program konversi warna seperti yang ada pada program photoshop.

Cerita sedikit…

Program konversi warna ini saya buat ketika saya mengontrak matakuliah Pengolahan Citra Digital semester 4. Pada saat itu,  dosen saya memberi tugas untuk membuat progam yang dapat mengkonversi warna dari warna dasar RGB. Dimana dari ketiga warna tersebut yaitu RED, GREEN dan BLUE dapat menghasilkan jenis – jenis warna yang lain. Terpikirlah  untuk membuat program konversi warna versi saya sendiri yang saya buat menggunakan bahasa pemrogaman Visual Basic 6.0.

Bagi teman-teman yang tertarik dan ingin belajar bagaimana caranya,  Bisa mengikuti langkah – langkah dibawah ini.

Langkah awal dalam membuat program konversi warna adalah :

Buat Design Seperti Gambar Dibawa Ini :

 

Buat Form Baru Dengan  frmwarna Komponen Sbb :

 

‘masukan baris coding dibawah ke dalam CommandButton Tutup Dengan Event Click

Private Sub cmd_tutup_Click()

End

End Sub

‘Masukan baris coding  di bawah ini kedalam Hscroll1 dengan event change

Private Sub HScroll1_Change()

warna  'memanggil prosedur warna yang ditulis di dalam modul

n = Hex$(HScroll1.Value)

pj = Len(n)

If pj = 1 Then

n = "0" & n

End If

Text1.Text = n

End Sub

‘Masukan baris coding  di bawah ini kedalam Hscroll2 dengan event change

Private Sub HScroll2_Change()

warna 'memanggil prosedur warna yang ditulis di dalam modul

n = Hex$(HScroll2.Value)

pj = Len(n)

If pj = 1 Then

n = "0" & n

End If

Text2.Text = n

End Sub

‘Masukan baris coding  di bawah ini kedalam Hscroll3 dengan event change

Private Sub HScroll3_Change()

warna 'memanggil prosedur warna yang ditulis di dalam modul

n = Hex$(HScroll3.Value)

pj = Len(n)

If pj = 1 Then

n = "0" & n

End If

Text3.Text = n

End Sub

Langkah selanjutnya yaitu klik menu Project -> Add Module masukan baris code dibawah ini :

Public Sub warna()

frmwarna.hasil.BackColor = RGB(frmwarna.HScroll1.Value, _

frmwarna.HScroll2.Value, frmwarna.HScroll3.Value)

End Sub

Kemudian Jalankan program F5, Hasil akhirnya seperti gambar dibawah ini:

Mudahkan.. Selamat Mencoba….!!