PENGOLAHAN CITRA VB 2008

Berikut adalah langkah-langkah yang harus dilakukan dalam pembuatan program pengolahan citra sederhana

Langkah pertama desainlah form seperti di bawah ini :

Kemudian tambahkan  menustrip (pada toolbox Menu & Toolbar),OpenFileDialog (pada toolbox Dialog) dan SaveFileDialog (pada toolbox Dialog)

OpenFileDialog  -> name dirubah jadi OFD

SaveFileDialog  -> name dirubah jadi SFD

Isi menu

Kemudian ketk syntax programnya seperti di bawah ini :

Public Class Form1



    Dim gambar As Bitmap



    Private Sub OpenCitraToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OpenCitraToolStripMenuItem.Click

        OFD.Filter = "BMP|*.bmp|JPG|*.Jpg"

        OFD.ShowDialog()



        If OFD.FileName = "" Then Exit Sub

        Pic1.Image = Image.FromFile(OFD.FileName)

        gambar = New Bitmap(Pic1.Image)

    End Sub

    Private Sub SavToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SavToolStripMenuItem.Click

        SFD.Filter = "JPG|*.Jpg|BMP|*.bmp"

        SFD.ShowDialog()

        If SFD.FileName = "" Then Exit Sub

        If SFD.FilterIndex = 1 Then

            gambar.Save(SFD.FileName, System.Drawing.Imaging.ImageFormat.Jpeg)

        End If

        If SFD.FilterIndex = 2 Then

            gambar.Save(SFD.FileName, System.Drawing.Imaging.ImageFormat.Bmp)

        End If

    End Sub



    Private Sub GrayscaleToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GrayscaleToolStripMenuItem.Click

        Dim Pb, Pc As Integer

        Dim Rt, vM, vH, vB As Double

        With gambar

            For Pb = 0 To .Height - 1

                For Pc = 0 To .Width - 1

                    vM = .GetPixel(Pc, Pb).R

                    vH = .GetPixel(Pc, Pb).G

                    vB = .GetPixel(Pc, Pb).B

                    Rt = (vM + vH + vB) / 3

                    .SetPixel(Pc, Pb, Color.FromArgb(Rt, Rt, Rt))

                Next

                Pic2.Image = gambar

                Pic2.Refresh()

            Next

        End With

    End Sub



    Private Sub NegatifToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NegatifToolStripMenuItem.Click

        Dim Pb, Pc As Integer

        Dim vM, vH, vB As Double

        With gambar

            For Pb = 0 To .Height - 1

                For Pc = 0 To .Width - 1

                    vM = 255 - .GetPixel(Pc, Pb).R

                    vH = 255 - .GetPixel(Pc, Pb).G

                    vB = 255 - .GetPixel(Pc, Pb).B

                    If vM <= 0 Then vM = 0

                    If vB <= 0 Then vB = 0

                    If vH <= 0 Then vH = 0

                    .SetPixel(Pc, Pb, Color.FromArgb(vM, vH, vB))

                Next

                Pic2.Image = gambar

                Pic2.Refresh()

            Next

        End With

    End Sub



    Private Sub BrightnessToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BrightnessToolStripMenuItem.Click

        Dim Pb, Pc As Integer

        Dim vM, vH, vB As Double

        With gambar

            For Pb = 0 To .Height - 1

                For Pc = 0 To .Width - 1

                    vM = .GetPixel(Pc, Pb).R + 5

                    vH = .GetPixel(Pc, Pb).G + 5

                    vB = .GetPixel(Pc, Pb).B + 5

                    If vM > 255 Then vM = 255

                    If vB > 255 Then vB = 255

                    If vH > 255 Then vH = 255

                    .SetPixel(Pc, Pb, Color.FromArgb(vM, vH, vB))

                Next

                Pic2.Image = gambar

                Pic2.Refresh()

            Next

        End With

    End Sub



    Private Sub MenuStrip1_ItemClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ToolStripItemClickedEventArgs) Handles MenuStrip1.ItemClicked

        gambar = New Bitmap(Pic1.Image)

    End Sub



    Private Sub KeluarToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KeluarToolStripMenuItem.Click

        End

    End Sub



    Private Sub BinerToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BinerToolStripMenuItem.Click

        Dim Pb, Pc As Integer

        Dim rata, vM, vH, vB As Double

        With gambar

            For Pb = 0 To .Height - 1

                For Pc = 0 To .Width - 1

                    vM = .GetPixel(Pc, Pb).R

                    vH = .GetPixel(Pc, Pb).G

                    vB = .GetPixel(Pc, Pb).B

                    rata = (vM + vH + vB) / 3

                    If (rata < 128) Then

                        vM = 0

                        vH = 0

                        vB = 0

                    Else

                        vM = 255

                        vH = 255

                        vB = 255

                    End If



                    .SetPixel(Pc, Pb, Color.FromArgb(vM, vH, vB))

                Next

                Pic2.Image = gambar

                Pic2.Refresh()

            Next

        End With

    End Sub



    Private Sub Rotate270ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RotateToolStripMenuItem.Click

        Dim gambar2 = New Bitmap(Pic2.Image)

        gambar2 = New Bitmap(Pic2.Image)

        Pic2.Image = gambar2

        gambar2.RotateFlip(RotateFlipType.Rotate270FlipX)

        Pic2.Image = gambar2



    End Sub





    Private Sub Rotate90ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RotateToolStripMenuItem.Click

        Dim gambar2 = New Bitmap(Pic2.Image)

        gambar2 = New Bitmap(Pic2.Image)

        Pic2.Image = gambar2

        gambar2.RotateFlip(RotateFlipType.Rotate90FlipX)

        Pic2.Image = gambar2



    End Sub



End Class





Kemudian  klik debug atau tekan F5 untuk menjalankan program

Maka tampilannya akan seperti ini setelah anda memasukkan  gambar ke picturebox nya

Lalu pilih manipulasi citra

Tampilan Grayscale

Tampilan Negatif

Tampilan Brightness

Tampilan Biner

Tampilan Rotasi 90 derajat

Tampilan Rotasi 270 derajat

Demikian program sederhana pengolahan cutra

Selamat Mencoba

Ela Safina 1111872 TI-M1118

Mari Belajar Bahasa Pemograman

penggunaan listview pada vb net untuk kasus jumlah harga barang

Berikut penggunaanlistview untuk kasus penyelesaian jumlah harga barang

Penerapan Listview di VB.Net 2008

Buat kamu yang ingin menggunakan listview pada VB.Net 2008,berikut langkah-langkah yang harus diperhatikan..

Favourite Site Mesran[dot]Net

to get more than just a programming language 

KECANTIKAN

Jenis Makanan Penangkal Penuaan Kulit

Mengoleskan tabir surya merupakan menu wajib untuk mencegah penuaan kulit. Tapi ini saja tak cukup melindungi kulit dari paparan jahat sinar matahari. Anda wajib mengimbangi dengan asupan antioksidan yang memaksimalkan kerja tabir surya. Dilansir Realbeauty, berikut daftar makanan anti penuaan yang mampu melindungi kulit.

KECANTIKAN

Perilaku Ini Haram Dilakukan Pada Rambut 

Rambut adalah mahkota bagi wanita. Namun, alih-alih ingin memiliki rambut yang indah banyak orang melakukan perawatan berlebihan hingga menyebabkan kerusakan pada rambutnya.

BOGA

Cake Singkong 

BILA ingin menyantap kue tapi sehat, maka Anda bisa membuat kue dengan diberi singkong di dalamnya, padukan dengan gula pasir dan cokelat biar semakin nikmat disantap.

KECANTIKAN

Waspada Bahaya Ekstensi Bulu Mata 

Banyak cara untuk membuat bulu mata lebih lebat, panjang dan lentik. Bukan hanya dengan aplikasi maskara atau mengenakan bulu mata palsu tapi juga eyelash extensions. Metode satu ini dengan singkat membuat bulu mata lebih tebal dari biasanya. Tapi hati-hati jika Anda sering melakukannya.

CERPEN

Diantara Tiga Tahun dan Tiga Hari

CERPEN

Dia Seorang Kekasih

CERPEN

Si Kecil Itu..

BOGA

Es Sarang Burung Mangga 

ES sarang burung biasanya hanya diberi kelengkeng. Kini, Anda bisa mengkombinasikannya dengan buah mangga. Padukan dengan agar-agar agar terasa lebih nikmat.

BOGA

Es Santan Selasih 

RASA gurih dari santan serta manisnya susu dan sirup menyatu di mulut Anda saat mencicipi minuman dingin ini. Tambahkan buah-buahan segar untuk menyegarkan hari Anda

BOGA

Cendol 3 Warna

PROSES pembuatan cendol terbilang masih alami dengan bahan dari tepung hunkue. Warna-warninya menarik dengan kuah santan yang gurih serta aroma pandan wangi.

BOGA

Apem Bakar

KUE apem bisa dibuat dari ubi ungu, seperti dalam menu ini. Rasanya sedap, teman pas untuk secangkir kopi atau pun teh panas.

KESEHATAN

5 Makanan Peredam Stres

Jika seketika naf,su makan Anda jadi tidak terkontrol, bisa jadi ini salah satu bentuk pengalihan Anda dari stres. Tapi hati-hati, biasanya saat nafsu makan menggila, seringkali Anda sulit mengontrol makanan yang masuk ke dalam perut. Alih-alih ingin menghilangkan stres dengan banyak makan, justru makanan tak sehat yang bisa membahayakan kesehatan yang dikonsumsi.

KESEHATAN

Migrain, Atasi dengan Cara Alami Ini

Migren mungkin akan menjadi sakit kepala yang paling mengganggu. Bahkan Anda pun diharuskan beristirahat total untuk meredakannya. Rasa sakit ini dapat bersarang selama berjam-jam atau bahkan dua hari.

Penyebabnya, pelebaran pembuluh darah di sekitar pelipis dan pelepasan zat kimia. Pelebaran ini menyebabkan terjadinya peregangan pada saraf di sekitar arteri sehingga merangsang saraf ini melepaskan zat kimia yang menimbulkan rasa sakit luar biasa. 

Biasanya kita akan mengobatinya dengan meminum obat-obatan khusus pereda sakit. Tetapi, ternyata ada beberapa perawatan alami yang dapat dicoba untuk mengobati migrain.

KESEHATAN

3 Kesalahan Pagi yang Membuat Tubuh Lemas

Untuk dapat melakukan aktivitas dengan normal, metabolisme tubuh berperan penting. Proses metabolisme ini bermanfaat membakar lemak dan mengubahnya menjadi energi. Semakin cepat pembakaran, semakin cepat Anda mendapat asupan energi.

Faktor yang membengaruhi metabolisme ini termasuk usia, genetik, berat badan, dan pola makan. namun banyak dari kita yang secara tak sadar justru melakukan hal-hal yang menghambat metabolisme, seperti berikut:

KESEHATAN

4 Jurus Jitu Hindari Serangan Stroke di Usia Muda

Tujuh dari sepuluh orang dewasa berpeluang besar terkena stroke dan serangan jantung. Hal ini diakibatkan karena tekanan darah yang tinggi.

UNIK & ANEH

Delapan Nama Bayi yang Unik di Era Internet

 

 Internet tidak hanya memperluas wawasan penggunanya, tetapi juga memberi inspirasi saat memberi nama pada bayi.

Berikut ini delapan nama bayi yang unik di era internet.

UNIK & ANEH

Unik, Lukisan Terbuat dari Makanan

Arsitek asal Malaysia, Hong Yi, tak hanya piawai mendesain bangunan. Wanita cantik ini juga seorang seniman yang memiliki kreativitas tinggi.

Nama Hong Yi sendiri memang tidak asing lagi. Ia sempat ramai diberitakan setelah membuat gambar sutradara ternama China Zhang Yimou dari tumpukan kaos kaki. Ia juga berhasil memukau dunia lewat gambar musisi Jay Chou yang dibuat dari cetakan cangkir dan kopi sebagai pengganti cat.

UNIK & ANEH

6 Fakta Unik Ratu Elizabeth II

 Terdapat enam fakta menarik mengenai Ratu Elizabeth II yang sudah memimpin Inggris selama 60 tahun. Fakta-fakta menarik itu antara lain adalah.

SEJARAH DAN PERISTIWA

"Black Death" Nenek Moyang Wabah Penyakit Modern

 

 Wabah Black Death yang membunuh setengah dari total populasi warga Eropa pada pertengahan abad ke-14 dinilai sebagai "nenek moyang" dari wabah-wabah penyakit modern. Penyelidikan terhadap penyakit mematikan itupun masih belum usai.

SEJARAH DAN PERISTIWA

5 Tokoh Bersejarah yang "Mengerikan"

 

 Nama-nama dari tokoh bersejarah yang disebutkan di bawah ini menjadi inspirasi tersendiri bagi sejumlah seniman dalam menciptakan tokoh film horror. Mereka antara lain adalah Vlad, Jack The Ripper, Elizabeth Bathory dan beberapa tokoh lainnya.

ILMU PENGETAHUAN DAN TEKHNOLOGI

Fosil Ikan Tunjukkan Asal Usul Kaki Manusia?

Spesimen itu menjawab bagaimana terbentuknya kaki pada makhluk purba

 

Seekor ikan purba yang memiliki sirip di dekat ekornya telah membantu peneliti memecahkan misteri bagaimana hewan-hewan dan manusia memiliki sepasang kaki.

Ikan yang memiliki nama ilmiah Euphanerops, diduga merupakan makhluk pertama di planet yang berhasil berevolusi pada anggota tubuhnya, yaitu pada siripnya. Spesies ini diperkirakan hidup pada 370 juta tahun lalu.

SEJARAH DAN PERISTIWA

3 Raja "Bocah" yang Mengubah Sejarah

 

 Seorang raja di abad pertengahan tentunya memiliki wibawa yang sangat besar dan kekuasaan absolut. Sejarah pun mencatat nama tiga orang raja yang naik takhta di saat usia mereka masih di bawah 18 tahun dan wafat di usia di bawah 25 tahun. Namun, eksistensi mereka cukup memberikan pengaruh besar pada dunia ini.

SEJARAH DAN PERISTIWA

5 "Jabat Tangan" Bersejarah yang Pernah Terjadi di Dunia Ini

 

 Jabat tangan, adalah sebuah bahasa tubuh yang menunjukan adanya itikad baik dari seseorang ke orang lain. Sejarah pun mencatat lima "jabat tangan" dari sejumlah tokoh terkenal di dunia ini yang cukup fenomenal.

ILMU PENGETAHUAN DAN TEKHNOLOGI

Bagaimana Skenario Kepunahan Bumi?

Ketika hancur, Hawking meramalkan manusia akan meninggalkan Bumi

 

Dia bukan ilmuwan biasa. Dia adalah Stephen Hawking, fisikawan terkemuka dunia, yang kembali memperingatkan tentang kepunahan Bumi di masa depan.

ILMU PENGETAHUAN DAN TEKHNOLOGI

Dropbox Mampu Temukan Komputer Anda yang Hilang

 

Kehilangan perangkat elektronik memang kadang membuat kita sedih, mengingat banyaknya data dan informasi pribadi kita yang berada pada perangkat tentunya akan sangat mengecewakan. Akan tetapi, saat ini Anda tidak perlu terlalu khawatir, ada sebuah aplikasi yang akan membantu Anda menemukan perangkat yang hilang.

ILMU PENGETAHUAN DAN TEKHNOLOGI

5 Aplikasi Terbaik Resep Hidangan Pencuci Mulut

 

 Siapa yang tidak suka dengan hidangan penutup (dessert) yang manis-manis dan menggoda selera seperti yang sering Anda lihat pada acara memasak di televisi. Bahkan, tak jarang Anda kesulitan mendapatkan resep dessert yang tepat.

Tidak perlu khawatir, sebab Okezone merangkum aplikasi resep terbaik untuk menu dessert pada iOS seperti yang dikutip SMH, Senin (25/3/2013) berikut ini:

ILMU PENGETAHUAN DAN TEKHNOLOGI

Tiga Ilmuwan Besar yang Dianggap Sesat

 

Ilmuwan hebat yang telah menelurkan buah karyanya dianggap telah banyak berkontribusi terhadap cara pandang manusia di Bumi. Apakah ilmuwan besar ini selalu berada dalam kesesatan, bahkan melanggar batasan pada ajaran agama tertentu.