Algoritma dan Pemrograman: Tab Additional II (Representasi Data Diagram Pie Di Delphi)

I. Deskripsi Program

Program dibuat menggunakan Borland Delphi 7. Program ini dibuat untuk mempresentasikan jumlah mahasiswa aktif universitas lambung mangkurat ke dalam diagram pie. Pengguna cukup memilih fakultas dan menginputkan jumlah mahasiswa aktif di fakultas yang dipilih. Representasi diagram pie akan secara otomatis dibuat berdasarkan jumlah data yang di inputkan, bukan hanya membuat diagram pie secara otomatis akan tetapi juga otomatis memberikan legend pada diagram pie beserta label dan warna tiap tiap data. Ketika pengguna mengklik tombol simpan maka data tidak hanya di representasikan ke dalam diagram pie akan tetapi juga dimasukan ke dalam stringgrid untuk menampilkan pada pengguna jika legend terlalu banyak.

II. Interface Program

III. Coding Program

Nama Komponen	Event	Perintah
bSave Form1	OnClick OnCreate	procedure TForm1.BSaveClick(Sender: TObject); var i:integer; begin stringgrid1.RowCount:=stringgrid1.RowCount+1; stringgrid1.Cells[1,stringgrid1.RowCount-1]:=Edit1.Text; stringgrid1.Cells[0,stringgrid1.RowCount-1]:=combobox1.Text; Chart1.Series[0].clear; for i:=1 to stringgrid1.rowcount-1 do chart1.Series[0].Add(strtoint(stringgrid1.cells[1,i]) ,stringgrid1.cells[0,i]); end; procedure TForm1.FormCreate(Sender: TObject); begin StringGrid1.Cells[0,0]:='Fakultas'; StringGrid1.Cells[1,0]:='Jumlah'; end;