Pengulangan dan Percabangan pada Delphi

2. Pengulangan dan Percabangan pada Delphi

Saya akan menjelaskan pemrograman delphi yang menjelaskan tentang perulangan dan percabangan.
Pertama-tama saya akan menjelaskan tentang program perulangan terlebih dahulu.

Berikut ini adalah alur dan logika program diatas.

unit Prog_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.

Pada program yang kedua saya akan menjelaskan tentang program percabangan .

Berikut ini adalah alur dan logika program diatas.

unit Nilai_Mhs;

interface

uses

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

  Dialogs, StdCtrls;

type

  TForm1 = class(TForm)

    Label1: TLabel;

    Label2: TLabel;

    Label3: TLabel;

    Label4: TLabel;

    Edit1: TEdit;

    Edit2: TEdit;

    Edit3: TEdit;

    Button1: TButton;

    Button2: TButton;

    Button3: TButton;

    procedure Button1Click(Sender: TObject);

    procedure Button2Click(Sender: TObject);

    procedure Button3Click(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 4 label, 3 edit.text dan 3 button. Setelah mendesain dengan componet tersebut, maka otomatis delphi mengkoding seperti code diatas. Code diatas adalah 1 form, 4 label, 3 edit.text dan 3 button. Kemudian, ini adalah bagian terpenting yaitu, merubah nama masing - masing component tersebut. Pada program ini saya merubah :

Label1 = Hitung Grade Nilai Mahasiswa

Label2 = Nilai

Label3 = Grade

Label4 = Keterangan

Edit1 = (Kosong)

Edit2 = (Kosong)

Edit3 = (Kosong)

Button1 = OK

Button2 = HAPUS

Button3 = KELUAR

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

procedure TForm1.Button1Click(Sender: TObject);

var

A : Integer;

begin

A :=Strtoint(Edit1.Text);

Edit2.Text:='';

Edit3.Text:='';

if A <= 30 then

   begin

   Edit2.Text:='E';

   Edit3.Text:='Gagal';

   end

else if A <=50 then

    begin

    Edit2.Text:='D';

    Edit3.Text:='Kurang';

    end

else if A <= 65 then

     begin

     Edit2.Text:='C';

     Edit3.Text:='Cukup';

     end

else if A <= 90 then

     begin

     Edit2.Text:='B';

     Edit3.Text:='Baik';

     end

else if A <= 100 then

     begin

     Edit2.Text:='A';

     Edit3.Text:='Sangat Baik';

     end

else if A >= 100 then

     begin

     Edit2.Text:='Error';

     Edit3.Text:='Error';

     end

end;

Fungsi dari button OK adalah sebagai output dari proses percabangan.

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

procedure TForm1.Button2Click(Sender: TObject);

begin

Edit1.Text:='';

Edit2.Text:='';

Edit3.Text:='';

end;

Fungsi dari button HAPUS adalah menghapus isian field Output.

Langkah yang Keempat adalah membuat perintah keluar dari program. Caranya sama seperti sebelumnya, klik 2x pada button KELUAR . Dan saya akan membuat sebuah kondisi, dimana jika ingin keluar dari program tersebut akan muncul sebuah Messagebox, yang menyatakan ingin keluar dari program tersebut. Masukkan code dibawah ini :

procedure TForm1.Button3Click(Sender: TObject);

begin

if (Application.MessageBox('Apakah Ingin Keluar dari program ini ?','Konfirmasi',MB_YesNo)=ID_Yes)then

begin

Application.Terminate;

end;

end;

end.

Nama : Yudo Rahadyatmo

NPM : 57411634

Kelas : 1IA07