Arabic Korean Japanese Chinese Simplified English French German Spain Italian
Browser Support

COLECTION PHOTO

colek

ADAM BROW

BELAJAR DI DUNIA MAYA seperti DUNIA DA DITANGAN KITA belajarlah di blog ni. slamat mencoba

Senin, 25 Januari 2010

Kamis, 12 November 2009

membuat pop up menu di blog

mau membuat pop up menu atau bisa dikatakan menu-menu yang otomatis muncul ketika mouse diarahkan ke menu utama, namun menghilang ketika mouse menjauhi? disini saya memberi contoh menu yang drop down ke bawah,
1. Login ke Blog lalu masuk ke Layout pilih Edit Html
2. cari ]]> pake Ctrl+F taruh kode dibawah ini di atas kode ]]>

/*!!!!!!!!!!! QuickMenu Core CSS [Do Not Modify!] !!!!!!!!!!!!!*/
.qmmc .qmdivider{display:block;font-size:1px;border-width:0px;border-style:solid;position:relative;z-index:1;}.qmmc .qmdividery{float:left;width:0px;}.qmmc .qmtitle{display:block;cursor:default;white-space:nowrap;position:relative;z-index:1;}.qmclear {font-size:1px;height:0px;width:0px;clear:left;line-height:0px;display:block;float:none !important;}.qmmc {position:relative;zoom:1;z-index:10;}.qmmc a, .qmmc li {float:left;display:block;white-space:nowrap;position:relative;z-index:1;}.qmmc div a, .qmmc ul a, .qmmc ul li {float:none;}.qmsh div a {float:left;}.qmmc div{visibility:hidden;position:absolute;}.qmmc .qmcbox{cursor:default;display:block;position:relative;z-index:1;}.qmmc .qmcbox a{display:inline;}.qmmc .qmcbox div{float:none;position:static;visibility:inherit;left:auto;}.qmmc li {z-index:auto;}.qmmc ul {left:-10000px;position:absolute;z-index:10;}.qmmc, .qmmc ul {list-style:none;padding:0px;margin:0px;}.qmmc li a {float:none;}.qmmc li:hover>ul{left:auto;}#qm0 ul {top:100%;}#qm0 ul li:hover>ul{top:0px;left:100%;}


/*!!!!!!!!!!! QuickMenu Styles !!!!!!!!!!!*/


/* QuickMenu 0 */

/*"""""""" (MAIN) Container""""""""*/
#qm0
{
background-color:transparent;
}


/*"""""""" (MAIN) Items""""""""*/
#qm0 a
{
padding:5px 15px 5px 20px;
color:#6585B9;
font-family:Arial;
font-size:12px;
text-decoration:none;
font-weight:bold;
}


/*"""""""" (MAIN) Parent Items""""""""*/
#qm0 .qmparent
{
background-image:url(qmimages/qthoverfill_plus_main.gif);
background-repeat:no-repeat;
background-position:9px 10px;
}


/*"""""""" (MAIN) Active State""""""""*/
body #qm0 .qmactive, body #qm0 .qmactive:hover
{
color:#C7C7C7;
text-decoration:underline;
}


/*"""""""" (SUB) Container""""""""*/
#qm0 div, #qm0 ul
{
padding:5px;
margin:-2px 0px 0px -6px;
background-color:transparent;
border-width:1px;
border-style:none;
border-color:#A6A6A6;
}


/*"""""""" (SUB) Items""""""""*/
#qm0 div a, #qm0 ul a
{
padding:5px 50px 5px 20px;
background-color:transparent;
color:#F5F5F5;
font-size:12px;
font-weight:bold;
border-width:0px;
border-style:none;
border-color:#000000;
}


/*"""""""" (SUB) Hover State""""""""*/
#qm0 div a:hover
{
color:#3F3F3F;
text-decoration:none;
}


/*"""""""" (SUB) Hover State - (duplicated for pure CSS)""""""""*/
#qm0 ul li:hover>a
{
color:#3F3F3F;
text-decoration:none;
}


/*"""""""" (SUB) Parent Items""""""""*/
#qm0 div .qmparent, #qm0 ul .qmparent
{
background-image:url(qmimages/qthoverfill_plus_sub.gif);
}


/*"""""""" (SUB) Parent Hover State""""""""*/
#qm0 div .qmparent:hover
{
background-image:url(qmimages/qthoverfill_plus_sub_hover.gif);
}


/*"""""""" (SUB) Active State""""""""*/
body #qm0 div .qmactive, body #qm0 div .qmactive:hover
{
background-color:#747A86;
background-image:url(qmimages/qthoverfill_minus_sub.gif);
color:#EEEEEE;
}


/*"""""""" Individual Titles""""""""*/
#qm0 .qmtitle
{
font-size:11px;
}


/*"""""""" (main) Rounded Items""""""""*/
#qm0 .qmritem span
{
border-color:#A6A6A6;
background-color:#3F3F3F;
background-image:url(qmimages/qthoverfill_minus_main.gif);
background-repeat:no-repeat;
background-position:9px 5px;
}


/*"""""""" (main) Rounded Items Content""""""""*/
#qm0 .qmritemcontent
{
padding:0px 0px 0px 20px;
}


/*"""""""" (sub) Rounded Items""""""""*/
#qm0 div .qmritem span
{
border-color:#666666;
background-color:#EEEEEE;
}


/*"""""""" (sub) Rounded Items Content""""""""*/
#qm0 div .qmritemcontent
{
padding:0px 0px 0px 4px;
}


/*"""""""" Sub Hover Fill Items [Static]""""""""*/
#qm0 div .qmhoverfill
{
background-color:#C0CAE3;
}


/*"""""""" Custom Rule""""""""*/
ul#qm0 ul li:hover > a
{
color:#6585B9;
}


/*"""""""" Custom Rule""""""""*/
ul#qm0 ul
{
background-color:#3F3F3F;
}


/*"""""""" Custom Rule""""""""*/
ul#qm0 li:hover > a
{
background-color:#3F3F3F;
}


/*"""""""" Custom Rule""""""""*/
div#qm0 div div
{
margin:0px 0px 0px -6px;
}

3. Kemudian save
4. Kemudian dari Layout ke Page Element
5. Add gadget baru masukkan kode ini di gadget baru


  • TECHNOLOGY






    5. Yang diatas hanya sebagai contoh
    6. Tulisan TECHNOLOGY untuk Menu utama
    7. Tulisan Data Matrix adalah sub menu nya
    8. Save dan atur sendiri ya semua warnanya hehee

MEMBUAT POP UP MENU DI BLOG

membuat pop up menu di blog

mau membuat pop up menu atau bisa dikatakan menu-menu yang otomatis muncul ketika mouse diarahkan ke menu utama, namun menghilang ketika mouse menjauhi? disini saya memberi contoh menu yang drop down ke bawah,
1. Login ke Blog lalu masuk ke Layout pilih Edit Html
2. cari ]]> pake Ctrl+F taruh kode dibawah ini di atas kode ]]>

/*!!!!!!!!!!! QuickMenu Core CSS [Do Not Modify!] !!!!!!!!!!!!!*/
.qmmc .qmdivider{display:block;font-size:1px;border-width:0px;border-style:solid;position:relative;z-index:1;}.qmmc .qmdividery{float:left;width:0px;}.qmmc .qmtitle{display:block;cursor:default;white-space:nowrap;position:relative;z-index:1;}.qmclear {font-size:1px;height:0px;width:0px;clear:left;line-height:0px;display:block;float:none !important;}.qmmc {position:relative;zoom:1;z-index:10;}.qmmc a, .qmmc li {float:left;display:block;white-space:nowrap;position:relative;z-index:1;}.qmmc div a, .qmmc ul a, .qmmc ul li {float:none;}.qmsh div a {float:left;}.qmmc div{visibility:hidden;position:absolute;}.qmmc .qmcbox{cursor:default;display:block;position:relative;z-index:1;}.qmmc .qmcbox a{display:inline;}.qmmc .qmcbox div{float:none;position:static;visibility:inherit;left:auto;}.qmmc li {z-index:auto;}.qmmc ul {left:-10000px;position:absolute;z-index:10;}.qmmc, .qmmc ul {list-style:none;padding:0px;margin:0px;}.qmmc li a {float:none;}.qmmc li:hover>ul{left:auto;}#qm0 ul {top:100%;}#qm0 ul li:hover>ul{top:0px;left:100%;}


/*!!!!!!!!!!! QuickMenu Styles !!!!!!!!!!!*/


/* QuickMenu 0 */

/*"""""""" (MAIN) Container""""""""*/
#qm0
{
background-color:transparent;
}


/*"""""""" (MAIN) Items""""""""*/
#qm0 a
{
padding:5px 15px 5px 20px;
color:#6585B9;
font-family:Arial;
font-size:12px;
text-decoration:none;
font-weight:bold;
}


/*"""""""" (MAIN) Parent Items""""""""*/
#qm0 .qmparent
{
background-image:url(qmimages/qthoverfill_plus_main.gif);
background-repeat:no-repeat;
background-position:9px 10px;
}


/*"""""""" (MAIN) Active State""""""""*/
body #qm0 .qmactive, body #qm0 .qmactive:hover
{
color:#C7C7C7;
text-decoration:underline;
}


/*"""""""" (SUB) Container""""""""*/
#qm0 div, #qm0 ul
{
padding:5px;
margin:-2px 0px 0px -6px;
background-color:transparent;
border-width:1px;
border-style:none;
border-color:#A6A6A6;
}


/*"""""""" (SUB) Items""""""""*/
#qm0 div a, #qm0 ul a
{
padding:5px 50px 5px 20px;
background-color:transparent;
color:#F5F5F5;
font-size:12px;
font-weight:bold;
border-width:0px;
border-style:none;
border-color:#000000;
}


/*"""""""" (SUB) Hover State""""""""*/
#qm0 div a:hover
{
color:#3F3F3F;
text-decoration:none;
}


/*"""""""" (SUB) Hover State - (duplicated for pure CSS)""""""""*/
#qm0 ul li:hover>a
{
color:#3F3F3F;
text-decoration:none;
}


/*"""""""" (SUB) Parent Items""""""""*/
#qm0 div .qmparent, #qm0 ul .qmparent
{
background-image:url(qmimages/qthoverfill_plus_sub.gif);
}


/*"""""""" (SUB) Parent Hover State""""""""*/
#qm0 div .qmparent:hover
{
background-image:url(qmimages/qthoverfill_plus_sub_hover.gif);
}


/*"""""""" (SUB) Active State""""""""*/
body #qm0 div .qmactive, body #qm0 div .qmactive:hover
{
background-color:#747A86;
background-image:url(qmimages/qthoverfill_minus_sub.gif);
color:#EEEEEE;
}


/*"""""""" Individual Titles""""""""*/
#qm0 .qmtitle
{
font-size:11px;
}


/*"""""""" (main) Rounded Items""""""""*/
#qm0 .qmritem span
{
border-color:#A6A6A6;
background-color:#3F3F3F;
background-image:url(qmimages/qthoverfill_minus_main.gif);
background-repeat:no-repeat;
background-position:9px 5px;
}


/*"""""""" (main) Rounded Items Content""""""""*/
#qm0 .qmritemcontent
{
padding:0px 0px 0px 20px;
}


/*"""""""" (sub) Rounded Items""""""""*/
#qm0 div .qmritem span
{
border-color:#666666;
background-color:#EEEEEE;
}


/*"""""""" (sub) Rounded Items Content""""""""*/
#qm0 div .qmritemcontent
{
padding:0px 0px 0px 4px;
}


/*"""""""" Sub Hover Fill Items [Static]""""""""*/
#qm0 div .qmhoverfill
{
background-color:#C0CAE3;
}


/*"""""""" Custom Rule""""""""*/
ul#qm0 ul li:hover > a
{
color:#6585B9;
}


/*"""""""" Custom Rule""""""""*/
ul#qm0 ul
{
background-color:#3F3F3F;
}


/*"""""""" Custom Rule""""""""*/
ul#qm0 li:hover > a
{
background-color:#3F3F3F;
}


/*"""""""" Custom Rule""""""""*/
div#qm0 div div
{
margin:0px 0px 0px -6px;
}

3. Kemudian save
4. Kemudian dari Layout ke Page Element
5. Add gadget baru masukkan kode ini di gadget baru


  • TECHNOLOGY






    5. Yang diatas hanya sebagai contoh
    6. Tulisan TECHNOLOGY untuk Menu utama
    7. Tulisan Data Matrix adalah sub menu nya
    8. Save dan atur sendiri ya semua warnanya hehee

Jumat, 22 Januari 2010

FROM DELPHI

Form Delphi

Setelah lama vacum wkwkwkwk (apa seeh...) saya akan membahas mengenai Form pada Delphi. Yang pertama harus kita lakukan yaitu membuka program Delphi seperti yang telah saya bahas pada postingan saya sebelumnya mengenai Pengenalan Delphi
Kita buka program Delphi tersebut, kemudian kita akan menemui tampilan seperti ini



Ini yang dinamakan Form


Fungsinya untuk membuat suatu program menjadi user friendly dengan tampilan interface yang mempermudah interaksi antara manusia dan komputer.
Apa yang bisa kita lakukan dengan Form pada Delphi tersebut. Kita bisa membuat suatu tampilan yang menarik dalam membuat suatu program. Berikut componen dari Delphi :


Ada componen Standar, Additional, WIN32, System, Data Access, etc. Nanti akan saya bahas satu persatu berikut fungsinya. Dari mulai componen Standar dulu ya. Cara menggunakan componen tersebut adalah dengan mengclick 2X pada componen yang diinginkan. Atau di click, kemudian di drag ke jendela Form. Di componen standar ada Pointer yang berguna untuk memindahkan componen-componen yang sudah dibuat. Frame tidak dapat langsung dijalankan pada form, harus menggunakan File - New- Frame. Main menu untuk membuat menu di atas program kita, tujuannya untuk mempermudah dalam navigasi. PopUpMenu digunakan apabila kita mengclick kanan pada sutu program kan nanti akan muncul menu, itu dibuat menggunakan PopUpMenu. Label digunakan untuk menulis teks. Edit berguna untuk input data. Memo untuk menginput data dan catatan dalam jumlah karakter yang banyak. Button digunakan untuk memproses suatu progam sesuai perintah yang diberikan. Checkbox digunakan untuk memberi pilihan yang lebih dari satu pilihan. Radio Button digunakan untuk memilih salah satu pilihan saja.
Cara untuk menggunakan componen-componen tersebut yaitu dengan mengclick 2X pada salah satu componen yang diinginkan. Misalnya kita ingin menampilkan tulisan "Selamat Datang", caranya yaitu di componen Standar ada label yang gambarnya seperti ini . Klik 2 kali, lalu pada jendela Form akan muncul seperti ini



disitu terlihat ada Label1. Untuk mengatur Label tersebut kita bisa mengubah nya di Jendela Object Inspector Properties


Properties Caption gunanya untuk menampilkan tulisan yang diinginkan. Misalnya kita tuliskan di properties Caption ganti tulisan Label1 menjadi Selamat Datang. Kemudian di properties ada Font , font digunakan untuk mengatur fomat tulisan yang diinginkan. Klik di font bagian sebelah kanan disitu kita bisa mengatur formatnya.



Klik OK dan pada Form kita akan melihat perubahan pada label tadi.


slamat mencoba

diposkan oleh ADAM ABRAHAM

MENGENAL DELPHI

Pengenalan Delphi

Pasti sebagian besar orang sudah tau apa itu Deplhi? Untuk yang belum tau saya bahas disini semampu saya saja ya..... Apa Anda tau kalau belajar program itu sangat mengasyikan? Kita bisa mengasah logika kita disini. Delphi merupakan salah satu software pembuat program basic. Seperti apa itu Delphi? Untuk tampilan icon luarnya seperti ini.


Kali ini saya akan memperkenalkan seperti apa itu delphi bagian-bagiannya dan selanjutnya saya akan membuat sebuah contoh program dasar menggunakan Delphi.
Cara masuk ke program Delphi sangat mudah pertama apabila kita sudah memiliki software nya kita langsung double klik saja iconnya, kemudian Delphi akan memunculkan gambar seperti ini

Gambar diatas saat loading membuka program Delphi. Disini saya memakai contoh Borland Delphi 7.
Delphi sudah terbuka tampilannya seperti ini

Ini adalah baris Menu

Ini adalah Toolbar

Ini adalah Componen Palette

Ini adalah Jendela Object Tree View

Ini adalah Jendela Object inspector

Ini adalah Jendela Form

Untuk mulai membuat program dasar kita bisa langsung ke Menu File - New - Other


Klik sekali akan memunculkan jendela New Item seperti ini

Kita pilih yang Console Application, double klik atau pilih lalu tekan OK

Akan memunculkan Project untuk menuliskan program seperti ini. Disini tempat kita menuliskan perintah-perintah yang selanjutnya akan dijalankaan oleh komputer atau kita sebut sebagai program. Di dalamnya terdapat program, uses, begin, dan end. Untuk pembuatan program yang lebih rinci akan ada tambahan lain seperti var, type, procedure, function. Namun sebagai dasar kita memahami cara kerja suatu program dulu.

Untuk di sebelah tulisan program itu adalah nama program yang akan kita buat misalnya sebagai contoh kita tulis coba, jadi namanya adalah program coba.

Suatu program itu terdiri dari Input, Proses, dan Output. Programer yang baik akan menuliskan programnya berdasarkan Input, Proses, dan output secara berurutan tidak acak-acakan.
Di dalam program Delphi ada perintah-perintah dasar seperti write, readln, writeln, juga perintah-perintah lain yang akan saya bahas dalam postingan selanjutnya.
write adalah perintah untuk menuliskan input
readln adalah perintah untuk membaca input
writeln adalah perintah untuk mencetak hasil atau disebut juga keluaran
Contoh program sangat sederhana seperti ini

setiap perintah diakhiri dengan tanda ; atau (titik koma*)
cara menjalankan program dengan menekan F9 pada keyboard, lalu akan tampil seperti ini apabila tidak ada kesalahan dalam menuliskan program

terlihat ada perintah untuk memasukkan nama disitu. Inilah kiranya pengenalan dasar mengenai Delphi. Untuk pembahasan mengenai Delphi selanjutnya akan dibahas dalam postingan saya yang akan datang hohohohoho............

diposkan oleh ADAM ABRAHAM

MENGENAL DELPHI

Pengenalan Delphi

Pasti sebagian besar orang sudah tau apa itu Deplhi? Untuk yang belum tau saya bahas disini semampu saya saja ya..... Apa Anda tau kalau belajar program itu sangat mengasyikan? Kita bisa mengasah logika kita disini. Delphi merupakan salah satu software pembuat program basic. Seperti apa itu Delphi? Untuk tampilan icon luarnya seperti ini.


Kali ini saya akan memperkenalkan seperti apa itu delphi bagian-bagiannya dan selanjutnya saya akan membuat sebuah contoh program dasar menggunakan Delphi.
Cara masuk ke program Delphi sangat mudah pertama apabila kita sudah memiliki software nya kita langsung double klik saja iconnya, kemudian Delphi akan memunculkan gambar seperti ini

Gambar diatas saat loading membuka program Delphi. Disini saya memakai contoh Borland Delphi 7.
Delphi sudah terbuka tampilannya seperti ini

Ini adalah baris Menu

Ini adalah Toolbar

Ini adalah Componen Palette

Ini adalah Jendela Object Tree View

Ini adalah Jendela Object inspector

Ini adalah Jendela Form

Untuk mulai membuat program dasar kita bisa langsung ke Menu File - New - Other


Klik sekali akan memunculkan jendela New Item seperti ini

Kita pilih yang Console Application, double klik atau pilih lalu tekan OK

Akan memunculkan Project untuk menuliskan program seperti ini. Disini tempat kita menuliskan perintah-perintah yang selanjutnya akan dijalankaan oleh komputer atau kita sebut sebagai program. Di dalamnya terdapat program, uses, begin, dan end. Untuk pembuatan program yang lebih rinci akan ada tambahan lain seperti var, type, procedure, function. Namun sebagai dasar kita memahami cara kerja suatu program dulu.

Untuk di sebelah tulisan program itu adalah nama program yang akan kita buat misalnya sebagai contoh kita tulis coba, jadi namanya adalah program coba.

Suatu program itu terdiri dari Input, Proses, dan Output. Programer yang baik akan menuliskan programnya berdasarkan Input, Proses, dan output secara berurutan tidak acak-acakan.
Di dalam program Delphi ada perintah-perintah dasar seperti write, readln, writeln, juga perintah-perintah lain yang akan saya bahas dalam postingan selanjutnya.
write adalah perintah untuk menuliskan input
readln adalah perintah untuk membaca input
writeln adalah perintah untuk mencetak hasil atau disebut juga keluaran
Contoh program sangat sederhana seperti ini

setiap perintah diakhiri dengan tanda ; atau (titik koma*)
cara menjalankan program dengan menekan F9 pada keyboard, lalu akan tampil seperti ini apabila tidak ada kesalahan dalam menuliskan program

terlihat ada perintah untuk memasukkan nama disitu. Inilah kiranya pengenalan dasar mengenai Delphi. Untuk pembahasan mengenai Delphi selanjutnya akan dibahas dalam postingan saya yang akan datang hohohohoho............

diposkan oleh ADAM ABRAHAM

MP3 PLAYER MENGGUNAKAN DHELPHI

MP3 PLAYER MENGGUNAKAN DHELPHI

Sore ini saya ingin share mengenai pembuatan MP3 Player menggunakan Borland Delphi. Disini saya menggunakan Borland Delphi 7. Seperti apa MP3 Playernya. Seperti ini kurang lebih



Sederhana namun tidak memakan memory yang cukup besar, bekerja sesuai fungsinya, meski sederhana namun dapat bekerja dengan baik layaknya pemutar MP3 lainnya. Mau belajar cara membuatnya. Sangat mudah yang pertama kita siapkan 1 buah Form. Kemudian pada componen System ada media player seperti ini gambarnya
Media player dipilih kemudian tempatkan di Form. Pada componen Dialogs pilih OpenDialog . Pada componen Win32 pilih objek XPMainFest seperti in i . Kemudian di componen System pilih Timer . Di standar pilih Button dan tempatkan di Form. Dan terakhir pilih componen System, kemudian tempatkan Progress Bar di form . Tempatkan semua componen dalam 1 form, kurang lebih tampilannya nanti akan seperti ini.


Sekarang di form pilih objek Media Player kemudian atur Property nya. Di property Visible Button ganti menjadi False pada btNext, btPrev, btEject, btRecord. Yang lainnya True.
Di objek Open Dialog pada property Filter dipilih, kemudian tuliskan *.mp3 fungsinya yaitu kita akan membuka file music yang hanya berekstensi mp3 saja. Filter name tuliskan MPEG Audio Files.


Caption di button tuliskan music mp3 atau terserah sesuai keinginan Anda.
Tambahkan variable global seperti ini di bawah var

Mp3Path: string;
paused: Boolean;

jadi nanti hasilnya kan seperti ini
var
Form1: TForm1; //disini saya menggunakan nama Form1
Mp3Path: string;
paused: Boolean;

Sekarang kembali ke Form kemudian double click Form nya, lalu kita masukkan kode ini pada procedure TForm1.FormCreate(Sender: TObject);

paused:=false;
MediaPlayer1.Enabled:=False;
Form1.Height:=115;
Form1.Width:=435;
Form1.Top:=(Screen.Height-Form1.Height)div 2;
Form1.Left:=(Screen.Width-Form1.Width)div 2;

Kembali ke Form, lalu sekarang double click pada Media Player, masukkan code pada procedure TForm1.MediaPlayer1Click(Sender: TObject; Button: TMPBtnType;
var DoDefault: Boolean);

if Button = btStop then
begin
MediaPlayer1.Position:=0;
ProgressBar1.Position:=0;
end
else if Button = btStep then
begin
if ((MediaPlayer1.Position+5000)<=MediaPlayer1.Length) then
MediaPlayer1.Position:=MediaPlayer1.Position+5000
else
begin
MediaPlayer1.Position:=0;
ProgressBar1.Position:=0;
end;
MediaPlayer1.Play;
end
else if Button = btBack then
begin
if ((MediaPlayer1.Position-5000)>0) then
MediaPlayer1.Position:=MediaPlayer1.Position-5000
else
MediaPlayer1.Position:=0;
MediaPlayer1.Play;
end;

Kembali ke Form lalu double click pada objek Timer, tambahkan code ini pada procedure TForm1.Timer1Timer(Sender: TObject);

if MediaPlayer1.Enabled then
begin
ProgressBar1.Position:=MediaPlayer1.Position;
if ProgressBar1.Position=MediaPlayer1.Length then
begin
MediaPlayer1.Stop;
ProgressBar1.Position:=0;
MediaPlayer1.Close;
MediaPlayer1.Enabled:=true;
MediaPlayer1.FileName:=Mp3Path;
MediaPlayer1.Open;
MediaPlayer1.Position:=0;
ProgressBar1.Max:=MediaPlayer1.Length;
ProgressBar1.Min:=0;
end;
end;

Sekarang pada Button klik 2x kemudian tambahkan source kode ini pada procedure TForm1.Button1Click(Sender: TObject);

if OpenDialog1.Execute then
begin
Mp3Path:=OpenDialog1.FileName;
with MediaPlayer1 do
begin
Enabled:=true;
FileName:=Mp3Path;
Open;
Position:=0;
Play;
end;
ProgressBar1.Max:=MediaPlayer1.Length;
ProgressBar1.Min:=0;
end;

Selesai dan jalankan dengan menekan F9. Kini Anda punya pemutar MP3 buatan sendiri ^_^

diposkan oleh ADAM abraham

  © Blogger templates The Professional Template by Ourblogtemplates.com 2008

Back to TOP