tarji_anto@yahoo.com

MULTIMEDIA ONTOLOHOT
RadioButton

FilterComboBox1 DriveComboBox1 FileListBox1 DirectoryListBox1

MediaPlayer1

ProgressBar1

Panel

Image1

timer

1. Tambahkan 3 komponen panel (Panel1, Panel2, Panel3) dari Tab Standart kedalam form 2. 2 Komponen label (Label1, Label2) dari Tab Standart diletakkan diatas panel2 dan panel3. 3. 2 komponen speedbutton (speedbutton1, speedbutton2) dari Tab Additional diletakkan diatas Panel1. Desain dapat anda sesuaika dengan gambar tersebut

1

tarji_anto@yahoo.com

Ubahlah property komponen masing-masing komponen tersebut seperti berikut KOMPONEN PROPERTY Panel1 Align = Altop Caption = kosong Panel2 Align = Altop Caption = kosong Name = Paudio Paniel3 Align = Altop Caption = kosong Name = Vaudio Label1 Caption = Audio Players Label2 Caption = Video Players Form1 Caption = MultiMedia Ontolohot Autosize = True Seedbutton1 Caption = Audio Players Groupindex = 1 Down = True AllowAllUp = True Seedbutton2 Caption = Video Players Groupindex = 2 Down = True AllowAllUp = True

2

tarji_anto@yahoo.com

4. Double klik komponen Seedbutton1, Kemudian ketikkan Prosedurnya seperti dibawah ini: procedure TForm1.SpeedButton1Click(Sender: TObject); begin Paudio.Visible:=SpeedButton1.Down; end; 5. Double klik komponen Seedbutton2, Kemudian ketikkan Prosedurnya seperti dibawah ini: procedure TForm1.SpeedButton1Click(Sender: TObject); begin Pvideo.Visible:=SpeedButton2.Down; end; 6. Dari applikasi sebelumnya, tambahkan komponen MediaPlayers1 dari Tab Sistem 7. Komponen Progressbar dari Tab Additional 8. Dan kompnen Timer1 dari Tab System kedalam Panel1. Ubahlah property komponen masing-masing komponen tersebut seperti berikut KOMPONEN PROPERTY MediaPlayers1 Name = AudioPlayer Progressbar Name = Audiobar Timer1 Interval = 10 9. Tambahkan komponen Drivecombobox, Directorylistbox, filelesbox dan filtercombobok dari Tab Win 3.1 Ubahlah property komponen masing-masing komponen tersebut seperti berikut KOMPONEN PROPERTY Drivecombobox Dirrlis = Directorylistbox1 Directorylistbox Filelist = Filelisbox1 filtercombobok Filelisbox1 10. Aktifkan komponen filtercombobok dan Klik tanda (…) disebelah kanan kolom Filte pada Tab Property, sehingga muncul Editor file editor seperti gambar berikut.

3

tarji_anto@yahoo.com

11. Tambahkan komponen Panel dari Tab Standart pada form, yaitu pada bagian Paudio diatas komponen AudioPlayer 12. tambahkan komponen label dari Tab Standar pada komponen Panel yang baru saja anda tambahkan. Ubahlah property komponen masing-masing komponen tersebut seperti berikut KOMPONEN PROPERTY Label3 Caption = kosong Left = 0 Trasparent = true Panel2 Caption = kosong 13. Double klik pada komponen Timer1, kemudian ubah prosedurnnya seperti berikut: procedure TForm1.Timer1Timer(Sender: TObject); begin if Label3.Left