Cara Membuat Aplikasi Statistika Dasar Menggunakan Delphi

Statistika merupakan ilmu analisa data kuantitatif untuk menarik sebuah kesimpulan. Tahapan dalam statistika sebagai sebuah metode terdiri dari Pengumpulan Data, Penyajian Data, Analisa Data, Intrepretasi Data, dan Kesimpulan.

Berikut ini saya berikan contoh aplikasi Delphi dalam menentukan Statistika Deskriptif dari dua buah data. Langsung saja desain seperti di bawah ini.

Kemudian ketikkan scribs berikut ini.

Pertama, kunci Edit1, kemudian pilih OnChange pada Object Inspector dan ketikkan scribs berikut.

if (edit1.Text='') then begin messagedlg('Anda Belum Input Jumlah Data',mtconfirmation,[mbYes],0);

exit;

edit1.SetFocus;

end;

stringgrid1.RowCount:=strtoint(edit1.Text)+1;

if strtoint(edit1.Text)=0 then

stringgrid1.FixedRows:=0

else stringgrid1.FixedRows:=1;

for j:=1 to strtoint(edit1.text) do

begin

stringgrid1.cells[0,0]:='No';

stringgrid1.cells[1,0]:='Data X';

stringgrid1.cells[2,0]:='Data Y';

stringgrid1.cells[0,j]:=inttostr(j);

end;

Kedua, tambahkan beberapa variabel umum pada Var, seperti gambar di bawah ini.

Var

  Form1: TForm1;

  i,j,k,V,D,a: integer;

  Urut,b: real;

  Xbar, Xtot, Varian: array [1..100] of real;

  X: array [1..100,1..100] of real;

Ketiga, pada tombol Hitung, ketikkan scribs berikut ini.

procedure TForm1.BitBtn1Click(Sender: TObject);

begin

V:=strtoint(edit1.Text);

D:=strtoint(Edit2.Text);

stringgrid1.Cells[0,0]:='No';

stringgrid1.Cells[1,0]:='X';

stringgrid1.Cells[2,0]:='Y';

stringgrid2.Cells[0,0]:='Deskripsi';

stringgrid2.Cells[1,0]:='Data X';

stringgrid2.Cells[2,0]:='Data Y';

for j:=1 to V do

begin

StringGrid2.ColCount:=3;

StringGrid2.RowCount:=8;

end;

for i:=1 to V do

begin

Xtot[i]:=0;

Xbar[i]:=0;

Varian[i]:=0;

for j:=1 to D do

begin

Xbar[i]:=Xbar[i]+((strtofloat(stringgrid1.Cells[i,j])/D));

Xtot[i]:=Xtot[i]+((strtofloat(stringgrid1.Cells[i,j])));

Varian[i]:=Varian[i]+(sqr(Xbar[i]-strtofloat(stringgrid1.Cells[i,j]))/(D-1));

end;

StringGrid2.Cells[i,3]:=formatfloat('#.00',Xbar[i]);

stringgrid2.Cells[0,3]:='Mean';

StringGrid2.Cells[i,7]:=floattostr(Xtot[i]);

stringgrid2.Cells[0,7]:='Jumlah';

StringGrid2.Cells[i,5]:=formatfloat('#.00',Varian[i]);

StringGrid2.Cells[i,6]:=formatfloat('#.00',(sqrt(Varian[i])));

stringgrid2.Cells[0,5]:='Var';

stringgrid2.Cells[0,6]:='Std';

end;

for i:=1 to V do

begin

for j:=1 to D do

begin

X[i,j]:=strtofloat(stringgrid1.Cells[i,j]);

end;

end;

a:=(D+1) div 2;

b:=(D+1)/2;

for i:=1 to V do

begin

for j:=1 to D-1 do

begin

for k:=j+1 to D do

begin

if X[i,j]>X[i,k] then

begin

Urut:=X[i,j];

X[i,j]:=X[i,k];

X[i,k]:=Urut;

end;

end;

end;

StringGrid2.Cells[i,1]:=floattostr(X[i,1]);

StringGrid2.Cells[i,2]:=floattostr(X[i,D]);

StringGrid2.Cells[i,4]:=floattostr(X[i,a]+((b-a)*(X[i,a+1]-X[i,a])));

stringgrid2.Cells[0,1]:='Minimum';

stringgrid2.Cells[0,2]:='Maksimum';

stringgrid2.Cells[0,4]:='Median';

end;

end;

Terakhir, lakukan simulasi.

Download Filenya disini.

Semoga Bermanfaat.