Cara memutar mp3 di Delphi 7

Hallo sobat.... disini aq ingin berbagi bagaimana cara memutar mp3 di delphi..
Untuk tahap pemula....

• Langkah pertama siapkan Form application pada delphi (Form1)
• Langkah kedua klik System sperti contoh gambar :

• Klik setelah itu arahkan kursor pada Form yg akan kita buat. klik 1x maka akan muncul gambar .

•  Langkah ke 4 cari Dialogs di sebelah kanan atas seperti gambar kmudian klik icon setelah itu arahkan kursor pada Form yg akan kita buat. klik 1x maka akan muncul logo di form yg akan kita buat. kegunaanyya: untuk memanggil/mencari mp3 yg akan kita putar nanti.

• Langkah ke 5...klik Standar sperti contoh gambar maka akan muncul pilihan  

          klik Button setelah itu arahkan kursor pada Form yg akan kita buat. klik 1x maka akan muncul  gambar Langkah selanjutnya lihat propertis ganti nama caption> Button1 menjadi> Cari

• Langkah selanjutnya klik Win32 setelah itu klik ProgressBar1 setelah itu arahkan kursor pada Form yg akan kita buat. klik 1x maka akan muncul
• Langkah ke 7 sama seperti langkah ke dua..klik System sperti contoh gambar : bedanya seperti langkah ke dua kalo langka ke 7 ini klik letakkan pada form yg akan kita buat.
• Langkah ke 8...klik Standard klik Edit1 letakkan pada form yg akan kita buat.
• Langkah ke 9 tahap penCodingan. dobel klik Timer isi Coding seperti di bawah ini                          procedure TForm1.Timer1Timer(Sender: TObject);
  begin
  if ProgressBar1.Max<>0 then
  ProgressBar1.Position:=MediaPlayer1.Position;
  end; 
• Langkah ke 10..Dobel klik Button isi Coding seperti di bawah ini:                             procedure TForm1.Button1Click(Sender: TObject);
  begin
  if Opendialog1.Execute then
  begin
  Edit1.Text:=Opendialog1.FileName;
  end;
  ProgressBar1.Max:=0;
  MediaPlayer1.Close;
  MediaPlayer1.FileName:=Edit1.Text;
  MediaPlayer1.Open;
  ProgressBar1.Max:=MediaPlayer1.Length;
  end;       
• Langkah ke 11..Dobel klik pada form1 yg kita buat itu lalu isikan coding                                             procedure TForm1.FormCreate(Sender: TObject);
  begin
  ProgressBar1.Position:=0;
  end;
• Langkah ke 12. Save pada folder yg anda buat. setelah itu Run/ klik F9
• Hasil : 

 

 Selamat mencoba,,,,,

Read more »

Cara Membuat ENTER DI TEdit (EDIT) Di Borland Delphi 7

Langkah pertama

• Pilih Komponent EDIT dari Page Standard

• Atur lah Letak Design Form dan tambahkan Komponen Label dari Page Standard

Note :
a. Buatlah Seperti gambar dibawah ini

• Kemudian klik properties pada Komponen Edit1 dan Double klik pada Onkeypress

Isi dengan Listing Program dibawah ini

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
If Key=#13 then
Begin
Edit2.setfocus;
end;

• Kemudian klik properties pada Komponen Edit2 dan Double klik pada Onkeypress

Isi dengan Listing Program dibawah ini

procedure TForm1.Edit2KeyPress(Sender: TObject; var Key: Char);
begin
If Key=#13 then
Begin
Edit3.setfocus;
end;

• Kemudian klik properties pada Komponen Edit3 dan Double klik pada Onkeypress

Isi dengan Listing Program dibawah ini

procedure TForm1.Edit3KeyPress(Sender: TObject; var Key: Char);
begin
If Key=#13 then
Begin
Edit1.setfocus;
end;


Klik Ctrl+Shift+S Untuk Menyimpan Listing tersebut
Tekan F9 Untuk Running Program nya, Akan terlihat seperti tampilan Dibawah ini





Note : Tekan ENTER Pada KeyBoard Terus Menerus.. Maka Kursor Otomatis Akan berpindah dari edit 1 ke Edit 2 dan 3 dan seterusnya.

Fungsi : Fungsi ini memudahkan kita dalam berpindah kursor dengan kata lain memindahkan kursor TANPA bantuan Mouse dan Tombol TAB pada Keyboard.

Aplikasi Telah selesai “Selamat Mencoba”

Note : Aplikasi ini Bersifat Standart (Pemula),, sebagai bahan pembelajaran dalam studi Programing.

Read more »