Program Sampel Warna

Sekarang kita akan membuat Form Campur Warna yang memadukan tiga warna dasar (Merah, Hijau, dan Biru), seperti hasil program Gbr. 3.5 kanan dibawah ini.

1. Tambahkan lagi sebuah Form, kemudian…rancanglah seperti gambar dibawah ini ;

Klik Gambar Untuk Pembesaran

2. Selanjutnya…., ikuti aturan properti pada Tbl.3.3 dibawah ini ;

Objek	Properti	Format	Objek	Properti	Format
Hscrollbar1	Name	Hsbmerah	Label5	Name	Lmerah
	LargeChange	30		Caption	0
	Max	255	Label6	Name	Lhijau
Hscrollbar2	Name	Hsbhijau		Caption	0
	LargeChange	30	Label7	Name	Lbiru
	Max	255		Caption	0
Hscrollbar3	Name	Hsbbiru	Text1	Text	Dihapus
	LargeChange	30		Backcolor	Warna hitam
	Max	255		Enabled	False

3. Setelah itu, Ketiklah perintah-perintah program dibawah ini ;

a. General Prosedur Warna (Warna adalah prosedur buatan yang langsung diketik)

Public Sub warna( )

Text1.BackColor = RGB(Hsbmerah.Value, Hsbhijau.Value, Hsbbiru.Value)

End Sub

b. Hsbmerah Prosedur Change

Private Sub hsbmerah_change( )

warna

Lmerah.Caption = Hsbmerah.Value

End Sub

c. Hsbmerah Prosedur Scroll

Private Sub hsbmerah_scroll( )

warna

Lmerah.Caption = Hsbmerah.Value

End Sub

d. Hsbhijau Prosedur Change

Private Sub hsbhijau_change( )

warna

Lhijau.Caption = Hsbhijau.Value

End Sub

e. Hsbhijau Prosedur Scroll

Private Sub hsbhijau_scroll( )

warna

Lhijau.Caption = Hsbhijau.Value

End Sub

f. Hsbbiru Prosedur Change

Private Sub hsbbiru_change( )

warna

Lbiru.Caption = Hsbbiru.Value

End Sub

g. Hsbbiru Prosedur Scroll

Private Sub hsbbiru_scroll( )

warna

Lbiru.Caption = Hsbbiru.Value

End Sub

h. Command1 Prosedur Click

Private Sub Command1_Click( )

End

End Sub

Related Posts by Categories