Pengertian Delphi serta contoh Pemrograman Delphi 7

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 .

Program Hitung Nilai Akhir Mahasiswa
1. Buka Borland Delphi 7 anda dan desain form seperti ini...
 

2.  Ketikkan kode berikut ini di tombol hitung.....

procedure TForm1.BtnhitungClick(Sender: TObject);

var nAbsen, nTugas, nMID, nUAS, nAKHIR : Real;
Grade : String;
begin
  nAbsen := StrToFloat(EditNilaiAbsen.Text) * 0.1;
  nTugas := StrToFloat(EditNilaiTugas.Text) * 0.2;
  nMID := StrToFloat(EditNilaiMID.Text) * 0.3;
  nUAS := StrToFloat(EditNilaiUAS.Text) * 0.4;
  nAKHIR := nAbsen + nTugas + nMID + nUAS;
  EditNilaiAkhir.Text := FloatToStr(nAKHIR);

  if nAKHIR > 80 then
  EditGrade.Text := 'A'
  else if nAKHIR > 71 then
  EditGrade.Text := 'B'
  Else if nAKHIR > 62 then
  EditGrade.Text := 'C'
  else if nAKHIR > 52 then
  EditGrade.Text := 'D'
  else
  EditGrade.Text := 'E';

end;

Selamat Mencoba....
Dan Terima Kasih....