Membuat Aplikasi pengubah Warna Dengan Visual Basic

Membuat Aplikasi pengubah Warna Dengan Visual Basic


1. Buka aplikasi Microsoft Visual Basic 6
2. Pilih Standart EXE, klik Open
3. Buat tampilan form seperti dibawah ini




Note : masukkan nama sesuai keinginan anda


4. Selanjutnya , pilih menu View -> Code




5. Masukkan Script , dengan copy paste script dibawah ini

Private Sub Form_Load()
HScroll1.Value = 0 ‘HScroll1 bernilai 0’
HScroll2.Value = 0
HScroll3.Value = 0

HScroll1.Max = 255 ‘HScroll1 untuk angka tertingginya adalah 255’
HScroll1.Min = 0

HScroll2.Max = 255
HScroll2.Min = 0

HScroll3.Max = 255
HScroll3.Min = 0
End Sub

Private Sub HScroll1_Change()
Label4.BackColor = RGB(HScroll1.Value, HScroll2.Value, HScroll3.Value)
Label1.Caption = Str(HScroll1.Value)

End Sub

Private Sub HScroll2_Change()
Label4.BackColor = RGB(HScroll1.Value, HScroll2.Value, HScroll3.Value)
Label2.Caption = Str(HScroll2.Value)
End Sub

Private Sub HScroll3_Change()
Label4.BackColor = RGB(HScroll1.Value, HScroll2.Value, HScroll3.Value)
Label3.Caption = Str(HScroll3.Value)
End Sub




6. Selanjutnya , pilih menu Run - Start

7. Selamat menikmati program .