Struktur Keputusan 1 PBO-1

STRUKTUR KEPUTUSAN-1

A.    DASAR TEORI

Percabangan IF

Percabangan IF terdiri dari IF tunggal dan IF bercabang atau majemuk.

               1.            Percabangan IF Tunggal

Percabangan dengan IF tunggal digunakan untuk menentukan sebuah pilihan dengan kondisi tunggal. Contohnya:

If Nilai > 80 Then

keterangan = 'LuLus';

               2.            Percabangan IF Majemuk

Percabangan dengan IF majemuk terdapat sebuah statemen khusus yang berguna untuk mengatasi kejadian apabila kondisi yang didefinisikan tersebut tidak terpenuhi (bernilai salah). Jika kondisi bernilai benar maka statemen bagian pertama yang akan dikerjakan, namun jika kondisi bernilai salah maka bagian statemen setelah kata kunci Else yang akan dikerjakan. Contohnya:

If Nilai > 80 Then

keterangan = 'LuLus';

Else

keterangan = 'Tidak Lulus';

Contoh: IF majemuk bersarang.

If Nilai > 80 Then Index = 'A';

Else If Nilai > 70 Then Index = 'B';

Else If Nilai > 60 Then Index = 'C';

Else If Nilai > 50 Then Index = 'D';

Else Index = 'E';

Catatan: Aturan-aturan penulisan program menggunakan perintah IF:

a.      Jika suatu kondisi tercapai (bernilai benar), maka IF hanya mengenal satu perintah berikutnya.

b.      Jika perintah IF ingin mengerjakan lebih dari satu perintah, maka gunakan perintah Begin dan End;

c.       Sebelum Else jangan menggunakan titik koma. Karena titik koma merupakan akhir dari sebuah perintah.

B.     IMPLEMENTASI PROGRAM PRAKTIKUM

Implementasi program pada praktikum 3 PBO-1 adalah sebagai berikut :

-        SCRIPT

unit Unitpraktikum3;

interface

uses

  Windows, Messages, SysUtils, Variants,

   Classes, Graphics, Controls, Forms,

  Dialogs, StdCtrls, ExtCtrls;

type

  TForm1 = class(TForm)

    Label1: TLabel;

    Label2: TLabel;

    Label3: TLabel;

    Label4: TLabel;

    Edit1: TEdit;

    Edit2: TEdit;

    Edit3: TEdit;

    Edit4: TEdit;

    RadioGroup1: TRadioGroup;

    RadioButton1: TRadioButton;

    RadioButton2: TRadioButton;

    RadioButton3: TRadioButton;

    Button1: TButton;

    Button2: TButton;

    Button3: TButton;

    Label6: TLabel;

    Edit5: TEdit;

    Label7: TLabel;

    Label8: TLabel;

    Edit6: TEdit;

    Panel1: TPanel;

    Label9: TLabel;

    Label5: TLabel;

    procedure RadioButton1Click(Sender: TObject);

    procedure RadioButton2Click(Sender: TObject);

    procedure RadioButton3Click(Sender: TObject);

    procedure Button3Click(Sender: TObject);

    procedure Edit5Change(Sender: TObject);

    procedure Button1Click(Sender: TObject);

    procedure Button2Click(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

var

  Form1: TForm1;

  hrg,lm,jml:integer;

  dis,tot:real;

implementation

{$R *.dfm}

procedure TForm1.RadioButton1Click(Sender: TObject);

begin

    if radiobutton1.Checked=true then

    hrg:=750000;

    label5.Caption:=inttostr(hrg);

    edit5.SetFocus;

end;

procedure TForm1.RadioButton2Click(Sender: TObject);

begin

    if radiobutton2.Checked=true then

    hrg:=500000;

    label5.Caption:=inttostr(hrg);

    edit5.SetFocus;

end;

procedure TForm1.RadioButton3Click(Sender: TObject);

begin

    if radiobutton3.Checked=true then

    hrg:=300000;

    label5.Caption:=inttostr(hrg);

    edit5.SetFocus;

end;

procedure TForm1.Button3Click(Sender: TObject);

begin

    jml:=strtoint(edit6.Text);

    if jml>5000000 then

    dis:=jml*0.15

    else

    if (jml>=2500000) and (jml<=5000000) then

    dis:=jml*0.05

    else

    dis:=0;

    tot:=jml-dis;

    edit3.Text:=floattostr(dis);

    edit4.Text:=floattostr(tot);

end;

procedure TForm1.Edit5Change(Sender: TObject);

begin

    lm:=strtoint(edit5.text);

    hrg:=strtoint(label5.caption);

    jml:=hrg*lm;

    edit6.Text:=inttostr(jml);

end;

procedure TForm1.Button1Click(Sender: TObject);

begin

    edit1.Text:='';

    edit2.text:='';

    radiobutton1.Checked:=false;

    radiobutton2.Checked:=false;

    radiobutton3.Checked:=false;

    panel1.Caption:='';

    edit3.Text:='0';

    edit4.Text:='0';

    edit5.text:='0';

    edit6.Text:='0';

    edit1.SetFocus;

end;

procedure TForm1.Button2Click(Sender: TObject);

begin

    close;

end;

end.

-        INTERFACE

Gambar 4. Interface program praktikum 3

     Inputkan nomor nota, nama customer, dan pilih jenis room untuk mengetahui biaya room yang di pilih dan inputkan hari lama menginap untuk mengetahui jumlah harga.