cara memutar musik

Pertemuan ke - 5 (Cara memutar music di delphi )

Pada pertemuan ke lima kemaren kami belajar tentang component mediaplayer untuk memutar file music.

Untuk memutar sebuah musi di Delphi kita membutuhkan komponen MediaPlayer.

berikut langkah-langkahnya :

Pertama buat project delphi baru

dalam Form1 tambahkan komponen Mediaplayer dengan pada bagian menu toolbar component pilih System => tambahkan komponen media player dengan memilih icon media player.

Berikut gambarnya :

Pada bagian Properties pada komponen mediaplayer1 masukkan file *.mp3 yang akan di putar dengan cara memilih FileName dan masukkan filenya.

 

Berikut gambarnya

Masih pada menu properties pada bagian AutoOpen rubah value menjadi tipe True

Berikut gamabarnya :

Selanjutnya Buat component mediaplayer1 menjadi tersembunyi dengan cara merubah value visible mediaplayer1 menjadi False

berikut langkahnya :

Dan tambahkan component button1 seperti pada gambar berikut ini :

Untuk codenya sebagai berikut

pada bagian Var tambahkan variabel button dengan tipe boolean dan set nilainya menjadi False.

  tombol:boolean=false;

Pada prosedur button1 ketikkan code berikut ini ;

procedure TForm1.Button1Click(Sender: TObject);

begin

  tombol:= not tombol;

  if tombol = true then

    begin

      button1.Caption := 'Music stop';

      mediaplayer1.Play;

    end

  else

    begin

      button1.Caption := 'Music play';

      mediaplayer1.Stop;

   end

end;                  

end.

Keterangan :

  tombol:= not tombol;

// Untuk mengganti nilai variabel tombol menjadi True dan False bergantian

  mediaplayer1.Play;

// Untuk memutar file music

  mediaplayer1.Stop;

// Untuk mematikan file music

Berikut catatan singkat saya tentang cara memutar file music menggunakan component mediaplayer pada delphi. semoga bermanfaat.