TURORIAL MENGHITUNG
DISKON PADA DELPHI 7
A. MENDESAIN FORM
Untuk membuat
program menghitung diskon
ini, kita membutuhkan
sebuah form. Namun
anda juga bias membuatnya bersama proyek yang baru.
Kemudian anda masukan beberapa komponen diantaranya Label sebanyak enam buah,
Edit sebanyak lima buah dan Button sebanyak tiga buah. Anda atur posisinya
sehingga terlihat seperti pada Gambar berikut :
B. MENGUBAH PROPERTI
Dengan menggunakan Object Inspector,
ubahlah properti dari komponen yang ada dengan ketentuan sebagai berikut :
Nama Objek
|
Properti Yang Diubah
|
Nilai
|
Form1 : TForm1
Label1 : TLabel1
Label2 : TLabel2
Label3 : TLabel3
Label4 : TLabel4
Label5 : TLabel5
Label6 : TLabel6
Edit1 : TEdit1
Edit2 : Tedit2
Edit3 : Tedit3
Edit4 : Tedit4
Edit5 : Tedit5
Button1 : TButton1
Button2 : Tbutton2
Button3 : Tbutton3
|
Caption
Caption
Font
: Size
Caption
Caption
Caption
Caption
Caption
Text
Text
Text
Text
Text
Caption
Caption
Caption
|
Menghitung
total pembayaran
Jumlah batang:
12
harga
barang:
diskon:
total:
total
bayar:
ctt:
(Kosongkan)
(Kosongkan)
(Kosongkan)
(Kosongkan)
(Kosongkan)
&Hitung
&clear
keluar
|
Jika
sudah selesai seharusnya tampilan form anda akan terlihat seperti gambar dibawah ini :
C. MEMASUKAN KODE
Agar desain program yang telah kita buat
bisa berfungsi sebagaimana mestinya, tentunya kita harus memasukkan kode kedalam
objek tersebut. Anda cukup memasukan kode untuk Button1 dan Button2 saja. Berikut
ini kode sumbernya:
procedure TForm1.Button1Click(Sender: TObject);
begin unit Unit1;
interface
uses
Windows, Messages,
SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Edit1: TEdit;
Edit2: TEdit;
Edit3: TEdit;
Edit4: TEdit;
Button1: TButton;
Button2: TButton;
Label5: TLabel;
Edit5: TEdit;
Button3: TButton;
Label6: TLabel;
procedure
Button1Click(Sender: TObject);
procedure
Button2Click(Sender: TObject);
procedure
Button3Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var jumlah,harga, total:integer;
dis ,totaldis,tb:
currency;
begin
//menghitung total
jumlah:=strtoint(edit1.Text);
harga:=strtoint(edit2.Text);
total:=jumlah*harga;
edit3.Text:=inttostr(total);
//menghitung diskon
if total>50000 then dis:=0.075 else dis:=0;
totaldis:=total*dis;
edit4.Text:=currtostr(totaldis);
//menghitung total bayar
tb:=total-totaldis;
edit5.Text:=currtostr(tb);
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
//menghapus
edit1.Text:='';
edit2.Text:='';
edit3.Text:='';
edit4.Text:='';
edit5.Text:='';
end;
procedure TForm1.Button3Click(Sender: TObject);
begin
close;
end;
end.
EmoticonEmoticon