Membuat MP3 Player Sendiri

Cara membuat winam sederhana sendiri menggunakan delphi 2010

Oleh:

JOKO TURWANTO

NIM : 2011.15.458.0016

JURUSAN TEKNIK INFORMATIKA

FAKULTAS TEKNIK

UNIVERSITAS WAHIDIYAH

Untuk langkah awal kali ini kita akan membuatwinam sendiri dalam pembuatan kali ini kita bisa membuat form terlebih dahulu komponennya antara lain : di bawah ini dan untuk panel di letakan di paling bawah.

Nama komponen	caption	nama
TFileListBox	-	FileListBox1
TDirectoryListBox	-	DirectoryListBox1
TDriveComboBox	-	DriveComboBox1
TFilterComboBox	-	FilterComboBox1
TMediaPlayer	-	AudioPlayer1
TProgressBar	-	AudioBar
TLabel	Designprogram717	label3
Timer	-	Timer1
TPanel	-	waktu
TTimer	-	Timer2

Wah Cuma sedikit kan komponenya jdi law ingin di perbagus tampilah dan komponen yang kita kembangkan bisa kita kembangkan sendiri sekarang kita masuk ke tahab pengkodean

Untuk form  masukan kode seperti di bawah ini pilih kode yang terletak di bawah form kan ada tiga pilihan  yaitu kode,  design dan histori klik satu kali di kode  pastikan kode sama persis di bawah ini

unit winam;

interface

uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, FileCtrl, StdCtrls, ComCtrls, MPlayer, ExtCtrls;

type

  TForm1 = class(TForm)

    FileListBox1: TFileListBox;

    DirectoryListBox1: TDirectoryListBox;

    DriveComboBox1: TDriveComboBox;

    FilterComboBox1: TFilterComboBox;

    AudioPlayer1: TMediaPlayer;

    AudioBar: TProgressBar;

    Label3: TLabel;

    Timer1: TTimer;

    waktu: TPanel;

    Timer2: TTimer;

    procedure FileListBox1Click(Sender: TObject);

    procedure FileListBox1DblClick(Sender: TObject);

    procedure Timer1Timer(Sender: TObject);

    procedure Timer2Timer(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

var

  Form1: TForm1;

implementation

{$R *.dfm}

Langkah selanjutnya kita memasukan perintah kedalam filelisbok dengan memberi even onclik dan masukan kode seperti di bawah ini

procedure TForm1.FileListBox1Click(Sender: TObject);

begin

AudioPlayer1.FileName:=FileListbox1.FileName;

AudioPlayer1.Open;

Label3.Caption:=FileListbox1.FileName;

AudioBar.Max:=AudioPlayer1.Length;

end;

dan masukan juga kode seperti ini di filelisbox sengan even dblclik,:

procedure TForm1.FileListBox1DblClick(Sender: TObject);

begin

AudioPlayer1.FileName:=FileListbox1.FileName;

AudioPlayer1.Open;

label3.Caption:=Filelistbox1.FileName;

Audiobar.Max:=AudioPlayer1.Length;

AudioPlayer1.Play;

end;

dan untuk menjalankan durasi waktu di progres bar kita bisa memberi perintah ke timer1 caranya klik 2x pada timer 1 dan masukan kode seperti di bawah ini

procedure TForm1.Timer1Timer(Sender: TObject);

begin

if Label3.Left<-Label3.Width then

Label3.Left:=Width

else

label3.Left:=label3.Left-1;

Audiobar.Position:=AudioPlayer1.Position;

end;

agar saat kita sedang bermain program tidak lupa waktu maka di winam ini kita beri waktu caranya clik 2x pada timer2 dan masukan kode seperti di bawah ini

procedure TForm1.Timer2Timer(Sender: TObject);

begin

waktu.Caption:=FormatDateTime('dddd, dd mmmm yyyy (hh:mm:ss)',Now);

end;

end.

Selesai dech program pembuatan winam kita kali ini asyik kan asyik kalaw program yang kita gunakan adalah karya kita sendiri.,

selamat mencoba yea

g_mail   :dprwscout717@gmail.com

blok       :designprogram717.blokspot.com

no hp    : 082302577717