Tugas pemrograman Visual






unit UGAJI;

interface

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

type
TForm1 = class(TForm)
Label1: TLabel;
Edit1: TEdit;
Label2: TLabel;
Label3: TLabel;
Edit2: TEdit;
Label4: TLabel;
Edit3: TEdit;
Label5: TLabel;
Label6: TLabel;
ComboBox1: TComboBox;
Label7: TLabel;
RadioGroup1: TRadioGroup;
Edit4: TEdit;
Label8: TLabel;
Label9: TLabel;
Label10: TLabel;
Edit5: TEdit;
Edit6: TEdit;
Button1: TButton;
ComboBox2: TComboBox;
ComboBox3: TComboBox;
Label11: TLabel;
Edit7: TEdit;
Button2: TButton;
Button3: TButton;
Memo1: TMemo;
Bevel1: TBevel;
Button4: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Edit1KeyPress(Sender: TObject; var Key: Char);
procedure Edit2KeyPress(Sender: TObject; var Key: Char);
procedure Edit3KeyPress(Sender: TObject; var Key: Char);
procedure ComboBox2Change(Sender: TObject);
procedure Button4Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;
gp:integer;
ti,ta,tg:real;
implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
case RadioGroup1.ItemIndex of
0: begin
gp:=1000000;
end;
1: begin
gp:=2000000;
end;
2: begin
gp:=3000000;
end;
end;
edit4.Text:=IntToStr(gp);

case ComboBox2.ItemIndex of
0:begin
ti:=0;
end;
1:begin
ti:=10/100*gp;
end;
2:begin
ti:=0;
end;
end;
edit5.Text:=FloatToStr(ti);

case ComboBox3.ItemIndex of
0:begin
ta:=5/100*gp*1;
end;
1:begin
ta:=5/100*gp*2;
end;
2:begin
ta:=5/100*gp*3;
end;
end;
edit6.Text:=FloatToStr(ta);

tg:=gp+ti+ta;
Edit7.Text:=FloatToStr(tg);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
Edit1.Clear;
Edit2.Clear;
Edit3.Clear;
Edit4.Clear;
Edit5.Clear;
Edit6.Clear;
Edit7.Clear;
Memo1.Lines.Clear;

end;

procedure TForm1.Button3Click(Sender: TObject);
begin
Memo1.Lines.Add('Nama : '+Edit1.Text);
Memo1.Lines.Add('Nim : '+Edit2.Text);
Memo1.Lines.Add('Alamat : '+Edit3.Text);
Memo1.Lines.Add('Jenis kelamin : '+ComboBox1.Text);
Memo1.Lines.Add('Setatus : '+ComboBox2.Text);
Memo1.Lines.Add('Jumlah Anak : '+ComboBox3.Text);

case RadioGroup1.ItemIndex of
0:begin
Memo1.Lines.Add('Golongan : 1');
end;
1:begin
Memo1.Lines.Add('Golongan : 2');
end;
2:begin
Memo1.Lines.Add('Golongan : 3');
end;
end;
Memo1.Lines.Add('');
Memo1.Lines.Add('Gaji Pokok : '+Edit4.Text);
Memo1.Lines.Add('Tunjangan Istri : '+Edit5.Text);
Memo1.Lines.Add('Tunjangan Anak : '+Edit6.Text);
Memo1.Lines.Add('Total Gaji : '+Edit7.Text);

end;

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if key=#13 then Edit2.SetFocus;
end;

procedure TForm1.Edit2KeyPress(Sender: TObject; var Key: Char);
begin
if not ( Key in['0'..'9',#13,#27,#8])
then key:=#0;
if key=#13 then Edit3.SetFocus;
end;

procedure TForm1.Edit3KeyPress(Sender: TObject; var Key: Char);
begin
if key=#13 then ComboBox1.SetFocus;
end;

procedure TForm1.ComboBox2Change(Sender: TObject);
begin
case ComboBox2.ItemIndex of
0:begin
ComboBox3.Enabled:=false;
Label7.Enabled:=false
end;
1:begin
ComboBox3.Enabled:=True;
Label7.Enabled:=True
end;
2:begin
ComboBox3.Enabled:=True;
Label7.Enabled:=True
end;
end;
end;

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

end.