Ini adalah program sederhana lainnya, kalian tentu tahu RGB color kan. Biasanya ketika kalian mengedit foto do photoshop atau aplikasi lainnya, maka pasti terdapat warna ini. Ini adalah warna kombinasi dari red, green, dan bluee. Dan tiap warna memiliki nilai 0 sampai 250. bagai mana kalau ini kita implementasikan dalam VB 2008?
Bukalah aplikasi VB 2008 anda lalu desain sebuah form baru seperti gambar di bawah ini:
Dalam gambar di atas terdapat 4 buah label, 3 buah TextBox, dan 3 buah button. Aturlah label agar nampak seperti gambar di atas.
Kemudian double klik button1 atau button dengan nama ‘Display’, lalu masukkan kode berikut ini:
Dim rgb1, rgb2, rgb3 As Integer
rgb1 = TextBox1.Text
rgb2 = TextBox2. Text
rgb3 = TextBox3. Text
Me. BackColor=Color.FromArgb(rgb1, rgb2, rgb3)
BackColor digunakan agar warna background yang berubah ketika nilai RGB dimasukkan dari masing – masing TextBoxt. Untuk kode Color.FromArgb(rgb1,rgb2,rgb3) digunakan untuk mengambil kode dari RGB, dimana TextBoxt 1, 2, dan 3 dijadikan tempat penginputan data. Disini VB secara otomatis telah menentukan bahwargb1 untuk red, rgb2 untuk green, dan rgb3 untuk blue.
Jika sudah, double klik button2, lalu masukkan kode berikut
TextBoxt1.Clear()
TextBoxt2.Clear()
TextBoxt3.Celar()
Perintah Clear() ini berfungsi untuk membersihkan angka- angka yangt terdapat dalam tiap TextBoxt. Dan terahir, masukkan kode End pada Button3 yang berfungsi untuk mengakhiri program. Silahkan jalankan program anda dengan menekan tombol F5. maka hasil nya akan seperti ini:
