Latihan Membuat Program Stasiun Kereta

4. Latihan Membuat Program Stasiun Kereta Api

Desain Form 4.1

Hasil Tampilan 4.2

Listing Program 

unit Unit_stasiun;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls;

type
  TForm1 = class(TForm)
    lstasiun: TLabel;
    gb1: TGroupBox;
    lnama: TLabel;
    enm: TEdit;
    Label1: TLabel;
    ebuk: TEdit;
    ltgl: TLabel;
    etgl: TEdit;
    gbdata: TGroupBox;
    lkd: TLabel;
    cbkd: TComboBox;
    Lnm: TLabel;
    enmk: TEdit;
    ljrs: TLabel;
    ejrs: TEdit;
    ljns: TLabel;
    lhrg: TLabel;
    ehrg: TEdit;
    gb2: TGroupBox;
    Label2: TLabel;
    ejml: TEdit;
    ltotal: TLabel;
    etotal: TEdit;
    lcash: TLabel;
    ecash: TEdit;
    lkem: TLabel;
    ekem: TEdit;
    gbhapus: TGroupBox;
    bhapus: TButton;
    bkeluar: TButton;
    ejns: TComboBox;
    Proses: TButton;
    Timer1: TTimer;
    procedure cbkdChange(Sender: TObject);
    procedure bhapusClick(Sender: TObject);
    procedure bkeluarClick(Sender: TObject);
    procedure etotalChange(Sender: TObject);
    procedure ejnsChange(Sender: TObject);
    procedure ecashChange(Sender: TObject);
    procedure ejmlChange(Sender: TObject);
    procedure ProsesClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.cbkdChange(Sender: TObject);
begin
 cbkd.Items.Add('KR01');
 cbkd.Items.Add('KR02');
 cbkd.Items.Add('KR03');
 ehrg.Text:='0';
 ejml.Text:='0';
 etotal.Text:='0';
 ekem.Text:='0';
 ecash.Text:='0';
 dateseparator:='-';
 shortdateformat:='dd/mmmm/yyyy';
 etgl.Text:=datetostr(date);

 if cbkd.Text='KR01' then
 begin
    enmk.Text:='MAJU RAYA' ;
    ejrs.Text:='solo - jakarta';
    end
  else if cbkd.Text='KR02' then
  begin
    enmk.Text:='SINAR MAJU'   ;
    ejrs.Text:='solo - surabaya';

  end
  else if cbkd.Text='KR03' then
  begin
    ejrs.Text:='solo - jogja';
    enmk.Text:='LAJUR UTAMA';

   end;
end;

procedure TForm1.bhapusClick(Sender: TObject);
begin

enm.Text:='';
ebuk.Text:='';
etgl.Text:='';
cbkd.Text:='';
enmk.Text:='';
ejrs.Text:='';
ejns.Text:='';
ehrg.Text:='0';
ejml.Text:='0';
etotal.Text:='0';
ecash.Text:='0';
ekem.Text:='0';
enm.SetFocus;
end;

procedure TForm1.bkeluarClick(Sender: TObject);
begin
if(application.MessageBox('Anda Yakin Akan Keluar','Informasi',MB_YESNO)=IDYES)
then close;
end;

procedure TForm1.etotalChange(Sender: TObject);
begin
ehrg.Text:=floattostr(strtofloat(ehrg.Text)*strtofloat(ejml.Text));
ecash.SetFocus;
end;

procedure TForm1.ejnsChange(Sender: TObject);
begin

  if cbkd.Text='KR01' then
  begin
    if ejns.Text='argo' then
      ehrg.Text:='350000'

    else if ejns.Text='bisnis' then

      ehrg.Text:='200000'

    else
       ehrg.Text:='80000';
  end
  else if cbkd.Text='KR02' then
  begin
       if ejns.Text='argo' then
      ehrg.Text:='200000'

    else if ejns.Text='bisnis' then

      ehrg.Text:='100000'

    else
       ehrg.Text:='35000';
  end
  else
  begin
     if ejns.Text='argo' then
      ehrg.Text:='100000'

    else if ejns.Text='bisnis' then

      ehrg.Text:='80000'

    else
       ehrg.Text:='20000';
  end;

end;

procedure TForm1.ecashChange(Sender: TObject);
begin
ekem.Text:=floattostr(strtofloat(ecash.Text)-strtofloat(ehrg.Text));
end;

procedure TForm1.ejmlChange(Sender: TObject);
begin
   etotal.Text:=floattostr(strtofloat(ehrg.Text)*strtofloat(ejml.Text));
end;

procedure TForm1.ProsesClick(Sender: TObject);
begin
application.MessageBox('data berhasil di proses','sukses',mb_ok);
enm.Text:='';
ebuk.Text:='';
etgl.Text:='';
cbkd.Text:='';
enmk.Text:='';
ejrs.Text:='';
ejns.Text:='';
ehrg.Text:='0';
ejml.Text:='0';
etotal.Text:='0';
ecash.Text:='0';
ekem.Text:='0';
enm.SetFocus;
end;

end.

Read More

Latihan Membuat Program Gaji Pegawai

3.Latihan Membuat Program Gaji Pegawai

Desain Form 3.1

Hasil Tampilan 3.2

Listing Program

unit Unit_gaji;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    lnama: TLabel;
    enama: TEdit;
    ljabatan: TLabel;
    lpokok: TLabel;
    epokok: TEdit;
    gbstatus: TGroupBox;
    rtetap: TRadioButton;
    rhonorer: TRadioButton;
    ltunjangan: TLabel;
    etunjangan: TEdit;
    btotal: TButton;
    lbersih: TLabel;
    ebersih: TEdit;
    blagi: TButton;
    bclose: TButton;
    cjabatan: TComboBox;
    procedure cjabatanChange(Sender: TObject);
    procedure rtetapClick(Sender: TObject);
    procedure blagiClick(Sender: TObject);
    procedure bcloseClick(Sender: TObject);
    procedure btotalClick(Sender: TObject);
    procedure rhonorerClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    a:real;
    b:real;
    c:real;
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
 cjabatan.Items.Add('Direktur');
 cjabatan.Items.Add('Manager');
 cjabatan.Items.Add('Karyawan');
end;

procedure TForm1.cjabatanChange(Sender: TObject);
begin
if cjabatan.Text='Direktur' then
   epokok.Text:='50000000'
else if cjabatan.Text='Manager' 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.blagiClick(Sender: TObject);
begin
  cjabatan.Text:='';
  enama.Text:='';
  ebersih.Text:='';
  etunjangan.Text:='';
  epokok.Text:='0';
  rtetap.Checked:=false;
  rhonorer.Checked:=false;
end;

procedure TForm1.bcloseClick(Sender: TObject);
begin
if(application.MessageBox('Anda Yakin Akan Keluar','informasi'MB_YESNO)=IDYES)then
close;
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.rhonorerClick(Sender: TObject);

begin
  if rhonorer.Checked=true then
  a:=strtofloat(epokok.Text);
  b:=a*0.1;
  etunjangan.Text:=floattostr(b)
end;

end.

Read More

Latihan Membuat Program Operator

2. Latihan Membuat Program Operator

Desain Form 2.1

Hasil Yang Diperoleh 2.2

Listing Program Pembuatan Operator Delphi 

unit Unit_operator;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Label1: TLabel;
    lnil1: TLabel;
    lnil2: TLabel;
    lhsl: TLabel;
    enil1: TEdit;
    enil2: TEdit;
    ehsl: TEdit;
    GroupBox1: TGroupBox;
    btambah: TButton;
    bbagi: TButton;
    bkurang: TButton;
    bkali: TButton;
    GroupBox2: TGroupBox;
    lnilai: TLabel;
    band: TButton;
    nor: TButton;
    bxor: TButton;
    GroupBox3: TGroupBox;
    btlebih: TButton;
    btkurang: TButton;
    btsmdgn: TButton;
    bttdksm: TButton;
    bexit: TButton;
    bclear: TButton;
    procedure btambahClick(Sender: TObject);
    procedure bkurangClick(Sender: TObject);
    procedure bbagiClick(Sender: TObject);
    procedure bkaliClick(Sender: TObject);
    procedure btlebihClick(Sender: TObject);
    procedure btkurangClick(Sender: TObject);
    procedure btsmdgnClick(Sender: TObject);
    procedure bttdksmClick(Sender: TObject);
    procedure bandClick(Sender: TObject);
    procedure norClick(Sender: TObject);
    procedure bxorClick(Sender: TObject);
    procedure bexitClick(Sender: TObject);
    procedure bclearClick(Sender: TObject);
  private
    { Private declarations }

  public

    lnil1,lnil2:integer;
    lhsl:real;

    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.btambahClick(Sender: TObject);
  var
  lnil1,lnil2:integer;
  lhsl:real;

begin
   lnil1:=strtoint(enil1.Text);
   lnil2:=strtoint(enil2.Text);
   lhsl:=lnil1+lnil2;
   ehsl.Text:=floattostr(lhsl);

end;

procedure TForm1.bkurangClick(Sender: TObject);
var
  lnil1,lnil2:integer;
  lhsl:real;

begin

   lnil1:=strtoint(enil1.Text);
   lnil2:=strtoint(enil2.Text);
   lhsl:=lnil1-lnil2;
   ehsl.Text:=floattostr(lhsl);


end;

procedure TForm1.bbagiClick(Sender: TObject);
begin
ehsl.Text:=floattostr(strtoint(enil1.Text)/strtoint(enil2.Text))

end;

procedure TForm1.bkaliClick(Sender: TObject);
begin
ehsl.Text:=floattostr(strtoint(enil1.Text)*strtoint(enil2.Text))
end;

procedure TForm1.btlebihClick(Sender: TObject);
  var
  lnil1,lnil2:integer;
  lhsl:boolean;

begin
  lnil1:=strtoint(enil1.Text);
  lnil2:=strtoint(enil2.Text);
  lhsl:=lnil1>lnil2;
  ehsl.Text:=booltostr(lhsl);
end;

procedure TForm1.btkurangClick(Sender: TObject);
var
  lnil1,lnil2:integer;
  lhsl:boolean;
begin
  lnil1:=strtoint(enil1.Text);
  lnil2:=strtoint(enil2.Text);
  lhsl:=lnil1<lnil2;
  ehsl.Text:=booltostr(lhsl);

end;

procedure TForm1.btsmdgnClick(Sender: TObject);
var
  lnil1,lnil2:integer;
  lhsl:boolean;

begin
  lnil1:=strtoint(enil1.Text);
  lnil2:=strtoint(enil2.Text);
  lhsl:=lnil1=lnil2;
  ehsl.Text:=booltostr(lhsl);
end;

procedure TForm1.bttdksmClick(Sender: TObject);
var
  lnil1,lnil2:integer;
  lhsl:boolean;

begin
  lnil1:=strtoint(enil1.Text);
  lnil2:=strtoint(enil2.Text);
  lhsl:=lnil1<>lnil2;
  ehsl.Text:=booltostr(lhsl);

end;

procedure TForm1.bandClick(Sender: TObject);
var
  lnil1,lnil2:integer;
  lhsl:boolean;

begin
  lnil1:=strtoint(enil1.Text);
  lnil2:=strtoint(enil2.Text);
  lhsl:=(lnil1>lnil2)AND(lnil1>5);
  ehsl.Text:=booltostr(lhsl);
end;

procedure TForm1.norClick(Sender: TObject);
var
  lnil1,lnil2:integer;
  lhsl:boolean;
begin
  lnil1:=strtoint(enil1.Text);
  lnil2:=strtoint(enil2.Text);
  lhsl:=(lnil1>lnil2)OR(lnil1<5);
  ehsl.Text:=booltostr(lhsl);
end;

procedure TForm1.bxorClick(Sender: TObject);
var
  lnil1,lnil2:integer;
  lhsl:boolean;
begin
  lnil1:=strtoint(enil1.Text);
  lnil2:=strtoint(enil2.Text);
  lhsl:=(lnil1>lnil2)XOR(lnil1>5);
  ehsl.Text:=booltostr(lhsl);
end;

procedure TForm1.bexitClick(Sender: TObject);
begin
messagedlg
('from akan ditutup',mterror,[mbok],0);
close;
end;

procedure TForm1.bclearClick(Sender: TObject);
begin
enil1.Text:='';
enil2.Text:='';
ehsl.Text:='';
end;

end.

Read More