KRIPTOGRAFI

TUGAS KRIPTOGRAFI 

1. CHESAR CHIPER

CODINGNYA:

Public Class Menu_Utama
    Private Sub CaesarChiperToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CaesarChiperToolStripMenuItem.Click
        Caeser_Chiper.MdiParent = Me
        Caeser_Chiper.Show()
    End Sub

    Private Sub GronsfeldChiperToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GronsfeldChiperToolStripMenuItem.Click
        Grondfeld_Chiper.MdiParent = Me
        Grondfeld_Chiper.Show()
    End Sub

    Private Sub VernamChiperToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles VernamChiperToolStripMenuItem.Click
        Vernam_Chiper.MdiParent = Me
        Vernam_Chiper.Show()
    End Sub

    Private Sub VigenereChiperToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles VigenereChiperToolStripMenuItem.Click
        Vegenere_Chiper.MdiParent = Me
        Vegenere_Chiper.Show()
    End Sub

    Private Sub DesChiperToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DesChiperToolStripMenuItem.Click
        Des_Chiper.MdiParent = Me
        Des_Chiper.Show()
    End Sub

    Private Sub RC4ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RC4ToolStripMenuItem.Click
        RC4.MdiParent = Me
        RC4.Show()
    End Sub

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

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

    End Sub

    Private Sub KeluarToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KeluarToolStripMenuItem1.Click
        End
    End Sub
End Class

Public Class Caeser_Chiper

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim jumlah As Double = Len(Plainteks.Text)
        Dim x As String
        Dim xkalimat As String = ""
        Dim i As Double
        Dim bil As Integer
        For i = 1 To jumlah
            x = Mid(Plainteks.Text, i, 1)
            bil = Asc(x) + 3
            x = Chr(bil)
            xkalimat = xkalimat + x
        Next i
        Chiperteks.Text = xkalimat
    End Sub

    Private Sub Deskripsi_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Deskripsi.Click
        Dim jumlah As Double = Len(Chiperteks.Text)
        Dim x As String
        Dim xkalimat As String = ""
        Dim i As Double
        Dim bil As Integer
        For i = 1 To jumlah
            x = Mid(Chiperteks.Text, i, 1)
            bil = Asc(x) - 3
            x = Chr(bil)
            xkalimat = xkalimat + x
        Next i
        Plainteks.Text = xkalimat
    End Sub

End Class

HASILNYA :

2. GRONSFIELD

  CODINGNYA : 

Public Class Menu_Utama

    Private Sub CaesarChiperToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CaesarChiperToolStripMenuItem.Click

        Caeser_Chiper.MdiParent = Me

        Caeser_Chiper.Show()

    End Sub

    Private Sub GronsfeldChiperToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GronsfeldChiperToolStripMenuItem.Click

        Grondfeld_Chiper.MdiParent = Me

        Grondfeld_Chiper.Show()

    End Sub

    Private Sub VernamChiperToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles VernamChiperToolStripMenuItem.Click

        Vernam_Chiper.MdiParent = Me

        Vernam_Chiper.Show()

    End Sub

    Private Sub VigenereChiperToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles VigenereChiperToolStripMenuItem.Click

        Vegenere_Chiper.MdiParent = Me

        Vegenere_Chiper.Show()

    End Sub

    Private Sub DesChiperToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DesChiperToolStripMenuItem.Click

        Des_Chiper.MdiParent = Me

        Des_Chiper.Show()

    End Sub

    Private Sub RC4ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RC4ToolStripMenuItem.Click

        RC4.MdiParent = Me

        RC4.Show()

    End Sub

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

        End

    End Sub

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

    End Sub

    Private Sub KeluarToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KeluarToolStripMenuItem1.Click

        End

    End Sub

End Class

HASILNYA :

3.  VERNAM CHIPER

     CODINGNYA :

Public Class Vernam_Chiper 

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

        Dim j As Integer

        Dim jum As Integer

        Dim sKey As String

        Dim nKata As Integer

        Dim nKunci As Integer

        Dim sKata As String

        Dim sPlain As String = ""

        Dim nEnc As Integer

        j = 0

        sKata = Plainteks.Text

        jum = Len(sKata)

        sKey = Kunci.Text

        For i = 1 To jum

            If j = Len(sKey) Then

                j = 1

            Else

                j = j + 1

            End If

            nKata = Asc(Mid(sKata, i, 1)) - 65

            nKunci = Asc(Mid(sKey, j, 1)) - 65

            nEnc = ((nKata + nKunci) Mod 26)

            sPlain = sPlain & Chr((nEnc) + 65)

        Next i

        Chiperteks.Text = sPlain

    End Sub

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

        Plainteks.Text = ""

        Kunci.Text = ""

        Chiperteks.Text = ""

    End Sub

    Private Sub Plainteks_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles Plainteks.KeyPress

        e.KeyChar = UCase(e.KeyChar)

        Dim tombol As Integer = Asc(e.KeyChar)

        If Not (((tombol >= 65) And (tombol <= 90)) Or (tombol = 8)) Then

            e.Handled = True

        End If

    End Sub

End Class

HASILNYA :

4. VEGENERE CHIPER

     CODINGNYA

Public Class Vegenere_Chiper

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

        Plaintext.Text = ""

        Chipertext.Text = ""

        Kunci.Text = ""

    End Sub

    Private Sub Enkripsi_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Enkripsi.Click

        Dim J As Integer

        Dim Jum As Integer

        Dim sKey As String

        Dim nKata As Integer

        Dim nKunci As Integer

        Dim sKata As String

        Dim sPlain As String = ""

        Dim nEnc As Integer

        J = 0

        sKata = Plaintext.Text

        Jum = Len(sKata)

        sKey = Kunci.Text

        For i = 1 To Jum

            If J = Len(sKey) Then

                J = 1

            Else

                J = J + 1

            End If

            nKata = Asc(Mid(sKata, i, 1)) + 0

            nKunci = Asc(Mid(sKey, J, 1)) + 0

            nEnc = ((nKata + nKunci) Mod 256)

            sPlain = sPlain & Chr((nEnc))

        Next i

        Chipertext.Text = sPlain

    End Sub

End Class

HASILNYA

5. DES CHIPER

CODINGNYA

Public Class Des_Chiper

    Private Sub Enkripsi_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Enkripsi.Click

        'Dim key As String, kunciChar As String, katabaru As String

        Dim Pos As Long

        Dim i As Long, Side1 As String, Side2 As String

        Dim nEnc As Long

        Dim j As Integer

        Pos = 1

        For i = 1 To Len(Plaintext.Text)

            Plaintext.Text = Mid(Plaintext.Text, i, 1)

            kunci.Text = Mid(kunci.Text, Pos, 1)

            Chipertext.Text = Chipertext.Text & Chr(Asc(Plaintext.Text)) Or Asc(Kunci.Text)

            If Pos = Len(kunci) Then Pos = 0

            Pos = Pos + 1

        Next i

        j = Len(Chipertext.Text) Mod 2 = 0

        If j Then

            Side1 = Strings.Left(Chipertext.Text, (Len(Chipertext.Text) / 2))

            Side2 = Strings.Right(Chipertext.Text, (Len(Chipertext.Text) / 2))

            Chipertext.Text = Side1 & Side2

        End If

        nEnc = Chipertext.Text

    End Sub

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

        Plaintext.Text = ""

        Chipertext.Text = ""

    End Sub

End Class

HASILNYA

6. RC4

CODINGNYA

Public Class RC4

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

        Plaintext.Text = ""

        Chipertext.Text = ""

        Kunci.Text = ""

    End Sub

    Private Function Rc4(ByVal message As String, ByVal password As String) As String

        Dim s = Enumerable.Range(0, 256).ToArray

        Dim i, j As Integer

        For i = 0 To s.Length - 1

            j = (j + Asc(password(i Mod password.Length)) + s(i)) And 255

            Dim temp = s(i)

            s(i) = s(j)

            s(j) = temp

        Next

        i = 0

        j = 0

        Dim sb As New System.Text.StringBuilder(message.Length)

        For Each c As Char In message

            i = (i + 1) And 255

            j = (j + s(i)) And 255

            Dim temp = s(i)

            s(i) = s(j)

            s(j) = temp

            sb.Append(Chr(s((s(i) + s(j)) And 255) Xor Asc(c)))

        Next

        Return sb.ToString

    End Function

    Private Sub Enkripsi_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Enkripsi.Click

        Chipertext.Text = Rc4(Plaintext.Text, Kunci.Text)

    End Sub

End Class

HASILNYA

Read More

i-limb Ultra Revolution, Tangan Palsu Pintar yang Bisa Dikontrol Menggunakan Smartphone

Sebuah perangkat canggih bernama i-limb ultra revolution baru saja diciptakan oleh perusahaan bernama Touch Bionics. Alat ini merupakan sebuah tangan palsu yang elektronik yang juga bisa dikontrol menggunakan sebuah aplikasi smartphone.

Pihak Touch Bionics mengatakan bahwa i-limb miliknya tersebut merupakan tangan palsu pertama di dunia yang bisa dikontrol menggunakan smartphone. Kemampuan ini dapat dilakukan bersamaan dengan sebuah aplikasi mobile bernama biosim.
Selain itu, kemampuan tangan palsu ini pun memiliki fungsi yang sangat membantu bagi mereka yang membutuhkan. Tangan palsu ini dilengkapi dengan fitur yang mirip dengan tangan manusia. Dengan begitu pihak Touch Bionics berharap agar mereka yang tidak memiliki tangan bisa beraktivitas seperti halnya orang-orang normal.

Tak hanya bisa dikontrol melalui smartphone, tangan ini pun bisa bekerja secara langsung berkat sensor yang mampu mendeteksi gerakan otot. Selain itu tangan palsu ini juga memiliki bobot yang tidak terlalu berat, bervariasi antara 443 gram hingga 515 gram, bergantung pada ukurannya. Selain itu sebuah tangan palsu 7.4 V dapat menahan beban hingga 90 kilogram dan 32 kilogram pada bagian jarinya.

sumber(beritateknologi.com)

Read More

BlackBerry 10R Series Muncul dengan Desain QWERTY dan Body Berwarna Merah

Saat ini BlackBerry memang hanya memiliki dua handphone terbarunya yang menggunakan OS BlackBerry 10. Namun di tahun ini, mereka pun dikatakan akan mengeluarkan produk terbaru lain.

Kini bocoran mengenai produk baru dari BlackBerry tersebut pun beredar di internet. Foto dari handphone yang dikatakan adalah salah satu bagian dari smartphone BlackBerry R10 series muncul pertama kali di Instagram.
Banyak pihak yang mengungkapkan bahwa foto tersebut merupakan informasi yang bisa dipercaya. Memang tidak ada informasi lebih lanjut mengenai handphone ini, terutama mengenai spesifikasi di dalamnya.
Yang pasti, merujuk pada foto tersebut, handphone tersebut merupakan handphone BlackBerry yang hadir dengan desain QWERTY. Handphone ini juga diungkapkan bakal dijual dengan harga murah.  Jadi, kita tunggu saja kedatangan handphone ini di masa mendatang. Tentunya akan cukup menarik dengan adanya handphone BlackBerry 10 dengan harga murah.
sumber ( beritateknologi.com)

Read More

Sony Xperia ZR Jagoan Tahan Air Sony Terbaru Layar 4.6 Inci, Kamera 13Mp Exmor RS dan Prosesor Quad Core 1.5 Ghz

Sony Xperia Z saat ini tergolong laris di pasaran, tapi sebagian pengguna mungkin lebih menyukai ukuran yang lebih kecil dan tentunya harga lebih murah, oleh karena itulah Sony menghadirkan adik Xperia Z bernama Xperia ZR, dengan layar berukuran 4.6 inci tapi tetap memiliki kelebihan dari Xperia Z yaitu tahan air dan debut dengan sertifikasi IP55 dan IP58. Dan prosesor quad core Snapdragon S4 1.5Ghz pun dibenamkan pada Xperia ZR ini. Hanya saja Xperia ZR tidak memiliki resolusi layar FULL HD tapi HD saja yaitu 720x1280px. Spesifikasi lain adalah memori 2GB RAM,konektivitas LTE, Bluetooth 4.0 serta ada dukungan NFC sedangkan OS yang digunakan adalah Android 4.1 Jelly Bean.

Kamera pada Xperia ZR mampu merekam video FULL HD dalam air maupun mengambil gambar foto di mana kamera pada ponsel ini menggunakan sensor 13Mpx Sony Exmor RS dengan kemampuan HDR yang juga mampu mengambil gambar 15 frame per detik dalam mode burst. Selain itu kamera ini dilengkapi 16x digital zoom dengan auto focus.

Layar ponsel Sony Xperia ZR ini menggunakan teknologi HD Reality Display dengan engine Mobile Bravia 2 yang mampu menampilkan kontras lebih baik yg diadopsi dari teknologi TV Sony bahkan dioptimasikan dengan panel kaca OptiContrast untuk meminimalisasi refleksi dan menampilkan hasil lebih jelas di kondisi terang.

sumber ( beritateknologi.com)

Read More

Alcatel One Touch Evo 7 HD, Tablet 7 Inci Android Jelly Bean Berbasis Cortex-A9 1.6GHz

Tak heran kalau para produsen smartphone berlomba-lomba memboyong jajaran produk teranyar pada acara Mobile World Congress 2013. Acara yang kini (26/02) sedang berlangsung di Barcelona tersebut memang jadi ajang unjuk gigi yang memamerkan berbagai smartphone serta tablet tercanggih yang ada saat ini. Salah satu produsen asal Perancis, Alcatel pun turut menghadirkan produk-produk andalannya seperti One Touch Idol X, One Touch Fire, One Touch Star serta tablet One Touch Evo 7 HD.

Tablet berukuran 7 inci ini siap merambah pasaran dengan teknologi layar sentuh IPS HD, apalagi akan semakin tangguh dengan disematkannya processor Cortex-A9 dengan clock speed 1.6GHz serta RAM 1GB. Tak hanya itu, tablet ini juga sudah dibundel dengan memori internal 4GB untuk model standarnya, yang mana nantinya pihak Alcatel tetap akan menyediakan pilihan dengan memori internal 8GB dan 16GB.

Untuk segi konektivitasnya tablet berbasis Android 4.1 Jelly Bean ini didukung oleh 4G LTE, HSPA+ 21mbps, koneksi Wi-Fi dan kapabilitas Bluetooth 4.0. Bila Anda hobi foto, maka akan cukup dipuaskan dengan kehadiran fitur dual kamera yang mana di bagian belakang Anda akan menemukan kamera 3 Megapixel dan di bagian depannya kamera VGA yang bisa dipakai untuk video call.

Seperti halnya tablet lain, tablet ini juga sudah dilengkapi dengan slot microSD, microUSB, headphone jack 3.5mm untuk mendengarkan musik. Sayangnya tidak disebutkan secara rinci kapan tablet ini akan dipasarkan atau berapa kisaran harganya nanti. Kita tunggu saja.

sumber( beritateknologi.com)

Read More

HP SlateBook x2 Laptop Android 10 Inci Spesifikasi Prosesor NVIDIA Tegra 4 dengan Keyboard Bisa Dilepas

HP SlateBook x2, merupakan laptop Android “detachable/bisa dilepas” sehingga juga bisa menjadi tablet yang dibekali prosesor NVIDIA Tegra 4. Rencana laptop Android ini akan tersedia mulai bulan Agustus 2013, di mana layarnya berukuran 10.2 inci dengan resolusi FULL HD, di mana dock keyboard memiliki batere tersendiri.
Bicara spesifikasi, selain prosesor oke, laptop Android hybrid pertama dari HP ini memiliki RAM yang besar yaitu 2GB, serta internal storage 16GB yang masih bisa ditambah melalui slot microSD.

Untuk daya tahan, laptop Slatebook X2 ini bila terpasang pada dock mampu bertahan selama 14 jam yang tergolong oke banget bagi Anda yang mobile. Yang dahsyat ternyata layar laptop ini melebihi FULL HD yaitu tepatnya mampu menampilkan resolusi 1,920 x 1,200px dan layarnya jenis IPS.

Di bagian belakang laptop ini ada kamera 2Mp dan ada juga kamera depan pada laptop Android ini. Untuk OS yang diinstall sudah Android versi 4.2 Jelly Bean dan akan dilengkapi beberapa software dari HP seperti HP File Manager,HP ePrint, lalu ada juga Kingsoft Office untuk bekerja.

Harga HP Slatebook X2 kurang lebih 479 USD yang berarti lebih murah dari iPad.

sumber (beritateknologi.com)

Read More

Program Microsoft Bing For Schools Untuk Kalangan Pelajar

Atas kebeduliannya terhadap dunia sekolah anak-anak, Microsoft baru saja mengumumkan peluncuran sebuah program baru bernama Bing For Schools, yang nantinya akan mengusung pengalaman yang sama sekali baru untuk para pelajar sekolah.

Dengan menghapus semua iklan dari hasil pencarian yang ada, program Bing For Schools ini bertujuan untuk meningkatkan privasi penggunanya yang dalam hal ini adalah khusus pelajar, memfilter keberadaan konten dewasa, dan juga menyediakan apa yang dikenal sebagai fitur pembelajaran khusus untuk meningkatkan pengetahuan, kesadaran dan melek digital di kalangan pada para pelajar sekolahan.

Menurut salah seorang Bing behavioral scientist bernama Matt Wallaert, sekolah memiliki pilihan untuk berpartisipasi atau menjaga pengalaman Bing normal dalam program sukarela ini. Dan bagi sekolah yang ikut berpartisipasi, Bing menyediakan pola pencarian yang didasarkan pada jaringan sekolah yang ada melalui Bing.com, tanpa memerlukan software khusus ataupun alamat pencarian yang berbeda. Selain itu, Bing for Schools ini gratis untuk setiap sekolah atau institusi pendidikan lainnya yang ingin berpartisipasi.

sumber( www.beritateknologi.com)

Read More

Samsung Resmi Luncurkan Layar OLED Melengkung Pertama Miliknya Berukuran 55 Inci

Produsen elektronik ternama dunia, Samsung baru saja meluncurkan produk inovatif terbarunya. Produk tersebut adalah sebuah layar OLED melengkung berukuran 55 inci. Layar ini pun diklaim mampu menghasilkan gambar yang berkualitas tinggi.
Pihak Samsung mengatakan bahwa desain Timeless Arena pada monitor ini memungkinkannya untuk menghilangkan piksel OLED yang cacat. Selain itu, dengan bentuknya yang melengkung, monitor ini pun menjanjikan sudut pandang yang lebih baik.
Selanjutnya, monitor ini juga dilengkapi dengan fitur multi-view yang ada pada piranti TV Samsung lainnya. Dengan fitur ini, pengguna monitor ini bisa menampilkan dua acara yang berbeda secara bersamaan.
Mengenai harga, pihak Samsung membanderol perangkat ini sangat mahal. Konsumen harus membayar sekitar 13 ribu USD untuk monitor OLED melengkung ini. Di waktu yang bersamaan, Samsung juga menawarkan dua produk monitor lainnya, yakni monitor 65 inci dan 55 inci dengan resolusi 4k.

sumber( beritateknologi.com)

Read More

HP Siap Luncurkan Laptop dengan Ivy Bridge

Hewlett Packard (HP) dikabarkan segera memperkenalkan laptop pertamanya yang dibekali prosesor terbaru Intel, Ivy Bridge. Seperti dikutip dari Techradar, Senin (19/3), laptop kelas menengah tersebut bernama Pavilion DV4-5000, DV6-7000, dan DV7-6000. Saat ini ketiganya telah terpajang di situs resmi milik HP. Sayangnya, belum ada kejelasan lebih lanjut soal berapa harga jual laptop-laptop ini. HP saat ini juga belum membuka status pre-order bagi mereka yang tak sabar ingin segera memesan produk tersebut. Ketiga laptop ini menggunakan prosesor Inter core i7 Ivy Bridge dan dibedakan dengan ukuran layar dan besarnya kapasitas penyimpanan data. DV4-5000 menggunakan layar 14 inci dengan resolusi 1366×768 serta dukungan RAM 8GB, HDD 1TB, dan kartu grafis Nvidia GeForce GT630M. Sementara DV6-7000 dan DV7-6000 sama-sama memakai layar 15,6 inci dengan resolusi 1600×900, RAM 8GB, dan HDD 2TB. Yang membedakan keduanya hanyalah kecepatan prosesor i7 yang tertanam di dalamnya. Laptop dengan desain Mosaic terbaru tersebut baru bisa dipesan melalui sistem pre-order pada 8 April 2012 dan akan mulai dikapalkan pada 29 April.


sumber(http://rumpitekno.com)

Hewlett Packard (HP) dikabarkan segera memperkenalkan laptop pertamanya yang dibekali prosesor terbaru Intel, Ivy Bridge. Seperti dikutip dari Techradar, Senin (19/3), laptop kelas menengah tersebut bernama Pavilion DV4-5000, DV6-7000, dan DV7-6000. Saat ini ketiganya telah terpajang di situs resmi milik HP. Sayangnya, belum ada kejelasan lebih lanjut soal berapa harga jual laptop-laptop ini. HP saat ini juga belum membuka status pre-order bagi mereka yang tak sabar ingin segera memesan produk tersebut.

Ketiga laptop ini menggunakan prosesor Inter core i7 Ivy Bridge dan dibedakan dengan ukuran layar dan besarnya kapasitas penyimpanan data. DV4-5000 menggunakan layar 14 inci dengan resolusi 1366×768 serta dukungan RAM 8GB, HDD 1TB, dan kartu grafis Nvidia GeForce GT630M. Sementara DV6-7000 dan DV7-6000 sama-sama memakai layar 15,6 inci dengan resolusi 1600×900, RAM 8GB, dan HDD 2TB. Yang membedakan keduanya hanyalah kecepatan prosesor i7 yang tertanam di dalamnya.

Laptop dengan desain Mosaic terbaru tersebut baru bisa dipesan melalui sistem pre-order pada 8 April 2012 dan akan mulai dikapalkan pada 29 April.
- See more at: http://rumpitekno.com/2012/hp-siap-luncurkan-laptop-dengan-ivy-bridge/#sthash.o5ZnK65r.dpuf

Read More

Contoh pengolahan citra pada vb.net

pada malam ini berhubung karna ada waktu  luang untuk memostingka artikel maka saya akan memmbahas sedikit mengenai pengolahan citra pada vb.net,mugkin contoh ini sangat sederhana tapi semoga bermanfaat ya,buat saudara yang membutuhkannya..
langsung saja ke pokok masalahnya.sebelumnya silakan buat desain anda seperti gambar berikut

 

pada menu strip file silahkan masukkan isinya open citra,save citra dan keluar sedangkan pada manipulasi ctra isikan dengan Default gambar,grayscale,brigthness,rotate(90,180,270),Biner,contrast,smoothing dan pada pengaturan RGB isikan dengan  +Merah,-Merah,+Hijau,-Hijau,+Biru dan -Biru

silahkan tambakan lagi dengan OpenFileDialog1 ganti name dengan OFD,SaveFileDialog1 dengan name SFD dan tambahkan lagi ProgressBar1.perhatikan gambar dibawah

 

maka listing programmnya ..

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.Name)
    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.Jpeg)
        End If
        If SFD.Filter = 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 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 DefaultGambarToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DefaultGambarToolStripMenuItem.Click
        gambar = New Bitmap(Pic1.Image)
    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 HijauTToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles HijauTToolStripMenuItem.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 Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Pic2.Image = Pic1.Image
    End Sub

    Private Sub HijauKToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles HijauKToolStripMenuItem1.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 <= 0 Then vH = 0
                gambar2.SetPixel(Pc, Pb, Color.FromArgb(vM, vH, vB))
            Next
            Pic2.Image = gambar2
            Pic2.Refresh()
        Next
    End Sub

    Private Sub MerahTToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MerahTToolStripMenuItem.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

    Private Sub MerahKToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MerahKToolStripMenuItem1.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 <= 0 Then vM = 0
                gambar2.SetPixel(Pc, Pb, Color.FromArgb(vM, vH, vB))
            Next
            Pic2.Image = gambar2
            Pic2.Refresh()
        Next
    End Sub

    Private Sub BiruTToolStripMenuItem_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BiruTToolStripMenuItem.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 BiruKToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BiruKToolStripMenuItem1.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 <= 0 Then vB = 0
                gambar2.SetPixel(Pc, Pb, Color.FromArgb(vM, vH, vB))
            Next
            Pic2.Image = gambar2
            Pic2.Refresh()
        Next
    End Sub
    Private Sub ContrastToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ContrastToolStripMenuItem.Click
        Dim gambar2 = New Bitmap(Pic2.Image)
        Pic2.Image = gambar2
        Dim tempbmp As New Bitmap(Pic2.Image)
        Dim DX As Integer = 1
        Dim DY As Integer = 1
        Dim Red, Green, Blue As Integer
        Dim X, Y As Integer
        Dim tc As Integer
        tc = 5
        ProgressBar1.Width = Pic1.Width
        ProgressBar1.Show()
        With tempbmp
            For X = DX To .Height - DX - 1
                For Y = DY To .Width - DY - 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)
                    'Grey = (Red + Green + Blue) / 3 'konversi warna pada pixel Y,X ke grey
                    Red = Red * tc
                    Blue = Blue * tc
                    Green = Green * tc
                    If (Red > 255) Then
                        Red = 255
                    End If
                    If (Blue > 255) Then
                        Blue = 255
                    End If
                    If (Green > 255) Then
                        Green = 255
                    End If
                    gambar2.SetPixel(Y, X, Color.FromArgb(Red, Green, Blue)) 'simpan warna baru pada pixel(Y,X)
                Next
                If X Mod 10 = 0 Then
                    Pic2.Invalidate()
                    Me.Text = "Progres Proses contrast : " & Int(100 * X / (Pic1.Image.Height - 2)).ToString & "%"
                    ProgressBar1.Value = Int(100 * X / (Pic1.Image.Height - 2))
                    Pic2.Refresh()
                End If
            Next
        End With
        ProgressBar1.Hide()
        Pic2.Refresh()
        Me.Text = "Pengolahan Citra : Proses contrast berhasil"
    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 Rotasi(ByVal s As RotateFlipType)
        Dim gambar2 = New Bitmap(Pic2.Image)
        gambar2 = New Bitmap(Pic2.Image)
        Pic2.Image = gambar2
        gambar2.RotateFlip(s)
        Pic2.Image = gambar2
    End Sub
    Private Sub ToolStripMenuItem2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuItem2.Click
        Rotasi(RotateFlipType.Rotate90FlipNone)
    End Sub
    Private Sub ToolStripMenuItem4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuItem4.Click
        Rotasi(RotateFlipType.Rotate270FlipNone)
    End Sub
    Private Sub SmoothingToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SmoothingToolStripMenuItem.Click
        Dim gambar2 = New Bitmap(Pic2.Image)
        Dim MF(2, 2) As Double
        'MaskFilter.Show()
        'matriks Filter
        '  0 1 2
        '0 a b c
        '1 d e f
        '2 g h i
        'Filter smoothing
        MF(0, 0) = 1 / 9 'a
        MF(0, 1) = 1 / 9 'b
        MF(0, 2) = 1 / 9 'c
        MF(1, 0) = 1 / 9 'd
        MF(1, 1) = 1 / 9 'e
        MF(1, 2) = 1 / 9 'f
        MF(2, 0) = 1 / 9 'g
        MF(2, 1) = 1 / 9 'h
        MF(2, 2) = 1 / 9 'i
        gambar2 = New Bitmap(Pic2.Image)
        Pic2.Image = gambar2
        Dim tempbmp As New Bitmap(Pic2.Image)
        Dim DX As Integer = 1
        Dim DY As Integer = 1
        Dim Red As Integer, Green As Integer, Blue As Integer
        Dim i As Integer, j As Integer
        ProgressBar1.Width = Pic1.Width
        ProgressBar1.Show()

        With gambar2
            For i = DX To .Height - DX - 1
                For j = DY To .Width - DY - 1
                    'proses matriks filter
                    'point(j,i)*e --> titik tengah
                    Red = CInt(.GetPixel(j, i).R) * MF(1, 1)
                    Green = CInt(.GetPixel(j, i).G) * MF(1, 1)
                    Blue = CInt(.GetPixel(j, i).B) * MF(1, 1)
                    'proses titik tetangga
                    'point(j-1,i-1)*a--> MF(0,0)--> titik kiri atas
                    If j - 1 < 1 And i - 1 < 1 Then 'jika out of border ambil nilai tengah/point(x,y)
                        Red = Red + (CInt(.GetPixel(j, i).R) * MF(0, 0))
                        Green = Green + (CInt(.GetPixel(j, i).G) * MF(0, 0))
                        Blue = Blue + (CInt(.GetPixel(j, i).B) * MF(0, 0))
                    Else
                        Red = Red + (CInt(.GetPixel(j - 1, i - 1).R) * MF(0, 0))
                        Green = Green + (CInt(.GetPixel(j - 1, i - 1).G) * MF(0, 0))
                        Blue = Blue + (CInt(.GetPixel(j - 1, i - 1).B) * MF(0, 0))
                    End If
                    'point(j,i-1)*b --> MF(0,1) --> titik atas
                    If i - 1 < 1 Then 'jika out of border ambil nilai tengah/point(x,y)
                        Red = Red + (CInt(.GetPixel(j, i).R) * MF(0, 1))
                        Green = Green + (CInt(.GetPixel(j, i).G) * MF(0, 1))
                        Blue = Blue + (CInt(.GetPixel(j, i).B) * MF(0, 1))
                    Else
                        Red = Red + (CInt(.GetPixel(j, i - 1).R) * MF(0, 1))
                        Green = Green + (CInt(.GetPixel(j, i - 1).G) * MF(0, 1))
                        Blue = Blue + (CInt(.GetPixel(j, i - 1).B) * MF(0, 1))
                    End If
                    'point(j+1,i-1)*c --> MF(0,2) --> titik kanan atas
                    If j + 1 > .Width - DY - 1 And i - 1 > 1 Then 'jika out of border ambil nilai tengah/point(x,y)
                        Red = Red + (CInt(.GetPixel(j, i).R) * MF(0, 2))
                        Green = Green + (CInt(.GetPixel(j, i).G) * MF(0, 2))
                        Blue = Blue + (CInt(.GetPixel(j, i).B) * MF(0, 2))
                    Else
                        Red = Red + (CInt(.GetPixel(j + 1, i - 1).R) * MF(0, 2))
                        Green = Green + (CInt(.GetPixel(j + 1, i - 1).G) * MF(0, 2))
                        Blue = Blue + (CInt(.GetPixel(j + 1, i - 1).B) * MF(0, 2))
                    End If
                    'point(j-1,i)*d --> MF(1,0) --> titik kiri
                    If j - 1 < 1 Then 'jika out of border ambil nilai tengah/point(x,y)
                        Red = Red + (CInt(.GetPixel(j, i).R) * MF(1, 0))
                        Green = Green + (CInt(.GetPixel(j, i).G) * MF(1, 0))
                        Blue = Blue + (CInt(.GetPixel(j, i).B) * MF(1, 0))
                    Else
                        Red = Red + (CInt(.GetPixel(j - 1, i).R) * MF(1, 0))
                        Green = Green + (CInt(.GetPixel(j - 1, i).G) * MF(1, 0))
                        Blue = Blue + (CInt(.GetPixel(j - 1, i).B) * MF(1, 0))
                    End If
                    'point(j+1,i)*f --> MF(1,2) --> titik kanan 
                    If j + 1 > .Width - DY - 1 Then 'jika out of border ambil nilai tengah/point(x,y)
                        Red = Red + (CInt(.GetPixel(j, i).R) * MF(1, 2))
                        Green = Green + (CInt(.GetPixel(j, i).G) * MF(1, 2))
                        Blue = Blue + (CInt(.GetPixel(j, i).B) * MF(1, 2))
                    Else
                        Red = Red + (CInt(.GetPixel(j + 1, i).R) * MF(1, 2))
                        Green = Green + (CInt(.GetPixel(j + 1, i).G) * MF(1, 2))
                        Blue = Blue + (CInt(.GetPixel(j + 1, i).B) * MF(1, 2))
                    End If
                    'point(j-1,i+1)*g --> MF(2,0) --> titik kiri bawah
                    If j - 1 < 1 And i + 1 > .Height - DX - 1 Then 'jika out of border ambil nilai tengah/point(x,y)
                        Red = Red + (CInt(.GetPixel(j, i).R) * MF(2, 0))
                        Green = Green + (CInt(.GetPixel(j, i).G) * MF(2, 0))
                        Blue = Blue + (CInt(.GetPixel(j, i).B) * MF(2, 0))
                    Else
                        Red = Red + (CInt(.GetPixel(j - 1, i + 1).R) * MF(2, 0))
                        Green = Green + (CInt(.GetPixel(j - 1, i + 1).G) * MF(2, 0))
                        Blue = Blue + (CInt(.GetPixel(j - 1, i + 1).B) * MF(2, 0))
                    End If
                    'point(j,i+1)*g --> MF(2,1) --> titik bawah
                    If i + 1 > .Height - DX - 1 Then 'jika out of border ambil nilai tengah/point(x,y)
                        Red = Red + (CInt(.GetPixel(j, i).R) * MF(2, 1))
                        Green = Green + (CInt(.GetPixel(j, i).G) * MF(2, 1))
                        Blue = Blue + (CInt(.GetPixel(j, i).B) * MF(2, 1))
                    Else
                        Red = Red + (CInt(.GetPixel(j, i + 1).R) * MF(2, 1))
                        Green = Green + (CInt(.GetPixel(j, i + 1).G) * MF(2, 1))
                        Blue = Blue + (CInt(.GetPixel(j, i + 1).B) * MF(2, 1))
                    End If
                    'point(j+1,i+1)*h --> MF(2,2) --> titik kanan bawah
                    If j + 1 > .Width - DY - 1 And i + 1 > .Height - DX - 1 Then 'jika out of border ambil nilai tengah/point(x,y)
                        Red = Red + (CInt(.GetPixel(j, i).R) * MF(2, 2))
                        Green = Green + (CInt(.GetPixel(j, i).G) * MF(2, 2))
                        Blue = Blue + (CInt(.GetPixel(j, i).B) * MF(2, 2))
                    Else
                        Red = Red + (CInt(.GetPixel(j + 1, i + 1).R) * MF(2, 2))
                        Green = Green + (CInt(.GetPixel(j + 1, i + 1).G) * MF(2, 2))
                        Blue = Blue + (CInt(.GetPixel(j + 1, i + 1).B) * MF(2, 2))
                    End If
                    'normalisasi
                    If Red < 0 Then
                        Red = 0
                    Else
                        If Red > 255 Then
                            Red = 255
                        End If
                    End If
                    If Green < 0 Then
                        Green = 0
                    Else
                        If Green > 255 Then
                            Green = 255
                        End If
                    End If
                    If Blue < 0 Then
                        Blue = 0
                    Else
                        If Blue > 255 Then
                            Blue = 255
                        End If
                    End If
                    'simpan warna hasil smoothing ke point j,i
                    gambar2.SetPixel(j, i, Color.FromArgb(Red, Green, Blue))
                Next
                If i Mod 10 = 0 Then
                    Pic1.Invalidate()
                    Me.Text = Int(100 * i / (Pic1.Image.Height - 2)).ToString & "%"
                    ProgressBar1.Value = Int(100 * i / (Pic1.Image.Height - 2))
                    Pic1.Refresh()
                End If
            Next
        End With
        ProgressBar1.Hide()
        Pic2.Refresh()
        Me.Text = "Proses Smoothing Image berhasil"
    End Sub

End Class

maka jalankanlah program tersebut, ehee jangan lupa pilih gambarnya dulu ya dari komputer anda .

 

Read More