Selasa, 30 November 2010

EDIT VIDEO 2 with Adobe Premier Pro

Memiringkan Video dan memburamknya

Potong video sesuai durasi yang anda inginkan
Double  klik video tersebut
Pada effect control bagian atur skala Rotation dengan memutar skala yang sudah tersedia atur kemiringanyasesuai keinginan anda
Memburamkan  video yaitu dengan mengurangi nilai Opacity yang tersedia di effect control

Memberi suara tmbahan

Anda tinggal insert sura atau musik yang ingin anda tambahkan  yang sudah anda di form file project jika belum anda tinggal import (file –Import)
Sama seperti awal klik kana insert  atau darak gunakn Movie tool untuk mengatur posisi Audio yang ingin anda perdengarkan
Padaa Audio mixer anda bisa mengatur  volume dan balance suara/musik. 


Mengatur Audio 
Memberi effect audio
>Anda tinggal klik tab Effect  pada form project
>Pilih effect suara yang anda inginkan
>Jika Audio mono maka pakai effect Mono
>Jika Audio Stereo maka pakai effect Stereo
>Tarik jins effect ke Audio yang ingi di beri effect
>Dan atur kembali effect tersebut pada monitor effcet control.

Effect Audio
Menyipan U/ Menconvert Video
Langkahnya adalah :
File Export

ØMovie (menimpan video format “avi”
ØFremi (mengambil  foto di video yang di pilih)
ØAudio (mengambil Suaranya saja dengan format “Wav”)
ØExport to Tape
ØAdobe Media Enconder
ØExport to DVD


Adobe Media Enconder
 Pada media enconder ini anda bisa menconvert  video anda  jika anda ingi hasil video anda MPG, WMP, MPEG, dan AVI
>Contih gambar diatas adalah saya mengonvertnya ke bentuk MPG atau format VCD
>Anda bisa ngatur Ukuran Video dan Jumlah Fremi perdetik dan juga format Audionya
>Kemudiak klik OK – ketik nama video dan tentukan lokasi penyimpanan video – Save

>Tunggu sampai proses Rendering selesai
Rendering
Selesai

MENGEDIT VIDEO with Adibe Premier Pro


Aktifkan Adobe Premier Pro nya suada anda instal.
Klik New Project
Tentukam mode video nya apakah DV NTC atau DV PAL
Atur lokasi penyimpanan project anda dengan mengklik tombol Browse
Ketik juga Nama Project anda terus -OK


Memasukkan file
File – Import –Pilih (Ctrl + I) pilih file-file video, music dan foto yang ingin anda edit menjadi vodeo yang menarik
Masukakn video ke Time Line dengan cara clik kana video nya memudian pilih insert atau dengan cara mendarak (menarik) ke Timeline
Dan susun video,gambar atau musik yang ingin kita jadikam backgsound pada baris-baris Timeline anda bisa melapis beberapa video
Window Adobe Premier Pro

Memberi Effect Video & Transition

¡Pada jendela Project clik tab Effect maka akn muncul junis effect yang disediakan Adobe
§Audio Effect (Untuk effek suara)
§Audio Transition(effek persambungan suara)
§Video Effect (pemberin effek gambar)
§Video Transition(effek persambungan gambar atau effek memunculkan dan akhir video)
§Pilih jenis effek yang anda perlukan dan drak ke video atau audio  yang ingin di beri effet
Menyeting effet

¡Jika effek sudah terpasang anda tinggal mensetingnya di jendela Monito clik tab Effect Control
Misalkan effek reveb pada suara

Membuat effect title

¡Tekan tombol F9 padakeybord maka akan muncul tampilan title disener
dan untuk menggunakan templet yang sudah ada tekan tombol templet atau (Ctrl +J)

Kemudi ketik titlenya sesuai pola yang anda pilih tadi dan anda bisa merunahnya sengan tool yang disediakan Titile deigner dan anda bisa menabahkan tulisan lagi dengan menggunakan tool Type Tool danSelectoin tool untuk memidahkannya

Jika anda sudah merasa sempurna anda tinggal closse dan akan muncul petanya apakah anda ingin mensave pilih “Yes” tentukan loksi penyimpanan dan “Save”
Kemudian letakan titlel tadi pada posisi yang ingin anda tampilkan dan agar tampak menarik tambahkan effek Video Transotion pada kedua ujung title
Effect Transition yang di padang pada title dan video
Menampilkan  2 video sekaligus..!
 
Menampilkan  2 video sekaligus..!
Potong video yang ingi kita edit dengan Razor tool sesuai durasi waktu ang anda inginkan

Double klik potongan tersebut akan muncul di monitor effect control untuk megatur lebar anda bisa gunakan Scale With dengan menghilangkan conteng pada Uniform Scale
Scale hight  untuk mengatur tingginya
Jangan lupa atur posisinya dengan  mengatur nilai Anchor point


Memiringkan Video dan memburamknya

Potong video sesuai durasi yang anda inginkan

Double  klik video tersebut
Pada effect control bagian atur skala Rotation dengan memutar skala yang sudah tersedia atur kemiringanyasesuai keinginan anda
Memburamkan  video yaitu dengan mengurangi nilai Opacity yang tersedia di effect control Selanjutnya

MENGEDIT VIDEO dengan adobe.ppsx

Senin, 29 November 2010

MEREKAN DAN MENGEDIT LAGU



MEREKAM LAGU

Pilih menu file

New maka akan muncul kotak dialog New Wafeform

Atur Sample Rute, chanel, Resolution
 


    


Pilih menu Option 
 Pilih Windows Recording Mixer
 Tool Yang digunakan
 Click tombol record maka mulai lah merekam
 Nah…!
Jika sadah selesai merekmnya lngkah berikutnya adalah tahapan pengeditan
 Jika ada bagian yang perlu dihpus adan blok bagian yang ingin di hapus kemudian tekan tombol Delete
 
Pemberian Effect Suara

Jika anda ingin menggandakan bagian bagian tertentu anda tinggal mengCopy dan paste ke lokasi yang ingin di  gandakan

Atur Format chanal suara sesuai keinginan anda
 Mengeraskan Suara hasil rekaman
Terkadang rekaman kita suaranya agak pelan tentu kita ingin volumenya lebih keras lagi caranya

anda tinggal blok bagian yang ingin di keraskan

Pilih menu Effects – Amplitude –Normalize

Pada Normalize to atur persentasi-nya sesuai keinginan anda
 

 Memberi Effect Echo
Pilih menu Effects –Delay Effects- Echo

Maka Akan Muncul Kotak dialog

Kalau anda bingung menseting secara manual anda bisa memilih format setingan yang sudah tersedia pada colom Presents


Misalkan saja format Taj Mahal

   maka gema suara yang dihasilkanya seperti anda berada di sana.

Pemberian Label Pada rekaman Anda 
}Pilih menu View- Wave Propertis (Crtl+P)

}Isikan kolom yang sudah di sediakan
Menyimpan File
Pilih menu File – Save As

}Tentukn lokasi penyimpana

}Pilih format Audio yang anda inginkan
 
 
              Selesai
 Selamat Mencoba
Hidayatul Rahman @ http://edukasi-informatika.blogspot.com
 
 
MEREKAM & MENGEDIT LAGU.ppsx
MEMBUAT JINGLE IKLAN.ppsx

Minggu, 28 November 2010

BUKU DIGITAL MASADEPAN


Kalo di baca dari judil program tentu sangat luar biasa padahal program ini hanya menggunakan alur logika sederhana yaitu perintah menampilkan saja yang digunakan tidak ada logika aritmatika mari kita ikuti alur pembuatanya
1. Buatlah rancangan From seperti ini atau sesuai inovasi anda sendiri


2. TooL yang saya gunakan adalah sebagai berikut :


3. agar tampilanya menarik anda perlu tambahkan Background di from nya dengan cara

Caranya :
1.Select Form
2.Pada bagian Propertis Pilih “Picture”
3.Click Tombol di Ujungnya
4.Pilih Gambar yang akan anda jadikan beckground
5.OK

















Hasilnya akan anda lihat seperti gambar berikut



Setelah itu pengisian koding

double clik pada tombol Buka isikan koding di bawah  ini

Private Sub CmdBuka_Click()
If CmdBuka.Caption = "Buka" Then
ListData.Refresh
ListData.Text = ""
ListData.Clear
CmdBuka.Caption = "Tutup"
ListData.Visible = True
Else
CmdBuka.Caption = "Buka"
ListData.Refresh
ListData.Text = ""
ListData.Visible = False
End If
End Sub

Private Sub CmdContak_Click()
ListData.AddItem "JARINGAN INFORMASI UKM-PADUAN SUARA"
ListData.AddItem ""
ListData.AddItem "psu_bjm@yahoo.com"
ListData.AddItem ""
ListData.AddItem "http://psu-bjm.blogspot.com"
ListData.AddItem ""
ListData.AddItem "http://twitter.com/ukmpsu"
ListData.AddItem ""
ListData.AddItem "Facebook = Paduan Suara Uniska"
ListData.AddItem ""
ListData.AddItem "JL. Adhyaksa No.2 Kayu Tangi banjarmasin"
ListData.AddItem"========================================================"
End Sub

Private Sub CmdKegiatan_Click()
ListData.AddItem "KEGIATAN YANG DILAKSANAKAN"
ListData.AddItem ""
ListData.AddItem "1.  Mengisi acara Orentasi Mahasiswa Baru"
ListData.AddItem "2.  Mengisi acara Wisuda"
ListData.AddItem "3.  Mengadakan latihan Vocal di Karang Intan (Martapura)"
ListData.AddItem "4.  Mengadakan Acara Lomba Vocal Group Kemerdekaan (LVGK) "
ListData.AddItem "6.  Menyelenggarakan Buka Puasa Bersama "
ListData.AddItem "7.  Mengisi acara undangan dari luar."
ListData.AddItem "8.  Mengadakan Latihan Bulanan"
ListData.AddItem ""
ListData.AddItem"============================================================="
End Sub

Private Sub CmdLagu_Click()
ListData.AddItem "HYMNE UNISKA"
ListData.AddItem ""
ListData.AddItem " Kami civitas akademika uniska"
ListData.AddItem " Bersimpuh munajat kehadiratmu"
ListData.AddItem " Hidup suburkan uniska"
ListData.AddItem " Mamur sejahterakan bangsa"
ListData.AddItem ""
ListData.AddItem "   Di-haribaamu kami berjanji"
ListData.AddItem "   Junjung tinggi martabat uniska"
ListData.AddItem ""
ListData.AddItem " Padukan iman dan ilmu "
ListData.AddItem " Dalam karya nyata (2x)"
ListData.AddItem ""
ListData.AddItem ""
ListData.AddItem "       MARS UNISKA"
ListData.AddItem ""
ListData.AddItem "         Kami mahasiswa uniska"
ListData.AddItem "         Bersama penerus cita pahlawan "
ListData.AddItem "         Berderap maju seirama"
ListData.AddItem "         Demi pembangunan bangsa"
ListData.AddItem ""
ListData.AddItem "           Wahai putra putri pertiwi "
ListData.AddItem "           Satukan derap langka kita semua"
ListData.AddItem "           Bina manusia Indonesia"
ListData.AddItem "           Dan seluruh masyarakatnya"
ListData.AddItem ""
ListData.AddItem "        Dengan jiwa pancasila"
ListData.AddItem "        Dan semangat enpat lima"
ListData.AddItem "        Tinggkatkan pengapdian "
ListData.AddItem "        Tri darma"
ListData.AddItem ""
ListData.AddItem "           Cerdas sejahtrakan bangsa  (2x)"
ListData.AddItem ""
ListData.AddItem"============================================================"

End Sub

Private Sub CmdMisi_Click()
ListData.AddItem "MISI PADUAN SUARA UNISKA"
ListData.AddItem ""
ListData.AddItem "1.  Terus menciptakan wahana-wahana reset dan eksperimen dalam rangka pengembangan "
ListData.AddItem "    IPTEK khususnya seni dan kebudayaan daerah yang ada di Indonesia khususnya "
ListData.AddItem "    kalimantan selatan."
ListData.AddItem ""
ListData.AddItem "2.  Memberikn Kesempatan seluas-luasnya kepada seluruh mahasiswa UNISKA yang ingin "
ListData.AddItem "    bergabung dalam organisasi ini untuk berpartisipasi dalam kegiatan-"
ListData.AddItem "    kegiatan yang akan dilakukan."
ListData.AddItem ""
ListData.AddItem ""
ListData.AddItem"========================================================="
End Sub

Private Sub CmdPelopr_Click()
ListData.AddItem "NAMA PELOPOR BERDIRINYA PADUAN SUARA UNISKA"
ListData.AddItem ""
ListData.AddItem "1.  Rahmadi, S.Sos "
ListData.AddItem ""
ListData.AddItem "2.  Musrifani, S.Pd."
ListData.AddItem ""
ListData.AddItem "3.  Muslim Rahmad, S.Sos."
ListData.AddItem ""
ListData.AddItem "4.  Herlianor Pahdi, S.Pd."
ListData.AddItem ""
ListData.AddItem "5.  Mahyuni, S.Sos."
ListData.AddItem ""
ListData.AddItem "6.  Hendra W, S.Sos."
ListData.AddItem ""
ListData.AddItem "7.  Abdi Permana, S.Sos."
ListData.AddItem ""
ListData.AddItem"===================================================="
End Sub

Private Sub CmdSejarah_Click()
ListData.AddItem "SEJARAH SINGKAT"
ListData.AddItem ""
ListData.AddItem "Suatu lembaga atau instansi  biasanya mempunyai suatu kegiatan formal, dalam kegiatan "
ListData.AddItem "formal tersebut  terkadang diwajibkan untuk menyanyikan (mengumandangkan) lagu -lagu "
ListData.AddItem "wajib nasional dan  lagu -lagu wajib organsasi atau lembaga yang mengadakan acara tesebut."
ListData.AddItem ""
ListData.AddItem "Sama halnya dengan universitas islam Kalimantan Muhammad Arsyad Al-Banjary Banjarmasin "
ListData.AddItem "yang mengadakan suatu acara-acara  formal, seperti, OSPEK,  Yudisium dan Wisuda Sarjan  yang "
ListData.AddItem "mewajibkan dalam acara prosesi tersebut menynyikan (mengumandangkan) lagu wajib nasional "
ListData.AddItem "dan jga Lagu Mars & Hymne UNISKA."
ListData.AddItem ""
ListData.AddItem "Maka itu, dibentuk suatu organisasi kemahasiswaan dalam bentuk Unit Kegiatan Mahahsiswa  "
ListData.AddItem "(UKM) yang dinamakan UKM Paduan suara Uniska yang dibentuk pada tanggal  11November "
ListData.AddItem "2003 dengan surat keputusan Rektor No. 01/KEP/UNISKA/M.6/1/2004."
ListData.AddItem ""
ListData.AddItem "==========================================================="
End Sub

Private Sub CmdTujuan_Click()
ListData.AddItem "TUJUAN PADUAN SUARA UNISKA"
ListData.AddItem ""
ListData.AddItem "Tujuan dibentuknya Unit Kegiatan Mahasiswa ini ditujukan untuk para mahasiswa yang "
ListData.AddItem "berkeinginan untuk menyalurkan bakat menyanyi mereka melalui wadah ini"
ListData.AddItem ""
ListData.AddItem "Bukan hanya untuk menyalurkan bakat, tetapi juga untuk regenerasi  paduan suara nantinya "
ListData.AddItem "yang terorganisir dan bisa membawa nama harum UNISKA nentinya.  "
ListData.AddItem ""
ListData.AddItem ""
ListData.AddItem"============================================================="
End Sub

Private Sub CmdVisi_Click()
ListData.AddItem "VISI PADUAN SUARA UNISKA"
ListData.AddItem ""
ListData.AddItem "1.  Menjadi media kegiatan mahasiswa dalam berorganisasi yang baik dan bermanfaat "
ListData.AddItem "    secara langsung kepada masyarakat kampus UNISKA dan juga sebagai media regenerasi "
ListData.AddItem "    untuk masyarakat kampus UNISKA dalam hal seni khususnya dalam dunia tarik suara "
ListData.AddItem "    (Paduan Suara)."
ListData.AddItem ""
ListData.AddItem "2.  Menjadi saran Aktualisasi dan pengembangan  kemampuan mahasiswa UNISKA. "
ListData.AddItem "    Terutama dalam seni khususnya dalam dunia tarik suara (Paduan Suara), kemampuan "
ListData.AddItem "    berorganisasi dll."
ListData.AddItem ""
ListData.AddItem "3.  Menjadi media pendidikan  (Berorganisasi)  dan kebudayaan (seni), terutama dalam hal "
ListData.AddItem "    pemberdayaan kemampuan seni  tarik suara (Paduan Suara) di kampus Uniska."
ListData.AddItem ""
ListData.AddItem "4.  Menjadi Akselator pengembangan IPTEK khususnya seni dan kebudayaan daerah "
ListData.AddItem "    (Khususnya Kalimantan Seatan) untuk kampus UNISKA. "
ListData.AddItem ""
ListData.AddItem"======================================================="
End Sub

Private Sub Command1_Click()
x = MsgBox("Anda Yakin Mau Keluar", vbQuestion + vbYesNo, "")
    If x = vbYes Then
        End
        Exit Sub
    End If
End Sub

Private Sub Form_Load()
'Menegahkan form di tengah- tengah layar
FrmSejarah.Top = (Screen.Height - Height) / 2
FrmSejarah.Left = (Screen.Width - Width) / 2
End Sub