Grayscale dengan VB.Net Peningkatan kualitas citra dapat dilakukan melalui tranformasi intensitas citra, yaitu besar intensitas setiap pixel pada citra diubah tetapi posisi pixel tetap. Transformasi ini dapat dilakukan dengan sebuah fungsi transformasi skala keabuan grayscale tranformation function (GST) RGB 2 Grayscale Citra Warna Dapat diubah menjadi citra grayscale dengan cara menghitung rata-rata elemen warna:
contoh:
contoh program menggunakan vb.net bmap = New Bitmap(picAwal.Image) 'Gambar asli dijadikan gambar Bitmap picAwal.Image = bmap Dim tempbmp As New Bitmap(picAwal.Image) 'deklarasi gambar Bitmap dari gambar asli untuk diproses Dim Red As Integer, Green As Integer, Blue As Integer, Grey As Integer Dim X, Y As Integer With tempbmp For X = 0 To .Height - 1 For Y = 0 To .Width - 1 Red = CInt(.GetPixel(Y, X).R) 'ambil nilai warna merah (Red) pada pixel(Y,X) Green = CInt(.GetPixel(Y, X).G) 'ambil nilai warna hijau (Green) pada pixel(Y,X) Blue = CInt(.GetPixel(Y, X).B) 'ambil nilai warna biru (Blue) pada pixel(Y,X) Grey = (Red + Green + Blue) / 3 'konversi warna pada pixel Y,X ke grey bmap.SetPixel(Y, X, Color.FromArgb(Grey, Grey, Grey)) 'simpan warna baru pada pixel(Y,X) Next Next End With