Latihan Borland Delphi Project Kalkulator

A.Hasil Program :

 B.Desain form:

 C.Desain Properties:
 

Object	Name		Caption
Label1	Label1		Ayo berhitung
Label2	Label2		Nilai1
Label3	Label3		Nilai2
Label4	Label4		Hasil
Label5	Label5		Nilai1
Label6	Label6		Nilai2
Label7	Label7		Tugas40%
Label8	Label8		Ujian
Edit1	enilai1		-
Edit2	enilai2		-
Edit3	ehasil		-
Edit4	enil1		-
Edit5	enil2		-
Edit6	etugas		-
Edit7	eujian		-
Edit8	etotal		-
Button1	Button1		keluar
Button2	Button2		+
Button3	Button3		-
Button4	Button4		/
Button5	Button5		*
Button6		Button6	&Total Nilai

  D.Listing Program:

 var
  Form1: TForm1;
  nilai1:integer;
  nilai2:integer;
  hasil:real;
  nil1:integer;
  nil2:integer;
  tugas:real;
  ujian:real;
  total:real;
implementation

{$R *.dfm}

procedure TForm1.FormActivate(Sender: TObject);
begin
enilai1.text:='0';
enilai2.text:='0';
ehasil.text:='0';
enil1.text:='0';
enil2.text:='0';
etugas.text:='0';
eujian.text:='0';
etotal.text:='0';
enilai1.SetFocus;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  nilai1:=strtoint(enilai1.text);
  nilai2:=strtoint(enilai2.text);
  hasil:=nilai1+nilai2;
  ehasil.text:=floattostr(hasil);
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
  nilai1:=strtoint(enilai1.text);
  nilai2:=strtoint(enilai2.text);
  hasil:=nilai1-nilai2;
  ehasil.text:=floattostr(hasil);
end;

procedure TForm1.Button5Click(Sender: TObject);
begin
  nilai1:=strtoint(enilai1.text);
  nilai2:=strtoint(enilai2.text);
  hasil:=nilai1*nilai2;
  ehasil.text:=floattostr(hasil);
end;

procedure TForm1.Button4Click(Sender: TObject);
begin
  nilai1:=strtoint(enilai1.text);
  nilai2:=strtoint(enilai2.text);
  hasil:=nilai1/nilai2;
  ehasil.text:=floattostr(hasil);
end;

procedure TForm1.enil1KeyPress(Sender: TObject; var Key: Char);
begin
  nil1:=strtoint(enil1.text);
  tugas:=nil1*40/100;
  etugas.Text:=floattostr(tugas);

end;

procedure TForm1.enil2KeyPress(Sender: TObject; var Key: Char);
begin
nil2:=strtoint(enil2.Text);
ujian:=nil2*60/100;
  eujian.Text:=floattostr(ujian);
end;

procedure TForm1.Button6Click(Sender: TObject);
begin
total:=strtoint(etotal.Text);
total:=tugas+ujian;
etotal.Text:=floattostr(total);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
showmessage('keluar moal');
close;
end;

Sekian postingan dari saya ,semoga bisa bermanfaat buat anda semua. Terima Kasih . ⎝⓿⏝⓿⎠