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.
0 Komentar untuk "Program Statistik dengan delphi 7"
Kami Menerima Saran dan Kritikan yang bersifat MEMBANGUN
Tinggalkan Komentar anda disini...