gambarnya :
unit Unit5;sesuaikan objek yg saya pakai bila ingin mencoba menjalankannya. kalau ada yg masih error silakan komen ato kirim via email.
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Buttons, StdCtrls;
type
TForm5 = class(TForm)
GroupBox1: TGroupBox;
Edit1: TEdit;
Button1: TButton;
GroupBox2: TGroupBox;
Edit2: TEdit;
SpeedButton1: TSpeedButton;
Label1: TLabel;
Label2: TLabel;
Edit3: TEdit;
SpeedButton2: TSpeedButton;
procedure Button1Click(Sender: TObject);
procedure SpeedButton1Click(Sender: TObject);
procedure SpeedButton2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form5: TForm5;
i, n, jml, fak: integer;
implementation
{$R *.dfm}
procedure TForm5.Button1Click(Sender: TObject);
begin
if TryStrToInt(Edit1.Text, n)= false then
begin
ShowMessage('Salah memasukkan jumlah n, ulangi!!');
Edit1.SetFocus;
Edit1.Clear;
exit;
end;
jml := 0;
for i := 1 to n do
jml := jml+i;
fak := 1;
For i := 1 to n do
fak := fak*i;
Edit2.Text := IntToStr(fak);
Edit3.Text := IntToStr(jml);
end;
procedure TForm5.SpeedButton1Click(Sender: TObject);
begin
Edit1.Clear;
Edit2.Clear;
Edit3.Clear;
end;
procedure TForm5.SpeedButton2Click(Sender: TObject);
begin
close;
end;
end.
Tidak ada komentar:
Posting Komentar