Pemrograman Delphi : Membuat Web Browser dengan Delphi

Program Web Browser dengan Delphi

Untuk membuat aplikasi Web Browser di Code Gear Delphi dapat digunakan komponen WebBrowser pada Tool Palette Tab Internet yang dapat digunakan untuk membuka halaman Web maupun mengexplore File-file lokal seperti hanya Windows Explorer dan Internet Explorer. Buatlah sebuah project dan form baru pada Delphi, desain tampilan form sehingga didapat tampilan seperti pada gambar berikut :

Gambar Rancangan Aplikasi Web Browser

Pengaturan Properti :

Komponen	Properti	Nilai
Form1	(Name) Caption Position	frmBrowser Web Browser poScreenCenter
WebBrowser	(Name)	WebBrowser1
Label1	Caption	Address
Button1	(Name) Caption	btnBack <
Button2	(Name) Caption	btnForward >
Button3	(Name) Caption	btnRefresh Refresh
Button4	(Name) Caption	btnGo Go

Pemrograman Delphi : Membuat Text Editor, Notepad dengan Dephi

Program TextEditor dengan Dephi

Sebuah Aplikasi TextEditor memiliki kelengkapan antara lain MainMenu, Toolbar, Memo, Dialog, Operasi File, dan Multiform. Untuk membuat aplikasi tersebut buka Delphi, kemudian klik File - New -Application, beri nama projectnya TextEditor, simpanlan di tempat yang diingikan, kemudian rancanglah tampilan seperti berikut ini :

Gambar Rancangan Aplikasi Text Editor

MainMenu & Toolbar

Pemrograman Delphi : Membuat Chart pada Delphi

Membuat Chart dengan Delphi

Pada Code Gear Delphi disediakan komponen TChart yang berada pada tab TeeChart Std yang dapat dipakai untuk keperluan pembuatan grafik. Ada beberapa macam grafik yang bisa diimplementasikan oleh komponen ini, seperti grafik garis, batang , pie, dan masih banyak lagi.

TChart merupakan grafik induk (ParentChart) untuk semua komponen Series. Sedangkan semua tipe series diturunkan dari kelas abstrak TChartSeries. Kemudian dari TChartSeries inilah sebuah method untuk menggambar grafik bisa dipanggil. Method yang lazim digunakan adalah AddXY, dengan struktur sebagai berikut :

Function AddXY(Const AXValue, AYValue: Double; Const AXLabel: String; Acolor: TColor) : LongInt;
Dimana : AXValue adalah nilai sumbu x,
AYValue adalah nilai sumbu y,
AXLabel adalah teks yang muncul pada sumbu x,
Acolor adalah warna garis grafik.
Catatan : Jika ingin pada sumbu x muncul nilai yang sesuai, maka kosongkan nilai parameter AXLabel dengan mengisi string kosong (‘’).
Apabila nilai pada parameter Acolor tidak diisi, maka garis grafiknya akan mengambil warna pada saat desain.

TChartSeries mempunyai beberapa turunan, yaitu TLineSeries, TPieSeries, TAreaSeries, TBarSeries, dll.

Contoh : sebuah grafik sinus.

procedure TForm1.Button1Click(Sender: Tobject);
var
i : word;
begin
for i := 1 to 720 do
begin
Series1.AddXY(i, sin(i*pi/180), ‘’,)
end;
end;

Untuk mencoba membuat aplikasi dengan TChart, masukkan komponen TChart tersebut pada Form kosong dan tambahkan beberapa buah tombol untuk menampilkan bermacam-macam Chart dengan tipe Series yang berbeda beda

Buatlah sebuah project dan form baru pada Delphi, desain tampilan form sehingga didapat tampilan seperti pada gambar berikut.

Gambar Desain Form Aplikasi Chart

Pengaturan Properti :

Komponen	Properti	Nilai
Form1	(Name) Caption Position	frmChart Chart poScreenCenter
Chart	(Name)	Chart1
Button1	(Name) Caption	btnPie Pie
Button2	(Name) Caption	btnLine Line
Button3	(Name) Caption	btnDoUntilLoop Do Until Loop
Button4	(Name) Caption	btnBar Bar
CheckBox	(Name) Caption	Chk3D 3D

Listing Program :

procedure TFChart.bBarClick(Sender: TObject);
var
sBar : TBarSeries;
begin
Chart1.RemoveAllSeries;
sBar := TBarSeries.Create(Chart1);
Chart1.AddSeries(sBar);
Chart1.Title.Text.Clear;
Chart1.Title.Text.Add('Saham BEJ');
sBar.Clear;
sBar.AddXY(1, 9000, 'BUMI', clYellow);
sBar.AddXY(2, 8000, 'PGAS', clRed);
sBar.AddXY(3, 7500, 'ANTAM', clBlue);
sBar.AddXY(4, 7000, 'ASTRA', clGreen);
sBar.AddXY(5, 8500, 'INDOSAT', clGray);
end; procedure TFChart.bLineClick(Sender: TObject);
var
sLine : TLineSeries;
begin
Chart1.RemoveAllSeries;
sLine := TLineSeries.Create(Chart1);
Chart1.AddSeries(sLine);
Chart1.Title.Text.Clear;
Chart1.Title.Text.Add('Harga Minyak');
sLine.Clear;
sLine.AddXY(1, 130, 'Juli', clYellow);
sLine.AddXY(2, 152, 'Agustus', clYellow);
sLine.AddXY(3, 120, 'September', clYellow);
sLine.AddXY(4, 70, 'Oktober', clYellow);
sLine.AddXY(5, 45, 'November', clYellow);
sLine.AddXY(6, 36, 'Desember', clYellow);
end;

procedure TFChart.bPieClick(Sender: TObject);
var
sPie : TPieSeries;
begin
Chart1.RemoveAllSeries;
sPie := TPieSeries.Create(Chart1);
Chart1.AddSeries(sPie);
Chart1.Title.Text.Clear;
Chart1.Title.Text.Add('Pemilu 2009');
sPie.Clear;
sPie.Add(2, 'Republik', clYellow);
sPie.Add(1, 'Demokrat', clBlue);
sPie.Add(1, 'Konservatif', clRed);
sPie.Add(4, 'Buruh', clGreen);
sPie.Add(2, 'Nasionalis', clWhite);
end;

procedure TFChart.c3DClick(Sender: TObject);
begin
Chart1.View3D := C3D.Checked;
end;

Setelah dijalankan, hasilnya dapat dilihat pada tampilan berikut ini :

Gambar Hasil Tampilan Aplikasi Chart

Pemrograman Delphi : Membuat Video Player, Media Player dengan Delphi

Untuk membuat sebuah aplikasi pemutar file media seperti film dan lagu, Delphi menggunakan sebuah komponen yang dinamakan MediaPlayer.

Beberapa properti yang penting diantaranya adalah :
FileName : path dari file yang akan diputar.
Display : komponen yang akan dipakai sebagai layar
DisplayRect : menentukan posisi dan ukuran tampilan layar
VisibleButtons : menentukan tombol yang terlihat dan tidak terlihat.
Length : berisi panjang/durasi file yang diputar.
Position : posisi pemutaran file saat ini.
Start : menentukan posisi dimana file akan mulai diputar.

Beberapa method yang penting diantaranya adalah :
Open : Menghubungkan MediaPlayer dengan file.
Play : Memainkan file
Pause : Menghentikan sementara pemutaran file
Stop : Menghentikan pemutaran file.

Ada beberapa tipe file yang didukung oleh komponen MediaPlayer, diantaranya adalah file AVI, WAVE, DAT, CD Audio dan lain-lain. Untuk melihat daftar file yang didukung tersebut bisa dicermati pada properti DeviceType.
Seperti dijelaskan sebelumnya, tidak semua tipe file bisa menggunakan semua tombol yang tersedia. Untuk melihat kemampuan tiap jenis file bisa dilihat properti Capabilities-nya.

Buatlah sebuah project dan form baru pada Visual Basic .NET, desain tampilan form sehingga didapat tampilan seperti pada gambar berikut :

Pengaturan Properti :

Komponen	Properti	Nilai
Form1	(Name) Text Position	frmPlayer Media Player poScreenCenter
Panel	(Name)	Panel1
MediaPlayer	(Name)	MediaPlayer1
Edit	(Name) Text	edPath (kosongkan)
Button1	(Name) Text	btnBrowse Browse
Button2	(Name) Text	btnExit Exit
OpenDialog	(Name)	OpenDialog1

Listing Program :

procedure TFPlayer.bBrowseClick(Sender: TObject);

begin

if (OpenDialog1.Execute) then

begin

ePath.Text := OpenDialog1.FileName;

MediaPlayer1.Close;

MediaPlayer1.FileName := OpenDialog1.FileName;

MediaPlayer1.Display := Panel1;

MediaPlayer1.DisplayRect := Rect(0,0, 0,0);

MediaPlayer1.Open;

end;

end; procedure TFPlayer.bExitClick(Sender: TObject);

begin

Application.Terminate;

end;