Membuat Mp3 Player dengan Delphi

Mp3 Player alias Pemutar musik. atau apa sajalah. yang jelas buat menjalankan File Mp3. Aplikasi semacam ini sudah banyak bergentayangan di dunia maya mulai dari yang free hingga Pro. tapi Sepertinya kebanyakan Free dengan Fasilitas Terbatas, Jika ingin Fasilitas tambahan ya harus bayar. Howalah, begitu ya cara mengakali pengguna Aplikasi ? hehe

For Example : Winamp, Spider Player dan Lain Sebagainya. sudah banyak yang share dan Dapat dengan mudah kita dapatkan. Namun Bagaimana Jika Kita Ingin Membuat Sebuah Pemutar Musik Sendiri ? Bisakah dengan Delphi? Jawabannya Tentu saja Bisa. Disini Admin Ingin Sharing Sebuah Aplikasi Pemutar Musik Sederhana dengan Delphi.

Silahkan Modifikasi dan dikembangkan Sendiri. :)

Screenshoot :

Download :

Source Code

Import Data Excel Ke Database MySQL dengan Delphi

Import Data dari File Excel kadang diperlukan oleh sebuah aplikasi karena biasanya, System Aplikasi Perkantoran Jaman dahulu mentok menggunakan Microsoft Excel. Dengan Menggunakan Fasilitas Import data ini, Bertujuan untuk tidak merepotkan End User agar data-data awal yang ada di excel tidak di inputkan lagi secara manual. coba deh sobat bayangin bagaimana capeknya kalau datanya ada 1000 atau mungkin 10000. Berapa lama waktu yang akan diperlukan ?

Solusi dari pertanyaan diatas adalah dengan menggunakan Fasilitas Import data pada aplikasi yang anda bangun. Postingan Sebelumnya kan udah membahas Bagaimana Melakukan Export Data Ke Format Microsoft Excel. Rasanya Kurang Komplit Kalo Gak ada Proses Import dari Hasil Exportnya. Biar tidak Panjang lebar, mari kita mulai.

Untuk Kasus dan Desain Form Sama Seperti Postingan Sebelumnya (Eksport data ke Microsoft Excel) Silahkan Baca disini jika anda belum membacanya agar prosesnya menjadi lebih mudah.

1. Tambahkan didalam Uses : Excel2000

2. Buat Prosedur dan Fungsi : Download disini

3. Tambahkan Setelah Code {$R *.dfm} : Download disini

4. Karena Ada Field di dalam database yang berhubungan dengan tanggal jadi jangan lupa Mengganti Format Tanggal di komputer anda menjadi (yyyy-mm-dd). Saya menyarankan agar anda menetapkan format tanggal komputer anda menjadi yyyy-mm-dd selama belajar Import dan Eksport data ke Excel (Jika ada Field di database anda berhubungan dengan tanggal)

Download Contoh Source Lengkap Disini

Export Database MySQL Ke Excel dengan Delphi

Seperti yang kita ketahui, Aplikasi yang cerdas adalah aplikasi yang bisa melakukan apa saja. Bisa kita katakan Bahwa dari kecerdasan Aplikasi itulah tempat nilai jualnya. Semakin Pintar Sebuah Aplikasi maka semakin Mahal Harganya. Coba Deh Bandingkan Harga Ponsel yang hanya bisa Mengirim dan Menerima SMS dengan Ponsel Smartphone Android. Jauh Banget Kan ? (Kok jadi ngomongin Handphone)

Utilitas Export data Dari Database adalah salah satu hal yang sangat penting dalam sebuah aplikasi. apalagi Eksport data ke Microsoft Excel karena kebanyakan Pegawai-Pegawai perusahaan lebih akrab dengan Microsoft Excel. Untuk itu pada postingan ini saya akan sharing tentang cara Export data dari MySQL ke Excel.

Untuk Melakukan Export data Ke Excel ada beberapa hal yang perlu sobat perhatikan sebelum melanjutkan ke tahap berikutnya pada postingan ini. Pertama, Pastikan sudah tidak ada masalah dengan koneksi database. jika sobat belum faham atau masih ada masalah silahkan baca postingan sebelumnya. Kedua, Pastikan proses CRUD data Sudah tidak ada masalah. jika sobat masih bingung silahkan baca postingan sebelumnya. Ketiga, Pastikan ada Data yang tersimpan didalam Tabel Database Sobat. kalo tidak ada apa yang mau diexport ?

Contoh Kasus Kita akan melakukan Export Data yang ada di Tabel User.

Desain Form Saya Seperti ini

Selanjutnya Masalah Coding. Karena Tanpa Coding tentu saja Prosesnya Tidak akan Jalan.

1. Tambahkan ini didalam Uses Anda : ComObj
2. Jangan Lupa Deklarasikan Fungsinya : function userKeExcel(ASheetName, AFileName: string): Boolean;
3. Tambahkan Code ini Tepat Setelah {$R *.dfm}

Download disini

4. Tambahkan Code ini didalam Button Export :

Download disini

5. Karena Ada Field yang berhubungan dengan Tanggal Jadi Jangan Lupa Mengganti Format Tanggal Komputer Anda Menjadi (yyyy-mm-dd).

Download Contoh Source Codenya disini

Membuat Menu Seperti Office 2010 Pada Delphi

Tampilan Office 2007 Memang Memukau dan Sangat Menggoda. Dengan Menu Ribbonnya, Ia Mampu Menyedot Perhatian Saya Sehingga terbersit Niat di hati untuk membuat aplikasi dengan Menu Office 2007 Tersebut (Sok Puitis) hehe.

Ok. Kita Fokus ke Pembahasan. Kali ini admin mau sharing tentang cara membuat menu seperti tampilan Microsoft Office 2007. Namanya adalah menu Ribbon. Lohh Katanya Seperti Office 2010 bagaimana sih ? saya anggap sama karena bentuknya sama. :)

Biar gak buang-buang waktu karena admin banyak kerjaan jadi langsung aja.

Step 1 : Download dulu software atau component yang yang dibutuhkan. dalam Hal ini adalah DevExpress. Download disini

Step 2 : Install component yang di download tadi. saya anggap sudah beres karena saya tidak meragukan kemampuan sobat dalam hal instal menginstal.

step 3 : Buka Delphi sobat ! Perhatikan Pallete-nya. Jika seperti dibawah ini, berarti instalasi sudah sukses.

step 5 : Pada Pallete ExpressBar, Tambahkan Komponen dxBarManager dulu, setelah itu dxRibbon.
step 6 : klik dua kali komponen dxBarManager lalu tambahkan Beberapa Toolbar

step 7 : Klik Kanan Pada komponen dxRibbonTab1 -> Add Tab. kemudian pada masing-masing Tab ganti Captionnya pada Object Inspector

Step 8 : Klik 1 Kali Tab Home. Lihat Pada Object TreeView Sobat -> dxRibbon -> dxRibbonTab1 -> Group -> Add Item

Step 9 : Klik 1 Kali Item yang tadi ditambahkan pada Group (tdxRibbonTabGroup). Perhatikan Object Inspector Sobat. ToolBar -> Pilih Salah Satu Toolbar yang tadi dibuat dengan dxBarManager (Pada Step 6)

Step 10 : Ulangi Langkah 8 dan 9 Agar Semua Toolbar ditambahkan pada tdxRibbonTabGroup. Hasil Sementara Seperti dibawah ini :

Step 11 : Klik Kanan Pada salah satu dari tiga Toolbar tersebut -> Add Large Button. Ubah Captionnya sesuai Kebutuhan. Jika Ingin Menambahkan gambar Pilih LargeGlyph

Step 12 : Saya Kira Tugas Saya Sudah Selesai. Selamat Berkreasi dan Silahkan Kembangkan Sendiri

Membuat Laporan Pertanggal Dengan QuickReport Delphi

Seringkali Dalam Membuat Aplikasi ada Permintaan Untuk Mencetak Laporan Berdasarkan Parameter Tertentu atau Berdasarkan Tanggal Tertentu. Dan Memang Itu sangat Penting. Untuk Itu, Disini, Admin Ingin Berbagi sedikit pengetahuan tentang bagaimana melakukan pencetakan Laporan Data Pertanggal.

Study Kasus Untuk Masalah ini kita akan mencetak Data dalam Tabel Nasabah Berdasarkan Parameter Tanggal yang dipilih dari dua buah DateTimePicker. Date Time Picker Pertama merupakan tanggal Awal Data yang akan dicetak sedangkan Date Time Picker Kedua Merupakan Tanggal Akhir Data yang akan dicetak. Intinya data yang akan di cetak antara tanggal di Date Time Picker 1 dan Date Time Picker 2.

Step 1 : Desain Form Sobat Seperti dibawah ini (lebih bagus lebih baik)

Step 2 : Pastikan Sudah Tidak ada Masalah dengan koneksi ke database
Step 3 : Tambahkan Code ini pada Button Cetak

 // Bersihkan Query Lap Nasabah
 QLapNasabah.SQL.Clear;
 // Ambil Data di Tabel Nasabah Berdasarkan TanggalRegister Antara DatetimePicker1 dan DatetimePicker2
 QLapNasabah.SQL.Add('SELECT * from nasabah WHERE(((TanggalRegister) BETWEEN '''+FormatDateTime('yyyy-mm-dd',DateTimePicker1.Date)+''' AND '''+FormatDateTime('yyyy-mm-dd',DateTimePicker2.DATE)+'''))ORDER BY Nomor asc');
 // Aktifkan Query Lap Nasabah
 QLapNasabah.Active:=True;
 // Tampilkan Laporan
 NasabahReport.Preview;

 // Bersihkan Query Lap Nasabah
 QLapNasabah.SQL.Clear;
 // Ambil Semua Data yang ada di Tabel nasabah
 QLapNasabah.SQL.Add('select * from nasabah');
 // Aktifkan Query Lap Nasabah
 QLapNasabah.Active:=True;

Cara Menentukan Tanggal yang akan datang Pada Delphi

Aplikasi yang bagus adalah aplikasi yang cerdas. Bisa melakukan hal-hal dengan cepat untuk meringankan beban kerja manusia. Begitulah tujuan dibuatnya sebuah aplikasi. Berikut Admin Ingin Sharing tentang cara Menentukan Tanggal yang akan datang.

Suatu misal Tanggal Hari ini adalah tanggal 20/01/2013. nah, kira-kira 1 minggu berikutnya tanggal berapa ? jika jarak hari berikutnya dengan tanggal hari ini masih dekat tentu kita masih bisa menghitunggnya. namun bagaiamana menentukan 2 bulan atau 6 bulan berikutnya tanggal berapa ? tentu kita akan sulit menghitungnya.

Tahap Pertama : Tambahkan DateUtils didalam Uses Sobat.

Uses
DateUtils;

Tahap Kedua : Desain Form Sobat Seperti ini (lebih bagus lebih baik)

Tahap Ketiga : Tambahkan Code ini didalam Button 3 Hari yang akan datang

var
myDate : TDateTime;
begin
myDate:=DateTimePicker1.Date;
myDate := IncDay(myDate, 3);
edit1.text:=DateToStr(myDate);
End;

Tahap Empat : Tambahkan Code ini didalam Button Seminggu yang akan datang (7 Hari)

var
myDate : TDateTime;
begin
myDate:=DateTimePicker1.Date;
myDate := IncDay(myDate, 7);
edit2.text:=DateToStr(myDate);
End;

Tahap Lima : Tambahkan Code ini didalam Button Satu Bulan yang akan datang (30 Hari)

var
myDate : TDateTime;
begin
myDate:=DateTimePicker1.Date;
myDate := IncDay(myDate, 30);
edit3.text:=DateToStr(myDate);
End;

Hasilnya Seperti Gambar Berikut :

Shutdown dan Restart Komputer Dengan Delphi

Ada Banyak hal yang dapat kita lakukan pada komputer jika kita bisa Bahasa Pemrograman. Aksi Hacking dan Cracking dilakukan karena Mereka Mahir dalam Bahasa Pemrograman untuk memanipulasi Script-script yang dibuat oleh Developer. Dalam Hal ini Admin Tidak Termasuk ya. hehe

Postingan ini tidak akan membahas tentang Hacking dan Cracking namun Admin ingin berbagi tips dan mengajak anda untuk lebih kreatif bagaimana Meremote Windows dengan Delphi. Kita akan Belajar Bagaimana Merestart dan Menshutdown Komputer (Windows).

Pertama : Desain Form Sobat Seperti dibawah ini (lebih bagus lebih baik)

Kedua 1 : Klik dua kali Button Shutdown dan Tambahkan Code ini :

winexec('shutdown -s -t 0 -f',sw_normal);

Kedua 2 : Klik dua kali Button Restart dan Tambahkan Code ini :

winexec('Shutdown -r -t 0 -f',sw_normal);

Selesai. Silahkan dijalankan dan coba tekan salah satu Tombol Button.