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 Case
2.
Mengerti Cara
Menggunakan Operator Logika AND
3.
Mengerti Cara Menggunakan
Obyek Radio Button Check Box & 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.
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;
TPIL: TEdit;
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;
Spil:byte;
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;
val(Tpil.Text,Spil,Tsem);
case Spil of
1: begin
Rdis30.Checked;
Rdis30.Checked:=true;
Sdis:=Sjumlah*0.3;
end;
2: begin
Rdis20.Checked;
Rdis20.Checked:=true;
Sdis:=Sjumlah*0.2;
end;
3: begin
Rdis10.Checked;
Rdis10.Checked:=true;
Sdis:=Sjumlah*0.1;
end;
4: begin
Rdis0.Checked;
Rdis0.Checked:=true;
Sdis:=0;
end;
end;
if Rdis30.Checked or Rdis20.Checked or Rdis10.Checked
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 and Cketkry.Checked
then
begin
Sdis:=Sdis+Sjumlah*0.10;
Cketum.State:=cbunchecked;
end;
if Cketum.Checked
then
begin
Cketkry.State:=cbunchecked;
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 Pencabangan Case Dengan Check Box & Radio Button ), sampai bertemu lagi di pengetahuan dan
pembelajaran mengenai program delphi 7.
