Sabtu, 05 Mei 2012

Belajar Delphi Chart

Cari Jodoh
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;

0 komentar:

Posting Komentar