[go: up one dir, main page]

Academia.eduAcademia.edu
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) enama: TEdit; Label1: TLabel; Cjabatan: TComboBox; Label2: TLabel; epokok: TEdit; Label3: TLabel; GroupBox1: TGroupBox; rtetap: TRadioButton; rhonorer: TRadioButton; etunjangan: TEdit; Label4: TLabel; btotal: TButton; ebersih: TEdit; btutup: TButton; blagi: TButton; Label5: TLabel; procedure CjabatanChange(Sender: TObject); procedure rtetapClick(Sender: TObject); procedure blagiClick(Sender: TObject); procedure btutupClick(Sender: TObject); procedure btotalClick(Sender: TObject); procedure rhonorerClick(Sender: TObject); private { Private declarations } public a:real; b:real; c:real; end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.CjabatanChange(Sender: TObject); begin if cjabatan.Text='Direktur' then epokok.Text:='50000000' else if cjabatan.Text='Manajer' then epokok.Text:='20000000' else if cjabatan.Text='Karyawan' then epokok.Text:='1000000' else epokok.Text:='0'; end; procedure TForm1.rtetapClick(Sender: TObject); begin if rtetap.Checked=true then a:=strtofloat(epokok.Text); b:=a*0.3; etunjangan.Text:=floattostr(b); end; procedure TForm1.rhonorerClick(Sender: TObject); begin if rhonorer.Checked=true then a:=strtofloat(epokok.Text); b:=a*0.1; etunjangan.Text:=floattostr(b) end; procedure TForm1.btotalClick(Sender: TObject); begin a:=strtofloat(epokok.Text); b:=strtofloat(etunjangan.Text); c:=a+b; ebersih.Text:=floattostr(c); end; procedure TForm1.blagiClick(Sender: TObject); begin cjabatan.Text:=''; enama.Text:=''; ebersih.Text:=''; etunjangan.Text:=''; epokok.Text:='0'; rtetap.Checked:=false; rhonorer.Checked:=false; end; procedure TForm1.btutupClick(Sender: TObject); begin if application.MessageBox('Terimakasih Telah Mencoba','Credit',MB_OK)=ID_OK then form1. Close; end; end.