Ilmu Komputer

Contoh System Array pada Program Pascal

Dibawah ini Contoh Penyelesaian Sistem Array pada Program Pascal

unit UTes;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls,

Forms,
Dialogs, StdCtrls, Menus;
type
  tkaryawan=record
   nama:string;
   golongan:string;
   status:string;
   gajipokok:string;
   tunjangan:string;
   absensi:string;
   bonus:string;
   totalgaji:string;
end;

 

type
TForm1 = class(TForm)
Edit1: TEdit;
Edit2: TEdit;
ComboBox1: TComboBox;
ComboBox2: TComboBox;
Edit3: TEdit;
Edit4: TEdit;
Edit5: TEdit;
Label9: TLabel;
Button1: TButton;
Edit6: TEdit;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
Label6: TLabel;
Label7: TLabel;
Label8: TLabel;
Label1: TLabel;
Button3: TButton;
ListBox1: TListBox;
Label10: TLabel;
procedure ComboBox1Change(Sender: TObject);
procedure ComboBox2Change(Sender: TObject);
procedure Edit5Exit(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure FormActivate(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
karyawan : array[0..20] of tkaryawan;
implementation

{$R *.dfm}

procedure TForm1.ComboBox1Change(Sender: TObject);
begin
//Seleksi Golongan
if combobox1.Text=’A’ then
edit3.Text:=’2500000′;
if combobox1.Text=’B’ then
edit3.Text:=’1750000′;
combobox2.SetFocus;
end;

procedure TForm1.ComboBox2Change(Sender: TObject);
var
a,b,c,d:currency;
begin
//Seleksi status
a:=strtocurr(edit3.Text);
if combobox2.Text=’Kawin’ then
begin
b:=a*0.05;
edit4.Text:=currtostr(b);
end;
if combobox2.Text=’Belum Kawin’ then
begin
b:=a*0;
edit4.Text:=currtostr(b);
end;
if combobox2.Text=’Punya Anak’ then
b:=a*0.1;
edit4.Text:=currtostr(b);
edit5.SetFocus;
end;

procedure TForm1.Edit5Exit(Sender: TObject);
var
a,b,c:currency;
begin
//Seleksi Jumlah Kerja
a:=strtocurr(edit5.Text);
b:=strtocurr(edit3.Text);
if (a>=24) then
c:=b*0.15;
edit6.Text:=currtostr(c);
if a<24 then
c:=b*0.1;
edit6.Text:=currtostr(c);
if a<20 then
c:=b*0;
edit6.Text:=currtostr(c);
end;

procedure TForm1.Button1Click(Sender: TObject);
var
a,b,c,d:currency;
x,z:integer;
e:integer;
begin
a:=strtocurr(edit3.Text);
b:=strtocurr(edit4.Text);
c:=strtocurr(edit6.Text);
d:=a+b+c;
label9.caption:=currtostr(d);//Jumlah Gaji Total
x:=strtoint(edit1.Text);
for z :=1 to x do
begin
karyawan[x].nama:=edit2.Text;
karyawan[x].golongan:=combobox1.Text;
karyawan[x].status:=combobox2.text;
karyawan[x].gajipokok:=edit3.text;
karyawan[x].tunjangan:=edit4.text;
karyawan[x].absensi:=edit5.text;
karyawan[x].bonus:=edit6.Text;
karyawan[x].totalgaji:=label9.caption;
end;
e:=z;
edit1.Text:=inttostr(e);
edit2.SetFocus;
edit2.Text:=”;
edit3.Text:=”;
edit4.Text:=”;
edit5.Text:=”;
edit6.Text:=”;
combobox1.text:=”;
combobox2.text:=”;
end;
procedure TForm1.FormActivate(Sender: TObject);
begin
edit1.Text:=’1′;
end;

procedure TForm1.Button2Click(Sender: TObject);
var
x,z:integer;
e:integer;
begin
x:=strtoint(edit1.Text);
for z :=1 to x do
begin
karyawan[x].nama:=edit2.Text;
karyawan[x].golongan:=combobox1.Text;
karyawan[x].status:=combobox2.text;
karyawan[x].gajipokok:=edit3.text;
karyawan[x].tunjangan:=edit4.text;
karyawan[x].absensi:=edit5.text;
karyawan[x].bonus:=edit6.Text;
karyawan[x].totalgaji:=label9.caption;
end;
e:=z;
edit1.Text:=inttostr(e);
end;

procedure TForm1.Button3Click(Sender: TObject);
var
x,z:integer;
begin
//Cetak Ke Listbox
z:=strtoint(edit1.Text);
for x:=1 to z do
begin
listbox1.Items.Add(‘NAMA : ‘+karyawan[x].nama);
listbox1.Items.Add(‘GOL : ‘+karyawan[x].golongan);
listbox1.Items.Add(‘STATUS : ‘+karyawan[x].status);
listbox1.Items.Add(‘GAJI POKOK : ‘+karyawan[x].gajipokok);
listbox1.Items.Add(‘TUNJANGAN : ‘+karyawan[x].tunjangan);
listbox1.Items.Add(‘ABSENSI : ‘+karyawan[x].absensi);
listbox1.Items.Add(‘BONUS : ‘+karyawan[x].bonus);
listbox1.Items.Add(‘TOTAL GAJI : ‘+karyawan[x].totalgaji);
listbox1.Items.Add(‘===============================’);
end;
end;

end.

http://erwan19.wordpress.com/2011/06/11/contoh-program-pengisian-data-pada-array/

About dhetha230811

Dalam hidup terkadang kita tak dapat selalu melakukan hal yang besar, Namun kita bisa melakukan banyak hal kecil dengan cinta yang begitu besar....!!

Diskusi

Belum ada komentar.

Tinggalkan Balasan

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

Blog Translate

Blog Stats

  • 13,067 Pengunjung

RSS Umpan yang Tidak Diketahui

  • Sebuah galat telah terjadi; umpan tersebut kemungkinan sedang anjlok. Coba lagi nanti.

RSS KapanLagi.Com

  • Sebuah galat telah terjadi; umpan tersebut kemungkinan sedang anjlok. Coba lagi nanti.

RSS Bola Berita

  • Sebuah galat telah terjadi; umpan tersebut kemungkinan sedang anjlok. Coba lagi nanti.
Online:

Free SEO ToolsSubmit Your Site To The Web's Top 50 Search Engines for Free!Msn bot last visit powered by MyPagerank.NetYahoo bot last visit powered by MyPagerank.Net