Pemutar Musik Dengan DELPHI

CEGAH KEBOSANAN DENGAN SISTEM HIBURAN DI DALAM MOBIL

"Cegah Kebosanan": Informasi dalam Mobil. Orang, terutama dikota besar, menghabiskan banyak waktu di mobil mereka, dan banyak waktu yang dihabiskan di jalan raya dalam perjalanan. Sekarang kita dapat memanfaatkan kekuatan sistem dalam mobil infotainment (CarPC), dengan koneksi broadband terus menerus ke Internet, GPS, radio satelit, dll. Informasi dan hiburan Apa yang mungkin berguna untuk driver (dan setiap penumpang), dan bagaimana hal itu dapat disajikan dalam cara yang aman efektif, seperti mengemudi yang tidak mengalami dampak negatif. Anda dapat membuat asumsi tentang pengemudi, penumpang, dll. Cobalah untuk melampaui fasilitas umum yang disediakan seperti CD/MP3/radio. Pertimbangkan kendaraan yang berbeda, seperti taksi, bis, bahkan motor dan diatur desainnya sesuai kendaraannya.

Beberapa komponen seperti pada table dibawah ini:

komponen	Tab pada Component Pallate
TDriveComboBox1	Win 3.1
TDirectoryListBox1	Win 3.1
TFileListBox1	Win 3.1
TMediaPlayer1	System
TTimer1,TTimer2	System
TTrackBar1	Win 3.2
Button1,2,3	Standard
Label1,2	Standard

Aturlah komponen – komponen tersebut seperti pada gambar dibawah ini :

Setelah sobat mengatur semua komponen seperti pada gambar diatas sekarang aturlah property -property komponen tersebut seperti pada table dibawah ini :

Komponen	Property	Nilai
TDriveComboBox1	DirList	DirectoryListBox1
TDirectoryListBox1	FileList	FileListBox1
TFileListBox1	Mask	.bmp;.jpg
TFileListBox1	ShowGlyphs	True
TMediaPlayer1	Visible	False
TTimer1	Enabled	False
TTimer1	Interval	1000
TTimer2	Enabled	False
TTimer2	Intervasl	100
TButton1	Caption	Play
TButton1	Caption	Pause
TButton1	Caption	Stop
TLabel1	Caption	Label1
TLabel2	Caption	0:0
TForm1	Caption	Multimedia
TForm1	BorderStyle	bsDialog

Kemudian baru kita memulai membari perintah – perintah pada masing – masing komponen.

Double klik pada Timer1 dan ketikkan listing berikut ini :

procedure TForm1.Timer1Timer(Sender: TObject);

var waktu : integer;

menit, detik : string;

begin

waktu:=(mediaplayer1.Length div 1000) - (mediaplayer1.Position div 1000);

menit:=inttostr(waktu div 60);

detik:=inttostr(waktu mod 60);

if length(menit)=1 then menit:='0'+menit;

if length(detik)=1 then detik:='0'+detik;

label2.Caption:=menit+':'+detik;

trackbar1.Position := mediaplayer1.Position div 10;

if trackbar1.Dragging = true then

mediaplayer1.Position := trackbar1.Position;

end;

Double klik pada Timer2 dan ketikkan listing berikut ini :

procedure TForm1.Timer2Timer(Sender: TObject);

begin

label1.Left := label1.Left - 8;

if label1.Left = 8 then

label1.Left := 248;

end;

Double klik pada Button1 dan ketikkan listing berikut ini :

procedure TForm1.Button1Click(Sender: TObject);

begin

mediaplayer1.FileName := filelistbox1.FileName;

mediaplayer1.Open;

mediaplayer1.Play;

timer1.Enabled := true;

timer2.Enabled := true;

trackbar1.Max := mediaplayer1.Length div 10;

label1.caption:=filelistbox1.items.strings[filelistbox1.itemindex];

end;

Double klik pada Button1 dan ketikkan listing berikut ini :

procedure TForm1.Button2Click(Sender: TObject);

begin

mediaplayer1.Pause;

end;

Double klik pada Button1 dan ketikkan listing berikut ini :

procedure TForm1.Button3Click(Sender: TObject);

begin

mediaplayer1.Stop;

timer1.Enabled := false;

timer2.Enabled := false;

end;

Selesai sudah program pemutar music kecil - kecilan kita ini, sekarang tinggal dijalankan programnya dengan menekan tombol F9. Tampilan program ketika dijalankan :