Program Perulangan pada DELPHI

Listing  Program Perulangan:

unit Unit1;

interface

uses

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

  Dialogs, StdCtrls;

type

  TForm1 = class(TForm)

    Label1: TLabel;

    Label2: TLabel;

    Edit1: TEdit;

    Edit2: TEdit;

    Button1: TButton;

    Button2: TButton;

    Memo1: TMemo;

    procedure Button1Click(Sender: TObject);

    procedure Button2Click(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

var

  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

var

M,I:Integer;

begin

Memo1.Clear;

M:=Strtoint (edit1.Text);

I:=1;

While I <> Strtoint (Edit2.Text) do

begin

memo1.Lines.add ('Perulangan ke- ' + inttostr (I) + ('=') + inttostr (M));

M:= M+1;

I:= I+1;

end;

end;

procedure TForm1.Button2Click(Sender: TObject);

begin

Edit1.Text:= ' ';

Edit2.Text:= ' ';

memo1.Text:= ' ';

label1.Caption:='bilangan 1:';

label2.Caption:='bilangan 2:';

end;

end.

Logika Program :

Jika anda ingin membuat suatu program sederhana pada Delphi, mula-mula yang harus anda lakukan adalah :

1.    Buka program Delphi maka dengan otomatis akan keluar gambar seperti ini :

2.    Kliklah tanda   dan  buatlah masing-masing dua seperti gambar berikut :

3.    Lalu kliklah tanda  buatlah satu di bawah label dan klik tanda   buatlah dua di sebelah kanan edit, seperti pada gambar berikut:

4.    Lalu ubahlah bacaan label1 pada properties-Caption dengan bilangan1 dan label2 dengan bilangan2 seperti gambar berikut :

5.    Lalu hapuslah kata edit1 seperti pada gambar :

6.    Lalu ubahlah kata button1 dengan kata Ok dan button2 dengan kata clear seperti pada gambar berikut :

7.    Klik double pada button1 yang telah diganti dengan Ok dengan ketiklah program berikut :

var

M,I:Integer;

begin

Memo1.Clear;

M:=Strtoint (edit1.Text);

I:=1;

While I <> Strtoint (Edit2.Text) do

begin

memo1.Lines.add ('Perulangan ke- ' + inttostr (I) + ('=') + inttostr(M));

     M:= M+1;

I:= I+1;

end;

end;

seperti pada gambar berikut :

8.    Setelah anda mengetik program seperti di atas lalu kliklah tanda  atau tekan f5 pada PC anda sampai keluar gambar seperti berikut :

9.    Masukkanlah inputtan bilangan yang anda inginkan, saya mengambil contoh masukan inputtan pada bilangan1 yaitu 2 dan inputtan bilangan2 yaitu 12 lalu klik Ok, di layar PC akan tampil seperti berikut :

   10 .  Jika anda ingin menghapus data yang telah di atas , klik double

           Clear dan ketikkan program berikut :

          procedure TForm1.Button2Click(Sender: TObject);

begin

Edit1.Text:= ' ';

Edit2.Text:= ' ';

memo1.Text:= ' ';

label1.Caption:='bilangan 1:';

label2.Caption:='bilangan 2:';

end;

end.

Seperti pada gambar berikut :

    11  lalu klik tanda  atau f5 pada PC anda, dan masukkan kembali

          Bilangan yang anda inginkan lalu klik Clear maka button akan

          Hilang, seperti pada gambar berikut :

         

Output :