Membua Media Player Melalui Delphi

Pada saat ini saya ingin membagi ilmu tentang delphi mengenai membuat Media Player menggunakan software tersebut...

Langkah - langkah :

- Buatlah Form baru,
- Tambahkan komponen 1 Tbutton, 1 Tedit, 1 Topendialog dan 1 Tmediaplayer, seperti ini :













Setelah itu klik 2x pada Tbutton dan masukan source code berikut ini :

if opendialog1.Execute then
begin
edit1.Text := opendialog1.FileName;
mediaplayer1.FileName := opendialog1.FileName;
mediaplayer1.Open;
end;

Setelah itu klik 2x pada Tmediaplayer dan masukan source code berikut ini :

if button = btPlay then
begin
if mediaplayer1.DeviceType = dtAVIVideo then
begin
mediaplayer1.Display := form2;
form2.width := mediaplayer1.DisplayRect.Right;
form2.height := mediaplayer1.DisplayRect.Bottom;
form2.show
end
else
form2.close;
end;
end;

Sekarang tinggal tekan tombol "F9" dan cobalah program buatan anda...
Buka sebuah file music / video, tetapi ingat, dalam program ini tidak semua jenis ext tersupport di media player ini...........Jika tombol dan poperty lainnya sudah bekerja semestinya berarti anda sudah membuat program media player! Selamat!

Jika ada masalah dalam pembuatannya silahkan tanyakan pada comment...
Anda dapat memodifikiasi program anda dengan menambahkan komponen-komponen lain...
ini adalah sample program media player...

Selamat Mencoba :D

Membuat Web Browser Melalui Delphi

Sekarang saya ingin membagi ilmu mengenai membuat web browser seperti Mozilla Firefox, Google Chrome melalui delphi, dengan tutorial yang sangat sederhana...

Langkah - langkah :

- Buatlah form baru, dan tambahkan 3 tbutton, 1 tpanel, 1 tedit dan 1 twebbrowser dan berilah nama seperti gambar di bawah ini :




- Setelah itu masukan algoritma seperti berikut...

- Untuk tombol "Back" masukan code berikut : webbrowser1.goback;
- Untuk tombol "Foward" masukan code berikut : webbrowser1.goforward;
- Untuk tombol "Search!" masukan code berikut : webbrowser1.navigate(edit1.text)*;

- Setelah itu kita coba algoritma yang tadi kita buat...

- Untuk Search! : ketik "google.com" pada edit1.text, dan klik tombol Search!



- Lalu ketik "yahoo.com" lalu klik tombol Search!



- Setelah itu coba tombol "Back" dan "Forward", jika saat meng-klik "Back" kembali ke page sebelumnya, dan saat meng-klik "Forward" kembali ke page sesudahnya berarti 2 tombol itu sudah berfungsi dengan baik :D

*webbrowser1.navigate(edit1.text) // magsud dari webbrowser1.navigate(edit1.text) adalah pada saat tombol tbutton di click maka webbrowser1 akan di arahkan kepada alamat web yang di input di edit1.text.

button1, button2, button3, edit1, webbrowser1 itu tergantung variable anda, caption pun terserah anda.

Selamat anda telah membuat web browser anda sendiri, anda dapat memodifikasi sesuka anda,
seperti ini, jika ada kesulitan dan ketidak jelasan anda dapat menanyakannya di koment post ini :D selamat mencoba :D

Membuat Kalkulator Melalui Delphi

Bagi anda yang sedang kuliah, belajar atau pun iseng - iseng buat program dari delphi, saya ingin membagi ilmu cara membuat kalkulator...

Langkah - langkah :

- Buatlah form baru dengan nama variable apapun dan caption apapun :













- Buat 4 TButton yang variablenya bebas captionnya (+),(-),(x),(/) seperti ini :



- Setelah itu Buatlah 3 TEdit, 2 untuk input, 1 untuk output(hasil) seperti ini :



- Klik 2x pada masing - masing TButton lalu masukan code seperti ini :

- Untuk button (+) = edit3.Text := inttostr( strtoint(edit1.Text) + (strtoint(edit2.Text)));
- Untuk button (-) = edit3.Text := inttostr( strtoint(edit1.Text) - (strtoint(edit2.Text)));
- Untuk button (x) = edit3.Text := inttostr( strtoint(edit1.Text) * (strtoint(edit2.Text)));
- Untuk button (/) = edit3.Text := floattostr( strtofloat(edit1.Text) / (strtofloat(edit2.Text)));

Keterangan :
- edit1 = digunakan untuk input bilangan pertama,
- edit2 = digunakan untuk input bilangan kedua,
- edit3 = digunakan untuk output dari penjumblahan/pengurangan/pembagian.

edit1, edit2, edit3 tergantung dari variable pada TEdit anda.

- Setelah anda memasukan code di atas anda run program tersebut dengan menekan F9 maka akan keluar gambar seperti ini :




- Coba masing-masing button, apakah fungsinya berjalan dengan baik atau tidak :

- Untuk tambah (+) :



- Untuk Kurang (-) :



- Untuk Kali (x) :



- Untuk bagi (/) :




- Setelah anda memeriksa fungsi dari program yang anda buat dan fungsinya benar, maka anda berhasil membuat program kalkulator, Congratulations ^_^ , anda pun bisa memodifikasi program anda sendiri seperti ini, tutorial di atas hanya tutorial dasar untuk membuat program kalkulator.

Jika ada masalah dalam pembuatan program ini anda bisa menanyakannya kepada saya di koment post ini, Selamat Mencoba ^_^ !