Kalkulator sederhana untuk menghitung kubikasi / CBM,
dan meliputi converter yang berguna untuk skala kecil-kecilan.
untuk source code atau contohnya klik
disini
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls;
type
TForm1 = class(TForm)
Edit1: TEdit;
Edit2: TEdit;
Edit3: TEdit;
Edit4: TEdit;
Edit5: TEdit;
Button1: TButton;
Button2: TButton;
Label1: TLabel;
Panel1: TPanel;
Edit6: TEdit;
Edit7: TEdit;
Label2: TLabel;
Label3: TLabel;
Panel2: TPanel;
Label4: TLabel;
Label5: TLabel;
Edit8: TEdit;
Edit9: TEdit;
Label6: TLabel;
Label7: TLabel;
Label8: TLabel;
Label9: TLabel;
Label10: TLabel;
Label11: TLabel;
Label12: TLabel;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Edit1KeyPress(Sender: TObject; var Key: Char);
procedure Edit2KeyPress(Sender: TObject; var Key: Char);
procedure Edit3KeyPress(Sender: TObject; var Key: Char);
procedure Edit5KeyPress(Sender: TObject; var Key: Char);
procedure Label1Click(Sender: TObject);
procedure Edit6Change(Sender: TObject);
procedure Edit6KeyPress(Sender: TObject; var Key: Char);
procedure Edit7Change(Sender: TObject);
procedure Edit7KeyPress(Sender: TObject; var Key: Char);
procedure Edit8Change(Sender: TObject);
procedure Edit9Change(Sender: TObject);
procedure Edit9KeyPress(Sender: TObject; var Key: Char);
procedure Edit8KeyPress(Sender: TObject; var Key: Char);
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
p,l,t,q,y,m,hasil: extended;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
IF edit1.text='' THEN
Begin
MessageDlg('Panjang masih kosong',mtInformation,[mbOK],0);
edit1.setfocus;
END;
IF edit2.text='' THEN
Begin
MessageDlg('Lebar masih kosong',mtInformation,[mbOK],0);
edit2.setfocus;
END;
IF edit3.text='' THEN
Begin
MessageDlg('Tinggi masih kosong',mtInformation,[mbOK],0);
edit3.setfocus;
End;
IF edit5.text='' THEN
Begin
MessageDlg('Kuantity masih kosong',mtInformation,[mbOK],0);
edit5.setfocus;
End;
BEGIN
p:=strtofloat(edit1.text);
l:=strtofloat(edit2.text);
t:=strtofloat(edit3.text);
q:=strtofloat(edit5.text);
hasil:= p*l*t*q/1000000;
edit4.text:= floattostr(hasil);
end;
END;
procedure TForm1.Button2Click(Sender: TObject);
begin
application.Terminate;
end;
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
IF key=chr(13)
then
begin edit2.SetFocus;
end;
end;
procedure TForm1.Edit2KeyPress(Sender: TObject; var Key: Char);
begin
IF key=chr(13)
then
begin edit3.SetFocus;
end;
end;
procedure TForm1.Edit3KeyPress(Sender: TObject; var Key: Char);
begin
IF key=chr(13)
then
begin edit5.SetFocus;
end;
end;
procedure TForm1.Edit5KeyPress(Sender: TObject; var Key: Char);
begin
IF key=chr(13)
then
begin Button1.SetFocus;
end;
end;
procedure TForm1.Label1Click(Sender: TObject);
begin
edit1.text:='';
edit2.text:='';
edit3.text:='';
edit4.text:='';
edit5.text:='';
edit6.text:='';
edit7.text:='';
edit8.text:='';
edit9.text:='';
end;
procedure TForm1.Edit6Change(Sender: TObject);
begin
IF edit6.text='' THEN
Begin
edit7.Text:='';
end;
y:=strtofloat(edit6.text);
m:=y*0.9144;
edit7.text:= floattostr(m);
end;
procedure TForm1.Edit6KeyPress(Sender: TObject; var Key: Char);
begin
IF key=chr(13)
then
begin edit7.SetFocus;
end;
end;
procedure TForm1.Edit7Change(Sender: TObject);
begin
IF edit7.text='' THEN
Begin
edit6.Text:='';
end;
y:=strtofloat(edit7.text);
m:=y/0.9144;
edit6.text:= floattostr(m);
end;
procedure TForm1.Edit7KeyPress(Sender: TObject; var Key: Char);
begin
IF key=chr(13)
then
begin edit6.SetFocus;
end;
end;
procedure TForm1.Edit8Change(Sender: TObject);
begin
IF edit8.text='' THEN
Begin
edit9.Text:='';
end;
y:=strtofloat(edit8.text);
m:=y*2.54;
edit9.text:= floattostr(m);
end;
procedure TForm1.Edit8KeyPress(Sender: TObject; var Key: Char);
begin
IF key=chr(13)
then
begin edit9.SetFocus;
end;
end;
procedure TForm1.Edit9Change(Sender: TObject);
begin
IF edit9.text='' THEN
Begin
edit8.Text:='';
end;
y:=strtofloat(edit9.text);
m:=y/2.54;
edit8.text:= floattostr(m);
end;
procedure TForm1.Edit9KeyPress(Sender: TObject; var Key: Char);
begin
IF key=chr(13)
then
begin edit8.SetFocus;
end;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
form1.Position := poDesktopCenter;
form1.BorderStyle := bssingle;
form1.BorderIcons := BorderIcons - [bimaximize] ;
end;
end.
+-+gedit_013.jpg)
+-+gedit_013.jpg){kind=link}