PhotoShop : Membuat efek menggulung

Sebuah foto dapat dibuat efek menggulung sudutnya sehingga terlihat menjadi lebih indah, seperti akhir dari contoh tutorial dibawah ini

 Bagaimana cara membuatnya? Silahkan ikuti langkah-langkah dibawah ini :

1. Ambil sebuah gambar pada hardisk anda, contohnya seperti gambar diwawah ini
   
   
2. Biasanya gambar yang diambil akan di kunci, sebagai background, klik kanan gambar pada layer, kemudian klik Layer From Background.., seperti gambar dibawah ini, akan muncul jendela konfirmasi, klik Ok, maka Layer background akan menjadi Layer 0
   
3. Dengan menggunakan Rectangular Tools, pilih daerah yang ingin anda lipat/gulung, seperti gambar dibawah ini
   
   
4. Tekan tombol keyboard Ctrl+T, untuk memilih transform, akan anda lihat tanda kotak pilihan transform, kemudian klik kanan daerah kotak transform tersebut, klik pilihan Wrap
   
   
   
5. Akan tampak kotak-kotak kecil, kemudian tarik kotak dari sudut atas, kemudian anda geser titik sebelah kanan dan kiri sesuai dengan keinginan anda seperti gambar dibawah ini
   
6. Kemudian klik tombol Create A new layer, lalu pindahkan kebawah seperti gambar dibawah ini
   
   
7. Pilih Layer 1, lalu klik Foreground Pilih warna yang anda inginkan (disini saya menggunakan warna putih, kemudian gunakan Paint Bucket Tools, lalu klik di gambar, maka background blakang akan berubah menjadi warna putih
8. Kemudian klik Polygon lasso tools, pilih lipatan kertas seperti gambar dibawah ini
   
   
9. Kemudian pilih Gradient Tools (G) lalu pilih Tools hitam putih, kemudian drag ke lipatan yang dipilih, seperti gambar dibawah ini
   
   
10. Tekan tombol keyboard Ctrl + D, untuk menghilangkan pilihan, dan hasilnya akan terlihat seperti gambar dibawah ini
    

PhotoShop : Membuat Animasi Lingkaran

Sebuah lingkaran dapat kita buat menjadi animasi pada aplikasi Adobe photoshop, seperti gambar dibawah ini 

Menarik bukan, anda dapat membuatnya dengan mengikuti langkah-langkah dibawah ini

1. Jalankan Aplikasi Adobe Photoshop anda
2. Buat sebuah Frame dengan ukuran 450 x 450 pixel, dan dengan Paint Bucket Tools atur warna foregroundnya menjadi hitam seperti gambar dibawah ini
   
   
3. Pada Panel Layer, klik Create a new Layer (1), lalu pilih Eliptical Marquee tools (3), atur style Fixed Size (4), kemudian atur Width dan heightnya sebesar 300 px (5), kemudian klik pada Layer 2 (2) berikan warna foregroundnya putih (7) dengan menggunakan pain Bucket tools (8), seperti gambar dibawah ini
   
4. Pilih kembali Eliptical Marquee Tools, lalu atur Width dan heghtnya sebesar 250 px, lalu klik di tengah lingkaran putih seimbang, setelah mendapatkan lingkaranan seimbang dengan lingkaran putih tekan tombol Del, maka lingkaran putih ditengah akan terhapus, kemudian tekan tombol Ctrl + D untuk menghilangkan pilihan lingkaran seperti gambar dibawah ini
   
5. Klik dua kali Layer 2, kemudian pilih Gradient Overlay, pilih warna Gradient Pelangi (sesuaikan dengan kehendak anda), lalu set Angle 0 derajat, seperti gambar dibawah ini
   
   
6. Kemudian klik Bavel and Emboss, seting sesuai dengan gambar dibawah ini
   
   
7. Klik kanan Layer 2, kemudian klik Duplicate Layer, akan muncul Layer 2 Copy, klik 2 kali Layer 2 Copy, kemudian pilih Gradient Overlaynya lalu atur Angle 20 derajat seperti gambar dibawah ini
   
   
8. Lakukan lagi langkah 7 berkali-kali dengan mengubah Gradient overlanya kelipatan 20 sampai mendapatkan layer dengan angle 340 derajat (Sampai mendapatkan Layer 2 Copy 17)
9. Nonaktifkan/sembunykan seluruh layer, yang tinggal hanya Layer 1 dan layer 2 seperti gambar dibawah ini
   
10. Klik tombol Adobe Image Ready (untuk pengguna Photoshop 7.0 dan CS), klik Menu Windows -> Animation (Untuk pengguna Adobe CS3 keatas), Akan Muncul panel Animation (Frame) atur kecepatan animasinya 0,1 Secon
    
    
11. Klik Duplicate Selected Frame pada panel Animation akan muncul frame ke 2 pada panel Animatin, kemudian nonaktifkan/sembunyikan layer 1 dan aktifkan Layer 2
    
    
12. Lakukan langkah 11 sampai semua layer terpilih (sampai Frame 18) seperti gambar dibawah ini, Klik Play untuk melihat hasilnya.
    
13. Untuk menyimpannya ke file gif animation Bagi pengguna adobe photoshop 7 sampai CS, klik menu File -> Save Optimize as lalu simpan dalam bentuk gif, untuk pengguna Adobe photoshop Cs3 keatas klik menu File -> Save for Web and Device, lalu klik tombol Save, simpan dalam bentuk format file Gif, hasilnya seperti gambar dibawah ini
14. Hasilnya akan terlihat seperti gambar dibawah ini
    
    
15. Dengan Lingkaran diatas anda dapat membuat animasi-animasi lain sesuai dengan selera anda, contohnya seperti gambar dibawah ini
    
    
    
16. Selamat Mencoba

VB 6.0 : Program Media Player & Horoscope

1.Masukkan kontrol mediaplayer & CommonDialog kedalam form, klik diarea bebas dalam form kemudian ketik kode dibawah ini

Private Sub Form_Load()

   CommonDialog1.Filter = "All Files|*.*"

   CommonDialog1.ShowOpen

 MediaPlayer1.Open CommonDialog1.FileName

End Sub

2. Masukkan CommonButton1 [Keluar] ketik kode seperti ini

Private Sub Command1_Click()

  Unload Me

End Sub 

---------------------------------------------------------------------------------------------------

Private Sub Form_Load()

 Command1.Enabled = False 'Matikan Tombol OK (Command1)

End Sub

Private Sub Text1_Change()

 If IsDate(Text1) Then

  Command1.Enabled = True

 Else

  Command1.Enabled = False

 End If

End Sub

Private Sub Command1_Click()

'Mencari Hari Lahir

Dim KodeHari As Byte

Dim Hari As String

KodeHari = Weekday(Text1)

Select Case KodeHari

Case 1: Hari = "Minggu"

Case 2: Hari = "Senin"

Case 3: Hari = "Selasa"

Case 4: Hari = "Rabu"

Case 5: Hari = "Kamis"

Case 6: Hari = "Jum'at"

Case 7: Hari = "Sabtu"

End Select

Text2 = Hari

'Mencari Bintang

Dim Tg, Bl As Byte

Dim Btg As String

Tg = Day(Text1): Bl = Month(Text1)

If (Tg >= 21 And Bl = 3) Or (Tg <= 20 And Bl = 4) Then Btg = "ARIES"

If (Tg >= 21 And Bl = 4) Or (Tg <= 21 And Bl = 5) Then Btg = "TAURUS"

If (Tg >= 22 And Bl = 5) Or (Tg <= 21 And Bl = 6) Then Btg = "GEMINI"

If (Tg >= 22 And Bl = 6) Or (Tg <= 22 And Bl = 7) Then Btg = "CANCER"

If (Tg >= 23 And Bl = 7) Or (Tg <= 22 And Bl = 8) Then Btg = "LEO"

If (Tg >= 23 And Bl = 8) Or (Tg <= 22 And Bl = 9) Then Btg = "VIRGO"

If (Tg >= 23 And Bl = 9) Or (Tg <= 22 And Bl = 10) Then Btg = "LIBRA"

If (Tg >= 23 And Bl = 10) Or (Tg <= 21 And Bl = 11) Then Btg = "SCORPIO"

If (Tg >= 22 And Bl = 11) Or (Tg <= 21 And Bl = 12) Then Btg = "SAGITARIUS"

If (Tg >= 22 And Bl = 12) Or (Tg <= 20 And Bl = 1) Then Btg = "CAPRICORN"

If (Tg >= 21 And Bl = 1) Or (Tg <= 19 And Bl = 2) Then Btg = "AQUARIUS"

If (Tg >= 20 And Bl = 2) Or (Tg <= 20 And Bl = 3) Then Btg = "PISCES"

Text3 = Btg

End Sub

Private Sub Command2_Click()

Unload Me

End Sub

VB 6.0 : Program Jam Analog & Lampu Lalu Lintas

1.Buatlah 1 Shape kedalam form, 3 Line [/] yang menunjukkan arah jarum (jam,menit, detik), selanjutnya Pada jendela kode tulis berikut ini

Const PI = 3.14159

Private Sub Form_Load()

    ' mencari titik tengah di xo, yo untuk sumbu jarum jam

    xo = ScaleWidth / 2

    yo = ScaleHeight / 2

    ' menempatkan titik awal kontrol Line sbg jarum di xo , yo

    jrJam.X1 = xo

    jrJam.Y1 = yo

    jrMenit.X1 = xo

    jrMenit.Y1 = yo

    jrDetik.X1 = xo

    jrDetik.Y1 = yo

    ' menggambar jarum jam dng setiap selang waktu tertentu

    ' dengan menggeser koordinat kontrol Line pada sisi luar

    Call tmrQuartz_Timer

End Sub

2.Masukkan Timer & Label1 kedalam form kemudian ketik kode dibawah ini

Private Sub tmrQuartz_Timer()

    Dim Jam, Menit, Detik

    Dim TrueJam

    LblTime.Caption = Time

    Jam = Hour(Time)

    Menit = Minute(Time)

    Detik = Second(Time)

    TrueJam = Jam + Menit / 60

    ' mencari koordinat luar dari kontrol Line

    jrJam.X2 = 1200 * Cos(PI / 180 * (30 * TrueJam - 90)) + _

               jrJam.X1

    jrJam.Y2 = 1200 * Sin(PI / 180 * (30 * TrueJam - 90)) + _

               jrJam.Y1

    jrMenit.X2 = 1600 * Cos(PI / 180 * (6 * Menit - 90)) + _

               jrJam.X1

    jrMenit.Y2 = 1600 * Sin(PI / 180 * (6 * Menit - 90)) + _

               jrJam.Y1

    jrDetik.X2 = 1500 * Cos(PI / 180 * (6 * Detik - 90)) + _

               jrJam.X1

    jrDetik.Y2 = 1500 * Sin(PI / 180 * (6 * Detik - 90)) + _

               jrJam.Y1

End Sub

-----------------------------------------------------------------------------------------------

 

1.Buatlah 3 Shape [circle] yang menunjukkan warna lampu, 1 Shape [Rounded Rectangle], selanjutnya CommandButton1 [Pilih sinyal] kemudian ketik kode dibawah ini

Private Sub cmdSignal_Click()

Static i

If i > 3 Or i < 1 Then

   i = 1

End If

If i = 1 Then

  Shp_C.FillColor = vbBlack

  Shp_A.FillColor = vbRed

ElseIf i = 2 Then

  Shp_A.FillColor = vbBlack

  Shp_B.FillColor = vbYellow

ElseIf i = 3 Then

  Shp_B.FillColor = vbBlack

  Shp_C.FillColor = vbGreen

End If

i = i + 1

End Sub

2.Pada CommandButton2 tulis kode seperti dibawah ini

Private Sub cmdExit_Click()

Unload Me

  End Sub