Program Statistik dengan delphi 7

Assalamualaikum Wr. Wb.
Selamat sore menjelang malam kawand-kawand semua, sambil menunggu waktu adzan maghrib saya ingin berbagi terlebih dahulu kepada teman-teman semua, khususnya mungkin kepada anak-anak praktikan saya kelas C1 yang super dan hebat-hebat, selamat belajar teman-teman, yang tadi pertemuan terakhir untuk kelas alpro lhoo.. :D
Kami juga minta maaf kepada teman-teman jika sekiranya banyak salah dalam menyampaikan dan membimbing. Semoga kita dapat bertemu pada praktikum selanjutnya :D
Ini materi yang mungkin bisa membantu dalam pembuatan laporan terakhir.
Programnya dibuat sebagus mungkin yaa.. jangan lupa nanti dikumpulkan juga dalam bentuk kepingan CD.

Kira-kira nanti hasilnya akan seperti ini

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TFrmDataStatistik = class(TForm)
    GroupBox1: TGroupBox;
    BtnHitung: TButton;
    GroupBox2: TGroupBox;
    Label1: TLabel;
    E_data: TEdit;
    BtnAdd: TButton;
    ListBoxData: TListBox;
    Label2: TLabel;
    E_banyak: TEdit;
    Label3: TLabel;
    E_total: TEdit;
    E_rata: TEdit;
    E_besar: TEdit;
    E_kecil: TEdit;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    BtnHapus: TButton;
    procedure BtnAddClick(Sender: TObject);
    procedure BtnHitungClick(Sender: TObject);
    procedure BtnHapusClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FrmDataStatistik: TFrmDataStatistik;

implementation

{$R *.dfm}

procedure TFrmDataStatistik.BtnAddClick(Sender: TObject);
var
  data : integer;
begin
  {mengecek data yang diInput user, harus berupa bilangan}
  if trystrtoint(E_data.Text,data)=false then
  begin
     showmessage('invalid input data');
     E_data.Clear;
     E_data.SetFocus;
     exit;
  end
  else
  begin
     listboxData.Items.Add(E_data.Text);
     BtnHitung.Enabled:=true;
  end;
  E_data.Clear;
  E_data.SetFocus;
end;

procedure TFrmDataStatistik.BtnHitungClick(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 listboxData.items.count-1 do
    begin
        banyak := banyak + 1;
        total := total + strtoint(listboxData.Items.strings[i]);
    end;

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

    {code untuk mencari data terbesar}
    for i:=1 to n do
    begin
          dua := strtoint(listboxData.Items.strings[i]);
          if(satu > dua) then
              besar := satu
          else
          begin
              besar := dua;
              satu := besar;
          end;
    end;

    {code untuk mencari data terkecil}
    kecil := 0;
    for i:=1 to listboxData.items.count-1 do
    begin
          dua := strtoint(listboxData.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 TFrmDataStatistik.BtnHapusClick(Sender: TObject);
begin
    ListBoxData.Items.Clear;
    E_data.SetFocus;
    BtnHitung.Enabled:=false;
end;

procedure TFrmDataStatistik.FormCreate(Sender: TObject);
begin
     BtnHitung.Enabled:=false
end;

end. 

O yaa bagi yang mau mencoba program delphinya silahkan sedot sendiri DISINI
Semoga bermanfaat
Have FUN.

Related Posts:

Tweet