Rasny Aritonang

a.Grayscale/rotate 180
Private Sub grayscale_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles grayscale.Click
Dim rt, pc, pb As Integer
Dim vm, vh, vb As Integer
Dim gambar2 As Bitmap
picture2.Image = picture1.Image
gambar2 = New Bitmap(picture2.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
Next
picture2.Image = gambar2
picture2.Refresh()
End Sub
If gambar IsNot Nothing Then
gambar.RotateFlip(RotateFlipType.Rotate180FlipX)
picture2.Image = gambar
End If
End Sub

b.Contranst/Rotate 90
If picture2.Image Is Nothing Then
MsgBox("WARNING : Tidak ada gambar untuk di konversi!")
Exit Sub
End If

gambar = New Bitmap(picture2.Image)
picture2.Image = gambar
Dim tempbmp As New Bitmap(picture2.Image)
Dim pb As Integer = 1
Dim pc As Integer = 1
Dim Red, Green, Blue As Integer
Dim X, Y As Integer
Dim r As Integer
r = 5

With tempbmp
For X = pb To .Height - pb - 1
For Y = pc To .Width - pc - 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 * r
Blue = Blue * r
Green = Green * r
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
picture2.Invalidate()
picture2.Refresh()
End If
Next
End With
End Sub
Private Sub ToolStripMenuItem2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuItem2.Click
If gambar IsNot Nothing Then
gambar.RotateFlip(RotateFlipType.Rotate90FlipXY)
picture2.Image = gambar

End If
End Sub

c.Negatif/Rotate 270
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
picture2.Image = gambar
picture2.Refresh()
Next
End With
End Sub

d. Biner
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
picture2.Image = gambar
picture2.Refresh()
Next
End With
End Sub

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
picture1.Image = Image.FromFile(OFD.FileName)
gambar = New Bitmap(picture1.Image)
'menuutama.MdiParent = Me
'menuutama.Show()
End Sub

e. Brigthness
Private Sub BrigthnessToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BrigthnessToolStripMenuItem.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
picture2.Image = gambar
picture2.Refresh()
Next
End With
End Sub

Cara ini adalah bagian dari pernak pernik blog yang tujuannya untuk mempercantik tampilan blog kita pada browser.Banyak cara untuk membuat blog kita tampil menawan,cantik dan kreatif. Yah selagi cara yang di lakukan tidak membuat loading blog tambah berat.Salah satunya membuat judul blog berjalan di title bar.Letaknya paling atas sebelah kiri yang ada tulisan mozila firefoxnya,bila anda pengguna firefox.

Caranya mudah sekali,ikuti saja langkah-langkahnya seperti dibawah ini:
1. Login ke akun blogger anda
2. Masuk Dasbor > Tata Letak (layout) > Edit HTML.
3. Kemudian cari kode dibawah ini dengan tombol F3 atau CTRL + F pada keyboard.

<title><data:blog.pageTitle/></title>

yang letaknya di bagian awal.

3. Kemudian ganti kode di atas tersebut dengan kode di bawah ini.

var txt=" Text judul yang dibuat berjalan ";

var kecepatan=120;var segarkan=null;function bergerak() { document.title=txt;

txt=txt.substring(1,txt.length)+txt.charAt(0);

segarkan=setTimeout("bergerak()",kecepatan);}bergerak();

</script>

Catatan : Angka 120 menunjukkan kecepatan gerakan, Anda dapat menggantinya dengan angka yang lebih kecil atau lebih besar, semakin besar nilainya maka kecepatan bergeraknya semakin lambat dan berlaku sebaliknya.
Teks yang bercetak tebal bisa sobat ganti dengan kata-kata sobat

4. Klik Pratinjau terlebih dahulu untuk melihat hasilnya.
5. Jika sudah berjalan dengan baik kemudian Simpan Template

Jumat, 28 Juni 2013

TUGAS PENGOLAHAN CITRA-LANJUTAN

Minggu, 23 Juni 2013

Cara Membuat Judul Blog Berjalan Pada Adres Bar