• Skip to primary navigation
  • Skip to main content
  • Skip to primary sidebar

Jaranguda

Belajar Mengajar

  • Home
  • Sponsor/Jasa
  • Tentang

pemutar mp3

Membuat Pemutar Musik MP3 dengan Delphi

Last Updated on 18 January 2013 By tommy 1 Comment

Tutorial ini menggunakan Delphi XE, dan penggunaan di Delphi 7 atau versi lainnya seharusnya tidak ada masalah, karena tidak ada menggunakan komponen diluar bawaaan delphi.

Buat design aplikasi pemutar musik seperti gambar dibawah ini
design pemutar musik delphi

Komponen yang digunakan
1 Mediaplayer
1 Tedit
1 Progressbar
1 timer
1 timage
1 timer
1 listbox
1 Opendialog
1 TLabel
setelah selesai mendesign, sekarang waktunya untuk menulis script agar aplikasi pemutar lagu tersebut dapat berjalan.
Klik dua kali pada tombol pilih mp3 dan ketik script dibawah ini

if OpenDialog1.Execute then
begin
edit1.Text:=opendialog1.FileName;
ListBox1.Items:=OpenDialog1.Files;
ProgressBar1.Max:=0;
MediaPlayer1.Close;
MediaPlayer1.FileName:=edit1.Text;
MediaPlayer1.Open;
ProgressBar1.Max:=MediaPlayer1.Length;
end;

Listbox berada di bawah tulisan Klik untuk memutar lagu : klik dua kali pada listbox dan tambahkan script

MediaPlayer1.Play;

lanjutkan dengan mengklik pada timer, tambahkan script dibawah ini

if ProgressBar1.Max<>0 then
ProgressBar1.Position:=MediaPlayer1.Position;
end;

untuk menyembunyikan Mediaplayer, klik dua kali pada form lalu tambahkan script

MediaPlayer1.Enabled:=False;

Jalankan program dengan menekan tombol F9 di keyboard. Tampilannya seperti gambar dibawah ini
tampilan pemutar lagu mp3
Contoh tampilan aplikasi sewaktu memutar MP3
tampilan pemutar lagu mp3

Download source code :

Download “Pemutar Lagu Delphi”

mp3-player.zip – Downloaded 1678 times – 178.00 B

Filed Under: Delphi Tagged With: aplikasi, pemutar mp3, source code

Primary Sidebar

Pencarian

Tanya Jawab tentang DevOps SRE CPE, gabung di https://t.me/devopsindonesia

Terbaru

  • Cara Mengganti Port Screen Sharing macOS
  • Cara Menonaktifkan Pager di macOS
  • Cara Mengupdate Nama Apple silicon-as-a-Service Scaleway
  • Cara Force Delete Namespace di Kubernetes
  • Install PHP MariaDB di Mac Monterey

Komentar

  • adi on Menggunakan Mikrotik Sebagai SSH Client
  • aris u on Solusi Simple Queue Mikrotik Tidak Berjalan
  • Bowo on Cara Mematikan SSID Molecool Balifiber
  • aris on Solusi Simple Queue Mikrotik Tidak Berjalan
  • Alief on Password Router Huawei HG8245H5 Indihome

Tulisan Populer

  • Password Router Huawei HG8245H5 Indihome 1.1m views
  • Password Terbaru ZTE F609 Indihome 784.5k views
  • Password Superadmin Huawei HG8245A 318k views
  • Cara Setting Manual Modem GPON ZTE F609 Indihome 273k views
  • Cara Setting Wireless ZTE F609 Indihome 257.1k views
  • Mengaktifkan Port LAN di Huawei HG8245 Indihome 169.8k views
  • Akses UseeTV Indihome via Wireless ZTE F609 156.8k views
  • Kemana Menghilangnya Saldo BCA 50 ribu 153k views
  • Cara Reset Password ZTE F609 Indihome 147.5k views
  • Cara Setting DHCP Server Modem/Router ZTE F609 113.5k views

Kategori

  • Delphi
  • dll
  • Gambas
  • Internet
  • Java
  • Lazarus
  • Linux
  • PHP
  • Review
  • Teknologi

Sponsor

kadal.id
carakami.com
kuotabisa.com
Untuk jadi sponsor, hubungi kita lewat halaman sponsor
© 2021. Jaranguda
  • Linux
  • PHP
  • Internet
  • Teknologi
  • Delphi
  • Gambas
  • Java