Posted by : Rhyf Ahmad Wednesday, March 21, 2012

Sebagai perwujudan permintaan dari sobat-sobat Blogger yang menginginkan tutorial pemrogramman dengan Delphi, kali ini saya akan memulainya dengan tutorial tingkat dasar terlebih dahulu, yaitu membuat aplikasi sederhana yang bisa digunakan untuk proses transaksi pertokoan. Dimaksudkan agar sobat Blogger tidak memerlukan kalkulator lagi gitu.
Saya sendiri juga belum lama belajar tentang Delphi, baru 1 tahun berjalan, jadi jika terdapat kesalahan mohon dimaklumi. Dan materi yang ada dalam postingan ini saya adopsi dari tutorial yang ada di dalam ebook BSI. Berikut tutorialnya.
Sobat Blogger harus membuat design Form terlebih dahulu dengan formasi seperti gambar di bawah ini:

Dengan Properties seperti yang diuraikan pada tabel di bawah ini.

Object
Name
Caption
Label 1
Label1
Total Item Yang Dibeli
Label 2
Label2
Tanggal
Label 3
Label3
No. Faktur
Lebl 4
Label4
Total Penjualan
GroupBox1
GroupBox1
Data Penjualan
GroupBox2
GroupBox2
Daftar Nama Barang Yang Dibeli
GroupBox3
GroupBox3
Daftar Harga Barang
GroupBox4
GroupBox
Detail
Button1
btOk
OK
Button2
btLagi
Isi Data Lagi
Button3
btClose
Close



Edit1
-
eItem
Edit2
-
eNofaktur
Edit3
-
eTgl
Edit4
-
eTotal
ListBox1
-
lNama
ListBox2
-
lHarga

Listing Program yang diberikan adalah.

//Ini adalah kode pertama pada program

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    GroupBox1: TGroupBox;
    GroupBox2: TGroupBox;
    Label1: TLabel;
    eItem: TEdit;
    Label2: TLabel;
    Label3: TLabel;
    eTgl: TEdit;
    eNofaktur: TEdit;
    GroupBox3: TGroupBox;
    GroupBox4: TGroupBox;
    Label4: TLabel;
    eTotal: TEdit;
    btLagi: TButton;
    btClose: TButton;
    btOK: TButton;
    lnama: TListBox;
    lharga: TListBox;
    procedure FormCreate(Sender: TObject);
    procedure btOKClick(Sender: TObject);
    procedure btLagiClick(Sender: TObject);
    procedure btCloseClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

//kode ini berfungsi untuk menampilkan tanggal secara otomatis, lakukan double klik pada sembarang tempat di dalam Form

procedure TForm1.FormCreate(Sender: TObject);
begin
DateSeparator:='-';
ShortDateFormat:='mm/dd/yy';
eTgl.Text:='Hari ini'+DateToStr(Date);
end;

//Lakukan double click pada btOK dan ketikkan kode program di bawah ini

procedure TForm1.btOKClick(Sender: TObject);
var
inputnama:string;
inputharga:string;
i:integer;
j:integer;
harga:real;
begin
harga:=0;
j:=0;
j:=StrToInt(eItem.Text);
if j<=0 then
begin
    showmessage('Data Tidak Boleh Kurang dari Nol');
    exit;
end
else
begin
for i:=1 to j do
begin
inputnama:=inputbox('INput','Ketikkan Nama Barang','');
inputharga:=inputbox('INput','Ketikkan Harga Barang','');
lnama.Items.Add(inputnama);
lharga.Items.Add(inputharga);
harga:=harga+StrToFloat(inputharga);
end;
end;
eTotal.Text:=FloatToStr(harga);
end;

//Lakukan double click pada btLagi dan ketikkan kode program di bawah ini

procedure TForm1.btLagiClick(Sender: TObject);
begin
eItem.Text:='';
eNofaktur.Text:='';
lnama.Clear;
lharga.Clear;
eTotal.Text:='';
end;

//Lakukan double click pada btClose dan ketikkan kode program di bawah ini

procedure TForm1.btCloseClick(Sender: TObject);
begin
if (application.MessageBox('Anda Yakin Ingin Keluar Dari Aplikasi','Konfirmasi',MB_YESNO)=IDYES)then
close;
end;

end.

OK sobat Blogger, demikian tutorial Delphi yang pertama, selanjutnya kita akan bersama-sama mengembangkan pembelajaran kita,,, Jika ada saran atau hal yang perlu di sampaikan, silahkan masukkan di dalam komentar...

Leave a Reply

You can leave a comment to request any article(s), software(s), ebook(s) or report the dead link.
Then I will reply as soon as I can :)

Subscribe to Posts | Subscribe to Comments

Welcome to My Blog

Recent Post

Recent Posts Widget
Instagram

- Copyright © Madriva -Robotic Notes- Powered by Blogger - Designed by Johanes Djogan -