









LKM is a training a leadership for student or in indonesia we usually called Latihan Kepemimpinan Mahasiswa.in down here is a image a activite since the started
suatu sore aku lagi ngenet browsing lihat-lihat blog dan ada sesuatu yang menarik aku temukan berhubungan dengan programing yaitu multimedia di dhelphi selidik punya selidik ternyata ownernya adalah kakak rekan kerjaku di STMIK PPKIA Tarakanita Rahmawati namanya Kak Ary artikel ini cukup menarik makanya aku mau bagikan ke temen-temen para blogger. Bisa pemutar musik, pemutar video dll. Sampai sekarang ini mungkin kita hanya bisa menggunakannya. Tapi apakah kita pernah berpikir BAGAIMANA CARA UNTUK MEMBUATNYA ? Nah melalui tulisan sederhana ini aku pengen mengajak temen-temen semua untuk dapat berkreasi membuat aplikasi multimedia pemutar musik sederhana menggunakan software Borland Delphi 7.0 yang nantinya bisa menjadi alternatif selain menggunakan Software Winamp. Berikut OutPut yang akan kita buat :
Langkah-Langkah Pengerjaan :
- Desain Form :
1. Sediakan satu form baru dan ganti caption-nya dengan Simple Multimedia.
2. Letakkan komponen MediaPlayer pada form. Komponennya dapat di ambil pada tab System.
Pada Object Inspector Properties, pada VisibleButtons yang bernilai True hanya btPlay, btPause, dan btStop. Selain itu bernilai False
3. Ambil beberapa label dan letakkan pada form. Label 1, pada object inspector properties ubah Captionnya menjadi “Duration :”. Label 2, pada object inspector properties ubah Captionnya menjadi “Position :”. Selanjutnya Label 3, pada object inspector properties ubah Captionnya menjadi “0” dan Name menjadi “lbduration”. Selanjutnya Label 4, pada object inspector properties ubah Captionnya menjadi “0” dan Name menjadi “lbposition”. Selanjutnya Label 5, pada object inspector properties ubah Captionnya menjadi “ms” begitupula dengan Label 6.
4. Letakkan 2 komponen SpeedButton pada Form. Komponen tersebut dapat di ambil pada Tab Additional
SpeedButton yang pertama Pada Object Inspector Properties ubah Captionnya menjadi “Open File” dan SpeedButton yang kedua pada Object Inspector Properties ubah Captionnya menjadi “Exit”
5. Selanjutnya letakkan komponen CheckBox pada Form. Komponen tersebut dapat di ambil pada Tab Standart.
Kemudian pada Object Inspector Properties ubah Captionnya menjadi “Repeat” dan Name menjadi “cbrepeat”.
6. Selanjutnya tambahkan komponen Timer pada Form. Komponen tersebut dapat di ambil pada Tab System.
Pada Object Inspector Properties ubah Intervalnya menjadi 200.
7. Terakhir tambahkan komponen OpenDialog pada Form. Komponen tersebut dapat diambil pada Tab Dialog.
Pada Object Inspector Properties, pilih Filter dan Setting Filter Editornya seperti gambar berikut ini :
- Scripting / Penulisan Listing Program:
Double Click pada komponen MediaPlayer dan ketikkan Listing berikut :
procedure TForm1.MediaPlayer1Click(Sender: TObject; Button: TMPBtnType;
var DoDefault: Boolean);
begin
case button of
btPlay:timer1.Enabled:=true;
btPause:
begin
if MediaPlayer1.Mode=mpPaused then
timer1.Enabled:=true
else
Timer1.Enabled:=false;
end;
btStop:
begin
MediaPlayer1.Position:=0;
Timer1.Enabled:=false;
lbposition.Caption:=’0′;
end;
end;
Double Click komponen SpeedButton Open File dan ketikkan listing berikut:
procedure TForm1.spopenClick(Sender: TObject);
begin
if OpenDialog1.Execute then
begin
MediaPlayer1.FileName:=OpenDialog1.FileName;
MediaPlayer1.Open;
lbduration.Caption:=inttostr(MediaPlayer1.Length);
end;
end;
Double Click komponen SpeedButton Exit dan ketikkan listing berikut:
procedure TForm1.spcloseClick(Sender: TObject);
begin
close;
end;
Double Click komponen Timer dan ketikkan listing berikut:
procedure TForm1.Timer1Timer(Sender: TObject);
begin
if strtoint(lbduration.Caption)<>strtoint(lbposition.Caption) then
lbposition.Caption:=inttostr(MediaPlayer1.Position)
else
if cbrepeat.Checked=true then
begin
MediaPlayer1.Position:=0;
lbposition.Caption:=’0′;
MediaPlayer1.Play;
end
else
begin
timer1.Enabled:=false;
lbposition.Caption:=’0′;
end;
end;
Gimana gampang kan? Selamat mencoba, setelah anda mengikuti langkah-langkah yang ada maka anda dapat menikmati aplikasi multimedia sederhana anda.
Kalau ada pertanya kirim aja ke emailku danangsetya@ppkia.ac.idBerikut adalah program pencetakan layar tersebut, dengan tambahan proses hapus layar seperti pada “Latihan 1″ sebelumnya.
.model smallDemikianlah program pencetakan karakter pada assembly, dengan beberapa penjelasan tambahan berikut :
0 | Black | 8 | Grey | |
1 | Blue | 9 | Light Blue | |
2 | Green | A | Light Green | |
3 | Cyan | B | Light Cyan | |
4 | Red | C | Light Red | |
5 | Magenta | D | Pink | |
6 | Brown | E | Yellow | |
7 | White | F | Light White |
Warna diatas 7 hanya dapat digunakan sebagai teks, tidak dapat Anda gunakan sebagai background.
Jika Anda gunakan sebagai background, maka teks akan berkedip (blink).
.code
org 100H
Simpanlah file tersebut dengan menggunakan ekstensi .ASM, sebagai contoh “Latih1.ASM”, dan lakukan kompilasi pada program tersebut :