Selasa, 03 Desember 2013

Keceraha (Brightness)



Sebuah citra dengan derajat keabuan 256, akan tampak gelap jika seluruh komponen warna berada mendekati 0. sebaliknya, citra akan tampak terang jika seluruh komponennya mendekati angka 255.h

brightness adalah proses untuk kecerahan citra, jika intensitas pixel dikurangi dengan nilai tertentu maka citra akan menjadi lebih gelap, dan sebaliknya jika intensitas pixelnya ditambah dengan nilai tertentu maka akan lebih terang

adapun rumus brightness adalah sbb:
dimana
 f0(x,y) : Nilai pixel pada titik x,y setelah brightness
 fi(x,y) : Nilai Pixel pada titik x,y citra asli
 k       : Nilai Penguatan kecerahan

nah rumus diatas digunakan untuk citra grayscale, namaun jika digunakan untuk RGB maka rumusnya menjadi :
dengan aturan jika intensitas pixel berada antara 0-255 maka, jika pixel >255 diset menjadi 255 dan jika pixel<0 diset menjadi 0.
contoh perhitungan:

  contoh hasil penambahan kecerahan:
Citra semula(kiri) dan citra hasil(kanan)

Contoh Program dengan 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
        Dim X, Y As Integer
        Dim tb As Integer
        tb = 75
        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)
                    'penambahan masing red, blue, green dengan nilai kecerahan    

                    Red = Red + tb
                    Green = Green + tb
                    Blue = Blue + tb
                    'batasi agar tidak lebih dari 255
                    If (Red > 255) Then
                        Red = 255
                    End If
                    If (Blue > 255) Then
                        Blue = 255
                    End If
                    If (Green > 255) Then
                        Green = 255
                    End If
                    bmap.SetPixel(Y, X, Color.FromArgb(Red, Green, Blue)) 'simpan warna baru pada pixel(Y,X)
                Next
            Next
        End With

Semoga Bermanfaan Gan...!!!!!
Sukses Selalu Buat Anda..
kesuksesan seorang pengajar adalah ketika ilmunya digunakan orang lain, tulislah ilmu anda, mungkin terlihat sederhana dimata anda, belum tentu begitu buat orang lain dan sebaliknya..




Entri yang Diunggulkan

Publikasi, Penelitan, Pengabdian, Buku dan Penghargaan

Berikut Ini Adalah Karya Saya Selama 5 Tahun Terakhir  Publikasi Artikel Ilmiah Dalam Jur nal Dan P rosiding   No Jud...