Pengolahan Data, Chart dan Oleobject Delphi

1. Type data pada DelphiPada umumnya Delphi menggunakan type data yang sama dengan pascal. Namun type data pada Delphi lebih lengkap dibanding pascal. Tipe data yang biasa digunakan pada Delphi :

􀂙 String
Biasa digunakan untuk masukan data string ( String merupakan gabungan beberapa character ).
􀂙 Integer
Merupakan bilangan asli ( 1, 2, 3, 4, ...).
􀂙 Real
Bilangan bulat (berupa pecahan dan integer).
􀂙 Byte
Besar dari type ini hanya 8 bit.
􀂙 Word
Besar bilangan ini 16 bit.
􀂙 Date and time
Type waktu dan tanggal yang disediakan Delphi

2. Konversi type data

Dalam pengolahan data biasanya kita memerlukan suatu konversi type data, banyak sekali konversi data yang bisa dilakukan pada Delphi. Contoh konversi type data:

􀂙 Strtoint
Mengubah type data string ke integer.
􀂙 Inttostr
Mengubah type data integer ke string.
􀂙 Timetostr
Mengubah type data time ke dalam bentuk string.
􀂙 Strtofloat
Mengubah type data string ke dalam bentuk real.
􀂙 Floattostr
Mengubah type data real ke dalam bentuk string.
Untuk lebih jelasnya, perhatikan contoh program jam berikut ini :
􀂙 Masukan komponen timer (terletak di system) pada form.
􀂙 Masukan label pada form. (hapus captionnya).
􀂙 Pada procedure berikut : (double klik pada komponen timer)

procedure TForm1.Timer1Timer(Sender: TObject);
Pelatihan Delphi untuk pemula, Lab Elka , November 2001 9
begin
label1.Caption:=timetostr(time);
end;

gambar 2.1

Penjelasan :
Inti dari program ini adalah mengubah time ke dalam bentuk string (dengan fungsi timetostr). Program ini dapat menunjukan jam komputer anda, komponen timer yang akan terus berubah mengikuti waktu pada jam komputer. Perubahan ini langsung ditulis pada label1.caption. Sehingga caption pada label1 akan berubah tiap detiknya.
(anda bisa membuat jam dengan alarm, untuk sourcenya dapat dilihat pada http://planck.fi.itb.ac.id/~ris or http://ww.geocities.com/bodypack).

3. Memasukan data ke grafik

Pada Pascal biasanya cukup sulit untuk membuat grafik dari data-data yang telah kita peroleh. Kita dapat memecahkan permasalahan ini dengan mudah bila menggunakan Delphi.
Perhatikan contoh berikut ;

1. Masukan komponen :
􀂙 Edit1
􀂙 Edit2
􀂙 Bitbtn1 (Ubah captionnya menjadi Send)
􀂙 Bitbtn2 (ubah Captionnya menjadi Clear)
􀂙 Chart1

2. Tulis procedure berikut :

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
with chart1 do
with series1 do
addxy(strtofloat(edit1.text),strtofloat(edit2.text),'',clblue);
edit1.Clear;
edit2.Clear
end;
procedure TForm1.BitBtn2Click(Sender: TObject);
begin
series1.Clear;
end;

Masukan sumbu x pada edit1.text, masukan sumbu y pada edit2.text.
Penjelasan :

Fungsi utama terletak pada procedure bitbtn1click, setelah tombnol ini ditekan maka isi dari edit1 (nilai x) dan edit2 (nilai y) akan dikirim ke grafik. Pada grafik kita menggunakan addxy, yang mempunyai urutan fungsi addxy (sumbux, sumbuy, label, warna grafiknya). Perhatikan, Nilai x pada edit1 dan nilai y pada edit2, harus kita ubah ke type float (real), yaitu dengan menggunakan fungsi strtofloat. Untuk label sebaiknya dikosongkan saja (‘ ‘) dan warna grafik dapat dilihat pada propertis warnanya yang telah disediakan delphi. Kegunaan akhir program ini, anda bisa memasukan berbagai nilai x dan y (baik dalam bentuk integer maupun real), sehingga data yang telah dihasilkan dapat lebih mudah dianalisa dengan melihat perubahan pada grafiknya.

Dibawah ini dijelaskan bagaimana mengedit graph dan bagian-bagian yang penting untuk diedit.
Mengedit graph
Mengganti judul series
Klik add untuk menambah series baru

gambar 2.2

Model – model graph yang disediakan
Grafik untuk fungsi-fungsi tertentu

gambar 2.3

Bentuk 3 Dimensi
Mengubah batas X dan Y

gambar 2.4

4. Menggunakan oleobject untuk akses ke Microsoft Excel dan Microsoft Word

Dengan oleobject, kita bisa mengirim data dan mengakses program-program dari microsoft (seperti Microsoft Word dan Miscrosoft Excel). Terkadang kita ingin melakukan pengolahan data yang lebih advanced dengan Microsoft Excel. dengan oleobject persoalan ini dapat diatasi!

Berikut ini adalah contoh memasukan kata yang kita inginkan ke dalam microsoft word.
Uses comobj;
procedure TForm1.BitBtn3Click(Sender: TObject);
var
keword:variant;
begin
keword:=createoleobject('word.basic');
keword.filenew; {membuka file baru}
keword.appshow; (Perintah menampilkan aplikasi word}
keword.insert('Delphi itu menyenangkan');
end;

Keterangan program
􀂙 Penggunaan oleobject harus diawali dengan uses comobj
􀂙 Kita memasukan variant keword:= createoleobject(‘word.basic’), kita dapat menggantinya dengan (‘excel.application’) bla kita ingin koneksi ke Microsoft Excel.
􀂙 Keword.filenew -> membuka file baru pada Microsoft Word.
􀂙 Keword.appshow -> menampilkan program Microsoft Word.
􀂙 Keword.insert -> mengisi data pada Microsoft Word.

Kita dapat mengabung program memasukan data ke graph dan hasilnya dari data tersebut ditampilkan pada Microsoft Excel.
Perhatikan program berikut :
Masukan data
Start
I = 1
J = 1
I = 1 + 1
J = 1 + 1
Tampil grafik
Tampil Excel
Flowchart sederhana
Menampilkan data ke grafik dan mengirim data ke M Excel

unit jam_grap;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, ExtCtrls, TeEngine, Series, Buttons, TeeProcs, Chart;
type
TForm1 = class(TForm)
Label1: TLabel;
Timer1: TTimer;
Chart1: TChart;
Panel1: TPanel;
Label2: TLabel;
Label3: TLabel;
Edit1: TEdit;
Edit2: TEdit;
BitBtn1: TBitBtn;
Series1: TLineSeries;
BitBtn2: TBitBtn;
BitBtn3: TBitBtn;
procedure Timer1Timer(Sender: TObject);
procedure BitBtn1Click(Sender: TObject);
procedure BitBtn2Click(Sender: TObject);
procedure BitBtn3Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure FormDestroy(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
fa,g:variant;
i,j:integer;
datax,datay:array[0..20]of real;
implementation
{$R *.DFM}
uses comobj;
procedure TForm1.Timer1Timer(Sender: TObject);
begin
label1.Caption:=timetostr(time);
end;
procedure TForm1.BitBtn1Click(Sender: TObject);
begin
datax[i]:=strtofloat(edit1.text);
datay[i]:=strtofloat(edit2.text);
with chart1 do
with series1 do
addxy(strtofloat(edit1.text),strtofloat(edit2.text),'',clblue);
edit1.Clear;
edit2.Clear;
i:=i+1; Pelatihan Delphi untuk pemula, Lab Elka , November 2001 14
j:=j+1;
end;
procedure TForm1.BitBtn2Click(Sender: TObject);
begin
series1.Clear;
end;
procedure TForm1.BitBtn3Click(Sender: TObject);
begin
fa:=createoleobject('Excel.application');
fa.visible:=true;
fa.workbooks.add;
fa.workbooks[1].worksheets[1].name:='kirim';
g:=fa.workbooks[1].worksheets['kirim'];
g.cells[1,1]:='Nomor';
g.cells[1,2]:='Data X';
g.cells[1,3]:='Data Y';
for i:=2 to j+1 do
begin
g.cells[i,1]:= formatfloat('',i-1);
end;
for i:=2 to j+1 do
begin
g.cells[i,2]:= formatfloat('',datax[i]);
end;
for i:=2 to j+1 do
begin
g.cells[i,3]:= formatfloat('#0.##',datay[i]);
end;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
i:=2;
j:=2;
end;
procedure TForm1.FormDestroy(Sender: TObject);
begin
if not varisempty(fa) then
begin
fa.displayalerts:=true;
fa.quit;
end;
end;
end.

Penjelasan :
Pertama kita masukan data ke edit1 dan edit2
Kedua Data tersebut disimpan pada array ke i dan j
Tampilkan data ke dalam grafik.
Tambah 1, pada I dan J untuk menaikan array, sehingga datanya tidak ditimpa oleh data selanjutnya.
Setelah data yang dinginkan terkumpul, data dikirim ke Excel

Tampilan hasilnya :
Fungsi oleobject
keExcel atau Word)

gambar 2.5