Kamis, 29 November 2012

Pertemuan Keenam

 cara membuat pemutar musik sederhana dengan delphi.
Kita mulai saja langkah-langkah atau cara untuk membuat pemutar musik yang sangat sederhana ini:
  1. Buka aplikasi Delphi dan buatlah satu Form Baru (Form 1).
  2. Menyiapkan kebutuhan Komponen yang akan dipakai:
  • Komponen Button ( pada halaman Tab Standard, sebanyak 1 buah)
  • Komponen MediaPlayer ( pada halaman Tab System, sebanyak 1 buah)
  • Komponen ProgressBar ( pada halaman Tab Win32, sebanyak 1 buah)
  • Komponen Timer ( pada halaman Tab System, sebanyak 1 buah)
  • Komponen OpenDialog (pada halaman Tab Dialogs, sebanyak 1 buah)
Semua komponen diletakkan dalam sebuah form, untuk peletakannya sesuai dengan selera masing-masing. :P Jika semua komponen sudah lengkap, kira-kira seperti ini tampilannya :
Tampilan Awal Pemutar Musik
Tampilan Awal Pemutar Musik
3. Klik pada Form1. Ada beberapa properties yang perlu kita ubah. Langsung menuju object inspector :
Properties Yang diubah
Caption PemutarMusiksederhana
Color clPurple
Tampilan Object Inspetor Form1
4. Kemudian kita klik dan aturlah untuk Komponen Button1 sebagai berikut:
Properties Yang diubah
Caption &Buka file MP3….
5. Klik pada Komponen MediaPlayer1 dan atur pula untuk Komponen MediaPlayer1 sebagai berikut:
Properties Yang diubah
VisibleButton Beri nilai false pada (btNext, vtPrev, btRecord, dan btEject)
Klik pada Komponen OpenDialog1 dan isikan properties pada filter dan isikan pada filter editornya. Lihat gambar dibawah.
 Filter Editor Delphi
Kemudian pilih OK. Sekedar memberitahukan setelah melalui beberapa tahapan, tampilan akan menjadi seperti di bawah.
Tampilan Pemutar Musik  Setelah diedit
Bagaimana, temans? ;) . Yuuuuuk, kita lanjut dan ke codingnya. :)
7. Sebelum masuk coding, terlebih dahulu kita kenalkan untuk variablenya pada Om Delphiano. Variable yang dipakai:
1Mp3Path: String;
2Paused: Boolean;
Tentunya sudah tau kan, mengapa saya deklarasi variablenya seperti di atas? Jika ingin belajar tentang variable pada Delphi, bisa dibara pada catatan yang ini.
8. Setelah mengenalkan variabel, sekarang kita dobel klik pada Form1 dan tulis kode dibawah:
1procedure TForm1.FormCreate(Sender: TObject);
2
3begin
4  paused:=false;
5  MediaPlayer1.Enabled:=False;
6  Form1.Top:=(Screen.Height-Form1.Height)div 2;
7  Form1.Left:=(Screen.Width-Form1.Width)div 2;
8end;
9. Arahkan kursor pada komponen MediaPlayer1, dobel klik dan tulis kode sperti dibawah:
01procedure TForm1.MediaPlayer1Click(Sender: TObject; Button: TMPBtnType;
02  var DoDefault: Boolean);
03begin
04if Button = btStop then
05begin
06  MediaPlayer1.Position:=0;
07  ProgressBar1.Position:=0;
08end
09  else if Button = btStep then
10begin
11if ((MediaPlayer1.Position+5000)<=MediaPlayer1.Length) then
12  MediaPlayer1.Position:=MediaPlayer1.Position+5000
13else
14begin
15  MediaPlayer1.Position:=0;
16  ProgressBar1.Position:=0;
17end;
18  MediaPlayer1.Play;
19end
20else if Button = btBack then
21begin
22if ((MediaPlayer1.Position-5000)>0) then
23  MediaPlayer1.Position:=MediaPlayer1.Position-5000
24else
25  MediaPlayer1.Position:=0;
26  MediaPlayer1.Play;
27end;
28
29end;















        
 1. Dobel klik pada Timer1 dan tulis kode berikut:
01procedure TForm1.Timer1Timer(Sender: TObject);
02begin
03if MediaPlayer1.Enabled then
04begin
05  ProgressBar1.Position:=MediaPlayer1.Position;
06if ProgressBar1.Position=MediaPlayer1.Length then
07begin
08  MediaPlayer1.Stop;
09  ProgressBar1.Position:=0;
10  MediaPlayer1.Close;
11  MediaPlayer1.Enabled:=true;
12  MediaPlayer1.FileName:=Mp3Path;
13  MediaPlayer1.Open;
14  MediaPlayer1.Position:=0;
15  ProgressBar1.Max:=MediaPlayer1.Length;
16  ProgressBar1.Min:=0;
17end;
18end;
19end;
12. Maaf, ada yang lupa, tolong tambahin 1 Button lagi, Button ini berfungsi untuk menutup atau keluar dari aplikasi? ;) ubahlah untuk propertiesnya:
Properties Yang diubah
Caption &Keluar
Sisipkan kode di bawah untuk Button Keluar:
1procedure TForm1.Button2Click(Sender: TObject);
2begin
3  close;
4end;
5end.
Button Keluar merupakan komponen terakhir cara membuat pemutar musik sederhana dengan delphi. Sedangkan Codingnya cukup sampai di sini. Jangan lupa disimpan untuk semua yang sudah dibuat. Untuk projectnya disimpan dengan nama PMusik dan untuk Unitnya disimpan dengan nama UMusik. Baiklah, setelah semua disimpan sekarang saatnya menjalankan aplikasi dengan menekan tombol RUN yang ada pada menubar atau menekan tombol F9 pada keyboard. Dengan mengikuti langkah-langkah cara membuat pemutar musik sederhana dengan delphi, akan menghasilkan Pemutar Musik sederhana seperti di bawah ini:
  • Buka File MP3 yang akan di putar dengan cara, klik pada tombol Buka File MP3.
Buka File MP3
  • Pilih salah satu MP3 yang akan diputar. ;)
Plih Lagu
  • Nikmatilah lagu yang sudah dipilih. . . :lol:
Uji Aplikasi Pemutar Musik
Ini saya sedang mendengarkan lagu dari pemutar musik yang baru dibuat. Memang masih sederhana aplikasi ini, aplikasi sederhana ini saya namai VINCERIS. :lol:

Sabtu, 17 November 2012

Pertemuan Kelima

Pengenalan Design Form Delphi 7 – Latihan 1

Nah kalau kemaren kita udah kenalan sama IDE lembar kerja dari Delphi sekarang kita coba coba buat aplikasi pertama kita nich, sekalian belajar bikin tampilan design aplikasi berdasarkan pallete pallete standar di delphi dan sedikit codding programnya, so simple  tapi untuk hal awal kita mulai dengan yang sederhana sederhana dulu, monggo disimak ya.
Pada Kolom tab Di Borland Delphi Kita akan Buat satu Form Baru Buka Tampilan Form Dengan Memilih File -> New -> Form. Atau kalau kita membuka borland delphi pertama kali akan sudah keluar tuch formnya jadi tinggal mensavenya aja. Buat Direktori dimana temen temen semua bakal simpan semua materi materi kita nich. Misal Di Direktori Partisi D:/Belajar Borlan Delphi/Materi —> kita membuat di partisi D dengan Nama Belajar Borland Delphi dan didalam Direktori Borland Delphi kita buat lagi folder Materi. Awal yang harus kita kerjakan : Save Project dengan memilih File -> Save Project As -> Maka akan tampil jendela save :
Namun Jendela Save yang akan Keluar Pertama kali adalah bukan jendela Save Project Namun Save Unit Yakni Yakni File Unit / Form. Kita save Dulu Nama Form Pertama Kita Latihan_1.
Save Unit Kita dengan nama Latihan_1
Setelah Save Unit Kita dengan Nama Latihan_1, Maka Kita akan melihat Jendela Save Again dengan fungsi untuk menyimpasn File Project, yang akan kita buka terus dalam latihan dan materi materi kita kali ini, Kita Save dengan Nama Belajar Borland Delphi.
Simpan Dengan nama Belajar Delphi
Nah Setelah itu kita kan mulai latihan di awal ini. materi Pertama ini kita akan belajar mendesign Sebuat Form Aplication yang sudah kita save tadi. Buka File Unit / Form yang sudah kita panggil tadi. Buat lah Tampilan Form Sebagai Berikut :
Latihan 1 – Desain form
Penggunaan Objek Yakni EditBox dengan Button, Klik 1 Kali Ke Form untuk mensetting propertiesnya jika pada Object Inspector yang berada di sebelah kiri bawah sudah bertuliskan form1 maka kita bisa mengubah properties settingnya sebagai berikut :
Name : frm_latihan1 -> Untuk mengubah penamaan objek
Caption : Perkenalan Delphi 7 – Latihan 1 -> Untuk Mengubah tampilan tulisan di area atas form
Position : poDekstopCenter -> Agar Posisi Pada Saat Dijalankan berada Di tengah Layar Dekstop
_________________________________________________________________________________________
Kemudian Piliih Objek Edit Box dengan mengkliknya 1 kali dan mengganti Object Propertiesnya Sebagai Berikut :
Name : edit_perkenalan -> Untuk Mengubah penamaan dari Objectnya.
Text : ( hapus sehingga hasilnya kosong ) -> Agar Pada Saat tampil boxnya bernilai Kosong.
_________________________________________________________________________________________
Kemudian Piliih Objek Button dengan mengkliknya 1 kali dan mengganti Object Propertiesnya Sebagai Berikut :
Name : button_close -> Untuk mengubah penamaan Objectnya.
Caption : Close -> Untuk Mengubah Tampilan Kata Pada Button Tersebut.
_________________________________________________________________________________________
Nah Seteleh Design Tampilan dan Settingan Propertiesnya Sudah, sekarang kita akan membuat suatu coding dari applikasi pertama kita ini. Berikut Alur Logikanya pada saat kita buka aplikasinya maka editbox akan muncul tulisan text ‘ Perkenalkan Nama Saya Borland Delphi 7 ”.
klik 1 kali pada frm_latihan1 kemudian di object inspector kita pindah ke tab event dan klik 2 kali pada event / klik 2 x langsung pada frm_latihan1.
Nah Maka Akan Muncul tampilan Form Unit berikut :
procedure Tfrm_latihan_1.FormCreate(Sender: TObject);
begin
end;
-> diantara Begin dan end; kita buat coding untuk tampilan Textnya sebagai berikut :
procedure Tfrm_latihan_1.FormCreate(Sender: TObject);
begin
edit_perkenalan.text:=’Perkenalkan Nama Saya Borland Delphi 7′;
end;
berikut penjabarannya  :
kenapa kita berada pada event frm_latihan1.form Create karena logika yang akan kita buat ialah nanti tulisan akan muncul pada saat program dijalankan.
edit_perkenalan.text -> adalah tempat kita akan menaruh file text yang akan kita tampilkan, sementara .text merupakan format properties text yang akan kita isi.
:=’ Perkenalkan Nama Saya Borland Delphi 7′; -> := kode untuk menungjukkan nanti isinya adalah, sementara ‘Perkenalkan Nama Saya Borland Delphi 7′ adalah Text yang akan muncul pada saat program nanti jalan, dan ; merupakan penutup dari coding.
___________________________________________________________________________________________________
Kemudian Codding Berikutnya pada button_close, Klik 2 x atau pada object inspector event pilih OnClick, berikut coddingnya :
procedure Tfrm_latihan_1.button_closeClick(Sender: TObject);
begin
    close
end;
berikut Penjabarannya :
button_closeClick -> merupakan event yang akan berjalan jika kita mengclick prosedur tersebut maka codingnya akan berjalan.
close -> merupakan fungsi untuk keluar dari aplikasi pada saat sudah menjalankannya.
____________________________________________________________________________________________________
jika sudah kita bisa menjalankan Programnya, Pada Tab Run -> Run / langsung Pencet F9 Pada Keyboard Anda. Maka Akan tampil Form Ditengah Deskop dengan tampilan text Perkenalkan Nama Saya Borland Delphi 7 dan Kita bisa keluar dari aplikasi dengan mengklik button Close.
Hasil Aplikasi Pertama Yang Kita Buat
Nah Mungkin ini dulu Materi Belajar Delphi Kita Yang Pertama, Besok Besok Kita Bakal Buat Aplikasi lain dengan materi materi selanjutnya, tetap kunjungi Blog ini ya Teman Teman, See Yaaaaa. /(^o^) Pye Pye.