Membuat Proses Pencabangan IF Satu 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 IF.. THEN ELSE satu pernyataan

2.     Mengerti cara kerja event onchange

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

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 masuk 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 ikuti dan di tulisan seperti di bawah ini.

unit prak2;

interface

uses

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

  Dialogs, StdCtrls;

type

  TForm1 = class(TForm)

    Label1: TLabel;

    Label2: TLabel;

    Label3: TLabel;

    Label5: TLabel;

    TLM: TEdit;

    THK: TEdit;

    TJUMLAH: 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;

  Tdis.Enabled:=False;

  Tdis.Color:=clbtnface;

  Tbayar.Enabled:=False;

  Tbayar.Color:=clbtnface;

end;

procedure TForm1.THKChange(Sender: TObject);

var

  Sjml,Sbyr,Sds: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

  Sdis:=Sjumlah*0.1

    else

    Sdis:=0;

  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: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

    Sdis:=Sjumlah*0.1

  else

    Sdis:=0;

  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 Satu Pernyataan ), sampai bertemu lagi di pengetahuan dan pembelajaran mengenai program delphi 7.