Membuat Pemutar Musik Sendiri Dengan Delpi

Membuat program pemutar music bukanlah hal yang sulit, dengan menggunkan program Delphi kita dapat membuatnya sendiri. Fitur-fitur Delphi telah mendukung untuk membuat program MP3 sendiri. Bagaimana mana membuatnya sehingga dapat menghasilkan fitur seperti MP3 player yang sering digunakan ?

Nah gambar dibawah ini adalah hasil dari membuat MP3 Player dengan Delphi

Cara membuatnya adalah sebagi berikut :

• Buatlah project baru, kemudian tambahan di Form component Media Palyer (System-MediaPlayer) 
• Tambahkan component timer dan pastikan property Enabled-nya bernilai True, dan Intervalnya bernilai 1000.  
• Tambahkan komponen OpenDialog untuk mengambil file mp3. Lalu pada object inspector untuk OpenDialog, pilih property Filter. Pada filter editor, kita tambahkan filter untuk file mp3 agar aplikasi ini hanya dapat membuka file mp3 saja. Misal Filter Name-nya MPEG Audio Files (*.mp3), sedangkan Filter-nya isi dengan *.mp3  
• Tambahkan component button dan Progressbar yang ada di Win32  
• Atur tampilannya sehingga tampak seperti gambar diatas   
• Kemudian tambahkan variable global :

paused: boolean;
PathMP3: string;

• Klik dua kali pada Form dan tambahkan source code dibawah ini sebagai berikut

procedure TForm1.FormCreate(Sender: TObject);
begin
paused := false;
MediaPlayer1.Enabled := False;
end;

• Double klik object MediaPlayer kemudian tambahkan coding berikut : (pada even onclick mediaplayer)

procedure TForm1.MediaPlayer1Click(Sender: TObject; Button: TMPBtnType;
var DoDefault: Boolean);
begin
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;
end;

• Double click object Timer dan tambahkan coding berikut ini :

procedure TForm1.Timer1Timer(Sender: TObject);
begin
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 := PathMP3;
MediaPlayer1.Open;
MediaPlayer1.Position := 0;
ProgressBar1.Max := MediaPlayer1.Length;
ProgressBar1.Min := 0;
end;
end;
end;

• Kemudian yang terakhir adalah double click object button dan tambahkan coding sebagai berikut :

procedure TForm1.SpeedButton1Click(Sender: TObject);
begin
if OpenDialog1.Execute then
begin
PathMp3 := OpenDialog1.FileName;
with MediaPlayer1 do
begin
Enabled := true;
FileName := PathMP3;
Open;
Position := 0;
Play;
end;
ProgressBar1.Max := MediaPlayer1.Length;
ProgressBar1.Min := 0;
end;
end;


Nah jadilah MP3 Player kreasi sendiri, kemudian cobalah buka file MP3 untuk memutar lagi yang diinginkan. Jika anda ingin melihat contoh progam yg sudah jadi silahkan klik disini

Selamat Mencoba, Semoga Bermanfaat !!

Read More

Teluk Kiluan Lampung Surga Yang Tersembunyi

Eko Rudianto Blogs - Wisata alam Pulau/Teluk Kiluan di Pekon (Desa) Kiluan Negeri, Kecamatan Kelumbayan, Kabupaten Tanggamus Provinsi Lampung, cocok bagi Wisatawan yang gemar berpetualang. Topografinya yang berbukit dan berlembah menarik untuk dijelajahi. Perjalanan menuju Teluk Kiluan sudah merupakan tantangan tersendiri bagi Wisatawan. Jalan darat di Pesisir Barat Sumatera itu belum terlalu mulus sehingga perlu keterampilan dalam mengemudikan Kendaraan Bermotor untuk melewatinya.

Pantai di Teluk Kiluan yang cocok untuk dijadikan “Getaway Destination”. Di Pantai terdapat Gubuk atau Rumah Panggung yang cukup layak dijadikan tempat menginap para Pelancong.

Mengenai sejarah atau asal-usul kiluan. Sebetulnya banyak legenda yang bercerita tentang Kiluan, tapi ada satu legenda yang sampai sekarang masih beredar dan dipercaya oleh Masyarakat sekitar. Legenda berawal saat era mulai runtuhnya Kerajaan Majapahit dan Islam masuk Indonesia. Di kawasan yang awalnya Umbul atau perlambangan masyarakat Pekon Bawang, dikenal seorang pendatang yang sangat tinggi kesaktiannya. Dia bernama Raden Mas Arya yang berasal dari daerah Banten atau Malaka. Raden Anta Wijaya sangat dikenal Pemberani. Namun, banyak kerabatnya yang tidak senang kepada dia dan berusaha untuk membunuhnya.

 

Karena itu, akhirnya Raden Anta Wijaya meminta kerabatnya yang ingin membunuh dirinya tersebut agar membawanya ke Pulau yang saat ini bernama Pulau Kiluan. Sebab, dia hanya bisa dibunuh di Pulau itu, selanjutnya Raden Anta Wijaya dibunuh di Pulau tersebut. Karena kesaktiannya yang belum terkalahkan, dia bisa tahu kapan ajalnya akan tiba.

Konon, kumpulan Lumba-Lumba di Teluk Kiluan adalah yang terbesar di Asia. Bahkan, di Dunia. Wisatawan yang berminat menyaksikan dari dekat Lumba-Lumba di Habitat aslinya bisa menyewa Perahu Katir. Jika beruntung, Wisatawan juga bisa menyaksikan Penyu Hijau, yang di waktu-waktu naik ke permukaan Laut. Belum puas menikmati alam pemandangan di Teluk Kiluan, pengunjung bisa menginap di sana. Hanya, kondisi penginapan memang belum terlalu bagus.

 

Di Pulau ini anda dapat melihat kumpulan Lumba-Lumba yang jumlahnya ratusan ekor. Setidaknya ada dua jenis Lumba-Lumba di perairan ini, spesies pertama adalah Lumba-Lumba Hidung Botol (Tursiops Truncatus) dengan badan yang lebih besar dan pemalu. Spesies yang kedua adalah Lumba-Lumba Paruh Panjang (Stenella Longirostris) yang bertubuh lebih kecil dan senang melompat.

 

Selain itu Anda juga bisa keliling Pulau dengan Perahu Katir sambil menikmati pemandangan yang indah. Sore hari, Anda bisa melihat primata berbulu hitam dan bersuara nyaring saling bersahutan. Ya, siamang (symphalangus syndactylus) dan Simpai (Presbythis Melalops) serta Kukang (Nycticebus Coucang). kerap sekali terlihat meloncat dari satu pohon ke pohon lain. kicauan burung pun terdengar hampir di setiap pagi dan sore yang mampu menyejukkan pikiran. Jika beruntung, Wisatawan juga bisa menyaksikan Penyu Hijau (Chelonia Mydas) dan Penyu Sisik (Eretmochelys imbricate), yang di waktu-waktu tertentu menepi ke Pantai.

 

Belum lagi jika Anda ke Kiluan pada saat Bulan Purnama. Wah…keindahan sang purnama bakal menimbulkan rasa takjub kepada Sang Maha Pencipta. Bagaimana tidak, cahaya Bulan jatuh di atas permukaan air Laut hingga membuat terang benderang. Keindahan alam ini bakal menjadi kenangan yang tak mudah dilupakan begitu saja.

Rute Menuju Kiluan

Untuk mencapai Kiluan dari Jakarta dan sekitarnya adalah anda harus menyebrangi Selat Sunda dari Pelabuhan Merak menuju Pelabuhan Bakaheuni di Lampung. Anda bisa menggunakan kendaraan pribadi ataupun angkutan umum (bis arimbi, primajasa, atau lainnya jurusan jakarta/bekasi/bogor) menuju Pelabuhan Merak. Untuk menyeberang dari pelabuhan merak ke bakauheni, anda akan dikenakan biaya sekitar Rp 15.000/orang atau bila menggunakan mobil mini bus seperti Avanza, Xenia, dan lain-lain biaya penyebrangan satu mobil sekitar Rp 235.000. Waktu yang dibutuhkan untuk menyebrang dari Pelabuhan Merak ke Bakauheni adalah selama 2 hinga 4 jam tergantung pada cuaca dan juga kapal yang anda naiki.

Setelah sampai di Pelabuhan Bakaheuni, anda bisa menuju Bandar Lampung dan juga ke Desa Kiluan ini. Perjalanan dari Bandar Lampung menuju Kiluan adalah sekitar 6 jam menggunakan kendaraan pribadi. Rute menuju Teluk Kiluan adalah start dari Bandar Lampung berjalan ke arah Padang cermin hingga menemui persimpangan masuk pangkalan TNI AL. Di persimpangan itu ambil jalur ke kiri menuju pangkalan AL/Bumi Marinir/Punduhpidada (jika ke kanan akan ke arah Kedondong). Jalan terus hingga Pasar Bawang, di persimpangan pasar itu ambil jalur ke kanan hingga menemui persimpangan terakhir. Pada persimpangan terakhir ini ambil arah kiri, di mana terdapat gapura menuju Teluk Kiluan.

Sesampainya di sana, tujuan selanjutnya adalah Kecamatan Punduh Pidada. Dari Padang Cermin sampai Punduh Pidada memakan waktu sekitar 2 jam perjalanan dengan kondisi jalan yang rusak parah. Selain itu tanjakan dan turunan merupakan tipikal rute tersebut. Dari Punduh Pidada, masih ada sekitar 7 km lagi untuk menuju Kiluan. Tentu dengan kondisi medan yang semakin terjal dan rusak parah. Penunjuk jalan dengan tulisan “Teluk Kiluan” juga mudah dijumpai dari tempat tersebut. Kurang lebih sekitar 1 jam perjalanan lagi, barulah sampai di Desa Bawang, Tanggamus yang merupakan gerbang untuk menuju Teluk Kiluan. Jangan kaget bila di desa ini akan melihat ornamen-ornamen khas Bali di setiap rumah penduduk. Di desa ini memang mayoritas penduduk berasal dari Bali maka banyak juga yang menamai desa tersebut dengan kampung Bali. Begitu sampai di pesisir teluk, kita bisa menitipkan kendaraan yang sudah disediakan di sana

Anda harus berhati-hati dalam berkendara karena jalan akses menuju desa kiluan banyak berlubang, terjal, dan anda harus melewati sungai kecil karena adanya jembatan yang sedang diperbaiki di desa kiluan. Jadi anda disarankan untuk jangan pergi atau pulang malam dari dan menuju kiluan karena tidak adanya penerangan disepanjang jalan serta tikungan dan turunan tajam dengan kondisi badan jalan yang berlubang karena akan sangat membahayakan perjalanan anda.

 

Namun, walaupun begitu, di berbagai spot perjalanan, anda akan disuguhi berbagai pemandangan yang menyejukan mata seperti berjalan diantara sawah, melewati kolam-kolam pembuatan garam dengan banyak kincir airnya. Bukit-bukit yang hijau terbentang. Di sepanjang jalan juga banyak biji-biji cengkeh yang dijemur. Sapi-sapi dan kambing-kambing juga banyak kita temui di sepanjang jalan.

Gapura Masuk Ke Teluk Kiluan

Untuk menyeberang ke pulau kiluan, anda dapat menggunakan perahu/jukung duntuk pulang-pergi dari dan menuju pulau kiluan (ditinggal oleh operator jukung, anda hanya perlu janjian jam berapa dijemput oleh operator jukung). Waktu yang dibutuhkan untuk menyeberang ke pulau kiluan tidaklah lama, kurang-lebih hanya memakan waktu 10-15 menit dari pelabuhan penyebrangan di teluk kiluan. Sewaktu saya ke kiluan, kondisi cuaca sedang tidak mendukung, sehabis hujan dan awan gelap menyelimuti langit. Walaupun begitu, pemandangan menuju kiluan tidak boleh ditinggalkan begitu saja tanpa mengambil beberapa jepretan kamera yang dibawa.

Menuju Ke Pulau Kiluan

Pulau Kiluan

Setibanya anda sampai di pulau kiluan, anda akan dihadapi dengan pemandangan hamparan pantai yang tidak begitu lebar namun mempesona. Pulau kiluan tidaklah luas namun memiliki pemandangan biorama sekitar yang eksotis. Jernihnya air laut yang hijau kebiruan sangatlah indah. 

 

Keistimewaan Teluk Kiluan

Salah satu keistimewaan Teluk Kiluan adalah atraksi lumba-lumba di laut lepas. Pengunjung bisa menikmati keindahan tarian lumba-lumba dengan naik perahu ke arah Samudera. Ada dua jenis lumba-lumba di perairan ini.

Spesies pertama adalah lumba-lumba hidung botol (Tursiops Truncatus) dengan badan lebih besar, berwarna abu-abu, dan pemalu. Spesies kedua adalah lumba-lumba paruh panjang (Stenella Longirostris) dengan tubuh lebih kecil dan senang melompat.

Daerah ini juga terkenal dengan keindahan alam dan surga bagi para pemancing handal. Setiap tahun diadakan lomba memancing di Teluk Kiluan yang diikuti oleh master-master pemancing seluruh Indonesia.

Kedua jenis lumba-lumba itu cukup akrab dengan manusia. Lumba-lumba senang mendekati perahu atau kapal yang tengah melintas di laut. Dari jauh, sirip lumba-lumba itu mirip antena kapal selam. Setelah dekat, lumba-lumba pun berloncatan, bergantian menyelam, timbul tenggelam, hampir tidak ada jarak dengan perahu. Mereka seolah berlomba menunjukkan diri kepada manusia dan mudah disentuh. Lumba-lumba itu tampak sangat menggemaskan, ingin rasanya memeluk dan menciumi mereka.

Menurut Ketua Yayasan Ekowisata Cikal, Riko Stefanus, atraksi lumba-lumba di Teluk Kiluan merupakan salah satu kekayaan alam dengan nilai jual wisata. Lumba-lumba di Teluk Kiluan tersebar di beberapa lokasi, antara lain Lengkalit, Teluk Bera, Pulau Legundi, Pulau Rakata, Pulau Tabuan, dan Pulau Hiu.

Berikut Gambar Diantara Keindahan Yang Dimiliki Teluk Kiluan

Dan masih banyak lagi keindahan TELUK KILUAN

Jika anda beminat untuk berkunjung ke Teluk Kiluan silahkan anda kunjungi situs Www.WisataTelukKiluan.Com

Read More

Mendesain Undangan Pernikahan Dengan Corel Draw

Di postingan kali ini saya akan menjelaskan bagaimana membuat undangan pernikahan dengan Corel Draw khususnya bagi pemula.

mungkin banyak jasa para Design yang lebih pintar dari kita mengenai undangan tapi alangkah senangnya kalau undangan yang kita buat adalah jerih payah kita sendiri… ya walaupun ga seprofesional yang di buat para jasa desiner undangan pada umumnya.

Ok mari kita lansung ke TKP nya saja. Begini caranya:

1. Buka Corel Draw X3

Start >> All Programs >> Corel Draw Graphics Suite X3 >> Corel Draw X3

Bentuk tampilan dari Corel Draw X3

2. Aturlah Lembar kerja, pilihlah F4 pada Property Bar: Multyple Object, seperti ini:

3. Klik Landscape (mendatar) pada Property Bar

4. Klik 2 kali pada Rectangle tool pada toolbox

5. Select object tersebut kemudian aturkan persegi dengan 21,0 cm x 12,5 cm, sebagai berikut: hasilnya…

6. Untuk menghasilkan kertas lipat, caranya:

a). Select object >> Arrange >> Transformations >> Position, seperti gambar ini:

b). Check kanan atau kiri pada Relative Position, kemudian klik Apply to Duplicate, maka hasilnya:

c). Select two object (maksudnya pilih kedua persegi tersebut) >> Arrange >> Group

d). Kemudian Arrange >> Align to Distribute >> Center to Page Horizontally lalu diulangi lagi >>Arrange >> Align to Distribute >> Center to page vertically, sehingga kedua persegi tersebut berada di tengah lembar kerja. Sepeti gambar ini:

 

7. Untuk memperindah undangan yaitu transparansi objek dengan cara

Select object >> klik Transparency tool di toolbox >> klik dari atas tengah objek ke bawah tengah object (atau sesukamu baik dari bawah ke atas, dari kanan ke kiri, dari kiri ke kanan maupun diagonal) J

Sehingga hasilnya mengagumkan:

8. Copy objek pada page 1 lalu paste objek pada page 2 karena yang satu untuk bagian luar dan yang lain untuk bagian dalam, sebagai berikut:

A. UNTUK BAGIAN LUAR

1. Untuk memperindah hiasan pada bagian luar terutama corner

Klik Text pada Menu Bar >> Insert Symbol Character atau dengan cara tekan Ctrl+F11pada keyboard.

Sehingga hasilnya seperti:

2. Pilihlah Wingwinds 2 pada Font atau sesukamu lalu pilih salah satu di antaranya kemudian Insert.

3. Ditambahkan huruf nama Insial yang akan menikah dengan huruf yang tersedia di Font

Sehingga hasil seperti ini:

4. Untuk kotak nama dengan cara:

Klik Rectangle Tool pada Tool Box

Aturlah tiap sudut agar bisa lenkung yang tidak tajam pada Property Bar: Rectangle, sebagai berikut:

Bila Anda ingin 2 sudut yang tajam dan yang lain sudut tumpul, Anda bisa tidak mengaktifkan Round Corners Together di samping Right Rectangle Corner Roundness yang berbentuk gembok. Lalu Anda mengatur besar sudutnya, kemudian Enter.

B. UNTUK BAGIAN DALAM

Untuk mengisi kalimat atau teks dengan paragraph teks yang berisi kapan yang akan diadakan pernikahan, Iqbal Qobul atau lainnya.

Anda bisa mengklik Text Tool pada Toolbox >> Klik dan drag pada area kerja, ketik teks paragraph tersebut.

Hasilnya seperti ini:

Tapi ada yang saya sarankan agar semua hiasan, huruf, warna atau lainnya, Anda bisa aturkannya dengan sesuka hatimu. Bahkan Anda bisa menambah gambar apapun juga dengan cara Klik File pada Menu Bar >> Import (Ctrl+I)

Ok sampai disini tutorial yang saya sampaikan kepada anda.

Selamat mencoba !!!

Read More