Halo semua ! pengen mostingin photo-photo ku bersama Sobatku Namanya TINA NUT :D

hahahah**

itu yang ada dibelakangan itu adek angkat kami berdua :)

sebernya sih yang dibelakang itu lagi ngerjain PR nya. tapi ya begitulah. PR nya yang ngerjain kami berdua, dya mah tinggal Paste aja :D heheh

haaahaha :D Nama nya IQBAL loh :D 

Lagi Dikede Ibu nya nih :D

Gimana ? Yaeppeuda ?

assalamualaikum  :)
sebelumnya saya ingin memostingkan bacaan Ayat Kursi ini agar semua kegalauan yang anda rasakan akan berkurang :) hehehe

Dan ini Artinya :

Allah, tidak ada Tuhan (yang berhak disembah) melainkan Dia Yang Hidup kekal lagi terus menerus mengurus (makhluk-Nya); tidak mengantuk dan tidak tidur. Kepunyaan-Nya apa yang di langit dan di bumi. Tiada yang dapat memberi syafa’at di sisi Allah tanpa izin-Nya? Allah mengetahui apa-apa yang di hadapan mereka dan di belakang mereka, dan mereka tidak mengetahui apa-apa dari ilmu Allah melainkan apa yang dikehendaki-Nya. Kursi Allah meliputi langit dan bumi. Dan Allah tidak merasa berat memelihara keduanya, dan Allah Maha Tinggi lagi Maha Besar. (QS : Al-Baqarah : 255)

Website Belajar Bahasa Pemograman Mesran[dot]Net

Annyeong Haseyo. Naneun Meitri imnida :)

sebelum nya saya mau bertanya, apakah anda sebelumnya pernah belajar Bahasa Pemograman ?
pasti nya anda akan mempelajari nya di Semester 3 nanti . Disini saya ingin memberitahukan bahwa Belajar di Mesran[dot]Net  anda bisa belajar Bahasa Pemograman. Di Mesran[dot]Net adalah sebuah website yang bagus untuk kita ketahui dan kita pelajari. karna sangat banyak ilmu yang akan kita dapatkan di website tersebut. Sekarang saya lagi belajar Bahasa Pemograman dan munkit akan untuk terus mendalami materi ini. Nah...temen-temen ku sekalian , anda semua bisa mempelajarinya di Mesran[dot]Net.

Selamat Mencoba ^-^

Pengolahan Citra

Program ini saya tujukan untuk memenuhi tugas saya kepada Dosen Pembimbing saya.Tugas Belajar Bahasa Pemograman.

Kali ini saya mau memposting tugas kuliah saya tentang pengolahan citra.

# Listing Program Pengolahan Citra

Public Class Form2

    Dim gambar2 As Bitmap

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

        PictureBox2.Image = PictureBox1.Image

    End Sub

Button 1 : Button - Hijau

    Private Sub button1_Click(ByVal sender As System.Object, ByVal eAs System.EventArgs) Handles button1.Click

        Dim Pb, Pc As Integer

        Dim Vm, Vh, Vb As Double

        gambar2 = New Bitmap(PictureBox2.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

            PictureBox2.Image = gambar2

            PictureBox2.Refresh()

        Next

    End Sub

Button 2 : Button + Hijau

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

        Dim Pb, Pc As Integer

        Dim Vm, Vh, Vb As Double

        gambar2 = New Bitmap(PictureBox2.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

            PictureBox2.Image = gambar2

            PictureBox2.Refresh()

        Next

    End Sub

Button 3 : Button Greyscale

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

        Dim Pb, Pc As Integer

        Dim Rt, Vm, Vh, Vb As Double

        gambar2 = New Bitmap(PictureBox2.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

                Rt = (Vm + Vh + Vb) / 3

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

            Next

            PictureBox2.Image = gambar2

            PictureBox2.Refresh()

        Next

    End Sub

Button 4 : - Merah

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

        Dim Pb, Pc As Integer

        Dim Vm, Vh, Vb As Double

        gambar2 = New Bitmap(PictureBox2.Image)

        For Pb = 0 To gambar2.Height - 1

            For Pc = 0 To gambar2.Width - 1

                Vm = gambar2.GetPixel(Pc, Pb).R + 5

                Vh = gambar2.GetPixel(Pc, Pb).G + 5

                Vb = gambar2.GetPixel(Pc, Pb).B + 5

                If Vm >= 255 Then Vm = 255

                If Vb >= 255 Then Vb = 255

                If Vh >= 255 Then Vh = 255

                gambar2.SetPixel(Pc, Pb, Color.FromArgb(Vm, Vh, Vb))

            Next

            PictureBox2.Image = gambar2

            PictureBox2.Refresh()

        Next

    End Sub

Button 5 : + Merah

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

        Dim Pb, Pc As Integer

        Dim Vm, Vh, Vb As Double

        gambar2 = New Bitmap(PictureBox2.Image)

        For Pb = 0 To gambar2.Height - 1

            For Pc = 0 To gambar2.Width - 1

                Vm = gambar2.GetPixel(Pc, Pb).R - 5

                Vh = gambar2.GetPixel(Pc, Pb).G - 5

                Vb = gambar2.GetPixel(Pc, Pb).B - 5

                If Vm <= 0 Then Vm = 0

                If Vb <= 0 Then Vb = 0

                If Vh <= 0 Then Vh = 0

                gambar2.SetPixel(Pc, Pb, Color.FromArgb(Vm, Vh, Vb))

            Next

            PictureBox2.Image = gambar2

            PictureBox2.Refresh()

        Next

    End Sub

Button 6 : Button Rotate

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

        Dim Pb, Pc As Integer

        Dim Vm, Vh, Vb As Double

        gambar2 = New Bitmap(PictureBox2.Image)

        Dim Gambar3 As Bitmap = New Bitmap(PictureBox1.Image)

        For Pb = gambar2.Height - 1 To 0 Step -1

            For Pc = gambar2.Width - 1 To 0 Step -1

                Vm = gambar2.GetPixel(Pc, Pb).R

                Vh = gambar2.GetPixel(Pc, Pb).G

                Vb = gambar2.GetPixel(Pc, Pb).B

                Gambar3.SetPixel(gambar2.Width - 1 - Pc, gambar2.Height - 1 - Pb, Color.FromArgb(Vm, Vh, Vb))

            Next

            PictureBox2.Image = Gambar3

            PictureBox2.Refresh()

        Next

    End Sub

Button 7 : - Britness

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

        Dim Pb, Pc As Integer

        Dim Vm, Vh, Vb As Double

        gambar2 = New Bitmap(PictureBox2.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

            PictureBox2.Image = gambar2

            PictureBox2.Refresh()

        Next

    End Sub

Button 8 : + Britness

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

        Dim Pb, Pc As Integer

        Dim Vm, Vh, Vb As Double

        gambar2 = New Bitmap(PictureBox2.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

            PictureBox2.Image = gambar2

            PictureBox2.Refresh()

        Next

    End Sub

Button 9 : Button Negativ

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

        Dim Pb, Pc As Integer

        Dim Vm, Vh, Vb As Double

        gambar2 = New Bitmap(PictureBox2.Image)

        For Pb = 0 To gambar2.Height - 1

            For Pc = 0 To gambar2.Width - 1

                Vm = 255 - gambar2.GetPixel(Pc, Pb).R

                Vh = 255 - gambar2.GetPixel(Pc, Pb).G

                Vb = 255 - gambar2.GetPixel(Pc, Pb).B

                If Vm <= 0 Then Vm = 0

                If Vb <= 0 Then Vb = 0

                If Vh <= 0 Then Vh = 0

                gambar2.SetPixel(Pc, Pb, Color.FromArgb(Vm, Vh, Vb))

            Next

            PictureBox2.Image = gambar2

            PictureBox2.Refresh()

        Next

    End Sub

Button 10 : Button Finish

    Private Sub Button10_Click(ByVal sender As System.Object, ByVal eAs System.EventArgs) Handles Button10.Click

        End

    End Sub

End Class

Dan hasil nya ada dibawah ini :

Hasil button - Hijau

Hasil Button + Hijau

Hasil Button grayscale

Hasil Button - Merah

Hasil Button + Merah

Hasil Button Rotate

Hasil Button + Brigness

Hasil Button -Brigness

Hasil Button Negatf

Terima Kasih dan Selamat mencoba ...^^