Royald Gold

Hasil Akhir

karena saya g suka basa-basi langsung saja ke tutorialnya ^_^

buka gambar berikut:

Edit > Define Pattern > Ok

Buat canvas baru

double klik pada layer background untuk membuka layer yang masih ter "lock" agar Anda bisa mengedit lebih banyak lagi, berinama Background

Masuk ke menu Layer > Layer Style > Blending Option

atau dengan cara mengklik gambar Fx > Blending Option

Inner Shadow #171718

Inner Glow #FF0000

Satin #000000

Gradient Overlay: 

untuk warna gradient:

pertama  #000000

kedua #e5bd1f

Pattern Overlay (gambar yang sudah didefinisikan sebagai pattern dilangkah 1)

Hasil:

ketikkan tulisan Anda di tengah-tengah (ex Ismah, font Xenippa Size 70pt Regular dan warna text putih)

buka layer style Ismah
Drop Shadow : #000000

Inner Shadow : #9d824f

Outer Glow : #6d5211

Inner Glow: #000000

Bevel and Emboss #FFFFFF #000000

Contour :

Satin:

Color Overlay #000000

gradient overlay: #171718 dan #000000

Pattern Overlay

jika Anda tidak mendapatkannya Anda bisa menambahkannya melalui:

Stroke:

Keterangan :
Location (secara berurutan, ke kanan) : 0 7 16 24 32 44 50 57 100
Color: coklat muda #c4b797 coklat tua #806d41

Hasil:

*Jika Anda masih ingin mempertebal efek bayangan dari Ismah, cukup duplicate layer  
layer > duplicate layer berikan nama dengan sesuka Anda, atau dengan menekan CTRL + J

selamat berkreasi :)

Animasi Kata

Buat form design seperti di bawah ^_^"

Keterangan:

ismah = label 1
nurul = label 2
fahturahmi = label 3
timer :timer 1, 2, dan 3 (terserah letaknya diimana)
interval timer = 10

code:

Dim Red, Green, Blue As Integer

Private Sub Timer1_Timer()
If Blue <= 255 Then Blue = Blue + 50 Else Blue = 0
Green = Green + 50
If Green >= 255 Then
Green = 0
Red = Red + 50
ElseIf Red >= 255 Then
Red = 0
End If
Label2.ForeColor = Int(RGB(Red, Green, Blue))
Label2.Refresh
Label2.Left = Label2.Left - 15
If Label2.Left <= -Label2.Left Then
Label2.Left = Form5.Width
End If
End Sub

Private Sub Timer2_Timer()
If Blue <= 255 Then Blue = Blue + 50 Else Blue = 0
Green = Green + 50
If Green >= 255 Then
Green = 0
Red = Red + 50
ElseIf Red <= 255 Then
Red = 0
End If
Label3.ForeColor = Int(RGB(Red, Green, Blue))
Label3.Refresh
Label3.Top = Label3.Top - 15
If Label3.Top <= -Label3.Top Then
Label3.Top = Form5.Width
End If
End Sub

Private Sub Timer3_Timer()
If Blue <= 255 Then Blue = Blue + 50 Else Blue = 0
Green = Green + 50
If Green >= 255 Then
Green = 0
Red = Red + 50
ElseIf Red >= 255 Then
Red = 0
End If
Label1.ForeColor = Int(RGB(Red, Green, Blue))
Label1.Refresh
End Sub

jika ada yang error, silakan comment :)

semoga berhasil ^_^'

Mengatasi Save/Save As yang tidak berfungsi

Selesai edit gambar di PS klik save g bsa, save as g bisa juga.
hmm, saya bingung bagaimana cara menyimpan gambar yang telah saya edit.
#pengalaman pribadi xD

Anda pernah mengalaminya?
setelah search di google, saya menemukan cara untuk menyimpan gambar dengan tidak menggunakan Save/Save as yaitu:
File > Save For Web & Devices atau bisa menekan tombol Alt + Shift + Ctrl + S
akan muncul sebuah window seperti di bawah:

jika ingin mendapatkan hasil yang bagus ubah formatnya seperti gambar di bawah

tekan enter lalu save di folder Anda.

semoga bermanfaat!

Cara Mengatasi Browser Yang Tidak Bisa Browsing Sama Sekali

Huft, lama g on gara-gara browser saya g bisa browsing sama sekali.
setelah utak atik notebook saya, akhirnya dapat juga pemecahannya xD

berdasarkan pengalaman pribadi, saya akan berbagi dengan Anda "Cara Mengatasi  Browser Yang Tidak Bisa Browsing Sama Sekali"

Buka Control Panel > Network And Sharing Center > Change Adapter Setting

akan muncul sebuah window Network Connection
klik kanan pada Wireless Connection > Properties

klik 2x pada Internet Protocol Version 4 (TCP/IPv4)

akan terlihat sebuah window yang menampilkan sebuah alamat IP. Jika yang terpilih adalah "Use Following IP Addres" maka pilih "Obtain an IP addres automatically" 
klik OK :)

semoga berhasil ^_^"