Monday, 27 April 2015

Mengubah Gambar Berwarna Menjadi Grayscale Dengan VBNet

By Faiz_FTC 19:31:00 , Leave a Comment
Kali ini akan dibahas tentang cara mengubah gambar berwarna menjadi grayscale dengan menggunakan VBNet. Gray Scale, yaitu pengubahan citra warna RGB dengan cara menghitung nilai rata-ratanya dari warna RGB tersebut. Secara sederhana rumusan fungsinya didefinisikan sebagai berikut :

1. Buka VB Net anda
2. Buat project baru dan beri nama misalnya "Olah_Gambar"  kemudian OK

3. Masukkan dua buah Button dan satu PictureBox

4. Desain Tampilannya seperti dibawah ini

5. Atur Properties nya


Nama
Properties
Value
Button1
Text 
Name
Reset
ResetBtn
Button2 
Text       
Name      
Grayscale
GrayscaleBtn
PictureBox1
SizeMode   
Name
BorderStyle  
StretchImage
GambarPB
Fixed3D

6. Klik dua kali Form dan pastikan pada form load di beri script dibawah ini
GambarPB.ImageLocation = "E:\foto\NAS.jpg"

7. Klik dua kali button Reset dan copy script dibawah ini
GambarPB.ImageLocation = "E:\foto\NAS.jpg"

8. Klik dua kali button Grayscale dan copy script dibawah ini
        If GambarPB.Image Is Nothing Then
            MsgBox("Images is Nothing", MsgBoxStyle.Information)
            Exit Sub
        End If

        Try

            Dim GAMBAR As New Bitmap(GambarPB.Image)
            Dim X, Y, WARNA As Integer

            For X = 0 To GAMBAR.Width - 1
                For Y = 0 To GAMBAR.Height - 1
                    Dim GBR = GAMBAR.GetPixel(X, Y)
                    WARNA = CInt(GBR.R * 0.3 + GBR.G * 0.5 + GBR.B * 0.15)
                    GAMBAR.SetPixel(X, Y, Color.FromArgb(WARNA, WARNA, WARNA))
                    GambarPB.Image = GAMBAR
                Next
                If X Mod 10 = 0 Then
                    GambarPB.Invalidate()
                    GambarPB.Refresh()
                End If
            Next
            If Y Mod 10 = 0 Then
                GambarPB.Invalidate()
                GambarPB.Refresh()
            End If
        Catch EX As Exception

        End Try

9. Coba jalankan dengan menekan F5

Catatan : pada script "E:\foto\NAS.jpg" bisa anda ganti dengan lokasi gambar anda

 Sekian dulu untuk Trik dan Tutorial sederhana ini. Semoga bisa membantu.
Terimakasih.

NB : Kritik dan Saran bisa di komentar.
If You Enjoyed This, Take 5 Seconds To Share It

0 komentar:

Post a Comment

ADS