Selasa, 17 Maret 2015

PROGRAM GAJI KARYAWAN

Posted by Unknown on 12.30 with No comments


heheeawaliharidengansenyuman, :-)
mau share laginikawantentang program yang barusanakubuat yang sederhana yang berjudul "PROGRAM GAJI KARYAWAN" :-D denganmenggunakan visual delphi.. lets get..........
sebelumnyaleatdludesainformnya..








yang dibutuhkanadalah:
edit1-edit6
2buah button untuk mulai dan akhir
combowbox untuk golongan karyawan
radiobutton untuk masa kerja dan penghitunganyananti,, okelangsungsajakeskrip...

pertamakitabuat GOLONGAN dahuludengnmengguankancombobox
caraya, pertamadobleklikdlupada form kosongsehinggamasukkeskripnya,,
kriterianyauntukgolongan 1 gajipokok 500000
                          golongan 2 gajipokok 600000
                          golongan 3 gajipokok 700000 sampaigolongan "n".

danniskripnya:

procedure TForm1.FormCreate(Sender: TObject);
begin
cmbgol.items.append('satu');
cmbgol.items.append('dua');
cmbgol.items.append('tiga');
cmbgol.items.append('empat');
cmbgol.items.append('lima');
end;

*cmbgol(merupakannamadaicombobox,dapatdigantisesuaikeinginanpadapengaturan object inspector bagian name)

nah sekarangkitabukalogikakitalagi.. dari data comboboxdiatasakankitamasukankedalam edit2 yaitugajipokok.. gmanacaranya ......??
gini,pertamadobleklikcomboboxnyakemudianmasukanskripni..

procedure TForm1.cmbgolChange(Sender: TObject);
begin
if cmbgol.Text='satu'
  then edit2.text:='500000';
if cmbgol.Text='dua'
  then edit2.text:='600000';
if cmbgol.Text='tiga'
  then edit2.text:='700000';
if cmbgol.Text='empat'
  then edit2.text:='800000';
if cmbgol.Text='lima'
  then edit2.text:='900000';
end;

nah jadikancombobox qt..
langkahselanjutnyakitabuatradiobuttonyasepertipertemuankemarenpada program wisata..
dimanaradiobuttoninimerupakanpendeklarasiandarimasakerjakaryawan yang mempengaruijumlahlemburankaryawan yang berdasarkanmasakerja.
dimana 0 - 5th uanglemburnya 10000/jam
            5 - 10th uanglemburnya 25000/jam
            10th >uanglemburnya 50000/jam

dobleklikpada radiobutton1. masukanskripini...

procedure TForm1.RadioButton1Click(Sender: TObject);
varjam,lbr:integer;
    ttl,gp:real;
begin
jam:=strtoint(edit4.Text);
gp:=strtoint(edit2.Text);
if RadioButton1.checked= true then
    edit3.Text:='10000';
lbr:=(jam*10000);
edit5.text:=inttostr(lbr);
ttl:=lbr+gp;
edit6.Text:=floattostr(ttl);
end;

 *jam: mendeklarasikan total jam lembur
   lbr  : mendeklarasikanhasil jam lemburdenganlemburbedasarkanmasakerja
   ttl   : total gajidarihasiljumlahlbr + gajipokok

   gp  : gajipokok


nah samahalnyadenganradiobutton 2 dan 3,lakukan langkah yang samapadaradiobutton 1 danmasukanskripni

procedure TForm1.RadioButton2Click(Sender: TObject);
varjam,lbr:integer;
    ttl,gp:real;
begin
jam:=strtoint(edit4.Text);
if RadioButton2.checked= true then
    edit3.Text:='25000';
lbr:=(jam*25000);
edit5.text:=inttostr(lbr);
ttl:=lbr+gp;
edit6.Text:=floattostr(ttl); 
end;

procedure TForm1.RadioButton3Click(Sender: TObject);
varjam,lbr:integer;
    ttl,gp:real;
begin
jam:=strtoint(edit4.Text);
if RadioButton3.checked= true then
    edit3.Text:='50000';
lbr:=(jam*50000);
edit5.text:=inttostr(lbr);
ttl:=lbr+gp;
edit6.Text:=floattostr(ttl);
end;

udahdehkelar.. tinggalbuatbuttonnyabuatmulaidan exit..
dobleklik button mulai,masukanskripni

procedure TForm1.Button1Click(Sender: TObject);
begin
edit1.Clear;
edit2.Clear;
edit3.Clear;
edit4.clear;
edit5.Clear;
edit6.Clear;
end;

samahalnyadengantombol exit masukanscripnya

procedure TForm1.Button2Click(Sender: TObject);
begin
form1.close;
end;

end.


Contoh 2
Listing Program:

unittugas;
interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
type
  TForm1 = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label8: TLabel;
    nip: TEdit;
    nama: TEdit;
    gapok: TEdit;
    fasilitas: TEdit;
    jabatan: TComboBox;
    total: TEdit;
    bersih: TButton;
    keluar: TButton;
    GroupBox1: TGroupBox;
    honorer: TRadioButton;
    tetap: TRadioButton;
    procedureFormCreate(Sender: TObject);
    procedurejabatanClick(Sender: TObject);
    procedurebersihClick(Sender: TObject);
    procedurekeluarClick(Sender: TObject);
    procedurehonorerClick(Sender: TObject);
    proceduretetapClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
var
 Form1: TForm1;
a,hasil:real;
implementation
{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
jabatan.Items.add('Direktur');
jabatan.Items.add('Manager');
jabatan.Items.add('Karyawan');
end;
procedure TForm1.jabatanClick(Sender: TObject);
begin
ifjabatan.Text='Direktur' then
begin
gapok.text:='10000000';
fasilitas.Text:='Rumah'
end
else
ifjabatan.Text='Manager' then
begin
gapok.text:='7000000';
fasilitas.Text:='Mobil'
end
else
ifjabatan.Text='Karyawan' then
begin
gapok.text:='5000000';
fasilitas.Text:='Motor'
end
else
gapok.Text:='0';
end;

procedure TForm1.bersihClick(Sender: TObject);
begin
nip.Text:='';
nama.Text:='';
jabatan.Text:='';
gapok.Text:='';
fasilitas.text:='';
total.Text:='';
end;

procedure TForm1.keluarClick(Sender: TObject);
begin
close
end;

procedure TForm1.honorerClick(Sender: TObject);
begin
ifhonorer.checked=true then
a:=strtofloat(gapok.text);
hasil:=a-(0.1*a);
total.text:=floattostr(hasil);
end;

procedure TForm1.tetapClick(Sender: TObject);
begin
ifhonorer.checked=true then
a:=strtofloat(gapok.text);
hasil:=a+(0.1*a);
total.text:=floattostr(hasil);
end;

end.
Kepalatukang – mandor – eli – proses –

http://id.scribd.com/doc/59850357/laporan-delphi


















procedure TForm1.Cbb_golChange(Sender: TObject);
var
  nama : String;
  pilihan,gp,ul : Integer;
begin
  pilihan:=Cbb_gol.ItemIndex;
  if (pilihan=001) then
  begin
    nama:='SLAMET';
    gp:=70000;
    ul:=15000;
  end
  else if ( pilihan=002) then
  begin
    nama:='BAGONG';
    gp:=62000;
    ul:=15000;
  end
  else if (pilihan=003) then
  begin
    nama:='WONDO';
    gp:=57000;
    ul:=15000;
  end
  else if (pilihan=004) then
  begin
    nama:='RAHMAT';
    gp:=53000;
    ul:=15000;
  end
  else if (pilihan=005) then
  begin
    nama:='NUR';
    gp:=50000;
    ul:=15000;
  end
  else if (pilihan=006) then
  begin
    nama:='YANTO';
    gp:=46000;
    ul:=15000;
  end
  else if (pilihan=007) then
  begin
    nama:='YUDI';
    gp:=46000;
    ul:=15000;
  end
  else if (pilihan=008) then
  begin
    nama:='YUSMAN';
    gp:=46000;
    ul:=15000;
  end
  else if (pilihan=009) then
  begin
    nama:='ANTO';
    gp:=50000;
    ul:=15000;
  end
  else if (pilihan=010) then
  begin
    nama:='JUNANTO';
    gp:=55000;
    ul:=15000;
  end
  else if (pilihan=011) then
  begin
    nama:='IYUM';
    gp:=53000;
    ul:=15000;
  end
  else if (pilihan=012) then
  begin
    nama:='GITO';
    gp:=60000;
    ul:=15000;
  end
  else if (pilihan=013) then
  begin
    nama:='ADE';
    gp:=45000;
    ul:=15000;
  end
  else if (pilihan=014) then
  begin
    nama:='RUDI';
    gp:=45000;
    ul:=15000;
  end
  else if (pilihan=015) then
  begin
    nama:='SONIA';
    gp:=45000;
    ul:=15000;
  end
  else if (pilihan=016) then
  begin
    nama:='IPUNG';
    gp:=45000;
    ul:=15000;
  end
  else if (pilihan=017) then
  begin
    nama:='YONO';
    gp:=60000;
    ul:=15000;
  end
  else
  begin
    nama:='HENDRA';
    gp:=45000;
    ul:=15000;
  end;
  Edt_nama.Text:=nama;
  Edt_gp.Text:=IntToStr(gp);
  Edt_UL.Text:=IntToStr(ul);

end;

procedure TForm1.Btn_mulaiClick(Sender: TObject);
var
  x,gp,gk,jl,ul,tl,total,kasbon,gb:Integer;
begin
  x:=StrToInt(Edt_HK.Text);
  gp:=StrToInt(Edt_gp.Text);
  jl:=StrToInt(Edt_JL.Text);
  ul:=StrToInt(Edt_UL.Text);
  kasbon:=StrToInt(Edt_Pinjaman.Text);
  tl:=jl*ul;
  Edt_TL.Text:=IntToStr(tl);
  gk:=x*gp;
  Edt_GK.Text:=IntToStr(gk);
  total:=gk+tl;
  Edt_TG.Text:=IntToStr(total);
  gb:=total-kasbon;
  Edt_GB.Text:=IntToStr(gb);
end;











Categories:

0 komentar:

Posting Komentar

Langganan: Posting Komentar (Atom)