PENGERTIAN DELPHI

 

         Delphi adalah Suatu bahasa pemrograman yang menggunakan visualisasi sama seperti bahasa pemrograman Visual Basic ( VB ) . Namun Delphi menggunakan bahasa yang hampir sama dengan pascal (sering disebut objeck pascal ) . Sehingga lebih mudah untuk digunakan . Bahasa pemrograman Delphi dikembangkan oleh CodeGear sebagai divisi pengembangan perangkat lunak milik embarcadero . Divisi tersebut awalnya milik borland , sehingga bahasa ini memiliki versi Borland Delphi .

         Delphi juga menggunakan konsep yang berorientasi objek ( OOP ) , maksudnya pemrograman dengan membantu sebuah aplikasi yang mendekati keadaan dunia yang sesungguhnya . Hal itu bisa dilakukan dengan cara mendesign objek untuk menyelesaikan masalah . OOP ini memiliki beberapa unsur yaitu ; Encapsulation ( pemodelan ), Inheritance (Penurunan) , Polymorphism (Polimorfisme).

        Awalnya bahasa pemrograman delphi hanya dapat digunakan di Microsoft Windows, namun saat ini telah dikembangkan sehingga dapat digunakan juga di Linux dan di Microsoft .NET . Dengan menggunakan free pascal yang merupakan proyek OpenSource, bahasa pemrograman ini dapat membuat program di sistem operasi Mac OS X dan Windows CE .

       Umumnya delphi hanya digunakan untuk pengembangan aplikasi dekstop, enterprise berbasis database dan program - program kecil . Namun karena pengembangan delphi yang semakin pesat dan bersifat general purpose bahasa pemrograman ini mampu digunakan untuk berbagai jenis pengembangan software . Dan Delphi juga disebut sebagai pelopor perkembangan RadTool ( Rapid Apllication Development ) tahun 1995 . Sehinnga banyak orang yang mulai mengenal dan menyukai bahasa pemrograman yang bersifat VCL ( Visual Component Library ) ini .

Berikut Merupakan Contoh Program Data Penjualan Dengan Menggunakan Aplikasi Delphi.
 

Untuk kodenya,ketik perintah berikut :
procedure Tpenjualan.FormCreate(Sender: TObject);
begin
edit1.enabled:=false;
edit2.enabled:=false;
edit3.enabled:=false;
edit4.enabled:=false;
edit5.enabled:=false;
edit6.enabled:=false;
edit1.Text:='';
edit2.Text:='';
edit3.Text:='';
edit4.Text:='';
edit5.Text:='';
edit6.Text:='';
end;

procedure Tpenjualan.MulaiClick(Sender: TObject);
begin
edit1.enabled:=true;
edit2.enabled:=true;
edit3.enabled:=true;
edit4.enabled:=true;
edit5.enabled:=true;
end;

procedure Tpenjualan.Edit2Change(Sender: TObject);
var
sjumlah:string;
harga,banyak,jumlah:Single;
kode:integer;
begin
val(edit2.Text,harga,kode);
val(edit3.Text,banyak,kode);
jumlah:=harga*banyak;
str(jumlah:20:0,sjumlah);
edit4.Text:=sjumlah;
end;

procedure Tpenjualan.Edit3Change(Sender: TObject);
var
sjumlah:string;
harga,banyak,jumlah:single;
kode:integer;
begin
val(edit2.Text,harga,kode);
val(edit3.Text,banyak,kode);
jumlah:=harga*banyak;
str(jumlah:20:0,sjumlah);
edit4.Text:=sjumlah;
end;

procedure Tpenjualan.Edit5Change(Sender: TObject);
var
sjumlah:string;
harga,bayar,jumlah:single;
kode:integer;
begin
val(edit4.Text,jumlah,kode);
val(edit5.Text,bayar,kode);
jumlah:=bayar-jumlah;
str(jumlah:20:0,sjumlah);
edit6.Text:=sjumlah;
end;

procedure Tpenjualan.SelesaiClick(Sender: TObject);
begin
edit1.Text:='';
edit2.Text:='';
edit3.Text:='';
edit4.Text:='';
edit5.text:='';
edit6.text:='';
end;
end.

Selesai > Run or F9


Penulis berharap agar Contoh  Penjualan Menggunakan Delphi7 dapat bermanfaat untuk semua..
Salam berbagi.. :)