MEMBUAT PROGRAM APLIKASI KALKULATOR SEDERHANA
Kali ane mau berbagi program aplikasi kalkulator sederhana,
langsung aja yahhh….
Pertama saya menggunakan Delphi 2010
Kedua saya memasangkan Alpha Controls Delphi (versi 7.12)
supaya tampilannya kayak dibawah ini kaga’ standar.
Ketiga lanjut codingnya :!
Label ada 4, Edit text ada 3, dan button ada 7.
A.
Tampilan Formnya
-
B.
Source Code Button Tambah
procedure TForm1.tambahClick(Sender: TObject);
begin
bilpertama :=
strtofloat(bilsatu.text);
bilkedua :=
strtofloat(bildua.Text);
hasil.Text :=
floattostr(bilpertama + bilkedua);
end;
C.
Source Code Button Kurang
procedure TForm1.kurangClick(Sender:
TObject);
begin
bilpertama := strtofloat(bilsatu.text);
bilkedua := strtofloat(bildua.Text);
hasil.Text := floattostr(bilpertama - bilkedua);
end;
D.
Source Code Button Bagi
procedure TForm1.bagiClick(Sender:
TObject);
begin
bilpertama := strtofloat(bilsatu.text);
bilkedua := strtofloat(bildua.Text);
hasil.Text
:= floattostr(bilpertama / bilkedua);
end;
E.
Source Code Button Kali
procedure TForm1.kaliClick(Sender:
TObject);
begin
bilpertama := strtofloat(bilsatu.text);
bilkedua := strtofloat(bildua.Text);
hasil.Text := floattostr(bilpertama * bilkedua);
end;
F.
Source Code Button Pangkat
procedure TForm1.pangkatClick(Sender:
TObject);
begin
bilpertama := strtofloat(bilsatu.text);
hasilnya := sqr(bilpertama);
hasil.Text := floattostr(hasilnya);
end;
G.
Source Code Button Reset
procedure TForm1.sButton6Click(Sender:
TObject);
begin
bilsatu.Text := '';
bildua.Text := '';
hasil.Text := '';
end;
H.
Source Code Button Close
procedure TForm1.sButton7Click(Sender:
TObject);
begin
close;
end;
I.
Source code Off Resize
procedure TForm1.FormCanResize(Sender:
TObject; var NewWidth,
NewHeight: Integer; var Resize: Boolean);
begin
resize := false;
end;
J.
Source code untuk Keseluruhan form1
unit Unit1no1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls,
Forms,
Dialogs, StdCtrls, sEdit, sButton, sLabel, sSkinManager;
type
TForm1 = class(TForm)
sLabelFX1: TsLabelFX;
sLabelFX2: TsLabelFX;
sLabelFX3: TsLabelFX;
sLabelFX4: TsLabelFX;
tambah: TsButton;
kurang: TsButton;
bagi: TsButton;
kali: TsButton;
pangkat: TsButton;
sButton6: TsButton;
sButton7: TsButton;
bilsatu: TsEdit;
bildua: TsEdit;
hasil: TsEdit;
sLabelFX5: TsLabelFX;
sSkinManager1: TsSkinManager;
procedure tambahClick(Sender: TObject);
procedure kurangClick(Sender: TObject);
procedure bagiClick(Sender: TObject);
procedure kaliClick(Sender: TObject);
procedure pangkatClick(Sender: TObject);
procedure
sButton6Click(Sender: TObject);
procedure sButton7Click(Sender: TObject);
procedure FormCanResize(Sender: TObject; var NewWidth, NewHeight:
Integer;
var Resize: Boolean);
procedure FormCreate(Sender: TObject);
private
{
Private declarations }
public
{
Public declarations }
end;
var
Form1: TForm1;
bilpertama, bilkedua, hasilnya : real;
implementation
{$R *.dfm}
procedure TForm1.bagiClick(Sender:
TObject);
begin
bilpertama := strtofloat(bilsatu.text);
bilkedua := strtofloat(bildua.Text);
hasil.Text := floattostr(bilpertama / bilkedua);
end;
procedure TForm1.FormCanResize(Sender:
TObject; var NewWidth,
NewHeight: Integer; var Resize: Boolean);
begin
resize := false;
end;
procedure TForm1.FormCreate(Sender:
TObject);
begin
end;
procedure TForm1.kaliClick(Sender:
TObject);
begin
bilpertama := strtofloat(bilsatu.text);
bilkedua := strtofloat(bildua.Text);
hasil.Text := floattostr(bilpertama * bilkedua);
end;
procedure TForm1.kurangClick(Sender:
TObject);
begin
bilpertama := strtofloat(bilsatu.text);
bilkedua := strtofloat(bildua.Text);
hasil.Text := floattostr(bilpertama - bilkedua);
end;
procedure TForm1.pangkatClick(Sender:
TObject);
begin
bilpertama := strtofloat(bilsatu.text);
hasilnya := sqr(bilpertama);
hasil.Text := floattostr(hasilnya);
end;
procedure TForm1.sButton6Click(Sender:
TObject);
begin
bilsatu.Text := '';
bildua.Text := '';
hasil.Text := '';
end;
procedure TForm1.sButton7Click(Sender:
TObject);
begin
close;
end;
procedure TForm1.tambahClick(Sender:
TObject);
begin
bilpertama := strtofloat(bilsatu.text);
bilkedua := strtofloat(bildua.Text);
hasil.Text := floattostr(bilpertama + bilkedua);
end;
end.
SILAHKAN KOMEN YAHH.. DAN BAGIKAN UNTUK BERAMAL.
Comments
Post a Comment