Memanfaatkan Delphi

delphi sebagai software pembuat aplikasi, tentunya tak luput membuat semacam media player pemutar suara dan pemutar video.

Berikut langkah-langkah untuk memasukkan media player kedalam delphi, klik ikon "media player" pada tab system>kemudian pada bar disebelah kiri, pilih file dengan menggunakan menu file name>auto play diganti true, sedangkan visible diganti false

sebelum kita belajar kode pemrograman, kita harus tau terlebih ilmu logika dasar pemrograman

sebagai contoh: A=true

       notA=false

       notA=true(berdasarkan premis kedua) kemudian kita masuk pada pengentrian kode.

pertama add button dan beri kode pemrograman berikut: "mediaplayer1.play ataupun stop"

pada kode pemrograman button masukkan kode berikut tepat dibawah "var": "A=boolean(bisa diisi true atau false), pada percobaan kali ini saya menggunakan false

sedangkan pada media player sendiri masukkan kode-kode berikut tepat setelah kalimat "Procedure Tform1.Button2 click (sender:Tobject);

kode yang harus dipasang sebagai berikut:

begin

A:=notA;

if A=true then

begin

media player1.play;

button2.caption:='music off';

end

else

begin

mediaplayer1.stop;

button2.caption:='music on';

end;

kode diatas dimaksudkan jika tombol play (music on) diklik, maka secara otomatis tombol play tadi berubah secara otomatis menjadi tombol stop (music off)

apabila terdapat tiga tombol yang kesemuanya berisi lagu-lagu yang berbeda, maka agar pada saat suara musik ketiganya tidak terputar secara bersamaan pada saat diklik ketiganya. maka kode yang tepat untuk itu adalah: "

misal pada tombol 1

--> mediaplayer1.play;

    mediaplayer2.stop;

    mediaplayer3.stop;

begitupun kode yang berlaku pada tombol 2 dan 3

kemudian untuk memasukkan video kedalam delphi kita hanya mengklik tombol panel pada menu standard>kemudian pilih file> dan pada menu additional klik customize dlg