PEMOGRAMAN CITRA

Kali ini saya mau posting tugas dulu neh mengenai Pemograman Citra.
Langsung aja yah, tak perlu lama-lama.
hehee....

1. Desain Formnya seperti ini neh:

2. Kemudian ini dia listing programnya, timggal ketik aja yah :
Public Class Form1
    Dim gambar2 As Bitmap
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        PictureBox2.Image = PictureBox1.Image
    End Sub

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

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

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

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

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

    Private Sub Negatif_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Negatif.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 = 255 - gambar2.GetPixel(Pc, Pb).R - 5
                vH = 255 - gambar2.GetPixel(Pc, Pb).G - 5
                vB = 255 - 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

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

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

    Private Sub Rotate_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Rotate.Click
        Dim Pb, Pc As Integer
        Dim vM, vH, vB As Double
        gambar2 = New Bitmap(PictureBox1.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

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

3. Nah,, Sekarang timggal tekan F5 dan disini saya pilih Negatif setelah programnya Running. Dan hasilnya seperti ini neh:

Sekian dulu postingan saya ini, semoga bermanfaat buat semuanya..
Trimakasih.......!!!!

Quis OnLine ListView Perhitungan Penjualan Barang

Ini adalah jawaban 1 Quis OnLine ListView Perhitungan Penjualan Barang  Pemograman Visual Basic.Net.

1. Desain Form

2. Listing Programnya:
Public Class Latihan2

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

        KodeBarang.Items.Add("TS001")
        KodeBarang.Items.Add("TS002")
        KodeBarang.Items.Add("VG001")
        KodeBarang.Items.Add("VG002")
    End Sub

    Private Sub KodeBarang_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KodeBarang.SelectedIndexChanged
        Dim i As String
        i = Microsoft.VisualBasic.Left(KodeBarang.Text, 2)
        If KodeBarang.Text = "TS001" Then
            Merk.Text = "Toshiba"
            NamaBarang.Text = "Flashdisk 4 GB"
            Harga.Text = "105000"
        ElseIf KodeBarang.Text = "TS002" Then
            Merk.Text = "Toshiba"
            NamaBarang.Text = "Flashdisk 2 GB"
            Harga.Text = "75000"
        ElseIf KodeBarang.Text = "VG001" Then
            Merk.Text = "V-Gen"
            NamaBarang.Text = "Flashdisk 4GB"
            Harga.Text = "90000"
        ElseIf KodeBarang.Text = "VG002" Then
            Merk.Text = "V-Gen"
            NamaBarang.Text = "Flashdisk 2GB"
            Harga.Text = "60000"
        End If
    End Sub

    Private Sub BtnProses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
        TotalHarga.Text = JumlahBeli.Text * Harga.Text
    End Sub

    Private Sub Btnbersih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnBersih.Click
        NoPembelian.Text = ""
        KodeBarang.Text = ""
        NamaBarang.Text = ""
        Merk.Text = ""
        Harga.Text = ""
        JumlahBeli.Text = ""
        TotalHarga.Text = ""
    End Sub

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

    Private Sub JumlahBeli_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles JumlahBeli.KeyPress
        If Asc(e.KeyChar) = 13 Then
            TotalHarga.Text = Harga.Text * JumlahBeli.Text
        End If
    End Sub

    Private Sub ListView1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListView1.SelectedIndexChanged

    End Sub
    Sub buatTabel()
        ListView1.Columns.Add("No Pembelian", 80, HorizontalAlignment.Center)
        ListView1.Columns.Add("Kode Barang", 80, HorizontalAlignment.Left)
        ListView1.Columns.Add("Nama Barang", 80, HorizontalAlignment.Left)
        ListView1.Columns.Add("Merk", 80, HorizontalAlignment.Left)
        ListView1.Columns.Add("Harga", 80, HorizontalAlignment.Left)
        ListView1.Columns.Add("Jumlah Beli", 80, HorizontalAlignment.Left)
        ListView1.Columns.Add("Total Harga", 80, HorizontalAlignment.Left)
        ListView1.View = View.Details
        ListView1.GridLines = True
        ListView1.FullRowSelect = True
    End Sub
    Sub IsiTabel()
        Dim Lst As New ListViewItem
        Lst.Text = (NoPembelian.Text)
        Lst.SubItems.Add(KodeBarang.Text)
        Lst.SubItems.Add(NamaBarang.Text)
        Lst.SubItems.Add(Merk.Text)
        Lst.SubItems.Add(Harga.Text)
        Lst.SubItems.Add(JumlahBeli.Text)
        Lst.SubItems.Add(TotalHarga.Text)
        ListView1.Items.Add(Lst)
    End Sub

    Private Sub BtnSimpanKeListView_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnSimpanKeListView.Click
        IsiTabel()
    End Sub

    Private Sub BtnHapusSemuaData_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnHapusSemuaData.Click
        ListView1.Items.Clear()
    End Sub

    Private Sub BtnHapusDataYangDiPilih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnHapusDataYangDiPilih.Click
        ListView1.Items.Remove(ListView1.SelectedItems(0))
    End Sub
End Class

3. Hasil Programnya :

Sekian dan Terimakasih...!!!!!

TUGAS BPC PERTEMUAN KE-7

Ini dia nih tugas Budidarma Programming Club (BPC) pertemuan ke-7.
Gak terlalu payah, asal ada kemauan aja.
:p
1. Desain Form

2. Listing programnya:
Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        TipeKamar.Items.Add("EKONOMI")
        TipeKamar.Items.Add("VIP")
    End Sub

MEMBUAT SEGITIGA ANGKA DENGAN LOOPING

Misi ya gan, mau iseng2 posting tugas dulu neh..
Skalian nambahin postingan gitu. Mudahan bermanfaat.
Langsung aja neh gan.

1. Desainlah Formnya seperti gambar dibawah ini dan atur juga propertinya.

Ketikkan aja nih listinya gan yah:
Public Class Form1

    Private Sub Proses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Proses.Click
        Dim y, q, z As Byte
        y = 1
        q = Val(Nilai.Text)
        Hasil.Clear()

Yuk! Belajar Konsep Pemrograman Di Mesran.Blogspot.Com

Tugas Belajar Bahasa Pemograman

1.Desainlah Form dan atur propertinya seperti gambar di bawah ini:

2. Kemudian ketiklah listing program seperti dibawah ini :

Public Class Form_Nilai

    Private Sub Form_Nilai_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        KodeDosen.Items.Add("113421")
        KodeDosen.Items.Add("222342")
        KodeMataKuliah.Items.Add("0051")
        KodeMataKuliah.Items.Add("0072")
        NPM.Items.Add("12110728")
        NPM.Items.Add("12119008")
        NPM.Items.Add("12118879")
        Dim i As Integer
        For i = 1 To 100
            NilaiKehadiran.Items.Add(i)
        Next i
        i = 100
        For i = 1 To 100
            NilaiTugas.Items.Add(i)
        Next i
        i = 100
        For i = 1 To 100
            NilaiUTS.Items.Add(i)
        Next i
        For i = 1 To 100
            NilaiUAS.Items.Add(i)
        Next i
    End Sub

    Private Sub BtnHapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnHapus.Click
        MataKuliah.Text = " "
        Nama.Text = " "
        NamaDosen.Text = ""
        NilaiKehadiran.Text = " "
        NilaiTugas.Text = " "
        NilaiUTS.Text = " "
        NilaiAkhir.Text = " "
        NilaiUAS.Text = " "
        Jenjang.Text = ""
        NPM.Text = ""
        KodeMataKuliah.Text = ""
        KodeDosen.Text = ""
        Keterangan.Text = ""
        NilaiHuruf.Text = ""
        Jurusan.Text = ""
    End Sub

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

    Private Sub BtnProses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnProses.Click
        NilaiAkhir.Text = 0.1 * NilaiKehadiran.Text + 0.15 * NilaiTugas.Text + 0.3 * NilaiUTS.Text + 0.45 * NilaiUAS.Text
        If NilaiAkhir.Text >= 50 Then
            Keterangan.Text = "Lulus"
        Else
            Keterangan.Text = "Gagal"
        End If
        If NilaiAkhir.Text >= 80 Then
            NilaiHuruf.Text = "A"
        ElseIf NilaiAkhir.Text >= 70 Then
            NilaiHuruf.Text = "B"
        ElseIf NilaiAkhir.Text >= 60 Then
            NilaiHuruf.Text = "C"
        ElseIf NilaiAkhir.Text >= 50 Then
            NilaiHuruf.Text = "D"
        Else
            NilaiHuruf.Text = "E"
        End If
    End Sub

    Private Sub KodeDosen_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KodeDosen.SelectedIndexChanged
        Dim z As String
        z = KodeDosen.Text
        If z = "113421" Then
            NamaDosen.Text = "Tonni Limbong S.Kom,M.Kom"
        ElseIf z = "222342" Then
            NamaDosen.Text = "Sinar Sinurat, ST, M.Kom"
        End If
    End Sub

    Private Sub KodeMataKuliah_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KodeMataKuliah.SelectedIndexChanged
        Dim p As String
        p = KodeMataKuliah.Text
        If p = "0051" Then
            MataKuliah.Text = "Pemograman Visual Basic"
        ElseIf p = "0072" Then
            MataKuliah.Text = "Matematika Diskrit"
        End If
    End Sub

    Private Sub NPM_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NPM.SelectedIndexChanged
        Dim a As String
        a = NPM.Text
        If NPM.Text = "12110728" Then
            Nama.Text = "Bister Purba"
        ElseIf NPM.Text = "12119008" Then
            Nama.Text = "Anto"
        ElseIf NPM.Text = "12118879" Then
            Nama.Text = "Ani"
        End If
    End Sub
End Class

3. Setelah itu, jalankan program Visual Basic.Net dengan menekan F5 atau (Shortcut Run) dan akan muncul hasilnya seperti pada gambar di bawah ini :

Sekian Dan Terimakasih.

Hanya Sekedar Humor

Sepasang suami istri sedang berebut remot TV.
Si suami senangnya menonton acara sepak bola sedangkan si istri senang menonton acara masak.
Beginilah bunyi televisi karena mereka saling ganti-ganti siaran hingga kedengarannya gak karuan ! !

1 kg daging ayam di tendang ronaldo.
5 siung bawang berdiri off side.
Daging direbus oleh wasit.
Bumbu yg sudah di haluskan di kenai kartu kuning.
Bola di bawa lantas dikukus 1/2 masak.
Kiper dipotong2 ditusuk lantas sate.
Hakim garis angkat bendera sinyal ayam sudah matang.

Smoga sobat terhibur kalaupun sudah pernah mendengar atau membacanya.
Sekian dulu postingan iseng-iseng ane....

Membuat Tulisan Seperti Mengetik Pada VB.NET

1. Desainlah formnya seperti gambar berikut dengan menambahkan satu buah Label dan satu buah Timer.

2. Kemudian ketikkan saja koding di bawan ini:
Public Class Form1
    Dim tulisan(3) As String
    Dim i, j As Integer
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        tulisan(0) = " Welcome to www.bisterpurba.blogspot.com "
        tulisan(1) = " Thank's for coming and please come back any time "
        tulisan(2) = " Good Luck !!! ... "
        tulisan(3) = " Waktu menunjukkan pukul : " & TimeValue(Date.Now) & " "