This is default featured post 1 title

Go to Blogger edit html and find these sentences.Now replace these sentences with your own descriptions.This theme is Bloggerized by Lasantha Bandara - Premiumbloggertemplates.com.

This is default featured post 2 title

Go to Blogger edit html and find these sentences.Now replace these sentences with your own descriptions.This theme is Bloggerized by Lasantha Bandara - Premiumbloggertemplates.com.

This is default featured post 3 title

Go to Blogger edit html and find these sentences.Now replace these sentences with your own descriptions.This theme is Bloggerized by Lasantha Bandara - Premiumbloggertemplates.com.

This is default featured post 4 title

Go to Blogger edit html and find these sentences.Now replace these sentences with your own descriptions.This theme is Bloggerized by Lasantha Bandara - Premiumbloggertemplates.com.

This is default featured post 5 title

Go to Blogger edit html and find these sentences.Now replace these sentences with your own descriptions.This theme is Bloggerized by Lasantha Bandara - Premiumbloggertemplates.com.

Minggu, 30 Juni 2013

Pengertian Microsoft .NET dan Contoh Program Visual Basic .Net dengan Console

Microsoft .NET yang awalnya disebut Next Generation Windows Services (NGWS) adalah suatu platform untuk membangun dan menjalankan generasi penerus aplikasi-aplikasi terdistribusi. Microsoft .NET merupakan framework (kerangka) pengembangan yang menyediakan antarmuka pemrograman baru untuk layanan Windows dan API (Application Programming Interface). Microsoft .NET merupakan strategi Microsoft untuk menghubungkan sistem, informasi, dan alat (device), sehingga orang dapat berkomunikasi serta berkolaborasi dengan lebih efektif. Teknologi .NET terintegrasi penuh melalui produk-produk Microsoft, dan menyediakan kemampuan untuk mengembangkan solusi dengan menggunakan Web service. Platform Microsoft .NET terdiri dari lima komponen utama yang tersusun dalam tiga lapisan (layer) yaitu:
a. Visual Studio .NET
Microsoft Visual Studio .NET merupakan kumpulan lengkap tools pengembangan untuk membangun aplikasi Web ASP.NET, XML Web Services, aplikasi dekstop, dan aplikasi mobile. Di dalam Visual Studio inilah bahasa-bahasa pemrograman .NET seperti Visual Basic, Visual C++, Visual C# (CSharp), dan Visual J# (JSharp) semuanya menggunakan lingkungan pengembangan terintegrasi atau IDE yang sama sehingga memungkinkan untuk saling berbagi tools dan fasilitas.

b. Visual Basic .NET
Visual Basic .NET (atau VB.NET) merupakan salah satu bahasa pemrograman yang bisa digunakan untuk membangun aplikasi-aplikasi
.NET di platform Microsoft .NET. Tidak seperti generasi sebelumnya Visual Basic versi 6.0 ke bawah yang lebih difokuskan untuk pengembangan aplikasi desktop, Visual Basic .NET memungkinkan para pengembang membangun bermacam aplikasi, baik desktop maupun aplikasi web. Seiring dengan perkembangan aplikasi perangkat lunak yang semakin kompleks, saat ini Visual Basic .NET memasuki versi kelima (Visual Basic 2008).

c. IDE Visual Basic
IDE (Integrated Development Environment), atau juga disebut sebagai Integrated Design/Debugging Environment, adalah perangkat lunak komputer yang berfungsi untuk membantu pemrogram dalam mengembangkan perangkat lunak. Singkatnya, IDE merupakan suatu lingkungan pengembangan aplikasi yang terintegrasi; lengkap dengan beragam tools atau utilitas pendukung

Komponen Dari .Net Framework
.Net framework adalah landasan kerja bagi aplikasi-aplikasi .net yang dibuat dengan bahasa pemrograman berbasis .net tanpa terpengaruh oleh bahasa pemrograman yang digunakan. Didalam .Net Framework inilah semua coding yang telah dikembangkan oleh programmer akan dieksekusi berdasarkan urutan-urutan proses komponen yang bekerja saling melengkapi.

Berikut adalah komponen-komponen dari .Net Framework
a. Common Language Runtime (CLR)
CLR merupakan jembatan antara aplikasi .Net dengan sistem operasi. CLR menyediakan library-library yang diperlukan oleh aplikasi .Net.
b. Microsoft Intermediate Language (MSIL)
Ketika dikompilasi menggunakan berbagai compiler spt VB.Net, C#, C++.Net dan lainnya, program tidak diterjemahkan langsung kedalam bahasa biner yang dapat langsung dijalankan, namun diterjemahkan terlebih dahulu oleh CLR kedalam bentuk MSIL, baru kemudian MSIL menerjemahkan lagi kedalam bahasa binner untuk dijalankan. Mengapa perlu MSIL? karena MSIL bersifat multiplatform (dapat dijalankan diberbagai OS ). Jadi hasil terjemahan CLR kedalam MSIL itu bersifat independen terhadap hardware dan OS, misalnya MSIL untuk Linux akan berbeda dengan MSIL untuk MacOS.

c. Just in Time Compiler (JITers)
JIT Compiler akan mengkompilasi kode IL kedalam kode yang dapan dijalankan langsung (.exe atau .dll), yang disesuaikan dengan hardware dan OS. Kelebihan JIT dibanding compiler lainnya adalah JIT hanya melakukan kompilasi ketika dibutuhkan saja. Sehingga lebih efisien.

d. Framework Class Library (CLS)
Merupakan kumpulan class-class yg berjumlah ribuan didalam.Net framework. Ini merupakan library yang lebih dari sekedar standar yang pernah disertakan pada bahasa pemrograman tertentu. FCL menyediakan akses ke Win API dan fungsi-fungsi umum seperti struktur data, string manipulation, IO, Stream, thread, security, network, web,data akses, dan lainnya. Penggunakan class-class ini sangat mudah dengan menerapkan konsep inheritance dan polimorphism.

Prinsif Kerja .Net Framework
Source code --> MSIL compiler --> MSIL code
MSIL code --> JIT compiler --> Source code
source code --> code compiler --> aplication

Membuat Project Baru
langkah-langkah berikut:
1. Jalankan Visual Basic 2008
2. Klik menu File > Create Project untuk membuat project baru atau Open project jika ingin membuka project yang suda kita buat dan save sebelumnya.

3. Pada kotak dialog New Project, maka akan banyak ada pilihan templates seperti gambar berikut ini.

Penjelasan masing-masing template
• Windows Application.
Untuk menciptakan aplikasi-aplikasi windows yang berjalan secara lokal di komputer user.
• Class Library.
Untuk menciptakan kelas-kelas atau komponen komponen reusable yang dapat di-share dengan project lainnya.
• Console Application.
Untuk membuat aplikasi-aplikasi command-line.
• My Movie Collection Starter Kit
Untuk menciptakan aplikasi pre-built My Movie Collection, dan bisa di-customize sesuai kebutuhan.
• Screen Saver Starter Kit
Untuk menciptakan aplikasi pre-built Screen Saver, dan bisa di-customize sesuai kebutuhan.

4. Pada pratikum II ini menggunakan consule, maka pilih tempalate consule kemudian klik OK.


Latihan Program
Program 1
Module Module1

Sub Main()
'write => tulisannya disamping klo writeline tulisannya dibawah
Console.Write("Masukkan Nama Anda : ")
Dim xNama As String
Dim xKelas As String
xNama = Console.ReadLine()
Console.WriteLine()
Console.WriteLine("Halo " & xNama & ".Selamat datang di matakuliah Pemrograman Visual II.")
Console.WriteLine()
Console.WriteLine("Masukkan Kelas Anda : ")
xKelas = Console.ReadLine()
Console.WriteLine()
Select Case UCase(xKelas)
Case "K081"
Console.WriteLine("Anda kuliah tiap hari jumat pk 08.00-11.00")
Case "A091"
Console.WriteLine("Anda kuliah tiap hari kamis pk 08.00-11.00")
Case Else
Console.WriteLine("Amda salah memasukkan kelas.")
End Select
Console.WriteLine("-------------------------------------")
Console.WriteLine("TEKAN ENTER UNTUK KELUAR")
Console.ReadLine()
End Sub

End Module



Program 2
Module Module1

Sub Main()
Console.Write("Masukkan Nama Anda : ")
Dim xNama As String
xNama = Console.ReadLine()
Console.WriteLine()
Console.WriteLine("Halo " & xNama & ". Selamat datang di matakuliah Pemorograman Visual II.")
Console.WriteLine()
InputKelas()
Console.WriteLine()
Console.WriteLine("----------------------------------------")
Console.WriteLine("Tekan enter untuk keluar")
Console.ReadLine()
End Sub

Private Function CekKelas(ByVal xKelas As String) As Boolean
Dim xCek As Boolean
xCek = True
Select Case UCase(xKelas)
Case "K081"
Console.WriteLine()
Console.WriteLine("Anda kuliah tiap hari jumat pk 08.00-11.00")
Case "P092"
Console.WriteLine()
Console.WriteLine("Anda kuliah tiap hari kamis pk 08.00-11.00")
Case Else
Console.WriteLine()
Console.WriteLine("Anda salah memasukkan kelas")
Console.WriteLine()
xCek = False
End Select
Return xCek
End Function

Private Sub InputKelas()
Dim xKelas As String
Console.Write("Masukkan Kelas Anda : ")
xKelas = Console.ReadLine()
If CekKelas(xKelas) = False Then
InputKelas() 'rekursif => proses memanggil diri sendiri
End If
End Sub
End Module


BlackBerry Konfirmasi BBM Akan Hadir di iOS dan Android

 Blackberry Konfirmasi BBM Akan Hadir di iOS dan Android  - Sebuah Kabar yang sangat mengejutkan datang dari perusahaan yang berbasis di Canada ini. Pasti anda semua tahu tentang Ponsel cerdas Blackberry dengan fitur unggulan yaitu BBM atau BlackBerry Messenger, yang hanya ada di Ponsel pinter tersebut dan tidak temukan di Ponsel merek lain.  Baru - baru ini RIM mempublikasikan sebuah artikel melalui Blog resmi mereka, Yang menyatakan jika dalam waktu dekat  aplikasi dan layanan BlackBerry Messenger akan hadir di iOS dan android.  BlackBerry Messenger MengClaim jika mereka meiliki 60 juta pengguna aktif dalam waktu sebulan, dengan lebih dari 51 Juta pengguna mengirim dan menerima pesan lebih dari 10 juta pesan perharinya, wow Jumlah yang cukup fantastis menurut saya. Mungkin ini adalah Motivasi Rim untuk menjadikan BBM Lintas Platform.      Ya, CEO BlackBerry Thorstein Heins mengungkapkan bahwa BBM -- yang selama ini eksklusif di OS BlackBerry -- akan segera terbuka dan hadir di sistem operasi lain.      "Ini adalah bukti komitmen kami dalam mengembangkan pengalaman BBM di platform lain secara utuh. Nantinya pengguna dapat berbagi pesan dan membuat grup," tambahnya.
Menurut Blog resmi BlackBerry, Fitur BlackBerry Messenger yang akan hadir di iOS dan android meliputi Hal berikut ini :

  • the immediacy of BBM chats
  • multi-person chats
  • voice note sharing
  • BlackBerry Groups, where BBM users are able to set up groups of up to 30 people and share calendar, photos, files and more

Seperti layanan service BlackBerry Messenger pada Umumnya, Di iOS dan android juga hadir fitur seperti menerima dan mengrim pesan dengan dukungan Delivered and Read statuses, Support dengan voice Dan video chatting. dan juga ada sebuah Fitur baru yang akan di perkenalkan yaitu sebuah sosial jejaring yang bisa menghubungkan anda ke businesses, brands, celebrities dan groups.

BlackBerry Messenger akan hadir di iOS dan Android pada Musim panas Tahun ini.

Untuk pengguna iOS, BlackBerry Messenger hanya suppor dengan iDevice yang bisa menggunakan iOS 6, artinya hanya iPhone 3Gs, 4, 4s, 5 / iPod Gen 4 dan 5 / iPad 2.3. Mini, 4. Untuk pengguna Android minimal meiliki OS version 4.0 (Ice Cream Sandwich) atau lebih tinggi.

Bisa jadi ini adalah pesaing berat dari iMessage yang ada di iOS dan Google dengan rumor akan merilis sebuah Aplikasi Chat yang akan di beri nama Dubbed Babel yang di perkirakan akan dirilis juga dalam waktu dekat. Bukan saja itu yang bisa menjadi pesain berat dari BlackBerry Messenger jika berniat untuk menhadirkan BBM lintas Platform, Masih ada layanan lainya seperti Viber, WhatsApp. yang baru-baru ini telah di Sahkan memiiki lebih 200 Juta pengguna di seluruh dunia menurut Masing -masing pengguna.

31 fakta dan informasi tentang INDONESIA

Berikut ini adalah 31 Fakta Tentang Indonesia, ternyata banyak hal yang belum kita ketahui loh, simak selengkapnya berikut ini
  • Fakta 1
    Stadion Senayan di Jakarta, Indonesia, adalah stadion terbesar di seluruh dunia ketika selesai pada tahun 1962 untuk menjadi tuan rumah Asian Games. Kapasitas yang dapat menampung sampai dengan 100.000 orang.
  • Fakta 2
    Komodo (Varanus komodoensis) ditemukan di Indonesia adalah kadal terbesar di dunia, mereka bisa tumbuh hingga 3 meter (9,8 kaki) panjang.
  • Fakta 3
    Bunga terbesar di dunia, Rafflesia Arnoldi, berat 7 kg (15 pon) dan hanya tumbuh di pulau Sumatera Indonesia. Kelopaknya tumbuh 0,5 meter (1,6 kaki) panjang dan 2,5 cm (1 inci) tebal.
  • Fakta 4
    Menurut Global Corruption Report tahun 2004, mantan Presiden Indonesia Soeharto adalah nomor satu CEO paling korup di dunia.
  • Fakta 5
    Indonesia adalah penduduk muda terbesar di dunia dengan 165 juta anak-anak di bawah usia 30 di mana hanya 8% yang berusia di atas 60 tahun (nasional Biro statistik, Agustus 2001, dikutip dalam Post harian berbahasa Inggris “The Jakarta “, Agustus 2001).
  • Fakta 6
    Indonesia memiliki garis pantai terpanjang di dunia (sekitar 85.000 km)
  • Fakta 7
    Indonesia adalah negara dengan populasi muslim terbesar di dunia.
  • Fakta 8
    Indonesia merupakan negara kepulauan terbesar di dunia dengan lebih dari 18.000 pulau.
  • Fakta 9
    Indonesia adalah produsen dan eksportir terbesar LNG (gas alam cair) di Dunia, memasok lebih dari 40 persen dari pasar dunia dan merupakan produsen dunia terbesar ketujuh dari gas alam
  • Fakta 10
    Menurut Transparency International, Indonesia adalah negara kesebelas paling korup di dunia. (Sumber: Transparency International 2003)
  • Fakta 11
    Dolly, nama dari pusat prostitusi perempuan (red light district) yang berlokasi di Surabaya, Jawa Timur, Indonesia, merupakan pusat prostitusi terbesar yang pernah didirikan di Asia Tenggara yang memiliki lebih dari 2.000 pelacur perempuan di satu lokasi terpusat.
  • Ya, itu lebih besar daripada tempat-tempat di Thailand dalam hal satu lokasi terpusat
  • Fakta 12
    Indonesia adalah negara (4) keempat terpadat di dunia dengan sekitar 224 juta orang (Sumber: US Department of State Biro Asia Timur & Pasifik Urusan Mei 2005 data) … sekarang entah deh berapa, pasti nambah banyak zzzzzz…..
  • Fakta 13
    Freeport Grasberg tambang di Papua Barat pulau, Indonesia, adalah tambang emas terbesar di dunia. Selain itu, juga tambang tembaga ketiga terbesar di dunia.
  • Fakta 14
    Danau Toba adalah: Danau Terbesar di Asia Tenggara, Danau Sepanjang Tahun Terbesar di Asia Tenggara, Danau Vulkanik Terbesar di Dunia
  • Fakta 15
    Candi Borobudur di Jawa Tengah, Indonesia, adalah kuil budha terbesar di Dunia, yang dibangun pada abad ke-9, dan dianggap sebagai salah satu Keajaiban Dunia yang terlupakan.
  • Ketinggian keseluruhan adalah 42 meter, namun hanya 34,5 meter setelah restorasi, dan memiliki dimensi 123 x 123 meter (15.129 meter persegi). Ada 10 lantai. Lantai pertama hingga lantai enam adalah bentuk persegi, ketujuh ke lantai kesepuluh berbentuk lingkaran.
  • Borobudur menghadap ke Timur dengan total dari 1460 panel (2 meter lebar masing-masing). Ukuran total dari dinding candi adalah 2500 meter persegi. Jumlah total panel adalah 1212. Menurut investigasi, jumlah patung Buddha adalah 504 termasuk patung utuh dan rusak.
  • Fakta 16
    Pulau terbesar kedua, ketiga, dan keenam di dunia berada di Indonesia. Nugini (seluruh pulau, termasuk Papua Barat dan Papua New Guniea) adalah yang terbesar kedua, Kalimantan juga dikenal sebagai Kalimantan (seluruh pulau, termasuk Brunei dan Malaysia Serawak) adalah yang ketiga terbesar, sedangkan pulau Sumatera merupakan yang terbesar keenam dan terletak seluruhnya di Indonesia
  • Fakta 17
    Tahun 1292 Marco Polo asal Venesia, Italia, mengunjungi Aceh, di Sumatera Utara, Indonesia, dalam perjalanan kembali dari Cina ke Persia dan melaporkan bahwa bagian utara pulau memiliki sebanyak enam port perdagangan sibuk termasuk Perlak, Samudera dan Lambri.
  • Ya, ini adalah Aceh sama seperti provinsi Indonesia yang hampir sepenuhnya dihapuskan dari muka bumi oleh Tsunami baru-baru ini yang melanda Asia Tenggara pada bulan Desember 2004.
  • Fakta 18
    Bunga paling bau di Bumi disebut bunga Bangkai (Amorphophallus titanum) yang dapat tumbuh hingga ketinggian rata-rata dua meter (6,5 kaki) ditemukan di Indonesia. Ketika mekar, ia melepaskan bau yang sangat busuk sebanding dengan daging busuk, yang dapat berbau setengah mil jauhnya. Bunga ini juga dikenal sebagai “lidah setan.” Ini pada awalnya ditemukan pada tahun 1878 di hutan hujan Sumatera bagian tengah pulau, oleh ahli botani Italia dan explorer Dr Oroardo Beccari (Sumber: Guinness Book of World Record).
  • Fakta 19
    Ular terpanjang yang pernah ditemukan berada di Sulawesi, Indonesia pada tahun 1912. Itu adalah Phyton (Pytho reticulates) dari Asia Tenggara. Panjang record adalah 10 M (atau sekitar 32 ft 9,5 in) (Sumber: Guinness Book of World Record).
  • Fakta 20
    Jakarta adalah kota paling tercemar di dunia KETIGA, setelah Bangkok dan Mexico City (Sumber dari sebuah artikel di The Jakarta Post 06 Mei 2005) …. piye nih pak Jokowi?
  • Fakta 21
    Bahwa jumlah korban tewas tertinggi oleh bencana alam Tsunami berada di Aceh, Indonesia. Tsunami pada tanggal 26 Desember 2004 telah dikonfirmasi sebagai yang paling dahsyat dalam sejarah modern. Korban tewas menempatkan sekitar 300.000 orang (Sumber: Guinness Book of World Record).
  • Fakta 22
    Bahwa pulau Kalimantan (Kalimantan) di Indonesia, merupakan rumah bagi ikan Mudskipper (Periophthalmodon Schlosseri) juga dikenal sebagai Ikan Belacak / Belodok / Tembakul
  • Ikan Mudskipper adalah satu-satunya jenis ikan di dunia yang dapat memanjat pohon, berjalan, bahkan lompat, dan hidup dan nafas di darat.
  • Untuk keterangan lebih lanjut ke:
  • http://www.naturia.per.sg/buloh/verts/mudskipper.htm
  • Fakta 23
    Indonesia, dengan nama Hindia Belanda, adalah tim Asia pertama yang berpartisipasi di Piala Dunia FIFA ketika mereka memenuhi syarat pada tahun 1938. Tapi kalah 6-0 di Reims (Perancis) melawan Hungaria. Sumber: (Dikutip dari Wikipedia dan diverifikasi di website AFC dan FIFA)
  • Fakta 24
    Bendera Indonesia dan Monaco persis sama!
  • Fakta 25
    Pulau Jawa adalah pulau terpadat di dunia dengan sekitar 150 juta orang …. buseeett!
  • Fakta 26
    Kebun Raya Bogor (Kebun Raya Bogor) memiliki spesies yang terbesar dan terbaik di Asean.
  • Fakta 27
    Ledakan terbesar di zaman bersejarah pada tanggal 27 Agustus 1883, adalah letusan Krakatau, sebuah pulau 47 km persegi di Selat Sunda, antara Sumatera dan Jawa. Gelombang yang dihasilkan menyapu 163 desa dan menewaskan 36.380 orang. Gelombang hingga 55 km, dan debu jatuh 5330 km 10 hari kemudian. Ledakan terdengar empat jam kemudian di pulau Rodrigues, 4776 km, bagai deru senjata berat dan terdengar lebih dari sepertiga permukaan dunia.
  • Fakta 28
    Ketika Gunung Tambora di Sumbawa, Indonesia (saat itu Hindia Belanda) meletus dari April 5-10, 1815, 92.000 orang tewas.
  • Fakta 29
    Indofood menciptakan baru Guinness World Record dalam kategori “Paket Terbesar Mie Instan” dan memecahkan rekor untuk “Penyajian Mie Terbesar” …. seet dah!
  • Fakta 30
    Diluncurkan pada tahun 1976, satelit Palapa A membuat Indonesia menjadi negara ketiga di dunia untuk menempatkan satelit ke ruang angkasa.
  • Fakta 31
    Pencipta Singapore National Anthem adalah orang Indonesia (dari Sumatera) Mr Zubir Said.
Demikian fakta-fakta mengenai Indonesia...
^_^

pengolahan citra lanjutan mata kuliah pemrograman visual

Postingan ini membahas tentang pengolahan citra postingan ini juga saya buat untuk memenuhi tugas akhir semester 4 pada mata kuliah perograman visual oleh mesran.net

Berikut ini tugas saya :


Public Class Form1
    Dim gambar As Bitmap

    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 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 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.FilterIndex = 2 Then
            gambar.Save(SFD.FileName, System.Drawing.Imaging.ImageFormat.Bmp)

        End If
    End Sub

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


TAMPILAN :




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 BrigthnessToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BrigthnessToolStripMenuItem.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 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 SmooToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SmooToolStripMenuItem.Click
        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

        gambar = New Bitmap(Pic1.Image)
        Pic2.Image = gambar
        Dim tempbmp As New Bitmap(Pic1.Image)
        Dim DX As Integer = 1
        Dim DY As Integer = 1
        Dim Red As Integer, Green As Integer, Blue As Integer

        With gambar
            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
                    gambar.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 & "%"
                    Pic1.Refresh()
                End If
            Next
        End With
        Pic1.Refresh()
        Me.Text = "Proses Smoothing Image berhasil"

    End Sub



Private Sub ContrastToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ContrastToolStripMenuItem.Click
        gambar = New Bitmap(Pic1.Image)
        Pic2.Image = gambar
        Dim tempbmp As New Bitmap(Pic1.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

        With tempbmp
            For X = DX To .Height - DX - 1
                For Y = DY To .Width - DY - 1
                    Red = CInt(.GetPixel(Y, X).R)
                    Green = CInt(.GetPixel(Y, X).G)
                    Blue = CInt(.GetPixel(Y, X).B)
                    '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
                    gambar.SetPixel(Y, X, Color.FromArgb(Red, Green, Blue))
                Next
                If X Mod 10 = 0 Then
                    Pic1.Invalidate()
                    Pic2.Refresh()
                End If
            Next
        End With

    End Sub




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

    End Sub


    Private Sub Rotate90ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Rotate90ToolStripMenuItem.Click
        Dim rgb As Image
        rgb = Pic2.Image
        If rgb IsNot Nothing Then rgb.RotateFlip(RotateFlipType.Rotate90FlipXY)
        Pic2.Image = rgb

    End Sub


Nama : Rasmi ganda rotua Tambunan
Npm : 1111135
Selamat Pemrograman VB NET 
mesran.net