Unknown

Public Class Form1
    Dim Gambar As Bitmap
    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
                        vH = 0
                        vM = 0
                        vB = 0
                    Else
                        vM = 255
                        vH = 255
                        vB = 255
                    End If
                    .SetPixel(Pc, Pb, Color.FromArgb(vM, vH, vB))
                Next
                Pic1.Image = gambar
                Pic2.Refresh()
            Next
        End With
    End Sub

    Private Sub MenuStrip1_ItemClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ToolStripItemClickedEventArgs) Handles MenuStrip1.ItemClicked
        Gambar = New Bitmap(Pic1.Image)
    End Sub

    Private Sub NegativeImageToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NegativeImageToolStripMenuItem.Click
        Dim Pb, Pc As Integer
Unknown
CURhat Q Kadang hidup ini terlalu sulit untuk dijalani, Apalagi banyak yang harus di hadapi.. maslah keuangan la, keluarga lah, percintaan,, yng ini-itu. Puyeng mikirin nya, lama2 jadi sterzz juga. masih muda uda jadi Profesor. Aduhhhhhhh Tapi Q berterima kasih ya allh, enggkaw sudah melahirkan Q di keluarga yng sederhana. Walau pun itu dalam kekurangn mau pun kelebihan. Terima kasih juga ya raBBi,Q telah dilahirkan seorang ibu Yang cantik, yang mengajari Q untuk hidup yng begitu sederhana tanpa harus mengeluh meminta yang lebih. Walaupun Ibu Q mengajari q dengan kekerasan, tapi Q tau itu demi kebaikan Q dan untuk kehidupan nanti nya... Terimakasih juga ya Allah karna Q telah memliki Ayah yang Begitu ganteng tiada dua nya.. Wlau pun sekrang tubuh nya mulai melemah,dia lah Ayah yng paling paling Q Sayangi di seluruh dunia. Ayah yang beri Q semangat begitu juga ibu yang sellu beri Q nasehat. Hanya satu pinta Q, Jagalah Kedua Orang Tua ya Robbi, Karn hany mereka lah tempat Q mengad nasib. Terimakasih ya Allah