4 Membuat Logo PIN di Photoshop

Kali ini, Saya mau Share cara "Membuat PIN dengan Photoshop" ...
Sebelum Agan" / Sista ke Tutorial, Saya sarankan untuk Punya Photoshopnya terlebih dahulu ^_^
Dalam Tutorial ini, Photoshop Versi berapapun bisa dipakai .. Saya sih pake Photoshop CS2 :D

Cukup basa-basinya .. kita Ke Tutorial langsung ..








1) Buka Photoshop agan/sista

2) Klik NEW ~> Lalu, samakan Dengan Format d bawah ini :

3) Setelah itu, Buat Lingkaran dengan ELIPSE TOOLS seperti gambar dibawah

 4) Setelah itu, Buat lagi Lingkaran di Dalam Lingkaran, seperti gambar d bawah :

5) Lalu, buat lagi Lingkaran, Jadi seperti di bawah ini :

6) Klik pada LAYER HIJAU ~> Klik FILTER ~> BLUR ~> GAUSSIAN BLUR

P.S : Kalo keluar BOX, klik OK

 7) Atur Seperti dibawah ini :

8) Setelah itu, Klik OK, Lalu, Klik Kanan pada SHAPE 1 ~> Blending Options

 9) Setting Seperti dibawah Ini :

10) Lakukan Hal yang sama pada SHAPE 2 ..

11) Untuk SHAPE 3 , Setting seperti di bawah ini :

12) Setelah Selesai, Tambahkan TEXT di Tengah PIN nya, Size dan Font bisa ditentukan Sendiri :

13) Untuk Setting Text nya Seperti di bawah :

~ Untuk Drop Shadows

~ Untuk OUTER Glow

~ Untuk Bevel and Emboss

14) Setelah Selesai, Buat lagi 1 SHAPE Lingkaran di Belakang PIN ..

15) Setelah itu, Klik SHAPE Lingkaran yg dibuat tadi, lalu, klik Filter ~> Blur ~> Gaussian Blur
Setting seperti di bawah ini ..

16) Setelah selesai, klik File ~> Save As
Ikuti Format di bawah

17) Save dengan Model Seperti ini :

Selesai deh ^_^
Lumayan Susah ? Nggak kok ! ini Mudah" aja :D
Inilah hasil Yang tadi ^_^
Kalian bisa menambahkan Sedikit "Style" kok :D 

Hasiil Teman-temanku yang udah bisa buat :

Sekian Tutorial dari saya ..
Selamat mencoba !!

1 Cara Membuat Text Berkedip di VB 6.0

Setelah mengetahui Cara membuat Text Bergerak Disini .. Sekarang, Saya mau share cara membuat Text berkedip di VB 6.0









1) Siapkan 1 Label dan 1 Timer

2) Tulis kata yang diinginkan di Label 1

3) Klik pada Timer1 dan isi Intervalnya menjadi 40
#Sebenarnya bebas, Makin kecil intervalnya, kedipannya makin Cepet

4) Klik Kanan pada Form ~> Lalu, pilih VIEW CODE

5) Masukan Script ini :

Private Sub Timer_Timer1_Timer()
If Label1.Visible = True Then
Label1.Visible = False
Else
Label1.Visible = True
End If
End Sub

Selesai Deh ...
Kalo masih bingung, Silahkan Comment

2 Cara membuat Text Bergerak pada VB 6.0

Kali ini, saya akan Share cara membuat Judul/Text pada VB dapat bergerak ..

ok, kita langsung aja Ke Tutorialnya ...

1) Sediakan 1 buah Label dan 1 Buah Timer ..

2) Pada Timer, Ubah Intervalnya menjadi 80 .. (sebenarnya bebs, makin sedikit intervalnya, makin cepet jalannya)

3) Kemudian, Klik 2x pada Timer1, masukan Script dibawah :

Label1.Left=Label1.Left - 15

If(Label1.Left <= -(Label1.Width)) Or (Label1.Left >= Me.ScaleWidth
Then Label1.Left = Me.ScaleWidth

Tinggal pencet F5

Sekian dari saya , Selamat Mencoba !!

0 Cara Membuat Generator ALAY dengan VB 6.0

Setelah membuat Kalkulator disini , Saya punya Program lain loh .. Yaitu, GENERATOR ALAY !!

yang mau jadi ALAYERS .. atau cuma sekedar iseng, kalian bisa membuat Alatnya kok ..















1) buat 2 FRAME saling sejajar 

2) Buat 2 Textbox dan masukkan ke Dalam Frame

3) Klik 2x pada Text1 , dan masukkan Script ini :

Text2.Text=Alay(Text1.Text2)

5) Klik Kedua Frame, lalu ganti Captionnya menjadi :
Frame1 ~> Masukan Text
Frame2 ~> Alay Text

6) Setelah itu, di Menu BAR, klik PROJECT, lalu, klik Add Modules 


7) Setelah Add Module, Klik Module, lalu, masukan Script ini

Public Function Alay(ByVal Str As String) As String
Dim s As String, h As String, i As Integer
Str = LCase(Str)
For i = 1 To Len(Str)
s = Mid(Str, i, 1)
Select Case s
Case "a": s = "àáâãäåÀÁÂÃÄÅ@4"
Case "b": s = "ß8"
Case "c": s = "çÇ¢"
Case "d": s = "Ð"
Case "e": s = "èéêëÈÉÊË£3"
Case "g": s = "69"
Case "i": s = "ìíîïÌÍÎÏ¡!1"
Case "n": s = "ñÑ"
Case "o": s = "òóôõöøÒÓÔÕÖØ0"
Case "p": s = "þÞ"
Case "s": s = "$§5"
Case "t": s = "7"
Case "u": s = "ùúûüÙÚÛܵ"
Case "x": s = "×"
Case "y": s = "ýÿÝ¥"
Case Else: s = IIf(CInt(Rnd * 1) = 0, UCase(s), s)
End Select

Randomize
h = h & Mid(s, CInt(Rnd * (Len(s) - 1)) + 1, 1)
Next
Alay = h
End Function


8) Setelah selesai, jangan lupa Save Modules .. lalu, Klik 1x pada Text2, di BOX PROPERTIES sebelah kanan, Ubah :
Enable=True ~> Ganti True menjadi False

Selesai deh !!

2 Cara Membuat Kalkulator dengan VB 6.0

Setelah mendownload Visual Basic disini , kita coba membuat Program sederhana .. yaitu, Kalkulator :D


















1) Buka Visual Basic mu ~> Buat 1 buah Textbox dan 10 buah Command Button

2) Kemudian, ubah CAPTION semuanya menjadi seperti gambar .. INGAT ! CAPTION ! BUKAN NAME !
P.s : cara merubahnya ada di box Sebelah kanan .. untuk TEXT 1 .. Kosongkan CAPTIONNYA

3) Buat lagi 10 Command Button dan letakkan seperti gambar dibawah

4) Atur Properties menjadi :

Kontrol	Properti
Text1	Text
Command2	Name Caption	Koma .
Command3	Name Caption	AC AC
Command4	Name Caption	Tambah +
Command5	Name Caption	Kurang -
Command6	Name Caption	Tanda +/-
Command7	Name Caption	Bagi /
Command8	Name Caption	Kali x
Command9	Name Caption	Akar Akar
Command10	Name Caption	Hasil =l
Command11	Name Caption	Kuadrat X^2

5) Setelah selesai EDIT, Kurang lebih hasilnya seperti ini :

6) Di Bagian yg kosong (yg ada titik" ) klik kanan ~> View Code ~> Pastekan kode dibawah

Private pilihan As String
Private x As Double
Private y As Double

Private Sub AC_Click()
Text1.Text = ""
y = x = 0
Tanda.Enabled = False
End Sub

Private Sub Akar_Click()
If x < 0 Then
Text1.Text = "Angka Tidak Boleh Negatif Coy"
Else
Text1.Text = Sqr(x)
End If
End Sub

Private Sub Bagi_Click()
Text1.Text = ""
pilihan = "bagi"
y = x
x = 0
Tanda.Enabled = False
End Sub

Private Sub Command1_Click(Index As Integer)
Text1.Text = Text1.Text & Command1(Index).Caption
x = Text1.Text
Tanda.Enabled = True
End Sub

Private Sub Form_Load()
Tanda.Enabled = False
End Sub

Private Sub Hasil_Click()
If pilihan = "tambah" Then
x = y + x
Text1.Text = x
ElseIf pilihan = "kurang" Then
x = y - x
Text1.Text = x
ElseIf pilihan = "kali" Then
x = y * x
Text1.Text = x
ElseIf pilihan = "bagi" And x <> 0 Then
x = y / x
Text1.Text = x
Else
Text1.Text = "Tidak Terdefinisi"
End If
End Sub

Private Sub Kali_Click()
Text1.Text = ""
pilihan = "kali"
y = x
x = 0
Tanda.Enabled = False
End Sub

Private Sub Koma_Click()
If Text1.Text = "" Then
Text1.Text = "0."
Else
Text1.Text = Text1.Text & "."
End If
End Sub

Private Sub Kuadrat_Click()
Text1.Text = x ^ 2
End Sub

Private Sub Kurang_Click()
Text1.Text = ""
pilihan = "kurang"
y = x
x = 0
Tanda.Enabled = False
End Sub

Private Sub Tambah_Click()
Text1.Text = ""
pilihan = "tambah"
y = x
x = 0
Tanda.Enabled = False
End Sub

Private Sub Tanda_Click()
If x < 0 Then
Text1.Text = -x
x = -x
Else
Text1.Text = "-" & Text1.Text
x = -x
End If
End Sub

Selesai deh !! Tinggal Pijit F5 ..
Cara Save :
1) Klik File ~> Make Project 1 .exe