PROGRAM PENGOLAHAN CITRA DI DALAM MENU

Kali Ini Kita akan Belajar membuat Tiga sekaligus program sederhana diantaranya
* Program Login
* Program Menu
* dan Program Pengolahan Citra

Tapi Program ini hanya dasar"nya saja Bagi anda Yang mau Berkreasi, silahkan Buat bahasa Pemograman Tambahan atau mendesain Form lebih Bagus lagi.

Yang bewarna biru Perintah Yang kita ketik


1. Membuat Program Login
  
   Desain lah Form1 seperti dibawah ini :

Desai form Terdiri dari : Label, Textbox, dan Button ( Namenya sesuai dengan Label ) 

KET :

* USER              : INPUT ( Sesuaikan )

* PASSWORD  : INPUT ( Sesuaikan )

* LOGIN           : MASUK ( Proses buka Program )

   Jika : User & Password salah Program selanjutnya tidak terbuka

1. Perintah unrtuk Form1 ( Double Click Form1) 

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        Password.PasswordChar = "*"

    End Sub

2. Perintah untuk Login ( Double Click Button Login )

Private Sub Login_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Login.Click

        If User.Text = "yuyun" And Password.Text = "120" Then

            MsgBox("Welcome")

            Form2.Show()

            Me.Hide()

        Else

            MsgBox("Sorry, User & Password Valid !!!")

            User.Text = ""

            Password.Text = ""

            User.Focus()

        End If

    End Sub

Perintah yang bewarna Hitam Ber fungsi Menghubungkan atau menggabungkan Antara Form1 dan Form2


2. Membuat Program Menu
      
Cara membuat Form2 :  Pilih Project >> add windows form.. > Windows Form >  add
                                     Maka akan muncul Form2

Desainlah Form2 Seperti dibawah ini atau sesuai selera anda :

 Desain Form2 terdiri dari : Pilih MenuStrip ( dari Toolbox ) Muncul Type Here. Klick dan buat namanya misal FILE. Klick lagi FILE muncul lagi di Type Here seperti gambar dibawah, Buat nama Misal Program Pengolahan Citra. Name-nya tetap

1. Perintah Untuk Program pengolahan Citra ( Double Click )

Private Sub ProToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)

        Form3.Show()

        Me.Hide()

    End Sub

Perintah Warna Biru Berguna Menghubungkan From2 dengan Form3.

2. Ubah WindowState dari Properties Menjadi Maximized ( Berguna Untuk Membuat Program Tampil di layar secara Full )

3. Program Pengolahan Citra

Terlebih dahulu Buat Form3. Caranya sama seperti cara membuat Form2.

Desainlah Form3 Sepergi Gambar dibawah ini:

Desain Form3 Terdiri dari : Label, Button, dan PictureBox. Name-nya Tetap.

1. Perintah Untuk Form3 ( Double Click )

Public Class Form3

    Dim gbr As Bitmap

    Private Sub Form3_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

       sasuke.Image = gambar_asli.Image

    End Sub

2. Perintah Untuk Gray ( Double Click )

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Dim pb, pc As Integer

        Dim rt, vh, vm, vb As Double

        gbr = New Bitmap(sasuke.Image)

        For pb = 0 To gbr.Height - 1

            For pc = 0 To gbr.Width - 1

                vm = gbr.GetPixel(pc, pb).R

                vh = gbr.GetPixel(pc, pb).G

                vb = gbr.GetPixel(pc, pb).B

                rt = (vh + vb + vm) / 3

                gbr.SetPixel(pc, pb, Color.FromArgb(rt, rt, rt))

            Next

            sasuke.Image = gbr

            sasuke.Refresh()

        Next

    End Sub

3.  Perintah Untuk - Hijau ( Double Click )

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

        Dim pb, pc As Integer

        Dim rt, vh, vm, vb As Double

        gbr = New Bitmap(sasuke.Image)

        For pb = 0 To gbr.Height - 1

            For pc = 0 To gbr.Width - 1

                vm = gbr.GetPixel(pc, pb).R - 10

                vh = gbr.GetPixel(pc, pb).G

                vb = gbr.GetPixel(pc, pb).B

                If vm <= 0 Then vm = 0

                gbr.SetPixel(pc, pb, Color.FromArgb(vm, vh, vb))

            Next

            sasuke.Image = gbr

            sasuke.Refresh()

        Next

    End Sub

 3. Perintah Untuk + Hijau ( Double Click )

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

        Dim pb, pc As Integer

        Dim rt, vh, vm, vb As Double

        gbr = New Bitmap(sasuke.Image)

        For pb = 0 To gbr.Height - 1

            For pc = 0 To gbr.Width - 1

                vm = gbr.GetPixel(pc, pb).R + 10

                vh = gbr.GetPixel(pc, pb).G

                vb = gbr.GetPixel(pc, pb).B

                If vm >= 255 Then vm = 255

                gbr.SetPixel(pc, pb, Color.FromArgb(vm, vh, vb))

            Next

            sasuke.Image = gbr

            sasuke.Refresh()

        Next

    End Sub

4. Perintah Untuk - Merah ( Double Click )

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click

        Dim pb, pc As Integer

        Dim rt, vh, vm, vb As Double

        gbr = New Bitmap(sasuke.Image)

        For pb = 0 To gbr.Height - 1

            For pc = 0 To gbr.Width - 1

                vm = gbr.GetPixel(pc, pb).R + 5

                vh = gbr.GetPixel(pc, pb).G + 5

                vb = gbr.GetPixel(pc, pb).B + 5

                If vm >= 255 Then vm = 255

                If vb >= 255 Then vb = 255

                If vh >= 255 Then vh = 255

                gbr.SetPixel(pc, pb, Color.FromArgb(vb, vh, vm))

            Next

            sasuke.Image = gbr

            sasuke.Refresh()

        Next

    End Sub

 5. Perintah Untuk +  Merah( Double Click )

  Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click

        Dim pb, pc As Integer

        Dim rt, vh, vm, vb As Double

        gbr = New Bitmap(sasuke.Image)

        For pb = 0 To gbr.Height - 1

            For pc = 0 To gbr.Width - 1

                vm = gbr.GetPixel(pc, pb).R - 5

                vh = gbr.GetPixel(pc, pb).G - 5

                vb = gbr.GetPixel(pc, pb).B - 5

                If vm <= 0 Then vm = 0

                If vb <= 0 Then vb = 0

                If vh <= 0 Then vh = 0

                gbr.SetPixel(pc, pb, Color.FromArgb(vb, vh, vm))

            Next

            sasuke.Image = gbr

            sasuke.Refresh()

        Next

    End Sub

6. Perintah Untuk Negative ( Double Click )

    Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click

        Dim pb, pc As Integer

        Dim rt, vh, vm, vb As Double

        gbr = New Bitmap(sasuke.Image)

        For pb = 0 To gbr.Height - 1

            For pc = 0 To gbr.Width - 1

                vm = 255 - gbr.GetPixel(pc, pb).R

                vh = 255 - gbr.GetPixel(pc, pb).G

                vb = 255 - gbr.GetPixel(pc, pb).B

                If vm <= 255 Then vm = 255

                If vb <= 255 Then vb = 255

                If vh <= 255 Then vh = 255

                gbr.SetPixel(pc, pb, Color.FromArgb(vb, vh, vm))

            Next

            sasuke.Image = gbr

            sasuke.Refresh()

        Next

    End Sub

7. Perintah Untuk - Britness ( Double Click )

    Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click

        Dim pb, pc As Integer

        Dim rt, vh, vm, vb As Double

        gbr = New Bitmap(sasuke.Image)

        For pb = 0 To gbr.Height - 1

            For pc = 0 To gbr.Width - 1

                vm = gbr.GetPixel(pc, pb).R

                vh = gbr.GetPixel(pc, pb).G - 10

                vb = gbr.GetPixel(pc, pb).B

                If vh <= 255 Then vh = 0

                gbr.SetPixel(pc, pb, Color.FromArgb(vb, vh, vm))

            Next

            sasuke.Image = gbr

            sasuke.Refresh()

        Next

    End Sub

8. Perintah Untuk + Britness ( Double Click )

    Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click

        Dim pb, pc As Integer

        Dim rt, vh, vm, vb As Double

        gbr = New Bitmap(sasuke.Image)

        For pb = 0 To gbr.Height - 1

            For pc = 0 To gbr.Width - 1

                vm = gbr.GetPixel(pc, pb).R

                vh = gbr.GetPixel(pc, pb).G + 10

                vb = gbr.GetPixel(pc, pb).B

                If vh >= 255 Then vh = 255

                gbr.SetPixel(pc, pb, Color.FromArgb(vb, vh, vm))

            Next

            sasuke.Image = gbr

            sasuke.Refresh()

        Next

    End Sub

9. Perintah Untuk Rotate ( Double Click )

 Private Sub Button9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button9.Click

        Dim pb, pc As Integer

        Dim rt, vh, vm, vb As Double

        gbr = New Bitmap(sasuke.Image)

        For pb = 0 To gbr.Height - 1

            For pc = 0 To gbr.Width - 1

                vm = gbr.GetPixel(pc, pb).R

                vh = gbr.GetPixel(pc, pb).G 

                vb = gbr.GetPixel(pc, pb).B

                If Vm <= 0 Then Vm = 0

       If Vb <= 0 Then Vb = 0

       If Vh <= 0 Then Vh = 0

                gbr.SetPixel(pc, pb, Color.FromArgb(vb, vh, vm))

            Next

            sasuke.Image = gbr

            sasuke.Refresh()

        Next

    End Sub

Kalau capek mengetik karena perintahnya lumayan banyak Copy Paste saja, biar Cepat tapi lihat mana Perintah yang mesti di gantikan. Demikian Postingan Saya Kali ini Semoga dapat bermamfaat. jangan lupa sering berkunjung dan me- LIKE.

mesran.net