Tips Photoshop Pemula - Membuat Efek Sketsa Warna Krayon Pada Foto

Barusan lagi nih buka photoshop sambil coba-coba berbagai style dan filter, eh ... akhirnya ketemu yang satu ini. Saya namakan saja "Efek sketsa warna krayon". Kira-kira begitulah menurut saya, kalau dilihat dari tampilannya, seperti menggambar menggunakan krayon atau cat minyak. Mungkin sobat punya judul lain yang lebih tepat, tapi saya kira judul ini sudah lumayanlah. Langkah-langkah tutorial ini hanya sedikit, dan sangat mudah diikuti.

Gambar yang saya pakai adalah foto dari Emma Watson, saya dapat dari galeri fotonya di situshttp://emma-watson-gallery.com. Sobat pasti tahu kan Emma Watson adalah salah satu pemeran utama di film Harry Potter. Ia berperan sebagai Hermione Granger, salah satu teman akrab Harry Potter. Berikut ini gambar aslinya:

Gambar di atas ukurannya telah diperkecil, silahkan klik untuk melihat gambar aslinya. Baik, kita mulai saja.

- Pertama, persiapkan gambar. Klik gambar di atas untuk membuka gambar aslinya. Lalu simpan ke komputer sobat.

- Jalankan photoshop dan buka gambar tersebut.

- Tekan CTRL+J untuk membuat duplikatnya.

- Klik menu Filter > Brush Strokes > Sumi-e. Settingnya sebagai berikut:

- Terakhir, rubah blending mode-nya menjadi overlay. Selesai !

Hasilnya adalah sebagai berikut:

Ini beserta gambar aslinya: (Klik untuk melihat gambar aslinya)

Mengutak-Atik Windows XP Menggunakan Program TweakUI

Microsoft menyediakan sebuah program (tool) yang memungkinkan para pemakai Windows XP mengutak-atik berbagai tampilan layout dan setting standar lainnya, yaitu bernama Microsoft PowerToys: TweakUI for Windows XP, atau cukup disebut TweakUI XP.

Tampilannya sangat sederhana sehingga bisa dengan mudah menggunakannya tanpa harus diajari oleh orang lain. Ukuran file-nyapun sangat kecil yaitu 147 Kb. Tool ini adalah alternatif yang aman untuk mengubah setting XP dibandingkan dengan cara mengutak-atik registry Windows, yang mana sebagian orang yang mencobanya terpaksa harus menginstall kembali Windows-nya karena salah mengubah registry.

Untuk mendownloadnya, silahkan mengakses url berikut ini:
http://download.microsoft.com/download/f/c/a/fca6767b-9ed9-45a6-b352-839afb2a2679/TweakUiPowertoySetup.exe

Artikel Lain Yang Berkaitan:

Tips Windows XP

Tips Visual Basic - Enkripsi / Dekripsi (Penyandian) Password dan Teks

Dalam tips VB kali ini, kita akan mencoba menyandikan teks atau password. Penyandian sangat diperlukan, agar setiap kata-kata yang rahasia yang tidak boleh diketahui oleh orang lain bisa dengan aman disimpan baik didalam program EXE ataupun dalam file lain. Jadi kalau ada yang coba-coba membongkar file EXE atau file penting lainnya yang telah disandikan, maka orang tersebut tidak akan dengan mudah mendapatkan teks aslinya. Kecuali kalau ia memang seorang hacker yang sangat tangguh.

Banyak teknik penyandian (enkripsi) yang telah dikembangkan saat ini, mulai dari yang sangat sederhana sampai pada yang amat kompleks dan aman. Dalam tips kali ini diberikan sebuah teknik sederhana namun kiranya sudah cukup aman untuk sebuah program kecil-kecilan. Teknik ini adalah kreasi dari John Clark Craig, bersumber dari bukunya yang berjudul Microsoft Visual Basic 4.0 Developer's Workshop Edisi Ketiga. Enkripsi ini adalah simetris, artinya teks yang telah dienkripsi bisa dikembalikan ke teks asalnya (dekripsi).

Berikut ini adalah kodenya (beberapa kodenya telah saya rubah sedikit untuk penyesuaian):

Function Cipher(TXT As String, Optional A As Integer, Optional B As Integer, Optional RV As Integer)
    Static R As Long
    Static M As Long
    Static N As Long
    Const BN As Long = 32768
    Dim I As Integer, C As Integer, D As Integer
    If IsMissing(RV) = False Then R = RV
    If IsMissing(A) Then
        If M = 0 Then M = 69
    Else
        M = (A * 4 + 1) Mod BN
    End If
    If IsMissing(B) Then
        If N = 0 Then N = 47
    Else
        N = (B * 2 + 1) Mod BN
    End If
    'proses setiap karakter
    For I = 1 To Len(TXT)
        C = Asc(Mid$(TXT, I, 1))
        'modifikasi khusus teks yg bisa dibaca saja
        Select Case C
        Case 48 To 57
            D = C - 48
        Case 63 To 90
            D = C - 53
        Case 97 To 122
            D = C - 59
        Case Else
            D = -1
        End Select
        If D >= 0 Then
            R = (R * M + N) Mod BN
            D = (R And 63) Xor D
            Select Case D
            Case 0 To 9
                C = D + 48
            Case 10 To 37
                C = D + 53
            Case 38 To 63
                C = D + 59
            End Select
            Mid$(TXT, I, 1) = Chr$(C)
        End If
    Next I
    Cipher = TXT
End Function

Perhatikan teks berwarna merah di atas (parameternya), TXT adalah teks yang akan dienkripsi/dekripsi. Sedangkan nilai A, B, dan RV bisa anda ganti-ganti. Setiap perubahan nilai A,B atau RV akan menghasilkan teks hasil enkripsi yang berbeda. Jadi anda bisa mengkombinasikannya.

Karena enkripsi ini adalah simetris, maka jika teks hasil enkripsi anda masukkan kembali ke fungsi di atas, akan menghasilkan teks aslinya kembali (tentunya menggunakan nilai A, B, dan RV yang sama dengan saat mengenkripsi).

Contoh menggunakan fungsi di atas adalah seperti berikut:

txtHasilEnkripsi.Text = Cipher(txtSumber.Text, 4, 6, 9)
txtHasilDekripsi.Text = Cipher(txtHasilEnkripsi.Text, 4, 6, 9)

Kalau sobat mau melihat file source kode beserta contohnya, bisa didownload disini. Source kode tersebut bila dijalankan, tampilannya adalah seperti pada gambar di atas.

Ridwan Akbar Nurcahya

Selasa, 25 Februari 2014

Tips Photoshop Pemula - Membuat Efek Sketsa Warna Krayon Pada Foto

Mengutak-Atik Windows XP Menggunakan Program TweakUI

Artikel Lain Yang Berkaitan:

Artikel Lain Yang Berkaitan:

Tidak ada komentar:

Posting Komentar