Statistik data sederhana dengan menggunakan Delphi

Lanjut lagi belajar Delphi-nya yah. Berikut ini adalah program statistika data sederhana dengan menggunakan IDE Delphi. Proses jalan programnya adalah pertama kali user memasukan sembarang angka di kolom paling atas, lalu bila user menekan tombol Add, maka angka yang dimasukan user pindah ke kolom bawahnya. Proses ini terus berlanjut sampai user menekan tombol hitung, maka secara otomatis program ini akan menghitung beberapa statistika data. Berikut ini adalah gambar dari program tersebut.

statistik data Delphi

Berikut ini adalah kodenya


procedure TForm1.Button2Click(Sender: TObject);
var
data : integer;
begin
if trystrtoint(E_data.Text,data)=false then
begin
showmessage('invalid input data');
E_data.Clear;
E_data.SetFocus;
exit;
end
else
begin
listbox1.Items.Add(E_data.Text);
Button1.Enabled:=true;
end;
E_data.Clear;
E_data.SetFocus;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
banyak,i : integer;
total : integer;
rata : real;
besar,satu,dua : integer;
kecil,n: integer;

begin
banyak := 0;
total := 0;

for i:=0 to listbox1.items.count-1 do
begin
banyak := banyak + 1;
total := total + strtoint(listbox1.Items.strings[i]);
end;

besar := 0;
satu := strtoint(listbox1.Items.strings[0]);
n := listbox1.items.count-1;

for i:=1 to n do
begin
dua := strtoint(listbox1.Items.strings[i]);
if(satu > dua) then
besar := satu
else
begin
besar := dua;
satu := besar;
end;
end;

kecil := 0;
for i:=1 to listbox1.items.count-1 do
begin
dua := strtoint(listbox1.Items.strings[i]);
if(satu < dua) then
kecil := satu
else
begin
kecil := dua;
satu := kecil;
end;
end;

rata := total / banyak;

E_banyak.text := inttostr(banyak);
E_total.text := inttostr(total);
E_rata.text := formatfloat('.##',rata);
E_besar.text := inttostr(besar);
E_kecil.text := inttostr(kecil);

end;

procedure TForm1.Button4Click(Sender: TObject);
begin
ListBox1.Items.Clear;
E_data.SetFocus;
Button1.Enabled:=false;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
Button1.Enabled:=false
end;

end.


Seperti biasa silakan sesuaikan script dengan komponennya, bila gak ngerti atau masih error silakan komentar, insya Allah saya kirim programnya lewat email.

alhamdulillah sudah saya upload,,silakan [download] untuk melihat codenya lebih jelas lagi…

semoga bermanfaat…

5 thoughts on “Statistik data sederhana dengan menggunakan Delphi

  1. ass

    klo misalnya listboxnya diganti sama memo1 trus gak ada input add hanya hitung saj,tetapi pas di ouputkan gak masuk mlah error yang diganti apanya??

    mksh kwnd..(-_-)

  2. aulia :

    assalamualaikum
    kang,kalo syntax ini buat apa ? formatfloat(‘.##’,rata)

    balas

    formatfloat(‘.##’,rata)

    biar dibelakang koma cuma ada 2 angka . . .
    biasain langsung tekan F1 di keyboard km . . .
    ilmu saktinya dosen saya tuh . . . 😀

  3. Gan, Bisa bantu ga? ane buat program statistika yang ente posting alhamdulillah lancar.. tapi gan, ane buat yang lebih rumit malah bingung sendiri gan,.. ane buat program statistika simpangan yang bentuknya tabel.. mohon bantuannya gan..
    terimakasih

    kirim lewat pesan FB ya gan..
    ane mau kasih liat tampilannya dimana gan?

Silahkan Komentar...

Isikan data di bawah atau klik salah satu ikon untuk log in:

Logo WordPress.com

You are commenting using your WordPress.com account. Logout / Ubah )

Gambar Twitter

You are commenting using your Twitter account. Logout / Ubah )

Foto Facebook

You are commenting using your Facebook account. Logout / Ubah )

Foto Google+

You are commenting using your Google+ account. Logout / Ubah )

Connecting to %s