BUAT SENDIRI ALARM MENGGUNAKAN MACROMEDIA FLASH 8

Tutorial BUAT SENDIRI ALARM MENGGUNAKAN MACROMEDIA FLASH 8 ini saya kembangkan dari tutorial saya yang terdahulu dengan judul CARA MEMBUAT JAM ANALOG.

Untuk membuat tutorial ini silahkan sobat baca langkah-langkah berikut ini :

Langkah 1. Pada dokumen flash baru sobat dan buatlah 5 buah Layer dan beri nama masing-masing Layer dengan nama seperti pada gambar berikut :

clip_image002

Langkah 2. Klik Frame 1 Layer “latar” dan masukkan image jam analog sesuai keinginan sobat.

clip_image004

Klik Frame 1 Layer “jrm_jam” dan buatlah sebuah jarum jam menggunakan Line Tool dengan ketebalan garis silahkan sobat sesuaikan.

clip_image006

Klik Frame 1 Layer “jrm_menit”, buatlah sebuah jarum jam menggunakan Line Tool dengan ketebalan garis silahkan sobat sesuaikan.

clip_image008

Klik Frame 1 pada Layer “jrm_detik”, buatlah sebuah jarum jam menggunakan Line Tool dengan ketebalan garis silahkan sobat sesuaikan.

clip_image010

Lanjut….

Silahkan convert masing-masing jarum jam dengan cara menekan tombol F8 dan atur hingga menjadi seperti gambar berikut :

clip_image012

Untuk instance name beri nama jrm_jam

clip_image014

clip_image016

Untuk instance name beri nama jrm_menit

clip_image018

clip_image020

Untuk instance name beri nama jrm_detik

clip_image022

Jika sudah, tumpuklah gambar jarum jam seperti gambar berikut :

clip_image024

Langkah 3. Klik Frame 1 Layer “Alarm” dan buatlah 2 buah kotak menggunakan Static Text

clip_image026

clip_image028

Langkah 4. Klik Edit – Select All kemudian lanjutkan dengan menekan F8 dan hasilnya seperti gambar berikut :

clip_image030

clip_image032

Langkah 5. Tekan F9 untuk mengaktifkan Action Script dan tuliskan script berikut :

  1. onClipEvent(enterFrame){
  2. MyDate = new Date();
  3. hour = MyDate.getHours();
  4. minute = MyDate.getMinutes();
  5. second = MyDate.getSeconds();
  6. rotasijrm_jam=hour*30;
  7. rotasijrm_menit=minute*6;
  8. rotasijrm_detik=second*6;
  9. if (jam>12) {
  10. hour -=12;
  11. }
  12. this.jrm_jam._rotation=rotasijrm_jam;
  13. this.jrm_menit._rotation=rotasijrm_menit;
  14. this.jrm_detik._rotation=rotasijrm_detik;
  15. }

Langkah 6. Tambahkan Layer baru dan beri nama “sound” pada layer baru.

clip_image034

Klik kanan Frame 2 Layer “alarm” – Insert Frame, kemudian lanjutkan dengan klik kanan Frame 2 Layer “sound” – Insert Blank Keyframe.

clip_image036

Klik Frame 1 Layer “sound”, kemudian ketikkan script : stop();

Klik Frame 2 Layer “sound” dan lanjutkan dengan memasukkan suara alarm dengan cara klik File – Import to Library…,

clip_image038

Pada kotak dialog Import to Library tentukan lagu yang sobat inginkan.

Masih di Frame 2 Layer “sound”, buka property dan pada tab sound ganti dengan pilihan lagu yang sobat inginkan.

clip_image040

Langkah 7. Tambahkan Action Script berikut :

  1. onClipEvent (enterFrame) {
  2. if(jam==hour and menit==minute){
  3. _root.gotoAndStop(2);
  4. }else{
  5. _root.gotoAndStop(1);
  6. }
  7. }

Perhatikan gambar berikut :

clip_image042

o…ya, jika kurang jelas silahkan sobat download file latihannya disini

 

 

BUAT SENDIRI SOFTWARE PENERIMAAN SISWA BARU

(BELAJAR VB 6)

Posting kali ini kita akan membuat aplikasi program penerimaan siswa baru (PSB) dengan dilengkapi fitur foto siswa.

Untuk lebih jelasnya silahkan sobat simak tutorial berikut :

Step 1 : buatlah database menggunakan ms. Office Access seperti contoh berikut :

image

Step 2 : Jalankan VB6 sobat dan pada project baru pilihlah VB Enterprise Edition Control.

image

dan lanjutkan dengan membuat desain seperti gambar berikut :

image

Oh…ya….. tambah juga dua buah komponen lagi, yakni ADODC dan CommonDialog.

image

Step 3 : Buatlah module koneksi dengan cara klik Project – Add Module

image

Pada kotak dialog Module tuliskan code berikut :

Global conn As ADODB.Connection
Global rspsb As ADODB.Recordset
Sub koneksi()
On Error GoTo gagal:
Set conn = New ADODB.Connection
conn.Provider = "microsoft.jet.oledb.4.0"
conn.CursorLocation = adUseClient
conn.Open App.Path & "\DbPSB.mdb"
Exit Sub
gagal:
If (Err.Number = -2147467259) Then
MsgBox "Koneksi Aplikasi Ke Database Gagal...!", vbCritical, "Informasi"
End
End If
End Sub

image

Step 4 : klik 2x pada Form dan tuliskan code berikut diantara Private Sub Form_Load() dan End Sub, code ini berfungsi untuk memanggil fungsi module :

koneksi

dan lanjutkan dengan dengan menuliskan code berikut tepat dibawah code koneksi yang berfungsi untuk mengaktifkan ComboBox Kelamin dan ComboBox Agama :

cmbKelamin.AddItem "Laki-Laki"
cmbKelamin.AddItem "Perempuan"
cmbAgama.AddItem "Islam"
cmbAgama.AddItem "Kr. Protestan"
cmbAgama.AddItem "Kr. Katolik"
cmbAgama.AddItem "Hindu"
cmbAgama.AddItem "Budha"

image

Step 5 : Buatlah sebuah code untuk membersihkan form dan mengembalikan kondisi form dalam keaadaan awal. Caranya klik 2x form dan letakkan code berikut ini di tempat kosong pada form. Code ini saya beri nama "kosongkanform".

Private Sub kosongkanform()
txtNama.Text = ""
txtNis.Text = ""
cmbKelamin.Text = ""
txtTmp.Text = ""
cmbAgama.Text = ""
txtStatus.Text = ""
txtAnak.Text = ""
txtSaudara.Text = ""
txtSasal.Text = ""
txtNama.Enabled = True
cmdSimpan.Enabled = True
cmdEdit.Enabled = False
cmdHapus.Enabled = False
cmdCari.Enabled = False
End Sub

image

Step 6. Untuk mencari dan menampilkan foto masukkan code berikut dengan cara klik 2x tombol “Cari Foto” dan masukkan code diantara Private Sub cmdCari_Click() dan End Sub.

CommonDialog1.Filter = "Picture files (*.jpg;*.bmp;*.gif;*.png)|*.jpg;*.bmp;*.gif;*.png"
CommonDialog1.ShowOpen
Image1.Picture = LoadPicture(CommonDialog1.FileName)
Image1.Visible = True

image

Step 7. Klik 2x txtNama.text, kemudian pada pilihlah mode “KeyPress”

image

Dan lanjutkan dengan menuliskan code berikut :

Private Sub txtNama_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Set rspsb = New ADODB.Recordset
rspsb.LockType = adLockOptimistic
rspsb.CursorType = adOpenDynamic
rspsb.Open "select * from nis", conn, , , adCmdText
rspsb.Filter = " Nama= '" & txtNama.Text & "'"
If Not rssiswa.EOF Then
cmdSimpan.Enabled = False
cmdEdit.Enabled = True
cmdHapus.Enabled = True
Image1.Visible = True
txtNama.Enabled = False
txtNis.Text = rspsb.Fields(1)
cmbKelamin.Text = rspsb.Fields(2)
txtTmp.Text = rspsb.Fields(3)
DTPicker1.Value = rspsb.Fields(4)
cmbAgama.Text = rspsb.Fields(5)
txtStatus.Text = rspsb.Fields(6)
txtAnak.Text = rspsb.Fields(7)
txtSaudara.Text = rspsb.Fields(8)
txtSasal.Text = rspsb.Fields(9)
CommonDialog1.FileName = rspsb.Fields(10)
Image1.Picture = LoadPicture(CommonDialog1.FileName)
If CommonDialog1.FileName = "" Then
Else
End If
End If
End If
End Sub

Step 8. Klik 2x tombol Simpan (cmdSimpan) dan tuliskan code berikut :

Dim X
If txtNama.Text = "" Or txtNis.Text = "" Or cmbKelamin.Text = "" Or _
txtTmp.Text = "" Or DTPicker1.Value = "" Or cmbAgama.Text = "" Or _
txtStatus.Text = "" Or txtAnak.Text = "" Or txtSasal.Text = "" Then
MsgBox "Data Belum Lengkap", vbInformation, "Pesan"
Exit Sub
Else
X = MsgBox("Apakah Data Ingin Disimpan...?", vbQuestion + vbYesNo)
If X = vbYes Then
Set rspsb = New ADODB.Recordset
rspsb.LockType = adLockOptimistic
rspsb.CursorType = adOpenDynamic
rspsb.Open "SELECT * FROM siswa", conn, , , adCmdText
rspsb.AddNew
rspsb.Fields(0) = txtNama.Text
rspsb.Fields(1) = txtNis.Text
rspsb.Fields(2) = cmbKelamin.Text
rspsb.Fields(3) = txtTmp.Text
rspsb.Fields(4) = DTPicker1.Value
rspsb.Fields(5) = cmbAgama.Text
rspsb.Fields(6) = txtStatus.Text
rspsb.Fields(7) = txtAnak.Text
rspsb.Fields(8) = txtSaudara.Text
rspsb.Fields(9) = txtSasal.Text
rspsb.Fields(10) = CommonDialog1.FileName
rspsb.Update
MsgBox "Data Tersimpan...!", vbInformation, "Pesan"
kosongkanform
Image1.Visible = False
Else
Exit Sub
End If
End If

image

Step 9. Klik 2x tombol Edit (cmdEdit) dan tuliskan code berikut :

Dim a
a = MsgBox("Edit Data...?", vbQuestion + vbYesNo, "Pesan")
If a = vbYes Then
rspsb.Fields(1) = txtNis.Text
rspsb.Fields(2) = cmbKelamin.Text
rspsb.Fields(3) = txtTmp.Text
rspsb.Fields(4) = DTPicker1.Value
rspsb.Fields(5) = cmbAgama.Text
rspsb.Fields(6) = txtStatus.Text
rspsb.Fields(7) = txtAnak.Text
rspsb.Fields(8) = txtSaudara.Text
rspsb.Fields(9) = txtSasal.Text
rspsb.Fields(10) = CommonDialog1.FileName
rspsb.Update
MsgBox "Data Berhasil Di Edit..!!", vbInformation, "Info"
kosongkanform
txtNama.SetFocus
Image1.Visible = False
Else
Exit Sub
End If
Step 8. Klik 2x tombol Hapus (cmdHapus) dan tuliskan code berikut :
Dim Y
Y = MsgBox("Apakah Data Ingin Dihapus..?", vbQuestion + vbYesNo)
If Y = vbYes Then
rspsb.Delete
MsgBox "Data Berhasil Dihapus..!!", vbInformation, "info"
kosongkanform
txtNama.SetFocus
Else
Exit Sub
End If

image

Step 10. Klik 2x tombol Hapus (cmdHapus) dan tuliskan code berikut :

Dim Y
Y = MsgBox("Apakah Data Ingin Dihapus..?", vbQuestion + vbYesNo)
If Y = vbYes Then
rspsb.Delete
MsgBox "Data Berhasil Dihapus..!!", vbInformation, "info"
kosongkanform
txtNama.SetFocus
Else
Exit Sub
End If

image

Step Terakhir. Klik 2x tombol Tutup (cmdTutup) dan masukkan code berikut :

Dim X
X = MsgBox("Apakah Anda Ingin Keluar..?", vbQuestion + vbYesNo, App.Title)
If X = vbYes Then
Unload Me
Else
Cancel = 1
End If

image

 

Yup….. aplikasi sudah selesai.

Buat sobat yang ingin download source codenya silahkan klik disini….

 

 

MENEMPELKAN GAMBAR PADA T-SHIRT MENGGUNAKAN PHOTOSHOP

Tutorial Photoshop kali ini saya beri judul “menempelkan gambar pada t-shirt menggunakan Photoshop”.
clip_image002
Sebelumnya, silahkan sobat download bahan bakunya disini :
T-Shirt, download disini
Gambar artis, download disini
Langkah 1.
Jalankan photoshop sobat dan buka file T-Shirt dan gambar artis yang sobat download.
clip_image004
Langkah 2.
Pindahkan gambar artis ke gambar T-Shirt dengan menggunakan Movie Tool, kemudian kecilkan gambar menggunakan Free Transform (Ctrl + E).
clip_image006
Langkah 3.
Atur Opacity layer 1 (gambar artis) menjadi 50%.
clip_image008
clip_image010
Langkah 4.
Atur Foreground Colour dengan warna hitam (#000000) dan Background Colour warna putih (#ffffff)
clip_image012
Jika sudah, klik Layer Mask…..
clip_image014
clip_image016
Lanjutkan dengan klik Brush Tool dan mulai sapukan brush di bagian tepi gambar T-Shirt hingga hasilnya tampak seperti gambar berikut :
clip_image018
clip_image019
Atur bagian gambar Artis menggunakan Warp (Edit – Transform – Warp) dan sesuaikan dengan lengkungan t-shirt.
clip_image021
Langkah 5.
Atur Opacity kembali menjadi 100% dan atur Blending Mode menjadi Linear Burn
clip_image023
Dan hasil akhirnya seperti gambar berikut :
clip_image002[1]

 

KACA PECAH (PLUGINS PHOTOSHOP)

clip_image002
Dengan plugins Kaca Pecah (broken glass) ini diharapkan sobat tidak lagi bingung untuk membuat efek kaca pecah.
Untuk efek kaca pecah ini silahkan sobat download disini.


 
 
Support : Creating Website | Johny Template | Mas Template
Copyright © 2011. ingin berbagi - All Rights Reserved
Template Created by Creating Website Published by Mas Template
Proudly powered by Blogger