Membuat Project Pencitraan dengan Visual Studio.Net 2008
Public Class Form1
Dim gambar2 As Bitmap
Private Sub Btn_Gray_Click(ByVal
sender As System.Object, ByVal e As System.EventArgs) Handles Btn_Gray.Click
Dim Pb, Pc As Integer
Dim Rt, vM, vH, vB As Double
gambar2 = New
Bitmap(PictureBox1.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()
PictureBox1.Image =
gambar2
PictureBox1.Refresh()
Next
End Sub
Private Sub kurang_H_Click(ByVal
sender As System.Object, ByVal e As System.EventArgs) Handles kurang_H.Click
Dim Pb, Pc As Integer
Dim vM, vH, vB As Double
gambar2 = New Bitmap(PictureBox1.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()
PictureBox1.Image =
gambar2
PictureBox1.Refresh()
Next
End Sub
Private Sub tambah_H_Click(ByVal
sender As System.Object, ByVal e As System.EventArgs) Handles tambah_H.Click
Dim Pb, Pc As Integer
Dim vM, vH, vB As Double
gambar2 = New Bitmap(PictureBox1.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 kurang_M_Click(ByVal
sender As System.Object, ByVal e As System.EventArgs) Handles kurang_M.Click
Dim Pb, Pc As Integer
Dim vM, vH, vB As Double
gambar2 = New
Bitmap(PictureBox1.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 Tambah_M_Click(ByVal
sender As System.Object, ByVal e As System.EventArgs) Handles Tambah_M.Click
Dim Pb, Pc As Integer
Dim vM, vH, vB As Double
gambar2 = New
Bitmap(PictureBox1.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 Button6_Click(ByVal
sender As System.Object, ByVal e As System.EventArgs) Handles Putaran.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()
PictureBox1.Image =
gambar3
PictureBox1.Refresh()
Next
End Sub
Private Sub Button7_Click(ByVal
sender As System.Object, ByVal e As System.EventArgs) Handles T_Terang.Click
Dim Pb, Pc As Integer
Dim vM, vH, vB As Double
gambar2 = New
Bitmap(PictureBox1.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 Button8_Click(ByVal
sender As System.Object, ByVal e As System.EventArgs) Handles K_Terang.Click
Dim Pb, Pc As Integer
Dim vM, vH, vB As Double
gambar2 = New
Bitmap(PictureBox1.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 Button9_Click(ByVal
sender As System.Object, ByVal e As System.EventArgs) Handles W_Terbalik.Click
Dim Pb, Pc As Integer
Dim vM, vH, vB As Double
gambar2 = New
Bitmap(PictureBox1.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
Private Sub Button10_Click(ByVal
sender As System.Object, ByVal e As System.EventArgs) Handles Keluar.Click
Me.Close()
End Sub
Private Sub Form1_Load(ByVal
sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
PictureBox2.Image =
PictureBox1.Image
End Sub
End Class
Kalau Belum ngerti silahkan tulis di komentar ya!!!!!!!!!!!!!
