contoh Delphi7 (Perhitungan gaji)

Selama malaam, ini saya bagikan sedikit logika contoh program delphi,
apa itu delphi,, kalian cari saja ke simbah, yang jelas saya muak kelau ada eror pada setiap baris code.

- Proses nya adalah
apabila golongan Gaji
A1 : 1.000.000
A2 : 1.250.000
B1 : 1.500.000
B2 : 2.000.000
apabila alamat asal = yogyakarta gaji=tetap
` apabila alamat asal luar yogyakarta gaji=gaji+250.000
Tunjangan Suami : 0
Tunjangan Istri : 750.000
Tunjagan Anak   : 100.000/anak


   - Outputnya Adalah
Sebuah Laporan dalam Memo,tampilkan nama dan Total gaji karyawan,

(menggunakan variabel global)

var

     gaji,plus,plusanak,plusasal,total_gaji:currency;

     jum_anak:integer;

  Form1: TForm1;

program nyaa

procedure TForm1.Button1Click(Sender: TObject);

begin

case ComboBox1.ItemIndex of

0:gaji:=1000000;

1:gaji:=1250000;

2:gaji:=1500000;

3:gaji:=2000000;

end;

case ComboBox2.ItemIndex of

0:plus:=750000;

1:plus:=0;

end;

jum_anak:=StrToInt(Edit3.text);

if (jum_anak>0) then plusanak:=100000

else plusanak:=0;

total_gaji:=gaji+plus+plusasal+(jum_anak*plusanak);

Memo1.Lines.Add('                 LAPORAN GAJI KARYAWAN');

Memo1.Lines.Add('NAMA                  = '+Edit1.Text);

Memo1.Lines.Add('TOTAL GAJI        = '+CurrToStr(total_gaji));

end;

procedure TForm1.ComboBox3Change(Sender: TObject);

begin

case ComboBox3.ItemIndex of

0:begin

  plusasal:=0;

  Edit2.Enabled:=false;

  end;

1:begin

  plusasal:=250000;

  Edit2.Enabled:=true;

  end;

end;

end;

procedure TForm1.FormCreate(Sender: TObject);

begin

 Edit2.Enabled:=false;

end;

end.