Latihan penggunaan Control Grid dan Chart

Beranda > Delphi, Pemrograman Berorientasi Obyek > Latihan penggunaan Control Grid dan Chart

Latihan penggunaan Control Grid dan Chart

15 Januari 2012 Fairuz El Said Tinggalkan komentar Go to comments

Latihan

Buatlah Program menyajikan jumlah mahasiswa aktif masing-masing fakultas disajikan dalam bentuk tabulasi (grid) dan grafik (chart).

Desain Form

Grid dan Chart Delphi - Desain Form

Pengkodean

procedure TForm1.FormCreate(Sender: TObject);
begin
   StringGrid1.Cells[0,0]:='Fakultas';
   StringGrid1.Cells[0,1]:='Teknik';
   StringGrid1.Cells[0,2]:='Ekonomi';
   StringGrid1.Cells[0,3]:='Pertanian';
   StringGrid1.Cells[0,4]:='KIP';
   StringGrid1.Cells[1,0]:='Jumlah';

end;

procedure TForm1.Button1Click(Sender: TObject);
begin
   stringgrid1.Cells[1,combobox1.ItemIndex+1]:=Edit1.Text;
end;

procedure TForm1.BitBtn1Click(Sender: TObject);
   var i: integer;
begin
   for i:=1 to stringgrid1.rowcount-1 do
   chart1.Series[0].Add(strtofloat(stringgrid1.cells[1,i]),stringgrid1.cells[0,i]);
end;