Program Sederhana Campur Warna RGB Menggunakan VB

Ha....
Udah lama gak update blog, jadi kangen dengan sentuhan komunikasi dan niformasi pendidikan yang sudah ada.. Karena liburan kali ini cukup panjang, saya kembali membuka gudang lemari dan menemukan buku-buku VB 6.0 jadi sempat melihat dan mempelajari sedikit program yang ada. Berikut ini adalah program yg berguna hanya utk mengetahui hasil dari campuran warna antara warna merah, hijau dan biru. Tentuanya tergantung dengan nilai RGB yang dimiliki dari warna tersebut.
Berikut gambar program yang sudah running.

Langklah-langkah pembuatan program ini adalah, buka sebuah project baru, simpan dgn nama campur warna. Kemudian di jendela form, buat 3 buah label, masing-masing caption diberi nama dan atur propertinya sesuai dengan warnanya, tambahkan 3 buah label untuk menentukan secara default value dari warna tersebut. Captionnya hapus dan biarkan kosong. Tambahkan 3 buah hscrollbar dan atur propetinya sesuai dengan kode program yang ada, tambahkan 1 command, captionnya "keluar". Untuk hasilnya, kita tambahkan 1 buah text box dan atur propertinya, khusus warnanya beri warna backcolor hitam. Kemudian, tinggal membuat kode programnya. Berikut kode programnya,
 'membuat suatau prosedure utk hasil pada textbox.
Private Sub Warna()
    txtwarna.BackColor = RGB(hsbmerah.Value, hsbhijau.Value, hsbbiru.Value)
End Sub

Private Sub cmdkeluar_Click()
    End
End Sub

'memberi value pada label RGB
Private Sub hsbhijau_Change()
   Warna
   lblhijau.Caption = hsbhijau.Value
End Sub'memberi value pada label RGB
Private Sub hsbhijau_Scroll()
    Warna
    lblhijau.Caption = hsbhijau.Value
End Sub'memberi value pada label RGB
Private Sub hsbmerah_Change()
    Warna
    lblmerah.Caption = hsbmerah.Value
End Sub
'memberi value pada label RGB
Private Sub hsbmerah_Scroll()
    Warna
    lblmerah.Caption = hsbmerah.Value
End Sub

Private Sub hsbbiru_Change()
    Warna
    lblbiru.Caption = hsbbiru.Value
End Sub
'memberi value pada label RGB
Private Sub hsbbiru_Scroll()
    Warna
    lblbiru.Caption = hsbbiru.Value
End Sub
 
Oke, semoga bermanfaat dan silahkan di coba, semoga running ya..?? Ada pertanyaan, silahkan comment aja ya, ntar kita bahas sama-sama..