penghitung diskon

Yang dibutuhkan dalam mengerjakan program ini antara lain:
1. Satu set computer atau laptop
2. Master program Delphi 7
3. Buku atau modul tentang Delphi
Langkah-langkah dalam membuat form Penghitung Diskon barang yaitu:
1. Instal program Delphi 7 pada computer atau laptop.
2. Setelah terinstal, buka program hingga muncul tampilan awal Delphi.
3. Buat aplikasi baru
File> New> Applicaton
4. Buatlah tampilan program pada from dengan 11 komponen yang terdiri dari 5 komponen Label, 4 komponen Edit dan 2 komponen Button yang semuanya terletak pada komponen palet Standart. Untuk meletakkan komponen-komponen tersebut di atas form caranya tinggal pilih komponen yang akan diletakkan pada form dan drag dengan mouse. Jika tampilan belum sesuai dapat diatur dengan cara mendrag komponen untuk diletakkan sesuai dengan yang diinginkan.
Daftar komponen yang dibutuhkan dan propertiesnya adalah sebagai berikut:
Form Name Form1
Caption Mengitung Diskon Barang
Label1 Name Label1
Caption Menghitung Diskon
Label2 Name Label2
Caption Harga Barang 1
Label3 Name Label3
Caption Harga Barang 2
Label4 Name Label4
Caption Diskon
Label5 Name Label5
Caption Jumlah yang Harus Dibayar
Edit1 Name Edit1
Text (Kosong)
Edit2 Name Edit2
Text (Kosong)
Edit3 Name Edit3
Text (Kosong)
Edit4 Name Edit4
Text (Kosong)
Button1 Name Button1
Caption Hitung
Button2 Name Button2
Caption Keluar
Tabel 1.1. Daftar Komponen dan Properties

Fungsi dari komponen Label, Edit dan Button
 Label berfungsi untuk memberikan tulisan pada program seperti judul atau keterangan.
 Edit berfungsi sebagai tempat yang dapat diisi. Biasanay digunakan untuk menginput dalam program.
 Button merupakan tombol yang biasa digunakan untuk mengeksekusi sebuah perintah pada program visual.


5. Setelah rancangan tampilan sudah jadi, langkah selanjutnya adalah menuliskan kode program pada code editor. Delphi 7 sudah menyediakan kerangka program secara menyeluruh, untuk menambahkan kode program dapat dilakukan pada prosedur atau fungsi program secara keseluruhan. Untuk program Menghitung Diskon Barang, Delphi secara otomatis akan membuat kerangkan kode program sebagai berikut:

unit Unit2;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;

type
TForm1 = class(TForm)
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
Edit1: TEdit;
Edit2: TEdit;
Edit3: TEdit;
Edit4: TEdit;
Button1: TButton;
Button2: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

end.
Kode program diatas merupakan program otomatis yang dibuat Delphi yang merupakan kerangkan program. Kode program diatas masih perlu dilengkapi dengan prosedur jika Button1 diklik maka akan menghitung diskon. Untuk menambahkan kode program dapat dilakukan dengan mendobel klik komponen Button1 (Hitung) pada form. Delphi secara otomatis akan menambahkan prosedur baru dalam program.

procedure TForm1.Button1Click(Sender: TObject);
var
harga1, harga2, diskon :real;
begin
harga1 := strtofloat(edit1.Text);
harga2 := strtofloat(edit2.Text);
diskon := strtofloat(edit3.Text);
edit4.Text := floattostr ((harga1+harga2) - ((harga1+harga2)*diskon/100));
end;

Catatan:
procedure TForm1.Button1Click(Sender: TObject);
Begin
End;
Sudah secara otomatis dibuat oleh Delphi, sehingga hanya perlu menambahkan kode antara begin dan end.

Begitu pun halnya dengan Button2 (Close). Klik double pada Button2 hingga masuk pada menu code editor, lalu ketikkan “close” antara begin dan end seperti berikut.

procedure TForm1.Button2Click(Sender: TObject);
begin
Close;
end;

6. Setelah kode program diisi dengan benar, langkah selanjutnya adalah mengkompile program yang bertujuan untuk mengetahui apakah kode program yang diisi sudah benar atau belum baik secara sintaks penulisan atau logika pemrogramannya.
Untuk mengkompile program dapat dilakukan dengan menekan tombol Ctrl+F9 secara bersamaan. Bila setelah dikompile tidak muncul pesan kesalahan maka kode yang diisikan sudah benar dan dapat langsung dieksekusi.

7. Eksekusi program bertujuan untuk melihat apakah program yang dibuat sudah sesuai yang diharapkan atau tidak. Untuk mengeksekusi program caranya adalah memilih menu RUN> Run atau melalui tombol F9.
Hasil eksekusi program diatas adalah sebagai berikut: