Pengolahan Citra Untuk Memberi Efek Gambar

Desain Program

Listin Program

Public Class Form2
    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
        PictureBox1.Image = Image.FromFile(OFD.FileName)
        gambar = New Bitmap(PictureBox1.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 GrayscaleToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GrayscaleToolStripMenuItem.Click
        Dim pb, pc As Integer
        Dim rt, vm, vb, vh As Double
        With gambar
            For pb = 0 To .Height - 1
                For pc = 0 To .Width - 1
                    vm = .GetPixel(pc, pb).R
                    vb = .GetPixel(pc, pb).G
                    vh = .GetPixel(pc, pb).B
                    rt = (vm + vh + vb) / 3
                    .SetPixel(pc, pb, Color.FromArgb(rt, rt, rt))
                Next
                PictureBox2.Image = gambar
                PictureBox2.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, vb, vh As Double
        With gambar
            For pb = 0 To .Height - 1
                For pc = 0 To .Width - 1
                    vm = 255 - .GetPixel(pc, pb).R
                    vb = 255 - .GetPixel(pc, pb).G
                    vh = 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, vb, vh))
                Next
                PictureBox2.Image = gambar
                PictureBox2.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, vb, vh As Double
        With gambar
            For pb = 0 To .Height - 1
                For pc = 0 To .Width - 1
                    vm = .GetPixel(pc, pb).R + 5
                    vb = .GetPixel(pc, pb).G + 5
                    vh = .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, vb, vh))
                Next
                PictureBox2.Image = gambar

                PictureBox2.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, vb, vh As Double
        With gambar
            For pb = 0 To .Height - 1
                For pc = 0 To .Width - 1
                    vm = .GetPixel(pc, pb).R
                    vb = .GetPixel(pc, pb).G
                    vh = .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, vb, vh))
                Next
                PictureBox2.Image = gambar
                PictureBox2.Refresh()
            Next
        End With
    End Sub

    Private Sub RotateToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RotateToolStripMenuItem.Click
        Dim pb, pc As Integer
        Dim vm, vb, vh As Double
        Dim gambar3 As Bitmap = New Bitmap(PictureBox1.Image)
        With gambar
            For pb = 0 To .Height - 1
                For pc = 0 To .Width - 1
                    vm = .GetPixel(pc, pb).R
                    vb = .GetPixel(pc, pb).G
                    vh = .GetPixel(pc, pb).B
                   
                    gambar3.SetPixel(.Width - 1 - pc, .Height - 1 - pb, Color.FromArgb(vh, vm, vb))
                Next
                PictureBox2.Image = gambar
                PictureBox2.Refresh()
            Next
        End With
        gambar = gambar3
    End Sub

    Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        gambar = New Bitmap(PictureBox1.Image)
    End Sub

End Class

Semoga Bermanfaat.....google,com

Read More

Kasus Pemrograman Pemakaian Listrik

Public Class Form1
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        daerah.Items.Add("Med")
        daerah.Items.Add("Bel")
        daerah.Items.Add("Mar")
        daerah.Items.Add("Bin")
        daerah.Items.Add("Pak")

        pelanggan.Items.Add("Toko")
        pelanggan.Items.Add("Rumah")
        pelanggan.Items.Add("Swalayan")
        pelanggan.Items.Add("Pabrik")

        nourut.Items.Add("100")
        nourut.Items.Add("200")
        nourut.Items.Add("300")
        nourut.Items.Add("400")

        buattabel()
    End Sub

    Private Sub pelanggan_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles pelanggan.SelectedIndexChanged
        Dim x As String
        x = Microsoft.VisualBasic.Left(pelanggan.Text, 3)
        Select Case x
            Case "Tok" : pemakaian.Text = 150000 + 500
            Case "Rum" : pemakaian.Text = 5000 + 200
            Case "Swa" : pemakaian.Text = 400000 + 1500
            Case "Pab" : pemakaian.Text = 1000000 + 10000
        End Select
       
    End Sub

    Private Sub daerah_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles daerah.SelectedIndexChanged
        Dim x As String
        x = Microsoft.VisualBasic.Left(daerah.Text, 3)
        Select Case x
            Case "Med" : daera.Text = "Medan"
            Case "Bel" : daera.Text = "Belawan"
            Case "Mar" : daera.Text = "Marelan"
            Case "Bin" : daera.Text = "Binjai"
            Case "Pak" : daera.Text = "Pakam"

        End Select
    End Sub

    Private Sub nourut_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles nourut.SelectedIndexChanged
        Dim x As String
        x = Microsoft.VisualBasic.Left(nourut.Text, 3)
        Select Case x
            Case "100" : nama.Text = "Linsun"
            Case "200" : nama.Text = "Hamsiong"
            Case "300" : nama.Text = "Liing"
            Case "400" : nama.Text = "Osim"
        End Select
    End Sub

    Private Sub Bproses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Bproses.Click

        Total.Text = pemakaian.Text * 1.5
        isitabel()
    End Sub
    Sub buattabel()
        ListView1.Columns.Add("Kode Pelanggan", 80, HorizontalAlignment.Center)
        ListView1.Columns.Add("Daerah", 80, HorizontalAlignment.Center)
        ListView1.Columns.Add("Nama", 80, HorizontalAlignment.Center)
        ListView1.Columns.Add("No Urut", 80, HorizontalAlignment.Center)
        ListView1.Columns.Add("Pemakaian", 80, HorizontalAlignment.Center)
        ListView1.Columns.Add("Total Biaya", 80, HorizontalAlignment.Center)
        ListView1.View = View.Details
        ListView1.GridLines = True
        ListView1.FullRowSelect = True
    End Sub
    Sub isitabel()
        Dim x As New ListViewItem
        x.Text = daerah.Text
        x.SubItems.Add(pelanggan.Text)
        x.SubItems.Add(daera.Text)
        x.SubItems.Add(nourut.Text)
        x.SubItems.Add(nama.Text)
        x.SubItems.Add(pemakaian.Text)
        x.SubItems.Add(Total.Text)
        ListView1.Items.Add(x)
    End Sub

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

    Private Sub Bhapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Bhapus.Click
        ListView1.Items.Clear()
    End Sub
end class

Read More

Sejarah Smartfren

Smartfren merupakan produk dari Smart Telecom yang fokus di jaringan CDMA 2000, namun kini Smart Telecom telah bergabung dengan Mobile-8 Telecom (Fren) yang menghasilkan produk Smartfren.

PT Smartfren Telecom, Tbk. adalah operator penyedia jasa telekomunikasi berbasis teknologi CDMA yang memiliki lisensi selular dan mobilitas terbatas (fixed wireless access), serta memiliki cakupan jaringan CDMA EV-DO (jaringan mobile broadband yang setara dengan 3G) yang terluas di Indonesia. Smartfren juga merupakan operator telekomunikasi pertama di dunia yang menyediakan layanan CDMA EV-DO Rev. B (setara dengan 3,5G dengan kecepatan unduh s.d. 14,7 Mbps) dan operator CDMA pertama yang menyediakan layanan Blackberry.


Sejarah Awal Berdiri Perusahaan PT Smartfren Telecom

Perusahaan PT Smartfren Telecom

PT Mobile-8 Telecom Tbk (“Mobile-8” atau “Perseroan”) didirikan pada bulan Desember 2002. Pada tahun 2003, Perseroan mengakuisisi dua operator telepon selular berlisensi, yaitu Komselindo dan Metrosel, dan mulai beroperasi sebagai penyelenggara jasa selular dengan menggunakan basis teknologi CDMA. Layanan yang pertama kali diluncurkan oleh Mobile-8 adalah Layanan Selular Prabayar dengan brand “Fren” yang dioperasikan pada bulan Desember 2003 dengan berbasis jaringan CDMA 2000-1X.

Pada bulan April 2004, Mobile-8 meluncurkan Layanan Selular Fren Paskabayar pada jaringan yang sama. Lima bulan kemudian Perseroan mengakuisi satu lagi operator telepon selular berlisensi, yaitu Telesera. Perseroan juga serta merta menyelesaikan peralihan sistem telekomunikasi yang dioperasikan ketiga operator berlisensi yang diakuisi tersebut dari sistem selular analog menjadi sistem selular digital CDMA.

Pada tahun 2006, Mobile-8 memperkenalkan layanan 3G pada jaringan CDMA EVDO, serta melakukan pencatatan perdana saham pada Bursa Efek Indonesia (dahulu Bursa Efek Jakarta). Langkah-langkah Perseroan di pasar modal terus berlanjut, dimana pada tahun 2007 Mobile-8 berhasil menerbitkan obligasi Rupiah pertamanya yang juga dicatatkan di Bursa Efek Indonesia. Kemudian, Perseroan juga turut meramaikan pasar modal regional dengan penerbitan Eurobond pertamanya yang dicatatkan di Bursa Efek Singapura.

Pada bulan April 2008, Mobile-8 memperkenalkan fitur baru yaitu “World Passport”, dimana Mobile-8 menjadi operator CDMA pertama di dunia yang bergabung dengan Asosiasi GSM sehingga memungkinkan pelanggan Mobile-8 melakukan PT Smartfren Telecom, Tbk. adalah operator penyedia jasa telekomunikasi berbasis teknologi CDMA yang memiliki lisensi selular dan mobilitas terbatas (fixed wireless access), serta memiliki cakupan jaringan CDMA EV-DO (jaringan mobile broadband yang setara dengan 3G) yang terluas di Indonesia.

Smartfren juga merupakan operator telekomunikasi pertama di dunia yang menyediakan layanan CDMA EV-DO Rev. B (setara dengan 3,5G dengan kecepatan unduh s.d. 14,7 Mbps) dan operator CDMA pertama yang menyediakan layanan Blackberry.

Jasa dan layanan Smartfren memiliki nilai-nilai (values) yaitu sebagai mitra yang terbaik bagi pelanggan dengan menawarkan solusi yang cerdas dalam layanan-layanan telekomunikasi untuk meningkatkan pengalaman hidup pelanggan dalam berkomunikasi.

Sebagai operator CDMA yang menyediakan jaringan internet kecepatan tinggi bergerak (mobile broadband) yang terluas di Indonesia, Smartfren berkomitmen untuk menjadi penyedia layanan telekomunikasi yang terjangkau bagi masyarakat dengan kualitas terbaik.

sumber : http://portal.paseban.com/review/3936/smart-telecom

Read More

About Love

 

Cinta adalah ketika kau menyingkirkan perasaan, napsu, dan romantika dalam persahabatan. Dan menemukan bahwa kau masih peduli pada orang itu. Memberi seseorang seluruh cintamu bukanlah suatu jaminan bahwa seseorang tersebut akan

Cinta adalah ketika kau menyingkirkan perasaan, napsu, dan romantika dalam persahabatan. Dan menemukan bahwa kau masih peduli pada orang itu. Memberi seseorang seluruh cintamu bukanlah suatu jaminan bahwa seseorang tersebut akan mencintaimu kembali! Jangan mengharapkan cinta kembali! Hanya tunggulah, cinta itu akan tumbuh dalam hatinya, tapi jika hal itu tidak terjadi, tampunglah cinta itu akan tumbuh dalam dirimu.

Hanya butuh 1 menit untuk dapat suka dengan seseorang, hanya butuh 1 jam untuk menyukai seseorang dan 1 hari untuk mencintai seseorang tapi butuh waktu seumur hidup untuk melupakan seseorang. Pergilah untuk seseorang yang membuatmu tersenyum karena hanya butuh senyuman untuk membuat hari yang gelap terlihat terang.

Ada masanya dalam hidup ketika kamu merasa sangat merindukan seseorang dan kamu berharap dapat mengambil dia dari mimpimu dan memeluknya dalam kehidupan nyata! Bermimpilah apa yang kamu ingin mimpikan, pergilah kemana kamu ingin pergi, jadilah apa yang kamu ingini karena kamu hanya mempunyai satu kehidupan dan satu kesempatan untuk melakukan semua hal yang kamu ingin lakukan.

mencintaimu kembali! Jangan mengharapkan cinta kembali! Hanya tunggulah, cinta itu akan tumbuh dalam hatinya, tapi jika hal itu tidak terjadi, tampunglah cinta itu akan tumbuh dalam dirimu.

Hanya butuh 1 menit untuk dapat suka dengan seseorang, hanya butuh 1 jam untuk menyukai seseorang dan 1 hari untuk mencintai seseorang tapi butuh waktu seumur hidup untuk melupakan seseorang. Pergilah untuk seseorang yang membuatmu tersenyum karena hanya butuh senyuman untuk membuat hari yang gelap terlihat terang.

Ada masanya dalam hidup ketika kamu merasa sangat merindukan seseorang dan kamu berharap dapat mengambil dia dari mimpimu dan memeluknya dalam kehidupan nyata! Bermimpilah apa yang kamu ingin mimpikan, pergilah kemana kamu ingin pergi, jadilah apa yang kamu ingini karena kamu hanya mempunyai satu kehidupan dan satu kesempatan untuk melakukan semua hal yang kamu ingin lakukan.

http://students.ukdw.ac.id/~22002421/tentang%20cinta.htm 

Read More