CONTOH PERULANGAN DELPHI

Pengulangan pada Delphi

Saya akan menjelaskan pemrograman delphi yang menjelaskan tentang perulangan
Berikut ini adalah alur dan logika program diatas.

unit Program perulangan;

interface

uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, StdCtrls;

type

  TForm1 = class(TForm)

    Label1: TLabel;

    Label2: TLabel;

    Label3: TLabel;

    Memo1: TMemo;

    Edit1: TEdit;

    Edit2: TEdit;

    Button1: TButton;

    Button2: TButton;

    procedure Button1Click(Sender: TObject);

    procedure Button2Click(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

var

  Form1: TForm1;

implementation

{$R *.dfm}

Pertama-tama adalah membuat desain, langkah ini sangat mudah dilakukan, yaitu dengan cara mengarahkan mouse pada butoon atau component yang diinginkkan. Pada program ini saya membuat 3 label, 2 edit.text, 2 button dan 1 memo. Setelah mendesain dengan componet tersebut, maka otomatis delphi mengkoding seperti code diatas. Code diatas adalah 1 form, 3 label, 2 edit.text, 2 button dan 1 memo. Kemudian, ini adalah bagian terpenting yaitu, merubah nama masing - masing component tersebut. Pada program ini saya merubah :

Label1 = PROGRAM PENGULANGAN

Label2 = Angka Awal

Label3 = Banyak Ulang

Edit1 = (Kosong)

Edit2 = (Kosong)

Button1 = WHILE – DO

Button2 = Cancel

Memo1=(Kosong)

Langkah yang kedua adalah klik 2x pada button While-Do, maka akan muncul isian codenya. Setelah muncul masukkan code yang ada dibawah ini :

procedure TForm1.Button1Click(Sender: TObject);

var

E,F : Integer;

begin

Memo1.Clear;

E:= Strtoint(Edit1.Text);

F:= 1;

while F <> Strtoint(Edit2.Text) do

begin

Memo1.Lines.add('Perulangan ke- '+inttostr(F)+' = '+inttostr(E));

E:=E+1;

F:=F+1;

end;

end;

Fungsi dari button  While-Do adalah untuk menampilkan perulangan.

Langkah yang ketiga adalah dengan cara yang sama seperti tadi, klik 2x pada button Cancel, dan masukkan code yang ada dibawah ini :

procedure TForm1.Button2Click(Sender: TObject);

begin

if (Application.MessageBox('Ingin keluar dari program ini ?','Konfirmasi',Mb_YesNo)=ID_Yes)

then

begin

Application.Terminate;

end;

end;

end.