Membuat Proses Beberapa IF Dengan 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 OR

3.     Mengerti Cara Menggunakan Obyek Radio Button

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

9.     Tambahankan Radio Button sebanyak 4

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

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;

    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;

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=true

    then

      Sdis:=Sjumlah*0.3

    else

      if Rdis20.Checked=true

    then

      Sdis:=Sjumlah*0.2

    else

      if Rdis10.Checked=true

    then

      Sdis:=Sjumlah*0.1

    else

      Sdis:=0;

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

  then

      Skdis:='Dapat Diskon'

    else

      Skdis:='Tidak Dapat Diskon';

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