Berikut saya akan share sedikit pengetahuan saya tentang cara download video youtube tanpa software.
Silahkan ikuti langkah-langkah berikut ini;
1. Masuk ke situs youtube
2. Search video yang akan kamu download lalu klik
3. Pada addres bar tambahkan huruf ss didepan youtube
contoh: http://www.youtube.com/watch?v=01eifzeMxhU
menjadi http://www.ssyoutube.com/watch?v=01eifzeMxhU
4. Enter, lalu akan diredirect ke halaman dibawah ini
5. Silahkan pilih download dengan format flv atau 3gp
6. Klik OK pada link download dibawah ini
Demikian Cara Download Video Youtube Tanpa Software, gak ribet kan??
Nurhamidah Lubi's bLog
seLamat datang di blog pertama saya, semoga artikel-artikel yang terdapat disini bermanfaat buat kita ia.
Saturday, June 29, 2013
Friday, June 28, 2013
pengolahan citra
Public
Class Form1
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
Pic1.Image = Image.FromFile(OFD.FileName)
gambar = New Bitmap(Pic1.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, 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
Rt = (vM + vh + vB) / 3
.SetPixel(Pc, Pb, Color.FromArgb(Rt, Rt, Rt))
Next
Pic2.Image = gambar
Pic2.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, vH, vB As Double
With gambar
For pb = 0 To .Height - 1
For pc = 0 To .Width - 1
vM = 255 - .GetPixel(pc, pb).R
vH = 255 - .GetPixel(pc, pb).G
vB = 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, vH, vB))
Next
Pic2.Image = gambar
Pic2.Refresh()
Next
End With
End Sub
Private Sub BrightnessToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BrightnessToolStripMenuItem.Click
Dim Pb, Pc As Integer
Dim vM, vH, vB As Double
With gambar
For Pb = 0 To .Height - 1
For Pc = 0 To .Width - 1
vM = .GetPixel(Pc, Pb).R + 5
vH = .GetPixel(Pc, Pb).G + 5
vB = .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, vH, vB))
Next
Pic2.Image = gambar
Pic2.Refresh()
Next
End With
End Sub
Private Sub DefaultGambarToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DefaultGambarToolStripMenuItem.Click
gambar = New Bitmap(Pic1.Image)
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, 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
vM = 0
vH = 0
vB = 0
Else
vM = 255
vH = 255
vB = 255
End If
.SetPixel(pc, pb, Color.FromArgb(vM, vH, vB))
Next
Pic2.Image = gambar
Pic2.Refresh()
Next
End With
End Sub
Private Sub RotateToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RotateToolStripMenuItem.Click
Dim grb As Image
grb = Pic2.Image
If grb IsNot Nothing Then grb.RotateFlip(RotateFlipType.Rotate90FlipX)
Pic2.Image = grb
End Sub
Private Sub Btnred_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnhijauk.Click
Dim Pb, Pc As Integer
Dim vM, vH, vB As Double
Dim gambar2 = New Bitmap(Pic2.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
Pic2.Image = gambar2
Pic2.Refresh()
Next
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Pic2.Image = Pic1.Image
End Sub
Private Sub Btnhijau_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnhijau.Click
Dim Pb, Pc As Integer
Dim vM, vH, vB As Double
Dim gambar2 = New Bitmap(Pic2.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
Pic2.Image = gambar2
Pic2.Refresh()
Next
End Sub
Private Sub ContrasToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ContrasToolStripMenuItem.Click
gambar = New Bitmap(Pic1.Image)
Pic1.Image = gambar
Dim tempbmp As New Bitmap(Pic1.Image)
Dim DX As Integer = 1
Dim DY As Integer = 1
Dim Red, Green, Blue As Integer
Dim X, Y As Integer
Dim tc As Integer
tc = 5
With tempbmp
For X = DX To .Height - DX - 1
For Y = DY To .Width - DY - 1
Red = CInt(.GetPixel(Y, X).R)
Green = CInt(.GetPixel(Y, X).G)
Blue = CInt(.GetPixel(Y, X).B)
'Grey = (Red + Green + Blue) / 3 'konversi warna pada pixel Y,X ke grey
Red = Red * tc
Blue = Blue * tc
Green = Green * tc
If (Red > 255) Then
Red = 255
End If
If (Blue > 255) Then
Blue = 255
End If
If (Green > 255) Then
Green = 255
End If
gambar.SetPixel(Y, X, Color.FromArgb(Red, Green, Blue))
Next
If X Mod 10 = 0 Then
Pic1.Invalidate()
Pic1.Refresh()
End If
Next
End With
End Sub
Private Sub SmoothingToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SmoothingToolStripMenuItem.Click
Dim MF(2, 2) As Double
'MaskFilter.Show()
'matriks Filter
' 0 1 2
'0 a b c
'1 d e f
'2 g h i
'Filter smoothing
MF(0, 0) = 1 / 9 'a
MF(0, 1) = 1 / 9 'b
MF(0, 2) = 1 / 9 'c
MF(1, 0) = 1 / 9 'd
MF(1, 1) = 1 / 9 'e
MF(1, 2) = 1 / 9 'f
MF(2, 0) = 1 / 9 'g
MF(2, 1) = 1 / 9 'h
MF(2, 2) = 1 / 9 'i
gambar = New Bitmap(Pic1.Image)
Pic1.Image = gambar
Dim tempbmp As New Bitmap(Pic1.Image)
Dim DX As Integer = 1
Dim DY As Integer = 1
Dim Red As Integer, Green As Integer, Blue As Integer
Dim i As Integer, j As Integer
Pic1.Width = Pic1.Width
Pic1.Show()
With gambar
For i = DX To .Height - DX - 1
For j = DY To .Width - DY - 1
'proses matriks filter
'point(j,i)*e --> titik tengah
Red = CInt(.GetPixel(j, i).R) * MF(1, 1)
Green = CInt(.GetPixel(j, i).G) * MF(1, 1)
Blue = CInt(.GetPixel(j, i).B) * MF(1, 1)
'proses titik tetangga
'point(j-1,i-1)*a--> MF(0,0)--> titik kiri atas
If j - 1 < 1 And i - 1 < 1 Then 'jika out of border ambil nilai tengah/point(x,y)
Red = Red + (CInt(.GetPixel(j, i).R) * MF(0, 0))
Green = Green + (CInt(.GetPixel(j, i).G) * MF(0, 0))
Blue = Blue + (CInt(.GetPixel(j, i).B) * MF(0, 0))
Else
Red = Red + (CInt(.GetPixel(j - 1, i - 1).R) * MF(0, 0))
Green = Green + (CInt(.GetPixel(j - 1, i - 1).G) * MF(0, 0))
Blue = Blue + (CInt(.GetPixel(j - 1, i - 1).B) * MF(0, 0))
End If
'point(j,i-1)*b --> MF(0,1) --> titik atas
If i - 1 < 1 Then 'jika out of border ambil nilai tengah/point(x,y)
Red = Red + (CInt(.GetPixel(j, i).R) * MF(0, 1))
Green = Green + (CInt(.GetPixel(j, i).G) * MF(0, 1))
Blue = Blue + (CInt(.GetPixel(j, i).B) * MF(0, 1))
Else
Red = Red + (CInt(.GetPixel(j, i - 1).R) * MF(0, 1))
Green = Green + (CInt(.GetPixel(j, i - 1).G) * MF(0, 1))
Blue = Blue + (CInt(.GetPixel(j, i - 1).B) * MF(0, 1))
End If
'point(j+1,i-1)*c --> MF(0,2) --> titik kanan atas
If j + 1 > .Width - DY - 1 And i - 1 > 1 Then 'jika out of border ambil nilai tengah/point(x,y)
Red = Red + (CInt(.GetPixel(j, i).R) * MF(0, 2))
Green = Green + (CInt(.GetPixel(j, i).G) * MF(0, 2))
Blue = Blue + (CInt(.GetPixel(j, i).B) * MF(0, 2))
Else
Red = Red + (CInt(.GetPixel(j + 1, i - 1).R) * MF(0, 2))
Green = Green + (CInt(.GetPixel(j + 1, i - 1).G) * MF(0, 2))
Blue = Blue + (CInt(.GetPixel(j + 1, i - 1).B) * MF(0, 2))
End If
'point(j-1,i)*d --> MF(1,0) --> titik kiri
If j - 1 < 1 Then 'jika out of border ambil nilai tengah/point(x,y)
Red = Red + (CInt(.GetPixel(j, i).R) * MF(1, 0))
Green = Green + (CInt(.GetPixel(j, i).G) * MF(1, 0))
Blue = Blue + (CInt(.GetPixel(j, i).B) * MF(1, 0))
Else
Red = Red + (CInt(.GetPixel(j - 1, i).R) * MF(1, 0))
Green = Green + (CInt(.GetPixel(j - 1, i).G) * MF(1, 0))
Blue = Blue + (CInt(.GetPixel(j - 1, i).B) * MF(1, 0))
End If
'point(j+1,i)*f --> MF(1,2) --> titik kanan
If j + 1 > .Width - DY - 1 Then 'jika out of border ambil nilai tengah/point(x,y)
Red = Red + (CInt(.GetPixel(j, i).R) * MF(1, 2))
Green = Green + (CInt(.GetPixel(j, i).G) * MF(1, 2))
Blue = Blue + (CInt(.GetPixel(j, i).B) * MF(1, 2))
Else
Red = Red + (CInt(.GetPixel(j + 1, i).R) * MF(1, 2))
Green = Green + (CInt(.GetPixel(j + 1, i).G) * MF(1, 2))
Blue = Blue + (CInt(.GetPixel(j + 1, i).B) * MF(1, 2))
End If
'point(j-1,i+1)*g --> MF(2,0) --> titik kiri bawah
If j - 1 < 1 And i + 1 > .Height - DX - 1 Then 'jika out of border ambil nilai tengah/point(x,y)
Red = Red + (CInt(.GetPixel(j, i).R) * MF(2, 0))
Green = Green + (CInt(.GetPixel(j, i).G) * MF(2, 0))
Blue = Blue + (CInt(.GetPixel(j, i).B) * MF(2, 0))
Else
Red = Red + (CInt(.GetPixel(j - 1, i + 1).R) * MF(2, 0))
Green = Green + (CInt(.GetPixel(j - 1, i + 1).G) * MF(2, 0))
Blue = Blue + (CInt(.GetPixel(j - 1, i + 1).B) * MF(2, 0))
End If
'point(j,i+1)*g --> MF(2,1) --> titik bawah
If i + 1 > .Height - DX - 1 Then 'jika out of border ambil nilai tengah/point(x,y)
Red = Red + (CInt(.GetPixel(j, i).R) * MF(2, 1))
Green = Green + (CInt(.GetPixel(j, i).G) * MF(2, 1))
Blue = Blue + (CInt(.GetPixel(j, i).B) * MF(2, 1))
Else
Red = Red + (CInt(.GetPixel(j, i + 1).R) * MF(2, 1))
Green = Green + (CInt(.GetPixel(j, i + 1).G) * MF(2, 1))
Blue = Blue + (CInt(.GetPixel(j, i + 1).B) * MF(2, 1))
End If
'point(j+1,i+1)*h --> MF(2,2) --> titik kanan bawah
If j + 1 > .Width - DY - 1 And i + 1 > .Height - DX - 1 Then 'jika out of border ambil nilai tengah/point(x,y)
Red = Red + (CInt(.GetPixel(j, i).R) * MF(2, 2))
Green = Green + (CInt(.GetPixel(j, i).G) * MF(2, 2))
Blue = Blue + (CInt(.GetPixel(j, i).B) * MF(2, 2))
Else
Red = Red + (CInt(.GetPixel(j + 1, i + 1).R) * MF(2, 2))
Green = Green + (CInt(.GetPixel(j + 1, i + 1).G) * MF(2, 2))
Blue = Blue + (CInt(.GetPixel(j + 1, i + 1).B) * MF(2, 2))
End If
'normalisasi
If Red < 0 Then
Red = 0
Else
If Red > 255 Then
Red = 255
End If
End If
If Green < 0 Then
Green = 0
Else
If Green > 255 Then
Green = 255
End If
End If
If Blue < 0 Then
Blue = 0
Else
If Blue > 255 Then
Blue = 255
End If
End If
'simpan warna hasil smoothing ke point j,i
gambar.SetPixel(j, i, Color.FromArgb(Red, Green, Blue))
Next
If i Mod 10 = 0 Then
Pic1.Invalidate()
Me.Text = Int(100 * i / (Pic1.Image.Height - 2)).ToString & "%"
Pic1.Text = Int(100 * i / (Pic1.Image.Height - 2))
Pic1.Refresh()
End If
Next
End With
Pic1.Image = gambar
Pic1.Refresh()
Me.Text = "Proses Smoothing Image berhasil"
End Sub
End Class
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
Pic1.Image = Image.FromFile(OFD.FileName)
gambar = New Bitmap(Pic1.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, 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
Rt = (vM + vh + vB) / 3
.SetPixel(Pc, Pb, Color.FromArgb(Rt, Rt, Rt))
Next
Pic2.Image = gambar
Pic2.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, vH, vB As Double
With gambar
For pb = 0 To .Height - 1
For pc = 0 To .Width - 1
vM = 255 - .GetPixel(pc, pb).R
vH = 255 - .GetPixel(pc, pb).G
vB = 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, vH, vB))
Next
Pic2.Image = gambar
Pic2.Refresh()
Next
End With
End Sub
Private Sub BrightnessToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BrightnessToolStripMenuItem.Click
Dim Pb, Pc As Integer
Dim vM, vH, vB As Double
With gambar
For Pb = 0 To .Height - 1
For Pc = 0 To .Width - 1
vM = .GetPixel(Pc, Pb).R + 5
vH = .GetPixel(Pc, Pb).G + 5
vB = .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, vH, vB))
Next
Pic2.Image = gambar
Pic2.Refresh()
Next
End With
End Sub
Private Sub DefaultGambarToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DefaultGambarToolStripMenuItem.Click
gambar = New Bitmap(Pic1.Image)
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, 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
vM = 0
vH = 0
vB = 0
Else
vM = 255
vH = 255
vB = 255
End If
.SetPixel(pc, pb, Color.FromArgb(vM, vH, vB))
Next
Pic2.Image = gambar
Pic2.Refresh()
Next
End With
End Sub
Private Sub RotateToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RotateToolStripMenuItem.Click
Dim grb As Image
grb = Pic2.Image
If grb IsNot Nothing Then grb.RotateFlip(RotateFlipType.Rotate90FlipX)
Pic2.Image = grb
End Sub
Private Sub Btnred_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnhijauk.Click
Dim Pb, Pc As Integer
Dim vM, vH, vB As Double
Dim gambar2 = New Bitmap(Pic2.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
Pic2.Image = gambar2
Pic2.Refresh()
Next
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Pic2.Image = Pic1.Image
End Sub
Private Sub Btnhijau_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnhijau.Click
Dim Pb, Pc As Integer
Dim vM, vH, vB As Double
Dim gambar2 = New Bitmap(Pic2.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
Pic2.Image = gambar2
Pic2.Refresh()
Next
End Sub
Private Sub ContrasToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ContrasToolStripMenuItem.Click
gambar = New Bitmap(Pic1.Image)
Pic1.Image = gambar
Dim tempbmp As New Bitmap(Pic1.Image)
Dim DX As Integer = 1
Dim DY As Integer = 1
Dim Red, Green, Blue As Integer
Dim X, Y As Integer
Dim tc As Integer
tc = 5
With tempbmp
For X = DX To .Height - DX - 1
For Y = DY To .Width - DY - 1
Red = CInt(.GetPixel(Y, X).R)
Green = CInt(.GetPixel(Y, X).G)
Blue = CInt(.GetPixel(Y, X).B)
'Grey = (Red + Green + Blue) / 3 'konversi warna pada pixel Y,X ke grey
Red = Red * tc
Blue = Blue * tc
Green = Green * tc
If (Red > 255) Then
Red = 255
End If
If (Blue > 255) Then
Blue = 255
End If
If (Green > 255) Then
Green = 255
End If
gambar.SetPixel(Y, X, Color.FromArgb(Red, Green, Blue))
Next
If X Mod 10 = 0 Then
Pic1.Invalidate()
Pic1.Refresh()
End If
Next
End With
End Sub
Private Sub SmoothingToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SmoothingToolStripMenuItem.Click
Dim MF(2, 2) As Double
'MaskFilter.Show()
'matriks Filter
' 0 1 2
'0 a b c
'1 d e f
'2 g h i
'Filter smoothing
MF(0, 0) = 1 / 9 'a
MF(0, 1) = 1 / 9 'b
MF(0, 2) = 1 / 9 'c
MF(1, 0) = 1 / 9 'd
MF(1, 1) = 1 / 9 'e
MF(1, 2) = 1 / 9 'f
MF(2, 0) = 1 / 9 'g
MF(2, 1) = 1 / 9 'h
MF(2, 2) = 1 / 9 'i
gambar = New Bitmap(Pic1.Image)
Pic1.Image = gambar
Dim tempbmp As New Bitmap(Pic1.Image)
Dim DX As Integer = 1
Dim DY As Integer = 1
Dim Red As Integer, Green As Integer, Blue As Integer
Dim i As Integer, j As Integer
Pic1.Width = Pic1.Width
Pic1.Show()
With gambar
For i = DX To .Height - DX - 1
For j = DY To .Width - DY - 1
'proses matriks filter
'point(j,i)*e --> titik tengah
Red = CInt(.GetPixel(j, i).R) * MF(1, 1)
Green = CInt(.GetPixel(j, i).G) * MF(1, 1)
Blue = CInt(.GetPixel(j, i).B) * MF(1, 1)
'proses titik tetangga
'point(j-1,i-1)*a--> MF(0,0)--> titik kiri atas
If j - 1 < 1 And i - 1 < 1 Then 'jika out of border ambil nilai tengah/point(x,y)
Red = Red + (CInt(.GetPixel(j, i).R) * MF(0, 0))
Green = Green + (CInt(.GetPixel(j, i).G) * MF(0, 0))
Blue = Blue + (CInt(.GetPixel(j, i).B) * MF(0, 0))
Else
Red = Red + (CInt(.GetPixel(j - 1, i - 1).R) * MF(0, 0))
Green = Green + (CInt(.GetPixel(j - 1, i - 1).G) * MF(0, 0))
Blue = Blue + (CInt(.GetPixel(j - 1, i - 1).B) * MF(0, 0))
End If
'point(j,i-1)*b --> MF(0,1) --> titik atas
If i - 1 < 1 Then 'jika out of border ambil nilai tengah/point(x,y)
Red = Red + (CInt(.GetPixel(j, i).R) * MF(0, 1))
Green = Green + (CInt(.GetPixel(j, i).G) * MF(0, 1))
Blue = Blue + (CInt(.GetPixel(j, i).B) * MF(0, 1))
Else
Red = Red + (CInt(.GetPixel(j, i - 1).R) * MF(0, 1))
Green = Green + (CInt(.GetPixel(j, i - 1).G) * MF(0, 1))
Blue = Blue + (CInt(.GetPixel(j, i - 1).B) * MF(0, 1))
End If
'point(j+1,i-1)*c --> MF(0,2) --> titik kanan atas
If j + 1 > .Width - DY - 1 And i - 1 > 1 Then 'jika out of border ambil nilai tengah/point(x,y)
Red = Red + (CInt(.GetPixel(j, i).R) * MF(0, 2))
Green = Green + (CInt(.GetPixel(j, i).G) * MF(0, 2))
Blue = Blue + (CInt(.GetPixel(j, i).B) * MF(0, 2))
Else
Red = Red + (CInt(.GetPixel(j + 1, i - 1).R) * MF(0, 2))
Green = Green + (CInt(.GetPixel(j + 1, i - 1).G) * MF(0, 2))
Blue = Blue + (CInt(.GetPixel(j + 1, i - 1).B) * MF(0, 2))
End If
'point(j-1,i)*d --> MF(1,0) --> titik kiri
If j - 1 < 1 Then 'jika out of border ambil nilai tengah/point(x,y)
Red = Red + (CInt(.GetPixel(j, i).R) * MF(1, 0))
Green = Green + (CInt(.GetPixel(j, i).G) * MF(1, 0))
Blue = Blue + (CInt(.GetPixel(j, i).B) * MF(1, 0))
Else
Red = Red + (CInt(.GetPixel(j - 1, i).R) * MF(1, 0))
Green = Green + (CInt(.GetPixel(j - 1, i).G) * MF(1, 0))
Blue = Blue + (CInt(.GetPixel(j - 1, i).B) * MF(1, 0))
End If
'point(j+1,i)*f --> MF(1,2) --> titik kanan
If j + 1 > .Width - DY - 1 Then 'jika out of border ambil nilai tengah/point(x,y)
Red = Red + (CInt(.GetPixel(j, i).R) * MF(1, 2))
Green = Green + (CInt(.GetPixel(j, i).G) * MF(1, 2))
Blue = Blue + (CInt(.GetPixel(j, i).B) * MF(1, 2))
Else
Red = Red + (CInt(.GetPixel(j + 1, i).R) * MF(1, 2))
Green = Green + (CInt(.GetPixel(j + 1, i).G) * MF(1, 2))
Blue = Blue + (CInt(.GetPixel(j + 1, i).B) * MF(1, 2))
End If
'point(j-1,i+1)*g --> MF(2,0) --> titik kiri bawah
If j - 1 < 1 And i + 1 > .Height - DX - 1 Then 'jika out of border ambil nilai tengah/point(x,y)
Red = Red + (CInt(.GetPixel(j, i).R) * MF(2, 0))
Green = Green + (CInt(.GetPixel(j, i).G) * MF(2, 0))
Blue = Blue + (CInt(.GetPixel(j, i).B) * MF(2, 0))
Else
Red = Red + (CInt(.GetPixel(j - 1, i + 1).R) * MF(2, 0))
Green = Green + (CInt(.GetPixel(j - 1, i + 1).G) * MF(2, 0))
Blue = Blue + (CInt(.GetPixel(j - 1, i + 1).B) * MF(2, 0))
End If
'point(j,i+1)*g --> MF(2,1) --> titik bawah
If i + 1 > .Height - DX - 1 Then 'jika out of border ambil nilai tengah/point(x,y)
Red = Red + (CInt(.GetPixel(j, i).R) * MF(2, 1))
Green = Green + (CInt(.GetPixel(j, i).G) * MF(2, 1))
Blue = Blue + (CInt(.GetPixel(j, i).B) * MF(2, 1))
Else
Red = Red + (CInt(.GetPixel(j, i + 1).R) * MF(2, 1))
Green = Green + (CInt(.GetPixel(j, i + 1).G) * MF(2, 1))
Blue = Blue + (CInt(.GetPixel(j, i + 1).B) * MF(2, 1))
End If
'point(j+1,i+1)*h --> MF(2,2) --> titik kanan bawah
If j + 1 > .Width - DY - 1 And i + 1 > .Height - DX - 1 Then 'jika out of border ambil nilai tengah/point(x,y)
Red = Red + (CInt(.GetPixel(j, i).R) * MF(2, 2))
Green = Green + (CInt(.GetPixel(j, i).G) * MF(2, 2))
Blue = Blue + (CInt(.GetPixel(j, i).B) * MF(2, 2))
Else
Red = Red + (CInt(.GetPixel(j + 1, i + 1).R) * MF(2, 2))
Green = Green + (CInt(.GetPixel(j + 1, i + 1).G) * MF(2, 2))
Blue = Blue + (CInt(.GetPixel(j + 1, i + 1).B) * MF(2, 2))
End If
'normalisasi
If Red < 0 Then
Red = 0
Else
If Red > 255 Then
Red = 255
End If
End If
If Green < 0 Then
Green = 0
Else
If Green > 255 Then
Green = 255
End If
End If
If Blue < 0 Then
Blue = 0
Else
If Blue > 255 Then
Blue = 255
End If
End If
'simpan warna hasil smoothing ke point j,i
gambar.SetPixel(j, i, Color.FromArgb(Red, Green, Blue))
Next
If i Mod 10 = 0 Then
Pic1.Invalidate()
Me.Text = Int(100 * i / (Pic1.Image.Height - 2)).ToString & "%"
Pic1.Text = Int(100 * i / (Pic1.Image.Height - 2))
Pic1.Refresh()
End If
Next
End With
Pic1.Image = gambar
Pic1.Refresh()
Me.Text = "Proses Smoothing Image berhasil"
End Sub
End Class
Mencoba Karier di Luar Minat? Kenapa Tidak!
Selama ini sudah sering Anda mendengar bahwa teman Anda kuliah di jurusan A dan malah bekerja di bidang B. Atau salah satu kerabat Anda dulunya bekerja di bidang B kini beralih bekerja di bidang C yang jauh berbeda dari bidang yang selama ini sudah digelutinya. Anda tertarik untuk mengetahui lebih lanjut? mencoba karier di luar minat dan jurusan ketika kuliahnya tidak ada salahnya kok. Mau tahu alasannya?
1. Mengembangkan kemampuan dan potensi pada diri
Selama ini Anda memiliki bakat dan potensi di luar bidang akademik jurusan kuliah Anda. Semisal fotografi, maka Anda bisa mencoba bekerja sebagai fotografer ketika Anda lulus. Mengembangkan bakat dan potensi yang ada pada diri tidak ada salahnya selama serius dan konsisten. Siapa tahu memang takdir Anda bekerja pada bidang yang selama ini Anda sukai dan tekuni.
2. Menumbuhkan rasa percaya diri
Ketika Anda yang bukan sarjana ekonomi melamar menjadi posisi marketing maka tantangan Anda akan jauh lebih besar daripada Anda melamar di posisi karier yang sesuai dengan jurusan kuliah Anda. Dengan Anda memberanikan diri dan mengasah kemampuan bahwa Anda bisa, maka Anda telah menumbuhkan rasa percaya diri pada diri Anda dan yakin bahwa Anda bisa belajar bidang yang selama ini tidak Anda pelajari.
3. Mendapatkan kualifikasi yang unik
Bila Anda seorang graphic designer maka tidak menutup kemungkinan Anda bisa beralih pekerjaan menjadi Public Relation. Seorang PR dituntut untuk bisa membuat program PR yang bagus dan bisa menyampaikannya secara visual. Anda sudah memiliki kelebihan dalam eksekusi visual dan itu menjadi modal Anda. Sama seperti karier lainnya, sebenarnya dalam beberapa bidang semuanya saling silang dan berkaitan.
Bila Anda merasa belum sreg dengan pekerjaan yang Anda geluti selama ini, Anda bisa memikirkan untuk beralih pekerjaan ke bidang baru yang selama ini belum pernah Anda kerjakan. Selama Anda mau belajar dan Anda menunjukkan bahwa Anda bisa maka tidak menutup kemungkinan Anda bisa sukses di bidang yang jauh dari dunia Anda selama ini.
Wednesday, June 26, 2013
Rumus Menghitung Berat Badan Ideal dan Mengukur Lingkar Pinggang
Berapakah
berat badan yang ideal? tentu tidak semua orang sama, karena tubuh tiap
orang berbeda. Berat ideal seorang wanita yang tingginya 160 cm, tentu
berbeda dengan yang tingginya 150 cm.
Menghitung Berat Badan Ideal Wanita dan Mengukur Lingkar Pinggang yang
ideal bisa dilakukan dengan beberapa cara, seperti berikut.
Cara menghitung berat badan ideal wanita adalah dengan perumusan berikut:
Hasil BMI (IMT) < 17.0 --> Sangat Kurus
Hasil BMI (IMT) 17.0 – 18.5 --> Kurus
Hasil BMI (IMT) 18.5 – 25.0 --> Normal (Ideal)
Hasil BMI (IMT) 25.0 – 27.0 --> Gemuk
Hasil BMI (IMT) > 27.0 --> Sangat Gemuk
Contoh: Ganita memiliki tinggi 150 cm dengan berat badan 75 kg. Maka BMI
Ganita = 33,33. Apakah Ganita sudah berada dalam ukuran berat badan
ideal wanita? Lihat dalam tabel klasifikasi nilai BMI diatas (Sumber:
Departemen Kesehatan RI)
2.Mengukur Lingkar Pinggang.
Cara yang lain menentukan seseorang mengalami obesitas(kegemukan) atau
tidak dengan mengukur lingkar pinggang. Lingkar pinggang ini jadi tolak
ukur karena seseorang yang mengalami kegemukan pasti diikuti penimbunan
lemak di sekitar pinggang.
Dalam batas normal, ukuran lingkar adalah sebagai berikut:
Wanita : < 80 cm
Pria : < 90 cm
dengan mengetahui cara Menghitung Berat Badan Ideal Wanita dan Mengukur Lingkar Pinggang, kita bisa mengevaluasi diri kita
Cara Perawatan Facial Wajah yang Benar
Semua wanita mendambakan kulit wajah yang bersih dan bebas dari jerawat
dan flek hitam. Salah satu cara yang dapat dilakukan adalah melakukan
facial. Facial selain dapat menghilangkan jerawat dan flek hitam, juga
dapat meremajakan kulit dan memberi kecerahan pada warna kulit.
Facial pada umumnya menggunakan bahan-bahan alami yang mengandung
vitamin penting untuk kebutuhan kulit yang mempengaruhi keseimbangan
kulit. Tidak heran,facial menjadi langkah awal yang penting dalam
merawat kecantikan wajah wanita. Facial biasanya juga dikombinasikan
dengan masker wajah yang akan menambah kesempurnaan kulit wajah Anda.
Bagaimana tips facial yang benar? Simak tips berikut ini!
1. Kenali jenis kulit Anda dalam memilih jenis facial.
Jika Anda memiliki kulit yang cenderung kering, carilah krim facial yang
menambah kelembaban yang dibutuhkan oleh kulit wajah, pilih produk yang
mengandung mengandung shea butter, lanolin, buah-buahan alami untuk
memberi tambahan nutrisi dan meremajakan kulit.
2. Memilih masker wajah memerlukan perhatian yang besar.
Anda harus mengetahui jenis kulit wajah agar dapat menyesuaikan
kebutuhan kulit. Jika kulit wajah Anda berminyak, gunakan masker
berbahan dasar tanah liat, untuk kulit yang kering disarankan
menggunakan masker berbentuk hydrating gel atau krim. Anda pun bisa
menggunakan masker buah-buahan atau bahan alami lainnya.
Walaupun sekarang sudah banyak jenis masker wajah, berhati-hatilah dalam
memilih dan menggunakan produk tersebut. Jika Anda terlalu sering
menggunakan masker, hal tersebut dapat membahayakan keseimbangan ph
kulit Anda.
3. Pilih facial yang mengandung pelembab
Pelembab ekstra bekerja melunakkan lapisan kulit, mencerahkan warna
kulit hingga meningkatkan sirkulasi darah. Hindari pelembab yang
mengandung retinol atau asam, karena dapat mengelupas kulit secara
berlebihan.
Terakhir, setelah melakukan facial pastikan Anda lakukan pembersihan
pada kulit wajah Anda secara menyeluruh. Untuk hasil yang maksimal
lakukan pemijatan pada wajah Anda hingga bagian leher.
Pedicure dan Manicure di Rumah Yuk
Ingin kuku tangan dan kaki terlihat
cantik setiap hari tanpa harus keluar banyak biaya? Yuk,
manicure-pedicure sendiri di rumah!
Perawatan
manicure dan pedicure sebenarnya bukan hanya untuk menjadikan kuku
kaki dan tangan Anda cantik, tetapi juga menjaga kesehatan kutikula kuku
jari, kelembaban dan juga kelembutan kulit tangan dan kaki.
Tahap Perawatan Awal Tangan Kaki
Persiapkan
alat- alat dan bahan, seperti: baskom berisi air hangat, sabun khusus
mani-pedi, antiseptic, nail polish remover, smoother, scrubb cream,
hand cream cuticle, pusher cuticle, cuticle nipper, base coat, nail
polish, top coat, drip dry, cuticle oil, foot & hand lotion.
1. Memakai antiseptic (swiss guard) untuk membunuh kuman yang menempel selama aktivitas.
2. Membersihkan cat kuku bila ada dengan nail polish remover
3. Menghilangkan minyak di kuku dengan smoother
4. Persiapkan baskom dan air sabun untuk mencuci dan meren dam kaki.
5. Step selanjutnya adalah membersihkan kotoran dan sel kulit mati dengan cara di- scrubbing
hingga sebatas pergelangan tangan dan kaki.
6.
Setelah selesai scrubbing , tangan dan kaki dibersihkan dengan air
bersih agar bebas dari kotoran dan sel kulit mati yang terkelupas.
7.
Tahap selanjutnya adalah memberikan hand cream cuticle
treatment untuk membersihkan kutikel. Untuk hasil yang maksimal tunggu
cream meresap 3-5 menit.
8. Setelah itu bersihkan cuticle dengan alat pendorongnya (pusher cuticle).
9. Lalu, buang cuticle dengan nipper (mini cuticle nipper).
Setelah
tahap perawatan selesai, seluruh alat diseterilkan dengan alkohol
(N.A.S) agar tetap bersih pada saat pemakaian berikutnya. Hal ini sangat
penting untuk dilakukan karena alat yang tidak higienis justru dapat
menyebabkan infeksi .
Tahap Pewarnaan
1. Berikan base coat sebelum mengulaskan warna pada kuku Anda, gunanya untuk melapisi dan menguatkan kuku.
2. Gunakan warna-warna cat kuku yang dapat membangkitkan mood Anda agar cerah ceria pada hari itu.
3. Jangan lupa menggunakan top coat untuk melapisi kuteks agar lebih mengilap dan awet.
4. Dikeringkan dengan menggunakan drip dray yang mengandung minyak dan aloe vera agar lebih cepat kering.
5. Pakai cuticle oil yang mengandung vitamin untuk menyehatkan.
6. Pakai lotion yang mengandung moisturizer dan vitamin E untuk melembutkan tangan dan kaki.
Semoga bermanfaat...
Pedicure dan Manicure di Rumah Yuk
Ingin kuku tangan dan kaki terlihat
cantik setiap hari tanpa harus keluar banyak biaya? Yuk,
manicure-pedicure sendiri di rumah!
Perawatan
manicure dan pedicure sebenarnya bukan hanya untuk menjadikan kuku
kaki dan tangan Anda cantik, tetapi juga menjaga kesehatan kutikula kuku
jari, kelembaban dan juga kelembutan kulit tangan dan kaki.
Tahap Perawatan Awal Tangan Kaki
Persiapkan
alat- alat dan bahan, seperti: baskom berisi air hangat, sabun khusus
mani-pedi, antiseptic, nail polish remover, smoother, scrubb cream,
hand cream cuticle, pusher cuticle, cuticle nipper, base coat, nail
polish, top coat, drip dry, cuticle oil, foot & hand lotion.
1. Memakai antiseptic (swiss guard) untuk membunuh kuman yang menempel selama aktivitas.
2. Membersihkan cat kuku bila ada dengan nail polish remover
3. Menghilangkan minyak di kuku dengan smoother
4. Persiapkan baskom dan air sabun untuk mencuci dan meren dam kaki.
5. Step selanjutnya adalah membersihkan kotoran dan sel kulit mati dengan cara di- scrubbing
hingga sebatas pergelangan tangan dan kaki.
6.
Setelah selesai scrubbing , tangan dan kaki dibersihkan dengan air
bersih agar bebas dari kotoran dan sel kulit mati yang terkelupas.
7.
Tahap selanjutnya adalah memberikan hand cream cuticle
treatment untuk membersihkan kutikel. Untuk hasil yang maksimal tunggu
cream meresap 3-5 menit.
8. Setelah itu bersihkan cuticle dengan alat pendorongnya (pusher cuticle).
9. Lalu, buang cuticle dengan nipper (mini cuticle nipper).
Setelah
tahap perawatan selesai, seluruh alat diseterilkan dengan alkohol
(N.A.S) agar tetap bersih pada saat pemakaian berikutnya. Hal ini sangat
penting untuk dilakukan karena alat yang tidak higienis justru dapat
menyebabkan infeksi .
Tahap Pewarnaan
1. Berikan base coat sebelum mengulaskan warna pada kuku Anda, gunanya untuk melapisi dan menguatkan kuku.
2. Gunakan warna-warna cat kuku yang dapat membangkitkan mood Anda agar cerah ceria pada hari itu.
3. Jangan lupa menggunakan top coat untuk melapisi kuteks agar lebih mengilap dan awet.
4. Dikeringkan dengan menggunakan drip dray yang mengandung minyak dan aloe vera agar lebih cepat kering.
5. Pakai cuticle oil yang mengandung vitamin untuk menyehatkan.
6. Pakai lotion yang mengandung moisturizer dan vitamin E untuk melembutkan tangan dan kaki.
Semoga bermanfaat...
Subscribe to:
Posts (Atom)







