Membuat Proses Beberapa IF Dengan Check Box & Radio Button 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 Beberapa IF

2.     Mengerti Cara Menggunakan Operator Logika AND

3.     Mengerti Cara Menggunakan Obyek Radio Button Check Box

4.     Mengerti Membuat Event Onchange Tanpa Mengetik Perintah Yang Sama

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

7.     Label 7 rubah menjadi TKDIS

8.     Tambahkan RadioGroup

9.     Tambahankan Radio Button sebanyak 4

10. Tambahkan GroupBox

11. Tambahkan Checkbox Sebanyak 3

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 prak5;

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;

    Label5: TLabel;

    TLM: TEdit;

    THK: TEdit;

    TJUMLAH: TEdit;

    TKDIS: TEdit;

    TBAYAR: TEdit;

    TDIS: TEdit;

    CMULAI: TButton;

    CSELESAI: TButton;

    Label6: TLabel;

    RadioGroup1: TRadioGroup;

    RDIS30: TRadioButton;

    RDIS20: TRadioButton;

    RDIS10: TRadioButton;

    RDIS0: TRadioButton;

    GroupBox1: TGroupBox;

    CKETANG: TCheckBox;

    CKETUM: TCheckBox;

    CKETKRY: TCheckBox;

    procedure CMULAIClick(Sender: TObject);

    procedure CSELESAIClick(Sender: TObject);

    procedure FormCreate(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;

  Tbayar.Enabled:=False;

  Tbayar.Color:=clbtnface;

  Rdis30.Checked:=true;

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

    then

      Sdis:=Sjumlah*0.3

    else

      if Rdis20.Checked

    then

      Sdis:=Sjumlah*0.2

    else

      if Rdis10.Checked

    then

      Sdis:=Sjumlah*0.1

    else

      Sdis:=0;

  if Rdis30.Checked or Rdis20.Checked or Rdis10.Checked=true

  then

      Skdis:='Dapat Diskon'

    else

      Skdis:='Tidak Dapat Diskon';

      if Cketang.Checked or Cketkry.Checked

      then

        begin

          Sdis:=Sdis+Sjumlah*0.05;

          Cketum.State:=cbunchecked;

          end;

      if Cketang.Checked or Cketkry.Checked

      then

        begin

          Sdis:=Sdis+Sjumlah*0.10;

          Cketum.State:=cbunchecked;

          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 Beberapa IF Dengan Check Box & Radio Button ), sampai bertemu lagi di pengetahuan dan pembelajaran mengenai program delphi 7.