PERCABANGAN DAN PERULANGAN PADA DELPHI

Oke sodara-sodara. Di pertemuan kedua ini saya akan menjelaskan kepada kalian contoh listing program PERCABANGAN DAN PERULANGAN PADA DELPHI. Berikut adalah listing programnya. Segera di sedot, siapa tau perlu ... hehehe :p

- Listing Program :

Code                :

unit Pertemuan2;

interface
uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
type
  TForm1 = class(TForm)
    GroupBox1: TGroupBox;
    Label1: TLabel;
    Label2: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Button1: TButton;
    Button2: TButton;
    GroupBox2: TGroupBox;
    Label3: TLabel;
    Label4: TLabel;
    Edit3: TEdit;
    Edit4: TEdit;
    Button3: TButton;
    Edit5: TEdit;
    GroupBox3: TGroupBox;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    GroupBox4: TGroupBox;
    Label8: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    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}
procedure TForm1.Button1Click(Sender: TObject);
var
A:string;
begin
  A:='Praktikum';
  if edit1.Text=A then
  showmessage('Praktikum')
end;

procedure TForm1.Button2Click(Sender: TObject);
var
nilai:integer;
begin
  if StrToInt (edit2.Text)<30 then
  showmessage ('Nilai E')
  else if StrToInt (edit2.Text)<=50 then
  showmessage ('Nilai D')
  else if StrToInt (edit2.Text)<=60 then
  showmessage ('Nilai C')
  else if StrToInt (edit2.Text)<=70 then
  showmessage ('Nilai B')
  else if StrToInt (edit2.Text)<=100 then
  showmessage ('Nilai A')
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
  case StrToInt (edit3.Text) of
  1:edit5.Text:='Anda Pesan Bakso';
  2:edit5.Text:='Anda Pesan Mie Ayam';
  3:edit5.Text:='Anda Pesan Gado-gado';
end;
  case StrToInt (edit4.Text) of
  1:edit5.Text:=edit5.Text+' Minumnya Es Tawar';
  2:edit5.Text:=edit5.Text+' Minumnya Es Doger';
  3:edit5.Text:=edit5.Text+' Minumnya Cendol';
end;
end;
end.

Logika Program :

Pada pertemuan kedua praktikum TI ini, kita akan mempelajari tentang percabangan dan perulangan pada Delphi. Pertama2 kita buat form nilai dengan menggunakan perulangan if else seperti pada listing program dibawah ini dengan group box, label, button.

type
  TForm1 = class(TForm)
    GroupBox1: TGroupBox;
    Label1: TLabel;
    Label2: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Button1: TButton;
    Button2: TButton;

Ketikkan list program untuk menampilkan variable A bertipe data string lalu ketikkan rumus dari pernyataan tersebut untuk mencetak praktikum seperti dibawah ini

var
  Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var
A:string;
begin
  A:='Praktikum';
  if edit1.Text=A then
  showmessage('Praktikum')
end;

Lalu masukkan perulangan dengan menggunakan if else, untuk mencetak nilai seperti list program dibawah ini

procedure TForm1.Button2Click(Sender: TObject);
var
nilai:integer;
begin
  if StrToInt (edit2.Text)<30 then
  showmessage ('Nilai E')
  else if StrToInt (edit2.Text)<=50 then
  showmessage ('Nilai D')
  else if StrToInt (edit2.Text)<=60 then
  showmessage ('Nilai C')
  else if StrToInt (edit2.Text)<=70 then
  showmessage ('Nilai B')
  else if StrToInt (edit2.Text)<=100 then
  showmessage ('Nilai A')
end;

Nilai E unuk nilai lebih dari 30, nilai D untuk nilai lebih dari sama dengan 50, nilai C untuk nilai lebih dari sama dengan 60, nilai B untuk nilai lebih dari sama dengan 70, nilai A untuk lebih dari sama dengan 100.Selesai.

Selanjutnya pada group box2. Kita akan mencetak menu pesanan dengan menggunakan menu case. Pertama-tama kita buat group box 2, button, label. Lalu ketikkan menu makanan dan menu minuman yang terdiri dari group box3 dan 4. List programnya adalah seperti dibawah ini:

    GroupBox2: TGroupBox;
    Label3: TLabel;
    Label4: TLabel;
    Edit3: TEdit;
    Edit4: TEdit;
    Button3: TButton;
    Edit5: TEdit;
    GroupBox3: TGroupBox;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    GroupBox4: TGroupBox;
    Label8: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);

Pada prosedur ini, masukkan perulangan case anda pesan bakso, anda pesan mie ayam, anda pesan gado2. Lalu end lalu case ulang kembali dengan setian item sama dengan edit5.text + minuman yang di pesan. Listing programnya adalah seperti ini:

procedure TForm1.Button3Click(Sender: TObject);
begin
  case StrToInt (edit3.Text) of
  1:edit5.Text:='Anda Pesan Bakso';
  2:edit5.Text:='Anda Pesan Mie Ayam';
  3:edit5.Text:='Anda Pesan Gado-gado';
end;
  case StrToInt (edit4.Text) of
  1:edit5.Text:=edit5.Text+' Minumnya Es Tawar';
  2:edit5.Text:=edit5.Text+' Minumnya Es Doger';
  3:edit5.Text:=edit5.Text+' Minumnya Cendol';
end;
end;
end.

 

Tampilan Output Program: