9 Sep 2013

Ramalan Zodiak

Zodiak hari ini 09-15 September 2013

*Capricorn

Zodiak Capricorn (21 Desember - 19 Januari)

Walaupun stamina badan lagi ngga begitu fit hari ini, tapi kamu harus menyelesaikan beberapa tanggung jawab yang sudah diberikan padamu beberapa waktu sebelumnya. Kalau kamu mau sedikit bertahan, semua pasti bisa selesai. Tapi jangan terlalu dipaksakan juga.

Kesehatan: Kebersihan badan harus tetap diperhatikan.
Keuangan: Akan banyak penambahan.
Asmara: Kelihatannya dia jadi mulai suka padamu.
Kepribadian: Kamu memang punya komitmen yang tinggi dalam memegang janji, jadi ngga mau mengecewakan orang lain.


*Aquarius

Zodiak Aquarius (20 Januari - 18 Februari)

Keadaan yang kamu hadapi saat ini memang ngga mudah. Tapi dengan memberikan sedikit waktu, lama kelamaan kamu pasti akan terbiasa. Jangan mengeluh berlebihan dan berusaha mengubah sikap perlahan. Sedikit mengalah tokh akhirnya untuk kemenanganm ujuga.

Kesehatan: Jangan tidur terlalu malam.
Keuangan: Masih cukup kok sampai akhir minggu.
Asmara: Kalau ngga berantem, kok diem-dieman?
Kepribadian: Minat seseorang ngga bisa disamakan dengan orang kebanyakan, jadi ngga usah memaksakan.


*Pisces

Zodiak Pisces (19 Februari - 20 Maret)

Berbagai bakat yang kamu miliki memukau orang-orang di sekitarmu. ‘Spesialisasi’ kamu adalah memeriahkan acara dengan kreativitasmu. Selain itu, kamu pun pintar mengatur jadwal dan memastikan segala hal berjalan dengan lancar sesuai rencana. Pergunakanlah situasi-situasi seperti ini untuk membiasakan dirimu keluar dari comfort zone kamu.

Kesehatan: Cukup fit.
Keuangan: Ada kemungkinan kamu boros kalau ngga berhati-hati.
Asmara: Ngga usah cepat kesal donk kalau dia ngga menelponmu sesekali aja.
Kepribadian: Keliatannya kamu ingin tampil berbeda ngga sama kayak kebanyakan orang. Rasa PD mu memang cukup tinggi.


*Aries

Zodiak Aries (21 Maret - 20 April)

Perbanyaklah menjalin pertemanan dengan berbagai kalangan di lingkungan tempatmu kini beraktivitas. Karena sebentar lagi kamu akan memerlukan bantuan mereka dan bisa memetik pengalaman berharga dari apa yang sudah mereka lalui.

Kesehatan: Jangan kecapekan.
Keuangan: Kok kamu menyepelakan uang kecil? Kan kecil-kecil kalau dikumpulkan besar juga.
Asmara: Udah yakin mau melanjutkan komitmen lebih jauh lagi?
Kepribadian: Biasakan untuk bersikap ramah dan ngga hanya mencari teman kalau ada perlunya saja.


*Taurus

Zodiak Taurus (21 April - 20 Mei)

Kamu akan menemui perubahan rutinitas yang cukup drastis dan membuatmu harus bisa cepat beradaptasi. Banyaknya tuntutan peran dan pergantian jadwal pun harus bisa kamu ikuti dengan cepat. Karenanya kamu harus menyimak informasi dengan cepat dan jangan tidak mempedulikan ap aang sedang terjadi di sekitarmu.

Kesehatan: Sebaiknya jangan terlalu banyak minum yang manis-manis.
Keuangan: Masih banyak tersisa kok, asal pandai mengaturnya saja.
Asmara: Kebersamaan membuat kamu dan dia semakin kompak.
Kepribadian: Jiwa kepemimpinanmu bisa membawamu menjadi panutan sekalipun di antara orang yang baru kamu kenal.


*Gemini

Zodiak Gemini (21 Mei - 20 Juni)

Jangan merenungi kegagalan yang pernah kamu alami sehingga mempengaruhi langkahmu yang akan datang, jadikan sebagai pengalaman yang ngga perlu kamu ulangi lagi. Fokuskan saja usahamu untuk mendapatkan apa yang kamu mau, tapi ngga usah mengkhawatirkan apa yang belum teradi.

Kesehatan: Sedikit flu.
Keuangan: Sedikit mengencangkan budget dulu sementara ini.
Asmara: Akan masuk seornag yang baru ke kehidupanmu.
Kepribadian: Minatmu yang sangat tinggi dalam suatu bidang jika kamu tekuni akan membawa perubahan besar.


*Cancer

Zodiak Cancer (21 Juni- 20 Juli)

Kamu memang ingin menyenangkan semua pihak yang sedang terlibat kerjasama denganmu. Tapi ternyata ngga semudah itu. Banyak kendala menyatukan perbedaan keinginan dari beberapa kepala. Cobalah membuat prioritas mana yang ingin kamu utamakan.

Kesehatan: Sedikit batuk flu.
Keuangan: Ngga banyak yang berubah.
Asmara: Kayaknya pertemuannya dengannya harus sedikit tertunda.
Kepribadian: Kalau bisa dikerjakan sekarang, kenapa harus kamu tunda?


*Leo

Zodiak Leo (21 Juli-21 Agustus)

Permasalahan yang kamu dihadapi memang ngga akan jauh dari masalah karir dan asmara. Tapi kalau kali ini keduanya saling berkaitan dan kamu harus bisa menentukan mana yang akan kamu kedepankan. Cobalah ikui kata hatimu dan pikirkan konsekuensi jangka panjangnya.

Kesehatan: Jangan tidur terlalu larut malam.
Keuangan: Belanja yang penting dulu aja.
Asmara: Bagaikan orang yang pertama kali jatuh cinta, kamu semangat banget nih!
Kepribadian: Mood kamu memang cepat turun, tapi ternyata mudah juga kok membangkitkannya kembali.


*Virgo

Zodiak Virgo (22 Agustus - 22 September)

Kamu akan dikenalkan pada seseorang yang akan membawa pengaruh besar dalam hidupmu. Mungkin secara tidak langsung kamu akan terinspirasi dengan pemikirannya yang menurutmu paut diacungi jempol. Selama itu positif, kamu boleh saja kok “mengekornya”.

Kesehatan: Perbanyak makan sayur dan buah-buahan.
Keuangan: Kalau pandai mengatur, pasti tabungan akan bertambah.
Asmara: Pelan-pelan aja asal yakin mau dibawa kemana arahnya.
Kepribadian: Ngga selamanya yang kamu anggp bagus itu benar lho.. Jdi berhati-hatilah.


*Libra

Zodiak Libra (23 September - 22 Oktober)

Ada suatu barang yang sudah lama kamu cari akhirnya kamu temukan secara ngga sengaja hari ini. Akhirnya kamu merasakan ada manfaatnya juga berbenah kamar walau keadaan kamarmu belum berantankan banget. Kamu memang selayaknya menjaga kebersihan dengan lebih rutin.

Kesehatan: Kebersihan diri bermula dari kebiasaan kecil.
Keuangan: Boleh belanja, tpi jangan terlalu jor-joran.
Asmara: Mulai kesengsem sama dia yah?
Kepribadian: Kamu memang pengen sempurna kamu mengerjakan suatu hal, tapi mestinya amu juga punya keinginan yang sama dalam hal memperhatikan diri sendiri.


*Scorpio

Zodiak Scorpio (23 Oktober - 22 November)

Kamu nampaknya memang agak kesulitan berkomunikasi saat dikejar-kejar tenggat waktu yang semakin dekat. Jangan sampai emosimu meledak tap salah tempat dan pada orang yang ngag tepat. Kendalikan diri dan berpikir dulu sebelum bertindak.

Kesehatan: Cukup berstamina.
Keuangan: Agak mengkhawatirkan.
Asmara: Merasa rindu padanya.
Kepribadian: Banyaklah belajar dari orang yang lebih berpengalaman dan jangan malu bertanya.


*Sagitarius

Zodiak Sagitarius (23 November - 20 Desember)

Sedikit masalah merupakan tantangan buat pendewasaan diri. Kalau kamu dapat yang bagus-bagus terus, nanti kamu ngga bakal merasa seberapa indahnya suatu hal setelah mengalami perjuangan bersusah payah. Nikmati aja apa yang sedag kamu hadapi, karena ini memang prosesnya.

Kesehatan: Jangan lupa makan.
Keuangan: Hati-hati menyimpan uang kecil.
Asmara: Akhirnya yang dinanti tiba.
Kepribadian: Kamu kan orang yang tear, jadi yakin aja semua bisa dilewati dengan baik dan lancar.



1 Jul 2013

Trik / Cara buat link di komentar

Trik & cara untuk membuat link di blog / wordpress. terkadang kita bingung gimana caranya untuk membuat link di komentar agar membuka tanpa harus blok alamat URL klik kanan dan open link, nahh di sini saya akan membagikan cara tuk membuka alamat URL dengan teks sesuka hati anda...

Langsung saja ikuti caranya

1. Log in ke Blog anda
2. Cari blog yang anda ingin komen
3. Copy kode di bawah ini


<a href=”http://mesran.net/”>Belajar Pemrograman</a> 





4. Kemudian paste di komentar blog

Dengan kode diatas maka hasilnya akan tampak seperti ini

Belajar Pemrograman



Keterangan :

http://mesran.net/: Ganti dengan alamat link / URL yang kamu inginkan
Belajar pemrograman: Silahkan kamu ganti dengan teks yang kamu inginkan 


Begitulah Trik / Cara membuat link di blog / wordpress, sekian dari saya Michael
semoga bermanfaat...



29 Jun 2013

Pengelolahan Manipulasi Citra VB




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 DefaultGambarToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DefaultGambarToolStripMenuItem.Click
        Pic2.Image = Pic1.Image
    End Sub
    Private Sub SaveCiToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SaveCiToolStripMenuItem.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.Bmp)
        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 pc = 0 To 1
                vM = 255 - .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()
        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 BrighnessToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BrighnessToolStripMenuItem.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 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
                Pic1.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, vH, vB As Double
        Dim gambar3 As Bitmap = New Bitmap(Pic1.Image)
        With gambar
            For pb = .Height - 1 To 0 Step -1
                For pc = .Width - 1 To 0 Step -1
                    vM = .GetPixel(pc, pb).R
                    vH = .GetPixel(pc, pb).G
                    vB = .GetPixel(pc, pb).B
                    gambar3.SetPixel(.Width - 1 - pc, .Height - 1 - pb, Color.FromArgb(vM, vH, vB))
                Next
                Pic2.Image = gambar3
                Pic2.Refresh()
            Next

        End With
        gambar = gambar3
    End Sub

    Private Sub ContrasToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ContrasToolStripMenuItem.Click
        Dim gambar2 = New Bitmap(Pic2.Image)
        Pic2.Image = gambar2
        Dim tempbmp As New Bitmap(Pic2.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
        Pic1.Width = Pic1.Width
        Pic2.Show()
        With tempbmp
            For X = DX To .Height - DX - 1
                For Y = DY To .Width - DY - 1
                    Red = CInt(.GetPixel(Y, X).R) 'ambil nilai warna merah (Red) pada pixel(Y,X)
                    Green = CInt(.GetPixel(Y, X).G) 'ambil nilai warna hijau (Green) pada pixel(Y,X)
                    Blue = CInt(.GetPixel(Y, X).B) 'ambil nilai warna biru (Blue) pada pixel(Y,X)
                    '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
                    gambar2.SetPixel(Y, X, Color.FromArgb(Red, Green, Blue)) 'simpan warna baru pada pixel(Y,X)
                Next
                If X Mod 10 = 0 Then
                    Pic2.Invalidate()
                    Me.Text = "Progres Proses contrast : " & Int(100 * X / (Pic1.Image.Height - 2)).ToString & "%"
                    Pic2.Image = gambar2
                    Pic2.Refresh()
                End If
            Next
        End With
        Pic2.Hide()
        Pic2.Refresh()
        Me.Text = "Pengolahan Citra : Proses contrast berhasil"
    End Sub

    Private Sub Rotate70ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Rotate70ToolStripMenuItem.Click
        Dim pb, pc As Integer
        Dim vM, vH, vB As Double
        Dim gambar3 As Bitmap = New Bitmap(Pic1.Image)
        With gambar
            For pb = .Height - 1 To 0 Step -2
                For pc = .Width - 1 To 0 Step -2
                    vM = .GetPixel(pc, pb).R
                    vH = .GetPixel(pc, pb).G
                    vB = .GetPixel(pc, pb).B
                    gambar3.SetPixel(.Width - 1 - pc, .Height - 1 - pb, Color.FromArgb(vM, vH, vB))
                Next
                Pic2.Image = gambar
                Pic2.Refresh()
            Next

        End With
        gambar = gambar3
    End Sub

    Private Sub HiajuToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles HiajuToolStripMenuItem.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 HijauKuningToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles HijauKToolStripMenuItem.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 MerahTuaToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MerahTToolStripMenuItem.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 + 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
            Pic2.Image = gambar2
            Pic2.Refresh()
        Next

    End Sub

    Private Sub MerahKuningToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MerahKToolStripMenuItem.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 - 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
            Pic2.Image = gambar2
            Pic2.Refresh()
        Next

    End Sub

    Private Sub BiruToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BiruToolStripMenuItem.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
                vB = gambar2.GetPixel(Pc, Pb).B + 10
                If vB >= 255 Then vB = 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

    End Sub
End Class


Hasil tampilan manipulasi












Selamat Belajar Pemrograman VB Net