CARA MENGATASI MENU DEKTOP SAMA SEMUA

 1.  Langkah Awal (untuk seperti kasus pertama/biasa yang telah saya sebutkan diatas) ganti ikon shorcut tersebut langsung dari file (.exe), yaitu klik kanan ikon yang rusak - properties - change icon - pilih browse - c : program file - ikon aplikasi yang rusak (.exe).

1. Download registry Lnk shortcut default.reg (klik download) jalankan registry tersebut - Run - yes-yes-ok.  (untuk seperti kasus kedua/cukup parah yang telah saya sebutkan diatas)
2. Biasanya cara diatas sudah bisa mengatasi masalah tersebut namun, jika tidak berjalan sesuai keinginan karena sobat sudah mencoba mengganti change icon dan registry Lnk shortcut default.reg seperti langkah diatas namun ikon yang tampil masih saja rusak/salah, seperti aplikasi yang sudah saya berikan screenshootnya dibawah ini, setelah saya menggantinya namun tetap saja rusak, maka silahkan sobat lakukan cara dibawah ini :

Setelah melakukan cara diatas dan belum berhasil langkah selanjutnya yaitu sobat mungkin perlu untuk membangun/menyetel ulang kembali cache ikon (IconCache.db) untuk me-reset kembali gambar ikon ke dalam cache ikon. IconChache.db secara singkatnya adalah file yang menyimpan direktori berbagai ikon dikomputer sobat. untuk melihat IconCache.db lakukan cara berikut ini :

• Klik organize pada explorer - folder and search options - pilih tab view - di hidden file and folders pilih show hidden and folders.

• Temukan IconCache.db pada : C:\Users\User-Name\AppData\Local\IconCache.db

Membangun/menyusun kembali chace ikon yang rusak (IconChache.db) caranya yaitu :

1. Download Rebuild Icon Cache.bat 
2. Simpan file ke desktop  Sobat , dan menjalankannya.
3. Klik Run saat diminta, nanti akan muncul tampilan seperti gambar dibawah ini
4.  Tekan tombol keyboard terserah, pertama akan muncul gambar seperti dibawah ini
5. Tekan lagi tombol keyboard terserah, nanti akan muncul keterangan yang kedua,
6. Langkah terakhir, nanti muncul pilih (Y/N) seperti gambar diatas pilih Y yaitu dengan menekan tombol Y pada keyboard, dan klik enter,  kemudian komputer/laptop akan merestart. Biarkan komputer merestart untuk menyelesaikan IconChache.db yang telah disetel ulang/baru. selesai.

Cara Menghilangkan Shortcurt Pada Dekstop

Berikut ini adalah cara untuk menghilangkan shortcut program pada desktop :
Langkah 1
Klik menu START > RUN (atau bisa juga Windows + R), kemudian tulis "REGEDIT"

Langkah 2
Setelah itu cari HKEY_CLASSES_ROOT lalu cari folder Inkfile – sebenarnya “L”nkfile (bukan inkfile), atau kalau masih bingung mencarinya silahkan coba Ctrl + F kemudian ketik IsShortcut lalu tekanEnter atau Find Next.
Langkah 3
Setelah ketemu, klik kanan tulisan IsShortcut tersebut lalu Rename dari IsShortcut menjadiIsShortcuts (ada tambahan "s" dibelakangnya).

Langkah 4
Jika sudah, sekarang restart komputer Anda.

Dan sekarang Anda pun bisa berkata “ Demi kerapihan dan keindahan pandangan kami! Maka dengan ini aku usir kamu selamanya dari desktop ini.”

Attention :
Jika masih terdapat tanda panah, cari folder piffile dalam HKEY_CLASSES_ROOT lakukan persis seperti folder lnkfile tadi, yaitu meRename file isShortcut yang ada di dalamnya menjadi isShortcuts.

Sebenarnya kita bisa menghilangkan tanda panah shortcut ini dengan cara menghapus file IsShortcuttadi. Tapi alangkah baiknya jika kita ubah namanya saja dan kemudian tinggal menghapus tambahan huruf “s”  dibelakangnya tadi untuk berjaga2 mungkin saja sewaktu - waktu Anda  berubah pikiran waktu teringat bahwa dulu Anda pernah putus dengan Pacar gara – gara shortcut yang hilang tersebut. Tentu Anda tak ingin hal ini terulang lagi, bukan?hehehe…
 

Oke! Selamat Mencobanya.

Membuat Make Up Menggunakan Photoshop

Mau foto kamu di make Up tapi gak perlu pake make up ? malahan kita bisa berkreasi sendiri warna nya.. 

pertama buka file foto yang mau di make over ( saya pake foto adik ipar -red ) :

Langkah pertama seleksi bibir nya , untuk diwarnai.

setelah terseleksi, klik Select > Feather atau select > modify > feather untuk CS3.

Klik Edit > Copy ( atau Tekan CTRL + C ) terus klik lagi edit > paste ( atau tekan ctrl + V) , maka nanti akan terbentuk layer 1.

Klik Image > Adjustment > Selective color  , setting seperti dibawah :

Setelah itu gunakan brush tool untuk membuat garis biru di atas mata :

Klik Filter > Blur > gaussian blur  .  setting seperti di bawah :

Atur Opacity nya :

Sekarang buat layer baru lagi dan gunakan brush tool dengan diameter 5, gambar dengan warna hitam garis di sekitar mata :

Klik Filter > blur Gaussian Blur

Gunakan Blending Soft light

Bikin layer baru lagi buat pipi nya, terus gambar titik yang agak besar warna merah yaa..

klik Filter > Blur > Gaussian Blur

atur Opacity atau transparancy nya :

Hasilnya bakalan kayak gini :

Sumber: http://ilmuphotoshop.com

membuat Efek Water Painting Dengan Photoshop

Efek Water painting ini keren menurut saya.. cocok untuk editan foto pre-wedding… Di tutorial membuat efek water painting ini kita gunakan brush. sebelumnya mendingan download dulu brush nya disini :

 

( Klik untuk memperbesar terus download )

Oia, kali ini saya pake Adobe Photoshop CS5.

Kalo sudah siap semua persenjataan .. Buat dokumen baru ukuran sekitar 1500 x 1000 px / 72 inch/px

Buat layer baru di atas layer background.. lalu warnai dengan paint bucket tool putih

Klik Filter > Texture > texturizer

Sekarang buka file begron.jpg

Drag begron.jpg ke dokumen baru yang tadi udah dibuat.

Ganti layer style jadi Multiply dan opacity sekitar 50%

Sekarang buka file Foto.. langkahnya sama dengan diatas.. Drag file foto ke dokumen baru

Atur letak foto tersebut .

Posisi penempatan layer seperti ini..

Masih di layer gambar.. Klik Filter > artistic > Dry Brush

Masih di layer gambar.. Klik Layer > Group Layer

nanti akan otomatis kebentuk Grup layer yang didalamnya ada layer foto..

Klik di Group 1. terus Klik Layer > Layer Mask > Hide All

Sekarang saat nya kita ngeBrush pake brush yang tadi didownload.. tapi install dulu brush nya..

cara install brush   :

Setelah brush tersebut didownload, buka dan extract file RAR nya.. lalu Klik 2x File ABR nya. nanti otomatis brushnya akan terinstall di photoshop.

untuk menampilkan window brush.. Klik Window > Brush

sekarang tinggal pilih brush yang mana yang mau dipake. saya sih pake nya no 456 dan 453 nanti bisa diputer-puter dan di perkecil atau diperbesar kok  brush nya. (liat gambar)

Klik di layer mask atau Kotak warna hitam disamping tulisan Group 1

lalu warnai dengan Brush 456 atau 345 warna putih.

lanjutkan

Sekarang buat layer baru dibawah Diatas layer 1.  Pilih layer1 , klik Layer >New>Layer

Lalu warnai dengan warna cerah ngejreng seperti Pink, Kuning dan biru muda ..

Hasilnya seperti ini :

Sumber :

http://ilmuphotoshop.com

TUGAS PENGOLAHAN CITRA-LANJUTAN

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 Membuat Judul Blog Berjalan Pada Adres Bar

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.

<script language='JavaScript'>

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

Jenis-Jenis Tag Dalam HTML

Tag dalam HTML secara garis besarnya dapat dibedakan menjadi dua yaitu Containers dan stand alone Tag.
Containers adalah jenis tag HTML yang cara penulisannya dengan cara berpasangan, atau mempunyai teg pembuka dan penutup tag. Cara penulisannya adalah <tag>…..</tag>. contoh tag containers antara lain :
<body> … </body>
<b … </b>
<i> … </i>
dan sebagainya.

Standalone tag adalah tag yang bisa berdiri sendiri tanpa perlu mempunyai tag penutup. Tag tersebut biasanya hanya berfungi menempatkan sebuah elemen pada halam website. contoh dari tag stand alone diantaranya :
<img> untuk menampilkan gambar
<br> untuk memberi jarak antar teks ( vertikal)
<hr> untuk membuat garis
dan lain sebagainya.
selain kedua jenisa tag tersebut diatas HTML juga mengenal beberapa tag lain yaitu :
Atribut
berfungi menambahkan nilai tertentu pada sebuah script HTML. Cara penulisan atribut berada di dalam Tag Pembuka (Containers). beberapa contoh tag atribut dan penulisannya antara lain
<font color=”red”> Selamat Datang </font>
atribut color disisipkan diantara tag <font> dan </font>
contoh lain
<a href=”http://google.com/ target=”_blank”>KLik disini menuju ke Google </a>
atribut target disipkan diantara <a> dan </a>
HTML entity
HTML entity adalah sebuah kode atau script khusus untuk menuliskan karakter khusus (special character) ke dalam website.
contoh HTML Entity antara lain
spasi,
ini adalah contoh       spasi banyak
dalam membuat sebuah tulisan di dalam website dengan spasil lebih dari satu anda tidak bisa menekan spasi berulang-ulang untuk membuat jarak, ada kode tertentu yang bisa dituliskan diantara kata contoh dan spasi diatas yaitu &nbsp
&nbsp berfungsi membuat satu spasi dalam penulisan website dengan HTML
sehingga penulisan kalimat contoh diatas menjadi
ini adalah contoh &nbsp &nbsp &nbsp &nbsp &nbsp &nbsp spasi banyak.
selain spasi contoh karakter lainnya diantaranya :
&quot;  = ”
&amp;   = &
dan lain sebagainya.
Anda bisa mencoba mencari tag tag yang lain di Internet yang banyak sekali jumlahnya untuk anda praktekkan

 

Cara Memasukkan Gambar Ke Database Dalam VB.Net 2008

Nah kali ini kita akan mencoba membuat sebuah aplikasi yang dapat memasukan sebuah image atau photo kedalam database. Database yang di pakai adalah database access 2007 dalam bahasa VB.NET dengan Visual Studio 2008.
1. Buka Database Access Lalu Buat Database baru beri nama db_gambar .. dan tambahkan New Table dan beri nama tbl_gambar dan atur fieldnya sebagai berikut :

2. Setelah itu lalu buat project baru di Visual Studio  2008 dan beri nama bebas saja deh..  lalu database yang telah kita buat tersebut di copy ke folder bin –> debug dalam aplikasi yang telah dibuat baru oleh kita diatas.
3. Buat tampilan sebagai berikut :

4. Lalu coding code di bawah ini :
   1: Imports System.Data.OleDb
   2: Imports System.Drawing
   3: Imports System.Drawing.Imaging
   4: Imports System.IO
   5:
   6: Public Class Form1
   7:     Dim conn As New OleDbConnection
   8:     Dim cmd As OleDbCommand = Nothing
   9:     Dim rd As OleDbDataReader = Nothing
  10:     Sub opens()
  11:         If Not conn Is Nothing Then
  12:             conn.Close()
  13:         End If
  14:         conn.Open()
  15:     End Sub
  16:     Sub closes()
  17:         conn.Close()
  18:     End Sub
  19:     Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
  20:         conn.ConnectionString = “Provider=Microsoft.ACE.OLEDB.12.0;Data Source=” & Application.StartupPath & “\db_gambar.accdb”
  21:     End Sub
  22:
  23:     Private Sub btnSimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSimpan.Click
  24:         Try
  25:             opens()
  26:             Dim fs As New FileStream(OFD.FileName, FileMode.OpenOrCreate, FileAccess.Read)
  27:             Dim MyData(fs.Length) As Byte
  28:             fs.Read(MyData, 0, CInt(fs.Length))
  29:             fs.Close()
  30:             cmd = New OleDbCommand(“INSERT INTO tbl_gambar(nama_gb,gb) VALUES (@nama,@Image)”, conn)
  31:             cmd.Parameters.AddWithValue(“@nama”, txtNama.Text)
  32:             cmd.Parameters.AddWithValue(“@Image”, MyData)
  33:             If DirectCast(cmd.ExecuteNonQuery(), Integer) > 0 Then
  34:                 MessageBox.Show(“Foto berhasil di tambahkan”, “Photo Album SQL”, MessageBoxButtons.OK, MessageBoxIcon.Information)
  35:                 txtNama.Clear()
  36:                 txtNama.Focus()
  37:                 txtFileName.Clear()
  38:                 PicGambar.Image = Nothing
  39:             End If
  40:             closes()
  41:         Catch ex As Exception
  42:             MessageBox.Show(ex.Message)
  43:         End Try
  44:     End Sub
  45:
  46:     Private Sub btnTelusuri_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnTelusuri.Click
  47:         Try
  48:             OFD.Filter = “Image Files (*.jpg, *.bmp, *.gif, *.png)|*.jpg; *.bmp; *.gif; *.png”
  49:             OFD.ShowDialog()
  50:             txtFileName.Text = OFD.FileName
  51:             txtFileName.SelectionStart = txtFileName.Text.Length
  52:             If Trim(txtFileName.Text) <> “” Then
  53:                 PicGambar.Image = Image.FromFile(txtFileName.Text)
  54:             End If
  55:         Catch ex As Exception
  56:             MessageBox.Show(ex.Message)
  57:         End Try
  58:     End Sub
  59:
  60:     Private Sub btnBatal_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnBatal.Click
  61:         Me.Close()
  62:     End Sub
  63:
  64:     Private Sub txtNama_Validating(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles txtNama.Validating
  65:         If txtNama.Text.Length = 0 Then
  66:             ErrorProvider1.SetError(txtNama, “Nama Harus Diisi”)
  67:         End If
  68:     End Sub
  69: End Class
5. Nah sudah jadi tuh.. ternyata mudah yah ??
Sedikit penjelasan,, perhatikan potongan kode ini :
   1: Dim fs As New FileStream(OFD.FileName, FileMode.OpenOrCreate, FileAccess.Read)
   2: Dim MyData(fs.Length) As Byte
   3: fs.Read(MyData, 0, CInt(fs.Length))
Nah kode tersebut adalah mengubah image yang kita browse tadi kedalam variabel bertipe byte. Sebenarnya pada prinsipnya insert data kedalam database itu sama saja kita menggunakan OledbCommand dan Method Execute Non Query namun jika image yang kita input maka image ini harus di konversi dulu ke byte

Sumber : http://thinkvysemarang.wordpress.com
umber