Program Campur Warna Red - Green - Blue (RGB) pada Microsoft Visual Basic 6.0

Langkah – langkah pembuatan program dengan menggunakan objek CheckBox adalah sbb :

·     Buka proyek Standard EXE yang baru

·     Disain tampilan form seperti gambar berikut dengan menggunakan objek Label, TextBox, CommandButton dan HScrollBar

 

 Gbr 1

·      Atur Properties masing - masing kontrol seperti dibawah ini :

Kontrol	Properties	Pengaturan
HScrollBar1	Name        Min  Max SmallChange LargeChange	HScroll_Merah (dikosongkan) MS Sans Serif, Bold, 10 1 30
HScrollBar2	Name        Min  Max SmallChange LargeChange	HScroll_Merah (dikosongkan) MS Sans Serif, Bold, 10 1 30
HScrollBar3	Name        Min  Max SmallChange LargeChange	HScroll_Merah (dikosongkan) MS Sans Serif, Bold, 10 1 30
CommandButton1	Name         Caption	cmd_exit E&xit
TextBox	Name Text	txt_warna (dikosongkan)
Label1	Caption Font ForeColor	Merah MS Sans Serif, Bold, 10 &H00FF0000&
Label2	Caption Font ForeColor	Hijau MS Sans Serif, Bold, 10 &H00FF0000&
Label3	Caption Font ForeColor	Biru MS Sans Serif, Bold, 10 &H00FF0000&

Form1

Name Caption

frm_campur_warna_rgb Program Campur Warna Red - Green - Blue (RGB)

·     Ketik kode program dibawah ini :

Private Sub Warna()

Me.txt_warna.BackColor = RGB(Me.HScroll_Merah.Value, Me.HScroll_Hijau.Value, Me.HScroll_Biru.Value)

End Sub

·     DoubleClick pada  HScrollBar HScroll_Merah lalu ketik kode program dibawah ini :

Private Sub HScroll_Merah_Change()

Warna

Me.lbl_merah.Caption = Me.HScroll_Merah.Value

End Sub

·     Secara default Private Sub HScrollBar pada Project1 – Form1(Code) adalah “Private Sub HScroll1_Change()”.  Klik pada Procedure lalu pilih Scroll, sehingga menjadi “Private Sub HScroll1_Scroll()”. Agar lebih jelas, perhatikan gambar dibawah ini.

 

 Gbr 2

·     Lalu ketik kode program dibawah ini :

Private Sub HScroll_Merah_Scroll()

Warna

Me.lbl_merah.Caption = Me.HScroll_Merah.Value

End Sub

·     Double click pada  HScrollBar HScroll_Hijau lalu ketik kode program dibawah ini :

Private Sub HScroll_Hijau_Change()

Warna

Me.lbl_hijau.Caption = Me.HScroll_Hijau.Value

End Sub

·     Ulangi langkah seperti pada HScrollBar HScroll_Merah diatas, lalu ketik kode program dibawah ini:

Private Sub HScroll_Hijau_Scroll()

Warna

Me.lbl_hijau.Caption = Me.HScroll_Hijau.Value

End Sub

·     Double click pada  HScrollBar HScroll_Biru lalu ketik kode program dibawah ini :

Private Sub HScroll_Biru_Change()

Warna

Me.lbl_biru.Caption = Me.HScroll_Biru.Value

End Sub

·     Ulangi langkah seperti pada HScrollBar HScroll_Merah diatas, lalu ketik kode program dibawah ini:

Private Sub HScroll_Biru_Scroll()

Warna

Me.lbl_biru.Caption = Me.HScroll_Biru.Value

End Sub

·     DoubleClick pada  CommandButton cmd_exit lalu ketik kode program dibawah ini :

Private Sub cmd_exit_Click()

End

End Sub

·     Jika sobat kesulitan mengikuti langkah untuk mengetik kode program pada objek HScrollBar di atas,

buka Project1 – Form1 (Code) dengan mengklik View Code (lihat gambar dibawah).

 

Gbr 3

atau

Klik menu View  =>  Code

Lalu copy paste (copas) kode dibawah ini :

Private Sub cmd_exit_Click()

End

End Sub

Private Sub Warna()

Me.txt_warna.BackColor = RGB(Me.HScroll_Merah.Value, Me.HScroll_Hijau.Value, Me.HScroll_Biru.Value)

End Sub

Private Sub HScroll_Biru_Change()

Warna

Me.lbl_biru.Caption = Me.HScroll_Biru.Value

End Sub

Private Sub HScroll_Biru_Scroll()

Warna

Me.lbl_biru.Caption = Me.HScroll_Biru.Value

End Sub

Private Sub HScroll_Hijau_Change()

Warna

Me.lbl_hijau.Caption = Me.HScroll_Hijau.Value

End Sub

Private Sub HScroll_Hijau_Scroll()

Warna

Me.lbl_hijau.Caption = Me.HScroll_Hijau.Value

End Sub

Private Sub HScroll_Merah_Change()

Warna

Me.lbl_merah.Caption = Me.HScroll_Merah.Value

End Sub

Private Sub HScroll_Merah_Scroll()

Warna

Me.lbl_merah.Caption = Me.HScroll_Merah.Value

End Sub

·     Jalankan Program dengan cara menekan tombol F5 pada keyboard atau pilih menu Run  => Start

Download Program Campur Warna Red - Green - Blue (RGB)  disini