Home » » Struktur Keputusan 1 PBO-1

Struktur Keputusan 1 PBO-1

Written By MDC Media on Sunday, 3 February 2013 | 00:01



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.


Share this article :

0 comments:


Populer Post

Pengunjung

free counters
 
Support : Whisuma | Morodadi Computer Madiun | MDC Advertising |
Copyright © 2011. Morodadi Komputer M
Creating Website Published by Morodadi Computer dan Advertising Madiun
powered by MDCTEAM