Membuat Proses Pencabangan IF Beberapa Pernyataan Menggunakan Delphi 7

Sebelum saya memberikan source code untuk membuat proses berurutan menggunakan program delphi 7, saya ingin menjelaskan tujuan dari pembelajaran tahap pertama dalam belajar Delphi 7 yaitu sebagai berikut.

1.     Mengerti Proses IF.. THEN ELSE beberapa pernyataan

2.     Mengerti memberi nilai string ke variable string

Kita langsung saja ke dalam proses pembuatan program aplikasinya, pertama kalian harus membuka program delphi 7 terlebih dahulu, jika sudah membuka program delphi 7, ikuti langkah demi langkah seperti pada gambar di bawah ini.

pertama kalian harus mengklik label sebanyak :

1. 1.  Labe11 rubah menjadi LAMA MENGINAP

2.     Label 2 rubah menjadi HARGA KAMAR/HARI

3.     Label 3 rubah menjadi JUMLAH

4.     Label 4 rubah menjadi Diskon (10%)

5.     Label 5 rubah menjadi (JML>=100000)

6.     Label 6 rubah menjadi TOTAL BAYAR

7.     Label 7 rubah menjadi TKDIS

Apabila sudah mengikuti langkah membuat label seperti di atas maka kita lanjut ke tahap selanjutnya untuk membuat foam Edit seperti gambar contoh dibawah ini :

Jika sudah membuat label dan foam edit kita msuk ke tahap berikutnya yaitu memasukan source code ( coding). Untuk bisa running program tersebut kita wajib untuk memasukan source codenya. Berikut adalah source code yang bisa di ikut dan ditulis seperti di bawah ini.

 unit prak3;

interface

uses

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

  Dialogs, StdCtrls;

type

  TForm1 = class(TForm)

    Label1: TLabel;

    Label2: TLabel;

    Label3: TLabel;

    Label4: TLabel;

    Label5: TLabel;

    TLM: TEdit;

    THK: TEdit;

    TJUMLAH: TEdit;

    TKDIS: TEdit;

    TBAYAR: TEdit;

    TDIS: TEdit;

    CMULAI: TButton;

    CSELESAI: TButton;

    Label6: TLabel;

    Label7: TLabel;

    procedure CMULAIClick(Sender: TObject);

    procedure CSELESAIClick(Sender: TObject);

    procedure FormCreate(Sender: TObject);

    procedure THKChange(Sender: TObject);

    procedure TLMChange(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

var

  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.CMULAIClick(Sender: TObject);

begin

  TLM.Text:='';

  THK.Text:='';

  TJUMLAH.Text:='';

  TDIS.Text:='';

  TBAYAR.Text:='';

  TLM.SetFocus;

end;

procedure TForm1.CSELESAIClick(Sender: TObject);

begin

  Application.Terminate

end;

procedure TForm1.FormCreate(Sender: TObject);

begin

  Tjumlah.Enabled:=False;

  Tjumlah.Color:=clbtnface;

  Tkdis.Enabled:=False;

  Tkdis.Color:=clbtnface;

  Tdis.Enabled:=False;

  Tdis.Color:=clbtnface;

end;

procedure TForm1.THKChange(Sender: TObject);

var

  SJml,Sbyr,Sds,Skdis:string[30];

  Tsem:integer;

  Slm,Shk,Sjumlah,Sdis,Sbayar:single;

begin

  val(Tlm.Text,Slm,Tsem);

  val(Thk.Text,Shk,Tsem);

  Sjumlah:=Slm*Shk;

  str(Sjumlah:30:0,Sjml);

  Tjumlah.Text:=Sjml;

  if Sjumlah>=100000

    then

  begin

    Sdis:=Sjumlah*0.1;

    Skdis:='Dapat Diskon';

    end

  else

  begin

    Sdis:=0;

    Skdis:='Tidak Dapat Diskon';

end;

Tkdis.Text:=Skdis;

Sbayar:=Sjumlah-Sdis;

str(Sbayar:30:0,Sbyr);

str(Sdis:30:0,Sds);

Tdis.Text:=Sds;

Tbayar.Text:=Sbyr;

end;

procedure TForm1.TLMChange(Sender: TObject);

var

  Sjml,Sbyr,Sds,Skdis:string[30];

  Tsem:integer;

  Slm,Shk,Sjumlah,Sdis,Sbayar:single;

begin

  val(Tlm.Text,Slm,Tsem);

  val(Thk.Text,Shk,Tsem);

  Sjumlah:=Slm*Shk;

  str(Sjumlah:30:0,Sjml);

  Tjumlah.Text:=Sjml;

  if Sjumlah>=100000

  then

    begin

    Sdis:=Sjumlah*0.1;

    Skdis:='Dapat Diskon';

    end

  else

    begin

    Sdis:=0;

    Skdis:='Tidak Dapat Diskon';

end;

Tkdis.Text:=skdis;

Sbayar:=Sjumlah-Sdis;

str(Sbayar:30:0,Sbyr);

str(Sdis:30:0,Sds);

Tdis.Text:=sds;

Tbayar.Text:=Sbyr;

end;

end.

  

jika sudah mengikut coding diatas dan langkah - langkah sebelumnya coba untuk mengcomfile program dengan menekan tombol, maka hasilnya akan seperti gambar di bawah ini.

Sekian dan terima kasih, ini adalah salah satu contoh program aplikasi sederhana menggunakan program delphi 7 ( Proses Pencabangan IF Beberapa Pernyataan ), sampai bertemu lagi di pengetahuan dan pembelajaran mengenai program delphi 7.