Manipulasi Citra

Public Class Form1
    Dim Gambar As Bitmap
    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
                        vH = 0
                        vM = 0
                        vB = 0
                    Else
                        vM = 255
                        vH = 255
                        vB = 255
                    End If
                    .SetPixel(Pc, Pb, Color.FromArgb(vM, vH, vB))
                Next
                Pic1.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 NegativeImageToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NegativeImageToolStripMenuItem.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
                Pic1.Image = Gambar
                Pic2.Refresh()
            Next
        End With
    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 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 RotateLeftToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RotateLeftToolStripMenuItem.Click
        Dim gambar2 = New Bitmap(Pic2.Image)
        gambar2 = New Bitmap(Pic2.Image)
        Pic2.Image = gambar2
        gambar2.RotateFlip(RotateFlipType.RotateNoneFlipX)
        Pic2.Image = gambar2
    End Sub

    Private Sub RotateRightToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RotateRightToolStripMenuItem.Click
        Dim gambar2 = New Bitmap(Pic2.Image)
        gambar2 = New Bitmap(Pic2.Image)
        Pic2.Image = gambar2
        gambar2.RotateFlip(RotateFlipType.RotateNoneFlipY)
        Pic2.Image = gambar2
    End Sub

    Private Sub ToolStripMenuItem2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuItem2.Click
        Dim gambar2 = New Bitmap(Pic2.Image)
        gambar2 = New Bitmap(Pic2.Image)
        Pic2.Image = gambar2
        gambar2.RotateFlip(RotateFlipType.Rotate90FlipX)
        Pic2.Image = gambar2
    End Sub

    Private Sub ToolStripMenuItem3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuItem3.Click
        Dim Pb, Pc As Integer
        Dim vM, vH, vB As Double
        Dim gambar3 As Bitmap = New Bitmap(Pic1.Image)
        With Gambar
            For Pb = .Height - 1 To 0 Step -1
                For Pc = .Width - 1 To 0 Step -1
                    vM = .GetPixel(Pc, Pb).R
                    vH = .GetPixel(Pc, Pb).G
                    vB = .GetPixel(Pc, Pb).B
                    gambar3.SetPixel(.Width - 1 - Pc, .Height - 1 - Pb, Color.FromArgb(vM, vH, vB))
                Next
                Pic2.Image = gambar3
                Pic2.Refresh()
            Next
        End With
        Gambar = gambar3
    End Sub

    Private Sub OpenCitraToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OpenCitraToolStripMenuItem.Click
        OFD.Filter = "MBP|*.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 OFD_FileOk(ByVal sender As System.Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles OFD.FileOk

    End Sub

    Private Sub SaveCitraToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SaveCitraToolStripMenuItem.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.Bmp)
        End If
    End Sub

    Private Sub ToolStripMenuItem4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuItem4.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 KeluarToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KeluarToolStripMenuItem.Click
        End
    End Sub

    Private Sub HijauToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles HijauToolStripMenuItem.Click
        Dim Pb, Pc As Integer
        Dim vM, vH, vB As Double

        Dim gambar2 = New Bitmap(Pic2.Image)
        For Pb = 0 To gambar2.Height - 1
            For Pc = 0 To gambar2.Width - 1
                vM = gambar2.GetPixel(Pc, Pb).R
                vH = gambar2.GetPixel(Pc, Pb).G + 10
                vB = gambar2.GetPixel(Pc, Pb).B
                If vH >= 255 Then vH = 255
                gambar2.SetPixel(Pc, Pb, Color.FromArgb(vM, vH, vB))
            Next
            Pic2.Image = gambar2
            Pic2.Refresh()
        Next
    End Sub

    Private Sub BiruToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BiruToolStripMenuItem.Click
        Dim Pb, Pc As Integer
        Dim vM, vH, vB As Double

        Dim gambar2 = New Bitmap(Pic2.Image)
        For Pb = 0 To gambar2.Height - 1
            For Pc = 0 To gambar2.Width - 1
                vM = gambar2.GetPixel(Pc, Pb).R
                vH = gambar2.GetPixel(Pc, Pb).G
                vB = gambar2.GetPixel(Pc, Pb).B + 10
                If vB >= 255 Then vB = 255
                gambar2.SetPixel(Pc, Pb, Color.FromArgb(vM, vH, vB))
            Next
            Pic2.Image = gambar2
            Pic2.Refresh()
        Next
    End Sub

    Private Sub MerahToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MerahToolStripMenuItem.Click
        Dim Pb, Pc As Integer
        Dim vM, vH, vB As Double

        Dim gambar2 = New Bitmap(Pic2.Image)
        For Pb = 0 To gambar2.Height - 1
            For Pc = 0 To gambar2.Width - 1
                vM = gambar2.GetPixel(Pc, Pb).R + 10
                vH = gambar2.GetPixel(Pc, Pb).G
                vB = gambar2.GetPixel(Pc, Pb).B
                If vM >= 255 Then vM = 255
                gambar2.SetPixel(Pc, Pb, Color.FromArgb(vM, vH, vB))
            Next
            Pic2.Image = gambar2
            Pic2.Refresh()
        Next
    End Sub
End Class

Hasil Biner

Hasil Brigthness

 

Hasil Contrass Biru

 Hasil Cobtrass Hijau

Hasil Contrass Merah

 

 Hasil rotase 90

 Hasil Rotate 180

Hasil Rotate 270

 Hasil Negatif

Hasil Rotate Left

 

Hasil Rotate RightPemrograman Manipulasi Citra

Susunan Kabel Straight

Standar Susunan Kabel UTP:  Seringkali kita  menghadapi  masalah  yang  terlihat sepele, namun dapat mengakibatkan kesalahan yang fatal di kemudian hari. Untuk sebagian orang memasangkan kabel UTP dengan konektor RJ45 asal kedua ujungnya memiliki susunan  warna yang sama, sudah pasti bukan masalah. Namun dalam membangun sebuah jaringan komputer yang besar dan kompleks yang mengikut sertakan banyak orang, tentulah hal tersebut dapatmenjadikan suatu masalah dan pasti akan terjadi kebingungan. Maka dari itu haruslah dilakukan standarisasi pemasangan. Kita tidak usah susah-susah menciptakan aturan standard sendiri, karena sudah ada lembaga yang mengatur hal tersebut yaitu TIA/EIA, http://www.tiaonline.org/standards/catalog/ dan tinggal kita mengikutinya.

Kabel UTP (Unshielded Twisted Pair) yang sering digunakan untuk jaringan komputer adalah kabel UTP categori 5 (UTP Cat 5) yang secara praktis dapat mendukung transfer data sampai 100 Mbps. UTP Cat 5 terdiri dari 4 pasang kabel berwarna atau 8 kabel tunggal. Warna-warna kabel tersebut adalah sbb:

• Pasangan 1: Putih-Biru dan Biru
• Pasangan 2: Putih-orange dan Orange
• Pasangan 3: Putih-Hijau dan Hijau
• Pasangan 4: Putih-Coklat dan Coklat

Jenis Kabel

Susunan kabel UTP terdiri dari 2 jenis, yaitu:

1. Straight (lurus), biasa digunakan untuk menghubungkan perangkat yang berbeda, misalnya: komputer ke hub, komputer ke switch.
2. Cross (silang), biasa digunakan untuk menghubungkan perangkat yang sama, misalnya: komputer ke komputer, hub ke hub, switch ke switch.

Standar Susunan Kabel Straight (Lurus)

Untuk standar urutan kabel straight susunan pada kedua ujung sama, yaitu:

1. Putih-orange
2. Orange
3. Putih-hijau
4. Biru
5. Putih-biru
6. Hijau
7. Putih-coklat
8. Coklat

Standar Susunan Kabel Cross (Silang)

Untuk standar urutan kabel cross susunan pada kedua ujung berbeda, yaitu:

Ujung pertama sama dengan susunan kabel straight:

1. Putih-orange
2. Orange
3. Putih-hijau
4. Biru
5. Putih-biru
6. Hijau
7. Putih-coklat
8. Coklat

Ujung kedua, pin 1 dan 3 tukar posisi, pin 2 dan 6 tukar posisi:

1. Putih-hijau
2. Hijauh
3. Putih-orange
4. Biru
5. Putih-biru
6. Orange
7. Putih-coklat
8. Coklat

BOGOSHIPDA by Kim

Amoori kidaryuhdo nan motka
Babochuhrum oolko inneun (nuh)nuh-yi kyuhte
Sangchuhman jooneun nareul weh moreuko kidarini
Tuhnakaran marya

(Refrain 1)
Bogoshipda, bogoshipda
Irun nega miwuhjil mankeum
Oolgoshipda, nege mooreup koolko
Modoo uhptun iri dwel soo itdamyun

(Chorus)
Michil deus saranghetun ki-uhgi
Choo-uhkdeuri nuhreul chatko itjiman
Duh isang sarang-iran byunmyung eh
Nuhreul kadool soo uhpsuh.
Iruhmyun andwejiman.
Joogeul mankeum bogoshipda.

(Instrumental)

(Refrain 2)
Bogoshipda, bogoshipda
Irun nega miwuhjil mankeum
Mitkoshipda, orheun kirirago.
Nuhreul wihe duhnayaman handago.

(Repeat Chorus)

Joogeul mankeum mitkoshipda.

Ikan Keju

IKAN KEJU

Bahan:

500 gr daging ikan tengiri yg sudah dihaluskan

1 sdm ketumbar

8 butir bawang merah

4 siung bawang putih

1 gelas santan kental dari 1/2 butir kelapa

2 butir telur, kocok sebentar

1 batang daun bawang, iris kasar

5 sdm tepung sagu

200 gr sosis, iris sesuai selera

200 gr keju mozarella, iris tipis

1/2 sdt merica halus

garam dan gula pasir secukupnya, dicampur dengan sedikit tabasco

aluminium foil, untuk melapisi loyang

Cara membuat:

1. Haluskan lebih duku ketumbar, bawang merah, dan bawang putih. Campurkan

dengan daging ikan tengiri, santan, telur, daun bawang, garam, merica dan gula.

Uleni hingga tercampur rata.

2. Kemudian masukkan juga tepung sagu, uleni lagi sampai tercampur rata. Bagi

adonan ini menjadi 3 bagian.

3. Siapkan loyang empat persegi panjang, alasi dengan aluminium foil. Tuangkan 1/3

bagian adonan ikan, ratakan, lapisi dengan 1/3 bagian irisan sosis. Tuangi lagi

dengan 1/3 bagian adonan ikan, lapisi dengan 1/3 bagian irisan sosis.

4. Terakhir tuangi dengan sisa adonan ikan. Kukus sampai matang kl 45-60 menit.

5. Dalam keadaan masih panas, lapisi bagian atasnya dengan keju mozarella, lalu

panggang hingga keju meleleh. Pada waktu keju sedang melelh, hiasi dengan sisa

sosis dan panggang lagi hingga sosis agak kering. keluarkan dari oven.

6. Setelah agak dingin , keluarkan ikan keju dari loyang. Potong2 sebelum

dihidangkan dengan saus sambal dan tabasco.

Ikan Keju

IKAN KEJU

Bahan:

500 gr daging ikan tengiri yg sudah dihaluskan

1 sdm ketumbar

8 butir bawang merah

4 siung bawang putih

1 gelas santan kental dari 1/2 butir kelapa

2 butir telur, kocok sebentar

1 batang daun bawang, iris kasar

5 sdm tepung sagu

200 gr sosis, iris sesuai selera

200 gr keju mozarella, iris tipis

1/2 sdt merica halus

garam dan gula pasir secukupnya, dicampur dengan sedikit tabasco

aluminium foil, untuk melapisi loyang

Cara membuat:

1. Haluskan lebih duku ketumbar, bawang merah, dan bawang putih. Campurkan

dengan daging ikan tengiri, santan, telur, daun bawang, garam, merica dan gula.

Uleni hingga tercampur rata.

2. Kemudian masukkan juga tepung sagu, uleni lagi sampai tercampur rata. Bagi

adonan ini menjadi 3 bagian.

3. Siapkan loyang empat persegi panjang, alasi dengan aluminium foil. Tuangkan 1/3

bagian adonan ikan, ratakan, lapisi dengan 1/3 bagian irisan sosis. Tuangi lagi

dengan 1/3 bagian adonan ikan, lapisi dengan 1/3 bagian irisan sosis.

4. Terakhir tuangi dengan sisa adonan ikan. Kukus sampai matang kl 45-60 menit.

5. Dalam keadaan masih panas, lapisi bagian atasnya dengan keju mozarella, lalu

panggang hingga keju meleleh. Pada waktu keju sedang melelh, hiasi dengan sisa

sosis dan panggang lagi hingga sosis agak kering. keluarkan dari oven.

6. Setelah agak dingin , keluarkan ikan keju dari loyang. Potong2 sebelum

dihidangkan dengan saus sambal dan tabasco.

Wisata Kota Medan

Tempat Wisata di Kota Medan yang Menarik - Di Kota Medan banyak sekali tempat-tempat pariwisata yang bervariasi mulai dari tempat wisata bersejarah, wisata religi, wisata alam, wisata modern atau tempat rekreasi keluarga. Kota Medan merupakan Ibukota dari propinsi Sumatera Utara yang terkenal dengan Danau Toba karena menjadi Danau yang terluas di Indonesia dan terletak di pulau Sumatera, tentunya bukanlah sebuah kota yang kecil jika menjadi sebuah Ibukota, dan saya rasa Kota Medan sudah di kenal orang di seluruh Indonesia baik itu dari Objek wisata yang menarik atau dari segi persatuan sepak bolanya yang menantang. dan berikut ini adalah Tempat Wisata di kota medan yang Menarik untuk anda kunjungi diantaranya sebagai berikut :

1. Istana Maimun
Istana Maimun memiliki desain yang unik dan berkualitas yang didesain atau dirancang oleh seorang arsitek dari Italia dan kemudian didirikan oleh Sultan Deli, yaitu Makmun Al Rasyid Perkasa Alamsyah pada tahun 1888 silam, Istana Maimun seluas 2.772 meter persegi dengan jumlah ruangan sebanyak 30 kamar.
2. Masjid Raya Medan
Masjid Raya Medan memiliki ciri bentuk kubah segi empat yang datar serta di ujung atap dengan dekorasi bulan sabit yang juga sudah biasa ditemukan pada bangunan peninggalan umat Agama Islam lainnya seperti Mesjid dan menara, menurut para ahli pada bidang tersebut, dekorasi bulan sabit dihubungkan sebagai sebuah symbol kedamaian, karena Agama Islam disiarkan dan di sebarkan tanpa kekerasan
3. Danau Linting
Danau Linting merupakan Salah satu Danau unik yang dapat anda kunjungi di kota Medan, Danau Linting ini mempunyai warna air yang hijau dan biru juka dilihat dari permukaan, dan disekeliling danau terdapat batu cadas. Lokasi Danau Linting di Kecamatan STM Hulu desa Sibunga-bunga Hilir Kabupaten deli Serdang. Danau Linting memiliki nuansa mistis namun menyejukkan karena disekeling danau terdapat pepohonan dengan akar yang panjang sehingga menambah suasna udara menjadi sejuk dan damai. Sangat Cocok untuk tempat refreshing anda dan keluarga atau bersama sahabat-sahabat anda.

4. Air Terjun Sipiso-Piso Tongging
Air terjun Sipiso-Piso Tongging yang majestic terletak sekitar 135 km dari Brasatagi. Air terjun Tongging ini mempunyai ketinggian sekitar 120 meter yang dekat dengan Gunung Sipiso-piso . Keindahan panorama alam dari air terjun ditambah dengan pemandangan alam dari Danau Toba yang indah dan juga matahari di air terjun yang menambah keindahan dari air terjun tongging yang indah. Anda harus Bersiap untuk olah raga jika ingin pergi menuju dasar dari air terjun tongging. Karena anda harus menempuh sekitar 1000 anak tangga dan kira-kira membutuhkan waktu sekitar setengah jam untuk turun ke bawah melewati tangga yang berliku-liku dengan berjalan kaki. Air terjun Tongging sangat indah karena tidak begitu jauh dari tepian Danau Toba yang juga berada di tengah bukit dan disekelilingnya memiliki nuansa warna hijau yang di pengaruhi oleh tumbuhan dan ada disekeliling lembah yang menakjubkan.

5. Air Terjun dan Telaga Dwi Warna Sibolangit
Air Terjun dan Telaga Dwi Warna Sibolangit berjarak sekitar 2 jam waktu dari Kota Medan dengan menggunakan motor atau bus. Sibolangit merupakan sebuah tempat dengan nuansa pegunungan yang sejuk dan penuh dengan tempat pariwisata yang menarik sangat cocok untuk travelling. Salah satunya adalah Telaga Dwi warna yang terdapat di dalam hutan Sibolangit. Air terjun ini disebut Dwi warna karena air terjun terjun ini berada di telaga berwarna biru yang dingin dan tidak jauh dari air terjun yang dingin terdapat juga air terjun yang hangat dan berwarna putih. Jika Anda dari taman wisata Sibolangit dan ingin menuju Telaga Dwi warna ini membutuhkan waktu sekitar 3 jam waktu perjalanan dengan berjalan kaki dan menjelajahi hutan. Anda harus bersiap untuk melakukan perjalanan panjang namun waktu anda melihat keindahan panorama alamnya rasa capek yang ada akan serasa hilang. Pariwisata ini masih tersembunyi dan jika ingin menuju kesini sebaiknya anda menyewa pemandu agar tidak tersesat di dalam hutan. dan Tempat ini juga cocok untuk kamping atau berkemah.