Belajar Delphi Chart

program untuk menginputkan data X sebanyak 10 data, pada saat pengguna menginputkan data X maka program mengihitung nilai X2 dan memasukkannya kedalam Grid.

•    Ketika pengguna mengklik tombol Rekap, maka program menampilkan Jumlah dan rata-rata dari data-data X dan data X2 .
•    Ketika pengguna mengklik tombol Grafik X, maka program menampilkan Grafik untuk Data X
•    Ketika pengguna mengklik tombol Grafik X^2, maka program menampilkan Grafik untuk Data X2
•    Ketika pengguna mengklik tombol Reset, maka seluruh isi data pada grid, hasil rekapitulasi  dan chart dikosongkan kemabali.
Ketika pengguna mengklik tombol Tutup, maka program ditutup

Desain Form - String Grid dan Chart

1.    Tuliskan pengaturan properti masing-masing object/control (30 point)
2.    Tuliskan pengkodeaanya (70 point)

Jawaban

1. Pengaturan Properti

Pengaturan Form StringGrid dan Chart

untuk pengaturan properti pada Chart, ikuti langkah berikut:

·         klik kanan control chart.

·         Klik tab Series

·         Klik tombol Add

·         Klik tipe Bar chart

·         Klik Ok

2. Pengkodean

01	procedure TForm1.FormCreate(Sender: TObject);
02	var i:integer;

03	begin
04	stringgrid1.Cells[0,0]:='Data ke';

05	stringgrid1.Cells[1,0]:='X';
06	stringgrid1.Cells[2,0]:='X^2';

07
08	for i:=1 to 10 do

09	begin
10	combobox1.Items.Add(inttostr(i));

11	stringgrid1.Cells[0,i]:=inttostr(i);
12	stringgrid1.Cells[1,i]:='0';

13	stringgrid1.Cells[2,i]:='0';
14	end;

15	end;
16

17	procedure TForm1.Button1Click(Sender: TObject);
18	var x,xpangkat2:real;

19	begin
20	x   := strtoint(edit1.Text);

21	xpangkat2 := x*x;
22	Stringgrid1.Cells[1,combobox1.ItemIndex+1]:=floattostr(x);

23	Stringgrid1.Cells[2,combobox1.ItemIndex+1]:=floattostr(xpangkat2);
24	end;

25
26	procedure TForm1.Button2Click(Sender: TObject);

27	var i:integer;
28	begin

29	for i:=1 to 10 do
30	begin

31	stringgrid1.Cells[1,i]:='0';
32	stringgrid1.Cells[2,i]:='0';

33	end;
34	edit1.Text:='';

35	edit2.Text:='';
36	edit3.Text:='';

37	edit4.Text:='';
38	edit5.Text:='';

39
40	end;

41
42	procedure TForm1.Button3Click(Sender: TObject);

43	var jumX, jumXpangkat2, rataX, rataXpangkat2 :real;
44	i: integer;

45	begin
46	JumX:=0;

47	JumXpangkat2:=0;
48

49	for i:=1 to 10 do
50	begin

51	jumX:=jumX+strtofloat(stringgrid1.Cells[1,i]);
52	jumXpangkat2:=jumXpangkat2 + +strtofloat(stringgrid1.Cells[2,i]);

53	end;
54	rataX:=jumX/10;

55	rataXpangkat2:=jumXpangkat2/10;
56	edit2.Text := floattostr(jumX);

57	edit3.Text := floattostr(jumXpangkat2);
58	edit4.Text := floattostr(rataX);

59	edit5.Text := floattostr(rataXpangkat2);
60	end;

61
62	procedure TForm1.Button5Click(Sender: TObject);

63	var i:byte;
64	begin

65	Chart1.Series[0].clear;
66	Chart1.Title.Text.Clear;

67	Chart1.Title.Text.Add('Grafik X');
68	for i:=1 to 10 do

69	Chart1.Series[0].Add(strtofloat(stringgrid1.Cells[1,i]),inttostr(i),clred);
70

71	end;
72

73	procedure TForm1.Button6Click(Sender: TObject);
74	var i:byte;

75	begin
76	Chart1.Series[0].clear;

77	Chart1.Title.Text.Clear;
78	Chart1.Title.Text.Add('Grafik X*2');

79		for i:=1 to 10 do
80	Chart1.Series[0].Add(strtofloat(stringgrid1.Cells[2,i]),inttostr(i),clred);

81

end;