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:
