Lens Effect Pada CorelDRAW

Di tutorial ini kita akan mencoba membuat atau mengaplikasikan Lens Effect pada CORELDRAW (semua versi mulai 11,12,X3,X4), dengan tutorial ini diharapkan kita dapat mengembangkan sendiri dari penggunaan Lens Effect menurut imajinasi kita masing-masing. Langkah-langkahnya sebagai berikut :

Mari kita mulai Tutorial Coreldraw Dasar kali ini:

1. Sudah pasti buka corelDraw dan buat blank page

2. Buatlah beberapa lingkaran seperti gambar dibawah ini


setelah itu seleksi dua lingkaran kiri dan lalu combine (Ctrl+L) lalu beri warna Hitam, dan buatlah satu lingkaran kecil lagi sehingga seperti pada gambar dibawah ini

Groupkan (Ctrl+G) semua lingkaran bagian Kanan, lalu seleksi semua object dan centerkan ( C ).

3. Buat satu lingkaran besar (lebih besar dari lingkaran pertama) dan beri warna putih, letakan sesuai keinginan seperti pada gambar dibawah ini

hilangkan Out Linenya.

4. Transparasikan lingkaran putih tadi dengan menggunakan Transparency tool

Lalu akan keluar submenu diatas, pilih radial


Setelah itu, masukan object Lingkaran putih tadi pada lingkaran hitam dengan menggunakan Power Clip (Effect >> Power Clip >> Place Inside Continer), Letakan Sesuai kehendak, Buatlah object baru berupa persegi dan gunakan Text Tool lalu klikan pada garis(tepat pada garis object)Persegi, tulis sesuka hati, Ungroupkan (Ctrl+U) lingkaran kanan pertama tadi dan seleksilah lingkaran kecil, beriwarna putih dan transparasikan kembali dengan menggunakan Transparency Tool dan pilih linier.

6. Seleksi lingkaran yag tadi satu group dengan lingkaran kecil, lalu klik Effect >> Lens pada menu


Maka akan muncul Docker Window seperti pada gambar dibawah ini



Pilih Magnify, dan sesuaikan Amount dengan keinginan kita, sehingga menjadi seperti pada gambar dibawah ini


Dan kita tinggal mengexportnya menjadi JPEG untuk membuatnya menjadi bitmap
Docker Window : Window yang menampilkan Perintah-perintah yang dapat kita gunakankembali saat kita melakukan editing

Hasilnya:

KAca PEmbesar

Terimakasih dan Semoga bermanfaat, Selamat Mencoba dan Belajar Coreldraw
SEMOGA BERMANFAAT

Read More ->>

EFEK BUTIRAN AIR MEMBASAHI FOTO

Efek Butiran - Butiran Air Membasahi Foto

Efek butiran - butiran air membasahi foto? tenang.. tenang.. ini cuman rekayasa photoshop aja, jangan dikira prakteknya menyiram foto dengan air betulan, nanti gak malah bagus eh jd rusak...

Oh iya hampir lupa, hari ini kan (premiernya movie Ayat-Ayat Cinta...), trus apa hubungannya dengan ilmu photoshop?
Ya cuma ngasih info aja, hwe3x...

Ok, tanpa banyak chit-chat ini langkah-langkahnya:

1. Buka Gambar yang akan diedit dengan photoshop
Bisa foto kamu atau pemandangan alam, atau barangkali belum punya gambar untuk diedit? silahkan mencari di search engine, disini saya menggunakan gambar pantai...

(beautiful scene)

2. buat lingkaran dengan Elipse Tool
catatan: foreground dan background harus putih


Hasilnya:


3. Selelah itu klik kanan dan pilih Rasterize Layer...

4. Waktunya memberi efek...
Menu - Layer - Layer Style - Blending Options...
Centang Drop Shadow dan Inner Shadow

dan

[OK]
Lalu pada pallete - ubah ke mode Multiply


5. Yup Hasilnya...

Hehehe... Tinggal perbanyak aja tetesan airnya... beres dah...

dengan belajar photoshop Hasilnya????? anda bisa mengutak-atik lagi dan ini hasil dari penulis

Pantai yang indah... Hawaiii.... kapan bisa berlibur ke situ??? ;P

Selamat Mencoba...
dan Semoga Bermanfaat...

Read More ->>

MEMBUAT APLIKASI PERKALIAN DELPHI

Assalamu’alaikum wr wb

Berikut ini adalah cara belajar singkat aritmatik dasar dengan bahasa paskal menggunakan aplikasi

Delphi7,  disini saya akan menjelaskan langkah dan cara membuat aplikasi. Pada kesempatan ini yang akan kita bahas adalah cara membuat aplikasi untuk perkalian, pengurangan, pembagian, luas rabung, volume tabung, luas belok, volume balok, luas  bola, dan volume bola.

Sebelum memulai yang perlu kita ketahui adalah macam macam tipe data dan variabel. Tipe data yang seringa di gunakan adalah string(kalimat), integer(angka), round(pembulatan) dll. Kemudian variabel adalah tempat menampung nilai sementara.

Yang paling penting harus di ketahui adalah untuk menulis tipe data dan variabel harus di atas begin dan dibawah var. Sedangkan untuk menulis rumus dan program ada di antara begin dan end. Kemudian setelah kalimat harus di tutu dengan’;’.

Untuk kesempatan hari ini saya akan menggunakan contoh tipe data real  karena tipe data ini fleksibel dan bisa di gunakan dengan mudah.

a.      perkalian

Pertama ialah membuka aplikasi Delphi 7 setelah itu klik file     new     other. kemudian klik console aplication kemudian klik OK.

Setelah itu tulis program seperti di bawah ini:

program Project1;

{$APPTYPE CONSOLE}

uses

  SysUtils;

var

  a,b:real;

begin

  write ('Nilai A:');

  readln(a);

  write ('Nilai B:');

  readln(b);

  write ('Hasil perkalian A*B:',a*b:3:1);

  readln

end.

Untuk menjalankan nya klik Run/ F9 seperti gambar berikut.

Setelah Run di klik maka aplikasi akan berjalan

Petama masukan nilai A terus tekan enter, kemudian masukan nilai B kemudian tekan enter. rumus perkalian selesai.

b.      pengurangan

Untuk proses membuat rumus aplikasi pengurangan semua langah langkahnya hampir sama dengan perkalian hanya sedikit merubah pada rumusnya.

program Project1;

{$APPTYPE CONSOLE}

uses

  SysUtils;

var

  a,b:real;

begin

  write ('Nilai A:');

  readln(a);

  write ('Nilai B:');

  readln(b);

  write ('Hasil penguranagn A-B:',a-b:3:1);

  readln

end.

c.       Pembagian

Untuk proses membuat rumus aplikasi pembagian semua langah langkahnya hampir sama dengan pengurangan hanya sedikit merubah pada rumusnya, yakni seperti di bawah ini:

program Project1;

{$APPTYPE CONSOLE}

uses

  SysUtils;

var

  a,b:real;

begin

  write ('Nilai A:');

  readln(a);

  write ('Nilai B:');

  readln(b);

  write ('Hasil pembagian A/B:',a/b:3:1);

  readln

end.

d.      Menghitung luas tabunng

Untuk proses membuat rumus aplikasi luas tabung semua langah langkahnya hampir sama dengan langkah langkah membuat program lain hanya saja harus menentukan rumus luas tabung, yakni seperti di bawah ini:

Rumus luas tabung ialah: 2 x Phi x R x R + 2 x Phi x R x T

Maka setelah mengetahui rumusnya kita tinggal memasukan kedalam  proses pembuatan aplikasi seperti dibawah ini :

program Project1;

{$APPTYPE CONSOLE}

uses

  SysUtils;

var

  r,t,ltabug:real;

begin

  write ('Nilai r:');

  readln(r);

  write ('Nilai t:');

  readln(t);

  ltabung:=2*3.14*r*r+2*3.14*r*t;

  write ('Hasil luas tabung:',ltabung:3:1);

  readln

end.

e.       Menghitung volume tabung

Untuk proses membuat rumus aplikasi volume tabung semua langah langkahnya hampir sama dengan langkah langkah membuat program menghitung luas tabung hanya saja harus menentukan rumus volume tabung, yakni seperti di bawah ini:

Rumus volume tabung ialah: Phi x R x R x T

Maka setelah mengetahui rumusnya kita tinggal memasukan kedalam  proses pembuatan aplikasi seperti dibawah ini :

program Project1;

{$APPTYPE CONSOLE}

uses

  SysUtils;

var

  r,t,vtabung:real;

begin

  write ('Nilai r:');

  readln(r);

  write ('Nilai t:');

  readln(t);

  vtabung:=3.14*r*r*t;

  write ('Hasil volume tabung: ',vtabung:3:1);

  readln

end.

f.       Menghitung luas balok

Untuk proses membuat rumus aplikasi luas balok semua langah langkahnya hampir sama dengan langkah langkah membuat program lain hanya saja harus menentukan rumus luas balok, yakni seperti di bawah ini:

Rumus luas balok ialah: 2 x P x L+ 2 x P x T + 2 x L x T

Maka setelah mengetahui rumusnya kita tinggal memasukan kedalam  proses pembuatan aplikasi seperti dibawah ini :

program Project1;

{$APPTYPE CONSOLE}

uses

  SysUtils;

var

  p,l,t,lbalok:real;

begin

  write ('Nilai p:');

  readln(p);

  write ('Nilai l:');

  readln(l);

  write ('Nilai t:');

  readln(t);

  lbalok:=2*p*l+2*p*t+2*l*t;

  write ('Hasil luas balok: ',lbalok:3:1);

  readln

end.

g.      Menghitung volume balok

Untuk proses membuat rumus aplikasi volume balok semua langah langkahnya hampir sama dengan langkah langkah membuat program luas balok hanya saja harus menentukan rumus volume balok, yakni seperti di bawah ini:

Rumus volume balok ialah: P x L x T

Maka setelah mengetahui rumusnya kita tinggal memasukan kedalam  proses pembuatan aplikasi seperti dibawah ini :

program Project1;

{$APPTYPE CONSOLE}

uses

  SysUtils;

var

  p,l,t,vbalok:real;

begin

  write ('Nilai p:');

  readln(p);

  write ('Nilai l:');

  readln(l);

  write ('Nilai t:');

  readln(t);

  vbalok:=p*l*t;

  write ('Hasil volume balok: ',vbalok:3:1);

  readln

end.

h.      Menghitung luas bola

Untuk proses membuat rumus aplikasi luas bola semua langah langkahnya hampir sama dengan langkah langkah membuat program lain hanya saja harus menentukan rumus luas bola, yakni seperti di bawah ini:

Rumus luas bola  ialah: 4 x Phi x R x R

Maka setelah mengetahui rumusnya kita tinggal memasukan kedalam  proses pembuatan aplikasi seperti dibawah ini :

program Project1;

{$APPTYPE CONSOLE}

uses

  SysUtils;

var

  r,lbola:real;

begin

  write ('Nilai r:');

  readln(r);

  lbola:=4*3.14*r*r;

  write ('Hasil luas bola: ',lbola:3:1);

  readln

end.

i.        Menghitung volume bola

Untuk proses membuat rumus aplikasi volume bola semua langah langkahnya hampir sama dengan langkah langkah membuat program luas bola hanya saja harus menentukan rumus volume bola, yakni seperti di bawah ini:

Rumus volume bola  ialah: 4/3 x Phi x R x R x R

Maka setelah mengetahui rumusnya kita tinggal memasukan kedalam  proses pembuatan aplikasi seperti dibawah ini :

program Project1;

{$APPTYPE CONSOLE}

uses

  SysUtils;

var

  r,vbola:real;

begin

  write ('Nilai r:');

  readln(r);

  vbola:=4/3*3.14*r*r*r;

  write ('Hasil volume bola: ',vbola:3:1);

  readln

end.

Sekian terimaksih semoga modul sederhana di atas bisa bermanfaat dan membantu. Apabila ada salah kata dan lainya mohon maaf , terimakasih...........

Wasssalamu’alaikum wr wb

Read More ->>