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.
Minggu, 11 April 2010
Tugas Pemrograman Visual
Dengan berfikir bersama2 akhirnya tugas pembuatan program gaji dapat di selesaikan oleh kelompok kami, kami tahu dalam pembuatan program ini masih sangat sederhana dan memiliki banyak kekurangan. kami harapkan saran dan petunjuk dari dosen pembimbing, dan juga dari teman - teman semua.
terimakasih
DOWNLOAD DISINI
terimakasih
DOWNLOAD DISINI
Minggu, 28 Maret 2010
Anggota Generuz STMIK
1. Ahmad Aji Kusuma Wardana
2. Ahmad Lutfi Said
4. M.Rizki Sahcroni
3. Wahyu Widodo
2. Ahmad Lutfi Said
4. M.Rizki Sahcroni
3. Wahyu Widodo
Langganan:
Postingan (Atom)