Dhelpi Source- Kalkulator gerak (GLBB&GLB)

Source code selengkapnya:
unit Unit1;

interface

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

type
TForm1 = class(TForm)
Label1: TLabel;
Button1: TButton;
Button2: TButton;
Label2: TLabel;
Label3: TLabel;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

uses Unit2, Unit3;

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
form2.show;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
form3.show;
end;

end.




unit Unit2;

interface

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

type
TForm2 = class(TForm)
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Edit1: TEdit;
Edit2: TEdit;
Edit3: TEdit;
Label4: TLabel;
Button1: TButton;
Button2: TButton;
Button3: TButton;
Label5: TLabel;
Label6: TLabel;
Label7: TLabel;
Label8: TLabel;
Label9: TLabel;
Label10: TLabel;
Label11: TLabel;
Label12: TLabel;
Label13: TLabel;
BitBtn1: TBitBtn;
BitBtn2: TBitBtn;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure BitBtn1Click(Sender: TObject);
procedure BitBtn2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form2: TForm2;

implementation

{$R *.dfm}

procedure TForm2.Button1Click(Sender: TObject);
var s,t,v:real;
begin
s:=strtofloat(edit2.Text);
v:=strtofloat(edit3.Text);
t:=s/v;
label8.Caption:=floattostr(t);

end;

procedure TForm2.Button2Click(Sender: TObject);
var s,t,v:real;
begin
t:=strtofloat(edit1.Text);
v:=strtofloat(edit3.Text);
s:=v*t;
label9.Caption:=floattostr(s);

end;

procedure TForm2.Button3Click(Sender: TObject);
var s,t,v:real;
begin
t:=strtofloat(edit1.Text);
s:=strtofloat(edit2.Text);
v:=s/t;
label10.Caption:=floattostr(v);

end;

procedure TForm2.BitBtn1Click(Sender: TObject);
begin
edit1.Text:='';
edit2.Text:='';
edit3.Text:='';
label8.Caption:='hasil';
label9.Caption:='hasil';
label10.Caption:='hasil';
end;

procedure TForm2.BitBtn2Click(Sender: TObject);
begin
form2.Close;
end;

end.
unit Unit3;

interface

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

type
TForm3 = class(TForm)
Label4: TLabel;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Edit1: TEdit;
Edit2: TEdit;
Edit3: TEdit;
Label6: TLabel;
Label5: TLabel;
Label7: TLabel;
Button1: TButton;
Button2: TButton;
Button3: TButton;
Label8: TLabel;
Label9: TLabel;
Label10: TLabel;
Label11: TLabel;
Label12: TLabel;
Label13: TLabel;
Label14: TLabel;
Edit4: TEdit;
Label15: TLabel;
Button4: TButton;
Label16: TLabel;
Label17: TLabel;
Label18: TLabel;
Label19: TLabel;
Label20: TLabel;
Edit5: TEdit;
Label21: TLabel;
Button5: TButton;
Label22: TLabel;
Label23: TLabel;
Label24: TLabel;
BitBtn2: TBitBtn;
BitBtn1: TBitBtn;
procedure BitBtn2Click(Sender: TObject);
procedure BitBtn1Click(Sender: TObject);
procedure Button4Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Button5Click(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form3: TForm3;

implementation

{$R *.dfm}

procedure TForm3.BitBtn2Click(Sender: TObject);
begin
form3.Close;
end;

procedure TForm3.BitBtn1Click(Sender: TObject);
begin
edit1.Text:='';
edit2.Text:='';
edit3.Text:='';
edit4.Text:='';
edit5.Text:='';
label8.Caption:='hasil';
label9.Caption:='hasil';
label10.Caption:='hasil';
label16.Caption:='hasil';
label22.Caption:='hasil';
end;

procedure TForm3.Button4Click(Sender: TObject);
var vt,vo,a,t:real;
begin
vo:=strtofloat(edit3.text);
a:=strtofloat(edit5.text);
t:=strtofloat(edit1.text);
vt:=vo+a*t;
label16.Caption:=floattostr(vt);

end;

procedure TForm3.Button3Click(Sender: TObject);
var vt,vo,a,t:real;
begin
vt:=strtofloat(edit4.text);
a:=strtofloat(edit5.text);
t:=strtofloat(edit1.text);
vo:=vt-a*t;
label10.Caption:=floattostr(vo);


end;

procedure TForm3.Button5Click(Sender: TObject);
var vt,vo,a,t:real;
begin
vt:=strtofloat(edit4.text);
vo:=strtofloat(edit3.text);
t:=strtofloat(edit1.text);
a:=(vt-vo)/t;
label22.Caption:=floattostr(a);


end;

procedure TForm3.Button1Click(Sender: TObject);
var vt,vo,a,t:real;
begin
vt:=strtofloat(edit4.text);
vo:=strtofloat(edit3.text);
a:=strtofloat(edit5.text);
t:=(vt-vo)/a;
label8.Caption:=floattostr(t);

end;

procedure TForm3.Button2Click(Sender: TObject);
var vo,a,t,s:real;
begin
vo:=strtofloat(edit3.text);
a:=strtofloat(edit5.text);
t:=strtofloat(edit1.text);
s:=(vo*t)+(a*t*t/2);
label9.Caption:=floattostr(s);


end;

end.