Mengetahui Nilai RGB (VB 6.0)

Berikut ini saya bagikan lagi sebuah kode program VB 6.0 (Visual Basic 6.0) untuk mengetahui Nilai RGB (Red Green Blue) dari Nilai Hexadesimal. Mungkin kode ini jarang digunakan oleh seorang programmer pemula dan menengah.

Biasanya ini digunakan oleh para programmer master yang membuat aplikasi-aplikasi pengolah gambar/photo seperti Photoshop, Corel Draw, dll.

Baiklah berikut langkah pembuatannya.

1. Buat sebuah Project VB 6.0 baru.
2. Tambahkan 4 Label, 4 Textbox dan 1 Commandbutton.
3. Atur Properties Label 1 sampai 4 dengan Caption=Nilai Hexadesimal:, Caption=Red:, Caption=Green:, dan Caption=Blue:.
4. Atur Properties Textbox 1 sampai 4 dengan Name=txtHex, Name=txtRed, Name=txtGreen, dan Name=txtBlue.
5. Atur Properties Commandbutton dengan Name=cmdRGB dan Caption=Nilai RGB.
6. Buat Function seperti kode di bawah ini.

Function Red&(ByVal Color&)
Red& = Color And (Not &HFFFFFF00)
End Function

Function Green&(ByVal Color&)
Green& = (Color And (Not &HFFFF00FF)) \ &H100&
End Function

Function Blue&(ByVal Color&)
Blue& = (Color And (Not &HFF00FFFF)) \ &HFFFF&
End Function

7. Double click tombol "Nilai RGB" dan pada cmdRGB_Click() ketikkan kode di bawah ini.

Dim Hex As Long
Hex = Val(Me.txtHex.Text)
If Me.txtHex.Text <> "" Then
Me.txtRed.Text = Red(Hex)
Me.txtGreen.Text = Green(Hex)
Me.txtBlue.Text = Blue(Hex)
End If

8. Jalankan program dan lihat hasilnya. Selesai dan terima kasih.

Silakan download contoh programnya disini.