Skip to main content

contoh Delphi7 (Perhitungan gaji)

By
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.


Labels

Labels:

Popular posts from this blog

Contoh perhitungan (rata-rata) dengan Mysql dan Php [sederhana]

By
Contoh perhitungan nilai rata-rata dari suatu mata pelajaran tanpa menyimpan di database mysql dan php. Perhitungan rata-rata dari suatu mata pelajaran ataupun sejenisnya memang membutuhkan sebaris dua baris kode agar dapat menampilkan nilai rata2 tersebut. Terkadang merasa sulit jika sudah terlanjur di dalam tabel (database) tidak atau belum memberikan satu field untuk menyimpan nilai rata2 tersebut. Atau juga kita hanya ingin menampilkan tanpa menyimpan dalam suatu tabel , pada kasus yg saya jelaskan berikut ini ialah menampilkan nilai rata2 tidak dari suatu tabel, melainkan hanya sebatas menampilkan dan perhitunganya secara langsung, langsung sja pada beberapa baris kode yg menggunakan query.
Read more

Cara mengubah Username Linux Mint (16) melalui terminal

By
disini saya akan sedikit menulis se "cuil" catatan terkait mengganti nama hostname pada linux. yaitu mengganti nama username "Mluis" seperti pada gambar diatas.  Oke langsung saja. Langkah 1 Buka terminal dengan mengetikkan Ctrl+alt+T
Read more

Operasi 'Aritmatika' dan 'Logika' pada Pascal

By
Operasi Dalam Pascal.?? 1. Operasi Aritmatika Operasi ini dapat dilakukan pada data bertipe numerik, baik bilangan read maupun bulat. ada beberapa operator dalam operasi ini, antara lain O perator +, Operator -, Operator *, Operator /, Operator div, Operator mod 2. Operasi Logika berbeda dengan aritmatika, operasi ini dilakukan hanya pada data yang bertipe boolean, yaitu true & false. untuk operatornya antara lain ada not, and, or, dan xor Not akan menghasilkan output bernilai kebalikan dari input- nya  And akan menghasilkan nilai  true jika kedua operandnya bernilai true. or akan menghasilkan nilai keluaran true jika salah satu operand yang dioperasikan bernilai true Xor akan menghasilkan keluaran bernilai true jika kedua operand yang dioperasikan berbeda type. Mari kita simak contoh untuk aritmatika dan logika dari potongan program pascal di atas adalah menunjjukan / akan menghasilkan output operasi aritmatika saja, kita tambahkan untuk ...
Post a Comment
Read more