membuat program kesesuaian warna dengan VB 6.0

1.Tools yang digunakan untuk membuat program kesesuaian warna adalah sebagai gambar berikut :2.Ketika program ini dijalankan atau di “ start” maka tampilan yang akan muncul,, dan tidak hanya dapat dijalankan tetapi dapat dimainkan warna yang kita inginkan. Asalkan program yang kita masukkan sesuai dengan kaidah program yang diminta.

Contoh gambar :

3.Pengaturan warna pada teks juga dapat diatur dengan mudah dengan beberapa bantuan tools yang tersedia . contoh gambar :

4.Kode program yang saya gunakan di dalam pembuatan aplikasi penyesuaian warna.

Private Sub gantiwarna()

Label4.BackColor = RGB(HScroll1.Value, HScroll2.Value, HScroll3.Value)

End Sub

Private Sub warnateks()

Label4.ForeColor = RGB(HScroll4.Value, HScroll5.Value, HScroll6.Value)

End Sub

Private Sub Command1_Click()

HScroll1.Value = 0

HScroll2.Value = 0

HScroll3.Value = 0

Label4.Caption = “Ada teks disini”

HScroll4.Value = 256

HScroll5.Value = 256

HScroll6.Value = 256

End Sub

Private Sub HScroll1_Change()

gantiwarna

Label1.Caption = HScroll1.Value

Label1.BackColor = RGB(HScroll1.Value, 0, 0)

End Sub

Private Sub HScroll1_Scroll()

gantiwarna

Label1.Caption = HScroll1.Value

Label1.BackColor = RGB(HScroll1.Value, 0, 0)

End Sub

Private Sub HScroll2_Change()

gantiwarna

Label2.Caption = HScroll2.Value

Label2.BackColor = RGB(0, HScroll2.Value, 0)

End Sub

Private Sub HScroll2_Scroll()

gantiwarna

Label2.Caption = HScroll2.Value

Label2.BackColor = RGB(0, HScroll2.Value, 0)

End Sub

Private Sub HScroll3_Change()

gantiwarna

Label3.Caption = HScroll3.Value

Label3.BackColor = RGB(0, 0, HScroll3.Value)

End Sub

Private Sub HScroll3_Scroll()

gantiwarna

Label3.Caption = HScroll3.Value

Label3.BackColor = RGB(0, 0, HScroll3.Value)

End Sub

Private Sub HScroll4_Change()

warnateks

Label11.Caption = HScroll4.Value

Label11.BackColor = RGB(HScroll4.Value, 256, 256)

End Sub

Private Sub HScroll4_Scroll()

warnateks

Label11.Caption = HScroll4.Value

Label11.BackColor = RGB(HScroll4.Value, 256, 256)

End Sub

Private Sub HScroll5_Change()

warnateks

Label12.Caption = HScroll5.Value

Label12.BackColor = RGB(256, HScroll5.Value, 256)

End Sub

Private Sub HScroll5_Scroll()

warnateks

Label12.Caption = HScroll5.Value

Label12.BackColor = RGB(256, HScroll5.Value, 256)

End Sub

Private Sub HScroll6_Change()

warnateks

Label13.Caption = HScroll6.Value

Label13.BackColor = RGB(256, 256, HScroll6.Value)

End Sub

Private Sub HScroll6_Scroll()

warnateks

Label13.Caption = HScroll6.Value

Label13.BackColor = RGB(256, 256, HScroll6.Value)

End Sub

selamat mencoba ….!!!!! yang penting usaha kita mau apa tidak …

Iklan

Tinggalkan Balasan

Isikan data di bawah atau klik salah satu ikon untuk log in:

Logo WordPress.com

You are commenting using your WordPress.com account. Logout /  Ubah )

Foto Google+

You are commenting using your Google+ account. Logout /  Ubah )

Gambar Twitter

You are commenting using your Twitter account. Logout /  Ubah )

Foto Facebook

You are commenting using your Facebook account. Logout /  Ubah )

Connecting to %s