Membuat Efek Urban dengan Adobe Photoshop

Membuat Efek Urban dengan Adobe Photoshop

Posted by Rela Eka Andik S in Belajar Photoshop,

Saya pake adobe photoshop CS3.. dan kebanyakan tutorial photoshop ilmuphotoshop.com menggunanan Photoshop CS3..

Kemaren ada yang nanya, photoshop bisa dipake buat bikin efek urban seperti di Corel Draw atau Adobe Illustrator ga ? saya bilang bisa…. padahal waktu itu yang namanya efek urban saya blom tau kayak gimana.. hehehe.. sok tau ya.. tapi biarin aja.. toh dari foto menjadi gambar vektor aja bisa dibuat pake photoshop kok ( Ini link nya )… padahal bagusnya gambar vektor itu dibikin pake Adobe Illustrator atau Corel Draw .

Setelah saya search di google… jadi tau deh efek urban wujudnya kayak gimana… hmm .. gak update yaa saya…efek urban aja gak tau hehehe.. maklum lah pekerja kantoran mah susah bagi waktu buat update informasi.. halah.. facebook-an aja bisa ? nah lo.. :p

Ya udah.. sekarang kita coba buat yang namanya efek urban..

Di efek ini kita butuh bantuan Brush yang berbentuk Bunga, daun dan swirl.

Download dulu Brush nya >> Klik disini <<.

Cara Installnya :

Setelah di download.. extract file brush.rar pake WinRar. kalo blom ada winrar, Download winrar disini.

setelah di extract file Swirls_And_Flowers_Brushes.abr .. copy ke c://program files/adobe/photoshop/preset/brush/

Klik 2x file tersebut.. nanti kebuka photoshop nya kan ? nah brush nya sudah terinstall.. Congratulation!!

Sekarang buka dokumen baru .. kalo mau dijadiin wallpaper pake ukuran standard wallpaper aja 1024 px x 768 px

klik gradient tool, buat radial gradient (warna terserah aja ya.. mau sama juga gpp kok.. gak dilarang )

ini nanti fungsi nya sebagai background.

sekarang buka gambar yang mau dijadiin korban nya..

Saya pake gambar sepupu saya yang masih kecil ..

Seleksi objek dengan pen tool .. settingannya ada di bawah nih.. santai aja yaa nyeleksi nya.. biar nanti jadinya bagus.

Kalo udah beres terseleksi , klik kanan > make selection

kalo udah terseleksi, Drag gambar yang udah terseleksi ke dokumen baru yang dikasih warna gradient hijau. otomatis akan terbentuk layer baru (gambar objek yang tlah terseleksi)

di layer gambar : Klik Filter >artistic > Cutout ( settingan nya terserah yaa.. karena tergantung besar kecilnya gambar juga )

klik Ctrl + J untuk menduplikat layer gambar.

Klik 2x layer hasil duplikat tadi untuk menampilkan blending options , atau klik kanan > blending options

setting color overlay nya

jangan dulu di OK ya.. sekarang lanjutin ke Outer glow

Eits.. jangan dulu di OK.. setting juga stroke nya

hasil sementara :

buat layer baru di atas layer background .. klik layer > new > layer ..

gunakan paint bucket tool untuk mewarnai layer baru tadi dengan warna putih.

matiin kedua layer objek atau layer gambar .. dengan mengklik icon mata di pinggir layer.

Gunakan brush tool (softround 300 px, warna Hitam ) untuk membuat bulatan seperti gambar.

Klik Filter > pixelate > color halftone

Klik Select > Color range

sekarang terseleksi bagian dots nya kan ? nah untuk menghapus warna putihnya .. klik select > inverse .. lalu teken DELETE di keyboard. Tekan CTRL + D untuk menghilangkan seleksi

Klik 2x layer dots tadi untuk mengeluarkan blending options.. atau klik kanan > blending option ..

edit color overlay nya..

duplikat layer dots tadi dengan menekan ctrl +J , kecilin atau besarin ukurannya.. buat beberapa buah Dots.

ubah warna nya dengan mengganti warna di blending option > color overlay

hasilnya :

Sekarang kita beri starburst

tutorial nya ada disini : Efek Starburst

tapi sekarang saya buat dengan manual aja ya..

Klik Pen Tool .. Jenis pen : Shape layer, warna putih

buat seperti contoh dibawah ya..

ubah layer efek menjadi overlay lalu opacity dan fill sekitar 50%

Buat layer baru di atas layer Shape 1 .. klik Layer > new > layer

sekarang kita bersenang-senang dengan brush yang tadi udah di install ..

Klik Brush tool .. klik kanan di area gambar nanti muncul brush option

klik jenis brush yang mau dipake : saya pake no 375 dan diameter 370 px

klik di gambar sesuai kreatifitas masing-masing

buat layer baru dan gunakan brush yang lain nya..

nanti ubah-ubah warna nya pake blending option > color overlay atau ubah layer effect nya jadi Overlay .. pokoknya semua terserah anda.. hehehe..

hasilnya :

bisa juga diganti warna background nya..

hasil dengan gambar lain :

Selamat berkreasi deh ya.

Konversi number to Romawi

Konversi Number To Romawi

Posted by rela eka under Code, Visual Basic 6 | Tags: Function, Fungsi, Romawi, VB6, Visual Basic |
Leave a Comment

Bagi anda yang membutuhkan konversi nilai menuju Romawi atau sebaliknya. Berikut ini sintax Function yang bisa digunakan :

Public Function NumberToRomawi(ByVal cNumber As Long) As String

    Dim n As Long

    Dim IntIdy As Integer, intIdx As Integer

    Dim Rom, Latin

    Dim Romawi As String

    Rom = Array("I", "IV", "V", "IX", "X", "XL", "L", "XC", "C", "CD", "D", "CM", "M")

    Latin = Array(1, 4, 5, 9, 10, 40, 50, 90, 100, 400, 500, 900, 1000)

    Romawi = ""

    For IntIdy = 12 To 0 Step -1

        n = Int(cNumber / Latin(IntIdy))

        If n <> 0 Then

            For intIdx = 1 To n

                Romawi = Romawi & Rom(IntIdy)

            Next intIdx

        End If

        cNumber = cNumber Mod Latin(IntIdy)

    Next

    NumberToRomawi = Romawi

End Function

Public Function RomawiToNumber(cRomawi As String) As Long

    Dim n As Long

    Dim intIdx As Integer

    Dim Rom, Latin

    Rom = Array("I", "1", "V", "2", "X", "3", "L", "4", "C", "5", "D", "6", "M")

    Latin = Array(1, 4, 5, 9, 10, 40, 50, 90, 100, 400, 500, 900, 1000)

    cRomawi = Replace(cRomawi, "IV", "1")

    cRomawi = Replace(cRomawi, "IX", "2")

    cRomawi = Replace(cRomawi, "XL", "3")

    cRomawi = Replace(cRomawi, "XC", "4")

    cRomawi = Replace(cRomawi, "CD", "5")

    cRomawi = Replace(cRomawi, "CM", "6")

    n = 0

    For intIdx = 12 To 0 Step -1

        While Rom(intIdx) = Mid(cRomawi, 1, 1) And Len(cRomawi) > 0

            n = n + Latin(intIdx)

            cRomawi = Mid(cRomawi, 2)

        Wend

    Next intIdx

    RomawiToNumber = n

End Function

visual basic

Visual Basic (2): Membaca dan Menulis File Text

Posted by sarach in Tips Programming, Visual Basic.
trackback

Hampir setiap pemrograman yang saya lakukan, memerlukan perintah untuk membaca dan menulis File text. Sebagai tambahan Informasi, kali ini saya akan menampilkan syntax bagaimana caranya membaca dan menulis file text melalui bahasa pemrograman Visual Basic. Berikut List Syntaxnya …

1. Menulis Ke File Text

Dim LocTextFile As String
LocTextFile = “C:\windows\SvAdd.txt”

Open LocTextFile For Output As #1 ‘Buka file text
Print #1, “Server_Name” ‘Modify Baris Pertama”
Print #1, “Database_Name” ‘Modify Baris Kedua
Print #1, “User” ‘Modify Baris Ketiga
Print #1, “Pwd” ‘Modify Baris Keempat
Close #1

2. Membaca dari File Text

Dim LocTextFile As String
Dim ServerAddress As String
Dim DatabaseName As String
Dim UserID As String
Dim PwdSql As String
LocTextFile = “C:\windows\SvAdd.txt”
Open LocTextFile For Input As #1 ‘Buka file text
Line Input #1, ServerAddress ‘Baca Baris Pertama
Line Input #1, DatabaseName ‘Baca Baris Kedua
Line Input #1, UserID ‘Baca Baris Ketiga
Line Input #1, PwdSql ‘Baca Baris Keempat
Close #1 ‘Tutup File file text

Selamat Mencoba !!

Belajar Visual Basic Dasar Bagian 18 : Contoh Program Sederhana

1. Buatlah sebuah Form baru.

2. Database nya masih seperti yang ada di tutorial 1 (DBbarang / Table_Barang).

3. Masukan objek objek berikut ini :

NAME	CAPTION	TOOL
Label1	TOKO "ABC"	Label
Label2	Pembeli	Label
Label3	Tanggal Beli	Label
Label4	Pilih Barang	Label
Label5	Kode Barang	Label
Label6	Nama Barang	Label
Label7	Harga Barang	Label
Label8	Jumlah Beli	Label
Label9	Total Harga	Label
Label10	Uang Bayar	Label
Label11	Uang Kembali	Label
Tanggal	-	Label
Jam	-	Label
TxtNama	-	TextBox
TxtHarga	-	TextBox
TxtPembeli	-	TextBox
Txtjumlah	-	TextBox
TxtTotal	-	TextBox
TxtBayar	-	TextBox
TxtKembali	-	TextBox
DTpicker1	-	DTpicker
DBcombo1	-	DBcombo
ChkBaju	Baju Rp.25000	CheckBox
ChkCelana	Celana Rp.15000	CheckBox
ChkDasi	Dasi Rp.5000	CheckBox
OptKirim	Dikirim (Biaya 5000)	OptionButton
OptTidak	Tidak dikirim	OptionButton
Timer1	-	Timer
Data1	-	Data
CmdTutup	Tutup	CommandButton

4. Cara pemakaian program ini (lihat gambar) :

- Tanggal dan jam akan muncul otomatis

- Masukan nama pembeli dengan menulisnya secara manual.

- Masukan tanggal pembelian dengan memilih tanggal pada DTpicker1.

- Masukan kode barang yang ingin dibeli pada DBcombo1 maka nama barang dan harga barang akan muncul secara otomatis.

- Masukanlah jumlah barang yang dibeli lalu tekan tombol ENTER pada keyboard anda.

- Beri tanda checklist pada CheckBox yang ada jika anda ingin membeli seragam tambahan.

- Pilihlah cara pengiriman barang apakah barang yang dibeli ingin dikirim atau tidak dengan menggunakan OptionButton.

- Total bayar akan muncul otomatis.

- Masukanlah uang bayar maka uang kembali akan muncul secara otomatis.

- Tekan tombol TUTUP untuk menutup program dan nanti akan muncul pesan "SELAMAT TINGGAL !".

5. Listing Program :

Private Sub DBCombo1_Click(Area As Integer)
Data1.Recordset.FindFirst "Kode=’" & DBCombo1.Text & "’"
TXTKODE.Text = Data1.Recordset!Kode
TXTNAMA.Text = Data1.Recordset!NAMA
TXTHARGA.Text = Data1.Recordset!HARGA
End Sub

- Ketika DBcombo di klik maka akan terjadi pencarian data yang field Kode database nya sama dengan yang dipilih di DBcombo.

- Setelah itu maka data yang berhubungan dengan kode yang dipilih (nama dan harga) akan ditampilkan pada TextBox TextBox yang ada.

- TXTKODE.Text = Data1.Recordset!Kode maksudnya isi data dari TXTKODE adalah isi dari field Kode yang ada di database.

Private Sub TXTJUMLAH_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
TXTTOTAL.Text = Val(TXTJUMLAH.Text) * Val(TXTHARGA.Text)
End If
End Sub

- KeyAscii = 13 (KeyPress) ini digunakan untuk perintah menekan tombol ENTER pada keyboard.

- Disini terjadi perhitungan yaitu TXTJUMLAH dikalikan dengan TXTHARGA yang hasilnya diletakan pada TXTTOTAL.

Private Sub CHKBAJU_Click()
If CHKBAJU.Value = 1 Then
TXTTOTAL.Text = Val(TXTTOTAL.Text) + 25000
Else
If CHKBAJU.Value = 0 Then
TXTTOTAL.Text = Val(TXTTOTAL.Text) – 25000
End If
End If
End Sub

- Maksudnya jika CHKBAJU dipilih atau dicontreng (1) maka TXTTOTAL = TXTTOTAL ditambah 25000

tapi jika tidak dipilih atau tidak dicontreng (0) maka TXTTOTAL = TXTTOTAL dikurang 25000

Private Sub CHKCELANA_Click()
If CHKCELANA.Value = 1 Then
TXTTOTAL.Text = Val(TXTTOTAL.Text) + 15000
Else
If CHKCELANA.Value = 0 Then
TXTTOTAL.Text = Val(TXTTOTAL.Text) – 15000
End If
End If
End Sub

- Maksudnya jika CHKCELANA dipilih atau dicontreng (1) maka TXTTOTAL = TXTTOTAL ditambah 15000

tapi jika tidak dipilih atau tidak dicontreng (0) maka TXTTOTAL = TXTTOTAL dikurang 15000

Private Sub CHKDASI_Click()
If CHKDASI.Value = 1 Then
TXTTOTAL.Text = Val(TXTTOTAL.Text) + 5000
Else
If CHKDASI.Value = 0 Then
TXTTOTAL.Text = Val(TXTTOTAL.Text) – 5000
End If
End If
End Sub

- Maksudnya jika CHKDASI dipilih atau dicontreng (1) maka TXTTOTAL = TXTTOTAL ditambah 5000

tapi jika tidak dipilih atau tidak dicontreng (0) maka TXTTOTAL = TXTTOTAL dikurang 5000

Private Sub OPTKIRIM_Click()
If OPTKIRIM.Value = True Then
TXTTOTAL.Text = Val(TXTTOTAL.Text) + 5000
End If
End Sub

- Maksudnya jika OPTKIRIM dipilih (True) maka TXTTOTAL = TXTTOTAL ditambah 5000

Private Sub OPTTIDAK_Click()
If OPTTIDAK.Value = True Then
TXTTOTAL.Text = Val(TXTTOTAL.Text) + 0
End If
End Sub

- Maksudnya jika OPTTIDAK dipilih (True) maka TXTTOTAL = TXTTOTAL ditambah 0

Private Sub TXTBAYAR_Change()
TXTKEMBALI.Text = Val(TXTBAYAR.Text) – Val(TXTTOTAL.Text)
End Sub

- Change digunakan agar ketika kita menulis suatu data maka data yang lain akan tertulis pada suatu objek yang telah ditentukan.

disini maksudnya jika kita menulis angka pada TXTBAYAR maka TXTKEMBALI akan tertulis secara otomatis.

- Disini terjadi perhitungan TXTBAYAR dikurangi TXTTOTAL yang hasilnya akan muncul pada TXTKEMBALI.

Private Sub CMDTUTUP_Click()
MsgBox "SELAMAT TINGGAL"
Unload Me
End Sub

- Unload Me adalah kode untuk keluar dari form.

- Msgbox maksudnya adalah Kotak Suara (Message Box) yang berisi suatu pesan.

Private Sub Timer1_Timer()
TANGGAL.Caption = Date
JAM.Caption = Time
End Sub

- Label TANGGAL caption (tulisannya) akan diisi dengan tanggal hari ini.

- Label JAM caption (tulisannya) akan diisi dengan jam sekarang.

OPIX HOLMES
opix.holmes@yahoo.com
www.islamicunderground.wordpress.com