PERULANGAN DAN PERCABANGAN DELPHI

PERULANGAN DAN PERCABANGAN

LISTING PROGRAM

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;

    Button3: TButton;

    Button4: TButton;

    Memo1: TMemo;

    ColorDialog1: TColorDialog;

    procedure Button1Click(Sender: TObject);

    procedure Button2Click(Sender: TObject);

    procedure Button3Click(Sender: TObject);

    procedure Button4Click(Sender: TObject);

    procedure FormCreate(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

var

  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

var i,j:integer;

begin

memo1.Clear;

i:=StrToInt(edit1.Text);

For j:=1 To StrToInt(edit2.Text) do

begin

memo1.Lines.add('ulang ke:' +IntToStr(j) + '=' +IntToStr(i));

i:=i+1;

end;

end;

procedure TForm1.Button2Click(Sender: TObject);

var i,j,k:integer;

begin

memo1.Clear;

k:=StrToInt(edit1.Text);

j:=1;

for i := StrToInt(edit2.Text)downto j do

begin

memo1.Lines.add('ulang ke:' +IntToStr(j) + '=' +IntToStr(k));

k :=k-1;

j :=j+1;

end;

end;

procedure TForm1.Button3Click(Sender: TObject);

begin

application.terminate;

end;

procedure TForm1.Button4Click(Sender: TObject);

begin

if colordialog1.execute then

Form1.color:=colordialog1.Color;

end;

LOGIKA PROGRAM

Listing pertama yaitu

procedure TForm1.Button1Click(Sender: TObject);

var i,j:integer;

begin

memo1.Clear;

i:=StrToInt(edit1.Text);

For j:=1 To StrToInt(edit2.Text) do

begin

memo1.Lines.add('ulang ke:' +IntToStr(j) + '=' +IntToStr(i));

i:=i+1;

end;

end;

kode diatas menunjukan perintah ketika kita memasukkan angka di label 1 dan label 2 dan meng-klik tombol button For To Do maka output yang akan keluar adalah perulangan angka suatu variabel counter yang akan bertambah secara otomatis ketika perintah yang diulang telah selesai dikerjakan,kode ini menjelas kan perulangan ke atas,contoh atau outputnya adalah :

FOR TO DO

Listing kedua yaitu

procedure TForm1.Button2Click(Sender: TObject);

var i,j,k:integer;

begin

memo1.Clear;

k:=StrToInt(edit1.Text);

j:=1;

for i := StrToInt(edit2.Text)downto j do

begin

memo1.Lines.add('ulang ke:' +IntToStr(j) + '=' +IntToStr(k));

k :=k-1;

j :=j+1;

end;

end;

kode diatas menunjukan perintah ketika kita memasukkan angka di label 1 dan label 2 dan meng-klik tombol button For DownTo Do maka output yang akan keluar adalah adalah perulangan angka suatu variabel counter yang arah isi counternya berkurang (mundur/turun).secara otomatis ketika perintah yang diulang telah selesai dikerjakan,contoh atau outpunya adalah :

FOR DOWN TO

Listing ketiga yaitu

procedure TForm1.Button2Click(Sender: TObject);

begin

Application.Terminate;

end;

kode Application.Terminate berfungsi untuk untuk menghentikan program disaat kita menekan tombol button exit,dan untuk mengakhiri semua program.

Listing keempat yaitu

procedure TForm1.Button4Click(Sender: TObject);

begin

if colordialog1.execute then

Form1.color:=colordialog1.Color;

end;

kode diatas menunjukan perintah ketika kita meng-klik tombol button macam warna maka akan mengeluarkan message perintah perubahan warna latar output,untuk merubah tnggal klik salah satu warna tersebut,contoh atau outputnya adalah :

COLOR DIALOG

Posted in: PEMROGRAMAN