[Tugas Praktikum 5 Pemvis] Tab Additional 2 (Program Media Player Sederhana)

06.44 |

I. Tujuan Praktikum

Tujuan dari praktikum kali ini adalah untuk dapat mengetahui kegunaan komponen-komponen yang terdapat pada tab Addisional serta dapat memahami kegunaan-kegunaan dari komponen tersebut.

II. Deskripsi Program

Program Media Player Sederhana

Program ini dibuat dengan menggunakan Delphi 7. Program ini merupakan program pemutar musik sederhana. Pengguna harus memilih terlebih dahulu lagu yang akan diputar kemudian menekan tombol Media Player yang disediakan pada program untuk memainkan lagu yang telah dipilih.

III. Interface Program

Gambar 3.1. Interface program beserta nama komponennya

IV. Coding Program

Nama Komponen	Event	Perintah
Btn1	OnClick	procedure TForm1.btn1Click(Sender: TObject); begin if OpenDialog1.Execute then begin Mp3Path:=OpenDialog1.FileName; with MediaPlayer1 do begin Enabled:=true; FileName:=Mp3Path; Open; end; end; end;
Form1	OnCreate	procedure TForm1.FormCreate(Sender: TObject); var hSysMenu: HMENU; begin hSysMenu := GetSystemMenu(Handle, false); AppendMenu(hSysMenu, MF_SEPARATOR, 0, nil); AppendMenu(hSysMenu, MF_STRING, INFO, PChar('&Tentang...')); Tmr1.Enabled := false; Tmr1.Interval := 250; a:='Muhammad Ripani - J1F113021 '; paused:=false; MediaPlayer1.Enabled:=False; Form1.Top:=(Screen.Height-Form1.Height)div 2; Form1.Left:=(Screen.Width-Form1.Width)div 2; end;
MediaPlayer1	OnClick	procedure TForm1.MediaPlayer1Click(Sender: TObject; Button: TMPBtnType; var DoDefault: Boolean); begin if Button = btStop then begin MediaPlayer1.Position:=0; end else if Button = btStep then begin if ((MediaPlayer1.Position+5000)<=MediaPlayer1.Length) then MediaPlayer1.Position:=MediaPlayer1.Position+5000 else begin MediaPlayer1.Position:=0; end; MediaPlayer1.Play; end else if Button = btBack then begin if ((MediaPlayer1.Position-5000)>0) then MediaPlayer1.Position:=MediaPlayer1.Position-5000 else MediaPlayer1.Position:=0; MediaPlayer1.Play; end; end;
Tmr1	OnTimer	procedure TForm1.tmr1Timer(Sender: TObject); var i: Integer; begin Application.Title := a; Form1.Caption := a; for i := 1 to (length(a) - 1) do a[i] := Application.Title[i + 1]; a[Length(a)] := Application.Title[1]; end;
Btn2	OnClick	procedure TForm1.btn2Click(Sender: TObject); begin Application.Terminate; end;