MEMBUAT ANIMASI KEMBANG API

Kali ini saya berbagi bagaimana membuat animasi kembang api menggunakan Macromedia Flash Profesional 8.

Tahap 1.
Jalankan Macromedia sobat dan aturlah lembar kerja dengan ukuran seperti gambar berikut :


Tahap 2.
Tambahkan 3 buah Layer pada lembar kerja sobat.


Tahap 3.
Klik Frame 1 Layer 1, kemudian tambahkan gambar roket kembang api

Masih di gambar roket kembang api, lanjutkan dengan menekan tombol F8 (convert to symbol)
Kemudian klik Kanan Frame 20 Layer 1 – Insert KeyFrame, lalu geser gambar ke atas sesuai selera sobat.
Jika sudah, kemudian klik Kanan Frame 10 Layer 1 – Create Motion Tween.

Tahap 4.
Klik Kanan Frame 20 Layer 2 kemudian insert KeyFrame, lalu tambahkan gambar kembang api.

Terakhir pada tahap 3 ini, klik Kanan Insert keyFrame pada Frame 40 Layer 2.


Tahap 5 (Akhir).
Klik Kanan Insert keyFrame pada Frame 20 Layer 3, kemudian buatlah sebuah lingkaran kecil tepat di tengah gambar kembang api.

Lanjutkan dengan menekan tombol F8 (Convert to Symbol) pada gambar lingkaran.
Klik Kanan Insert keyFrame pada Frame 40 Layer 3, kemudian sobat perbesar gambar lingkaran menutupi gambar kembang api.

Sekarang sobat lanjutkan dengan memberi Motion Tween (klik Kanan Frame 30 Layer 3 dan pilih Create Motion Tween). Pada gambar lingkaran.
Tahap akhir, klik Kanan Layer 3 dan Pilih Mask.
Selesai dan jalankan animasi sobat…

Oya… untuk file belajar dan gambarnya sobat bisa download disini.

Tag Technorati: Tutorial Flash,Tutorial Macromedia Flash,Dasar Macromedia Flash,Dasar Flash,Flash Dasar,Macromedia Flash Dasar,Petunjuk,Sinau,Belajar,E-Learning

Read more »

BUAT APLIKASI WEBCAM PAKE VISUAL BASIC 6.0

 

Lama tidak buat tutorial tentang Visual Basic, tapi kali ini saya berbagi tutorial bagaimana cara membuat aplikasi yang berfungsi untuk melakukan capture image dari webcam.

Tak usah basa basi sob langsung aja ke TKP…

Langkah 1.

Jalankan visual basic sobat dan buatlah form aplikasi seperti gambar berikut :

Dengan keterangan sebagai berikut :

Label1, Caption : MY WEBCAM

PictureBox, Name : gbrWebcam

CommonDialog, Name : CDialog

CommandButton1, Name : cmdMulai; Caption : Mulai

CommandButton2, Name : cmdSimpan; Caption : Simpan

CommandButton3, Name : cmdSetting; Caption : Setting

CommandButton4, Name : cmdTutup; Caption : Tutup

Langkah 2.

Jika langkah 1 selesai, tambahkan sebuah module dan tuliskan koding berikut pada module yang soba buat :

Public Const WS_CHILD As Long = &H40000000
Public Const WS_VISIBLE As Long = &H10000000
Public Const WM_USER As Long = &H400
Public Const WM_CAP_START As Long = WM_USER
Public Const WM_CAP_DRIVER_CONNECT As Long = WM_CAP_START + 10
Public Const WM_CAP_DRIVER_DISCONNECT As Long = WM_CAP_START + 11
Public Const WM_CAP_SET_PREVIEW As Long = WM_CAP_START + 50
Public Const WM_CAP_SET_PREVIEWRATE As Long = WM_CAP_START + 52
Public Const WM_CAP_DLG_VIDEOFORMAT As Long = WM_CAP_START + 41
Public Const WM_CAP_FILE_SAVEDIB As Long = WM_CAP_START + 25
Public Declare Function capCreateCaptureWindow _
Lib "avicap32.dll" Alias "capCreateCaptureWindowA" _
(ByVal lpszWindowName As String, ByVal dwStyle As Long _
, ByVal X As Long, ByVal Y As Long, ByVal nWidth As Long _
, ByVal nHeight As Long, ByVal hwndParent As Long _
, ByVal nID As Long) As Long
Public Declare Function SendMessage Lib "user32" _
Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long _
, ByVal wParam As Long, ByRef lParam As Any) As Long

 

Untuk Module telah selesai sobat buat dan lanjutkan pada langkah 3.

 

Langkah 3.

Klik 2x form project sobat dan tuliskan koding berikut :

Dim hCap As Long

Pada General Declarations

 

Lanjutkan dengan klik 2x tombol “Mulai” dan tuliskan koding berikut :

Private Sub cmdMulai_Click()
hCap = capCreateCaptureWindow("Take a Camera Shot" _
, WS_CHILD Or WS_VISIBLE, 0, 0, gbrWebcam.Width _
, gbrWebcam.Height, gbrWebcam.hWnd, 0)
If hCap <> 0 Then
Call SendMessage(hCap, WM_CAP_DRIVER_CONNECT, 0, 0)
Call SendMessage(hCap, WM_CAP_SET_PREVIEWRATE, 66, 0&)
Call SendMessage(hCap, WM_CAP_SET_PREVIEW, CLng(True), 0&)
End If
End Sub

 

Lanjut lagi…

Klik 2x tombol “Simpan” dan tuliskan koding berikut :

Private Sub cmdSimpan_Click()
Dim sFileName As String
Call SendMessage(hCap, WM_CAP_SET_PREVIEW, CLng(False), 0&)
With CDialog
.CancelError = True
.Flags = cdlOFNPathMustExist Or cdlOFNOverwritePrompt
.Filter = "JPEG Picture(*.jpg)|*.jpg|All Files|*.*"
.ShowSave
sFileName = .FileName
End With
Call SendMessage(hCap, WM_CAP_FILE_SAVEDIB, 0&, ByVal CStr(sFileName))
DoFinally:
Call SendMessage(hCap, WM_CAP_SET_PREVIEW, CLng(True), 0&)
End Sub

 

Klik 2x tombol “Seting” dan tuliskan koding berikut :

Private Sub cmdSeting_Click()
Dim temp As Long
temp = SendMessage(hCap, WM_CAP_DLG_VIDEOFORMAT, 0&, 0&)
End Sub

 

 

Terakhir…

Klik 2x tombol “Tutup” dan silahkan sobat tulis koding berikut :

Private Sub cmdTutup_Click()
Dim temp As Long
temp = SendMessage(hCap, WM_CAP_DRIVER_DISCONNECT, 0&, 0&)
Unload Me
End Sub

 

Sekarang aplikasi siap dijalankan…

 

Technorati Tags: contoh program vb6,contoh fungsi di vb6,cara penggunaan fungsi vb,tutorial vb6,download tutorial vb6,vb6 tutorial download,dasar dasar vb6,belajar vb6,cara mudah belajar vb6,vb6 artikel download,vb6 blog,artikel vb6,semua tentang vb6,vb6 api,cara menggunakan module,cara menggunakan class module

Read more »

ANYAMAN FOTO MENGGUNAKAN PHOTOSHOP

Langsung ke TKP Sob….


Langkah 1.
Jalankan Photoshop kesayangan sobat dan buka sebuah gambar yang ingin dibuat anyaman. Jika gambar telah terbuka jangan lupa untuk mengaktifkan “Grid-nya” dengan cara klik View – Show – Grid.


Langkah 2.
Duplikasikan image sebanyak 2 kali dengan menekan Ctrl + J.

Rename “Layer 1” menjadi “Datar” dan “Layer 1 Copy” menjadi “Tegak”, serta ubah Fill Background menjadi warna Hitam dengan cara klik Edit – Fill – pada Use isikan Black – OK.


Langkah 3.
Klik Layer Datar dan lakukan seleksi menggunakan Rectangular Marquee Tool.

Untuk melakukan seleksi bagian kedua dan seterusnya gunakan Rectangular Marquee Tool yang di tekan bersama-sama dengan tombol Shift pada keyboard.
Kalo udah selesai melakukan seleksi pada Layer Datar klik Add Layer Mask.


Langkah 4.
Klik Layer Tegak dan lakukan seleksi menggunakan Rectangular Marquee Tool.

Untuk melakukan seleksi bagian kedua dan seterusnya gunakan Rectangular Marquee Tool yang di tekan bersama-sama dengan tombol Shift pada keyboard.
Kalo udah selesai melakukan seleksi pada Layer Tegak klik Add Layer Mask.

Jika selesai melakukan seleksi, sekarang hilangkan dulu “grid-nya” dengan cara klik View – Show – Grid.

Langkah 5.
Klik Layer Mask Datar, kemudian tekan tombol Ctrl+Alt+Shift+Layer Mask Tegak hingga terbentuk seleksi seperti gambar berikut :

Hilangkan kotak seleksi bagian ke 2, 4, 6 dan seterusnya menggunakan tombol Alt+Rectangular Marquee Tool.

Kalo sudah, klik Layer Datar kemudian tekan Ctrl+J untuk membuat duplikasi Layer.

Lanjut...
Klik Layer Mask Tegak, kemudian tekan tombol Ctrl+Alt+Shift+Layer Mask Datar hingga terbentuk seleksi seperti gambar berikut :

Hilangkan kotak seleksi bagian ke 1, 3, 5 dan seterusnya menggunakan tombol Alt+Rectangular Marquee Tool.

Kalo sudah, klik Layer Tegak kemudian tekan Ctrl+J untuk membuat duplikasi Layer.


Langkah 6.
Klik Kanan Layer 1 – Create Clipping Mask. Dan lakukan hal yang sama dengan Layer 2.

Jika sobat udah membuat Clipping Mask pada Layer 1 dan layer 2, kemudian lanjutkan dengan klik Kanan pada Layer 1 – Blending Option serta atur Outer Glow seperti tampak pada gambar.

dan hasilnya seperti gambar berikut :

Sekarang tahap akhirnya : klik kanan Layer 1 – Copy Layer Style, dan lanjutkan dengan klik kanan Layer 2 – Paste Layer Style.
Dan hasil akhirnya :

Read more »

LAGI… MEMBUAT BORDER MENGGUNAKAN PHOTOSHOP

Masih tentang membuat border.
Kali ini coretanlusuh berbagi bagaimana cara membuat border dengan cara yang lain.


Langsung ke TKP Sob…
Langkah 1.
Membuat Brush
Jalankan Photoshop sobat dan buatlah sebuah file baru dengan ukuran 200x200 pixel.

Berikut, atur Foreground warna hitam dan background warna putih.

Lanjutkan dengan klik Shape Tool dan pilih Custom Shape Tool dan pilihlah obyek yang akan dibuat brush sesuai keinginan sobat (sebagai contoh saya memilih gambar kupu-kupu).

Kemudian klik Edit – Define Brush Preset.

Membuat brush selesai.
Langkah 2.
Buka sebuah gambar yang akan dibuatkan border.

Langkah 3.
Buat Layer baru (Layer 1) dan berilah warna putih pada layer baru

Langkah 4.
Klik Layer 1 dan seleksi menggunakan Rectangular Marquee Tool (tekan tombol M pada keyboard) dan seleksilah layer 1 seperti pada gambar berikut :

Kemudian tekan tombol Delete pada keyboard dan hasilnya seperti gambar berikut :

Berikut, klik Select – Modify – Expand kemudian isikan nilai 25 dan klik OK.
Pada Panel Layer klik Create New Fill or Adjustment Layer dan pilih Solid

Lanjut dengan klik Filter – Blur – Gaussian Blur… dan isikan nilai 40 pixel – OK.

Langkah 5.
Klik pallete Paths (1) kemudian klik Make Work Path From Selection (2).

Lanjut…..
Klik Brush Tool dan pilih brush yang sobat buat di awal tutorial ini.
Jika sudah lanjutkan dengan menekan tombol F5 pada keyboard sobat dan hasilnya tampak seperti gambar berikut :

Lanjut lagi….
Klik Shape Dynamics dan atur seperti gambar berikut :

Kemudian atur juga Scaltering menjadi :

Langkah 6.
Tahap Akhir….
Tutup dulu kotak dialog pengaturan brush tool (klik Windows – Brush).
Jika sudah, klik Stroke Path with Brush.

Maka hasil akhirnya seperti gambar berikut :

Dan sobat juga bisa memberi warna seperti gambar berikut :

Technorati Tags: Tutorial Photoshop,Dasar Photoshop,Photoshop Dasar,Efek Photoshop,Petujuk,Sinau,Belajar,E-Learning

Read more »