Berikut cara mudah membuatnya:
1.
Buat form
seperti gambar dibawah ini:
Keterangan:
Ambil button pada pilihan tab
standard
Mediaplayer pada tab system
Opendialog pada tab dialog
2.Ganti caption
dengan object inspector
3. Masukkan program dan klik 2x pada button
No
|
KOMPONEN
|
NAMA
|
CAPTION
|
1
2
3
4
5
6
|
Button
Button
Button
Opendialog
Mediaplayer
Edit Text
|
Button1
Button2
Button3
Opendialog1
Mediaplayer1
Edit1
|
Mainkan
Stop
Pilih Lagu
-
-
Edit1
(text) (biarkan saja atau kosongkan)
|
3. Masukkan program dan klik 2x pada button
Button1 (Putar)
klik 2X
Mediaplayer1.filename:=opendialog1.filename;
Mediaplayer1.open;
Mediaplayer1.play;
Button2 (Berhenti)
klik 2x
Mediaplayer.stop;
Button3 (Pilih
Lagu) klik 2x
Opendialog.execute;
Edit1.Text:=opendialog.FileName
Jalankan dengan
F9 atau klik Run
0 komentar:
Posting Komentar