PROGRAM RUMUS TABUNG DALAM DELPHI 7
10.27 | Author: rahmat
unit Unit1;
interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, jpeg, ExtCtrls, Menus;
type
TForm1 = class(TForm)
    ejarijari: TEdit;
    etinggi: TEdit;
    eluas: TEdit;
    bproses: TButton;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    evolume: TEdit;
    Label5: TLabel;
    Image1: TImage;
    bkluar: TButton;
    Label6: TLabel;
    Label7: TLabel;
    ecmjarijari: TLabel;
    ecmtinggi: TLabel;
    ecmluas: TLabel;
    ecmvolume: TLabel;
    procedure bprosesClick(Sender: TObject);
    procedure ejarijariKeyPress(Sender: TObject; var Key: Char);
    procedure etinggiKeyPress(Sender: TObject; var Key: Char);
    procedure eluasKeyPress(Sender: TObject; var Key: Char);
    procedure evolumeKeyPress(Sender: TObject; var Key: Char);
    procedure bkluarClick(Sender: TObject);
private
{ Private declarations }
public
      { Public declarations }
      end;
var
  Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.bprosesClick(Sender: TObject);
var j,t,l,v:real;
begin
   j := strtofloat(ejarijari.Text);
   t := strtofloat(etinggi.text);
   l:= 3.14*j*j;
   v:=(3.14*j*j)*(j*t);
   eluas.text:=floattostr(l);
 
evolume.Text :=floattostr(v);
end;
procedure TForm1.ejarijariKeyPress(Sender: TObject; var Key: Char);
begin
  if not (key in ['0'..'9',#8,#13]) then key:=#0;
end;
procedure TForm1.etinggiKeyPress(Sender: TObject; var Key: Char);
begin
   if not (key in ['0'..'9',#8,#13]) then key:=#0;
end;
procedure TForm1.eluasKeyPress(Sender: TObject; var Key: Char);
begin
   if not (key in ['0'..'9',#8,#13]) then key:=#0;
end;
procedure TForm1.evolumeKeyPress(Sender: TObject; var Key: Char);
begin
   if not (key in ['0'..'9',#8,#13]) then key:=#0;
end;
procedure TForm1.bkluarClick(Sender: TObject);
begin
   close;
end;
end.
|
This entry was posted on 10.27 and is filed under . You can follow any responses to this entry through the RSS 2.0 feed. You can leave a response, or trackback from your own site.

0 komentar:

Posting Komentar