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; |
IV. Output
4.1 Tampilan awal program dijalankan
4.2 Tampilan ketika data yang diinputkan hanya satu
4.3 Tampilan data yang diinputkan lebih dari 1