Belajar Delphi Untuk Pemula

 
Apa Itu Delphi ?

             Delphi adalah sebuah bahasa pemrograman dan lingkungan pengembangan perangkat lunak. Kata Delphi sendiri berasal dari bahasa Yunani yang berarti kuil yang dibangun untuk menyembah Dewa Apollo, salah satu Dewa yang disegani oleh orang-orang Yunani selain Dewa-Dewa lain seperti Jupiter, Titan dan lain sebagainya.

           Delphi awalnya sebuah proyek penelitian rahasia di Borland yang berevolusi menjadi sebuah produk yang disebut AppBuilder. Borland sebagai pengembang perangkat lunak yang sudah ada sejak era 1980an menggunakan ikon dan nama Delphi sebagai salah satu perangkat lunak pembantu pemrograman untuk membuat program yang sudah mengarah ke Pemrograman Yang Berorientasi pada Objek atau dikenal dengan istilah OOP (Object Oriented Programming). Salah satu tujuan asli dari Delphi adalah untuk menyediakan konektivitas database untuk programmer sebagai kunci dan sebuah paket database yang populer pada saat itu adalah database Oracle, maka “Jika Anda ingin berbicara dengan Oracle, lakukan dengan Delphi”.

          Sejarah munculnya delphi dimulai dengan ide brilian Prof. Niclaus Wirth yang mengemukakan paparan tentang Struktur Data dan Algoritma (Algorthm and Data Structure). Prof. Niklaus Wirth menerjemahkan paparan ini yang kemudian dikristalisasi ke dalam bahasa yang populer dan digunakan pertama kalinya sebagai bahasa yang berorientasi pada hal-hal yang Science dan Ilmiah yaitu Pascal. Pascal sendiri kemudian distandarisasi ke dalam ANSI PASCAL (Pascal umum) oleh badan standarisasi Amerika Serikat (ANSI).
          
          Kemudian, 20 Nopember 1983, Borland melakukan riset untuk menerjemahkan ide dari kristalisasi ANSI Pascal (Pascal yang distandarisasi) yang kemudian menelurkan kompiler Pascal ke dalam pengembangan perangkat lunaknya yaitu Turbo Pascal 1.0. Turbo Pascal 1.0 berjalan pada sistem operasi PC/MS DOS dengan keterabatasan memory yang saat itu bisa berjalan pada ukuran 1 Mbyte saja. Dari penemuan Turbo Pascal inilahakhirnya Delphi diciptakan.

           Pada November 2006, Borland mengumumkan keputusan untuk memisahkan Developer Tools Group menjadi milik anak perusahaan yang sepenuhnya berfokus pada produktivitas pengembang memaksimalkan pengembangan Delphi yang diberi nama CodeGear. Pada Mei 2008, Embarcadero Technologies telah menandatangani perjanjian jual beli untuk membeli CodeGear dari Borland. Embarcadero dan CodeGear diharapkan untuk menciptakan terbesar di dunia, penyedia perangkat lunak independen alat pengembangan dan database. Embarcadero sendiri adalah sebuah perusahaan swasta yang dikuasai, memberikan alat-alat database yang profesional perusahaan menggunakan untuk merancang, mengembangkan dan mengelola database. Produk mencakup: ER / Studio, DBArtisan, Rapid SQL dan Perubahan Manager.

            Bahasa Delphi, atau dikenal pula sebagai object pascal (pascal dengan ekstensi pemrograman berorientasi objek (PBO/OOP)) pada mulanya ditujukan hanya untuk Microsoft Windows, namun saat ini telah mampu digunakan untuk mengembangkan aplikasi untuk Linux dan Microsoft.NET framework. Khusus untuk pemrogaman database, Borland Delphi menyediakan fasilitas obyek yang kuat dan lengkap yang memudahkan programmer membuat program untuk aplikasi database. Format database yang dimiliki Delphi yaitu format database Paradox, dBase, MS Access, ODBC, SyBASE, Oracle dan lain-lain

            Delphi adalah kompiler / penterjemah bahasa Delphi (awalnya dari Pascal) yang merupakan bahasa tingkat tinggi sekelas dengan Basic dan C. Bahasa Pemrograman di Delphi disebut bahasa prosedural artinya bahasa/sintaknya mengikuti urutan tertentu / prosedur.Ada jenis pemrograman non-prosedural seperti pemrograman untuk kecerdasan buatan seperti bahasa Prolog.Delphi termasuk Keluarga Visual sekelas Visual Basic, Visual C, artinya perintah-perintah untuk membuat objek dapat dilakukan secara visual.Pemrogram tinggal memilih objek apa yang ingin dimasukkan kedalam Form/Window, lalu tingkah laku objek tersebut saat menerima event/aksi tinggal dibuat programnya.Delphi merupakan bahasa berorentasi objek, artinya nama objek, properti dan methode/procedure dikemas menjadi satu kemasan (encapsulate).

        Delphi mempunyai keunggulan – keunggulan :
1. Komunitas pengguna yang besar pada Usenet maupun web
2. Dapat mengkompilasi menjadi single executable, memudahkan distribusi dan meminimalisir masalah yang terkait dengan versioning
3. Banyaknya dukungan dari pihak ketiga terhadap VCL (biasanya tersedia berikut source codenya) ataupun tools pendukung lainnya (dokumentasi, tool debugging)
4. Optimasi kompiler yang cukup cepat
5. Mendukung multiple platform dari source code yang sama

     Kelemahan – kelemahan Delphi :
1. Partial single vendor lock-in (Borland dapat menetapkan standar bahasa, kompatibilitas yang harus mengikutinya)
2. Terbatasnya kamampuan portabilitas antar-platform OS (sebelum ada kylix)
3. Akses pada platform dan library pihak ketiga membutuhkan file-file header yang diterjemahkan kedalam bahasa pascal
4. Dokumentasi atas platform dan teknik-teknik yang menyertainya sulit ditemukan dalam bahasa pascal (contoh akses COM dan Win32) .


Berikut ini adalah contoh program sederhana yang saya buat menggunakan Delphi 7 yang saya beri nama "program penghitung bangun ruang balok":

 ScreenShot:

Nih Source Code nya, monggo kalo mau di copas, inikan yang di cari? :D

unit Unit2;

interface

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

type
  TForm2 = class(TForm)
    GroupBox1: TGroupBox;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Edit4: TEdit;
    Label4: TLabel;
    Button3: TButton;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    Panel1: TPanel;
    Image1: TImage;
    Label10: TLabel;
    Label11: TLabel;
    BitBtn3: TBitBtn;
    Label12: TLabel;
    GroupBox2: TGroupBox;
    Button1: TButton;
    Button2: TButton;
    Button4: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form2: TForm2;

implementation

uses Unit1;

{$R *.dfm}

procedure TForm2.Button1Click(Sender: TObject);
var
    p,l,t,ls:real;
begin
    p:=strtofloat(edit1.Text);
    l:=strtofloat(edit2.Text);
    t:=strtofloat(edit3.Text);
    ls:=2*(p*l+p*t+l*t);
   edit4.Text:=floattostr(ls);
end;

procedure TForm2.Button2Click(Sender: TObject);
var
    p,l,t,vol:real;
begin
   p:=strtofloat(edit1.Text);
   l:=strtofloat(edit2.Text);
   t:=strtofloat(edit3.Text);
   vol:=p*l*t;
   edit4.Text:=floattostr(vol);
end;

procedure TForm2.Button3Click(Sender: TObject);
begin
edit1.Text:='';
edit2.Text:='';
edit3.Text:='';
edit4.Text:='';
end;

procedure TForm2.BitBtn3Click(Sender: TObject);
begin;
application.terminate;
end;

procedure TForm2.Button4Click(Sender: TObject);
var
  p,l,t,kel:real;
begin
p:=strtofloat(edit1.Text);
l:=strtofloat(edit2.Text);
t:=strtofloat(edit3.Text);
kel:=4*(p+l+t);
edit4.Text:=floattostr(kel);

end;
end.

Jika ingin mendownload file.exe nya.. silahkan klik Di Sini.

Sekian terimakasih semoga bermanfaat :)

Perintah Case of dalam Pemrograman Pascal

Assalamualaikum Wr. Wb

      Ini adalah posting kedua saya, pada kesempatan kali ini saya akan membahas tentang "Case of" di dalam bahasa pemrogaman pascal, sebenarnya saya belum mengerti, apa itu 'Case of", saya mencoba membaca beberapa artikel, sampai sejauh ini menurut pemahaman saya "Case of" merupakan bagian dari fungsi percabangan selain "if then else ", namun masing-masing memiliki kelebihan dan kelemahan. Jika kita menggunakan perintah "if then else" dalam percabangan maka pada umumnya hanya akan memiliki dua pilihan kondisi, nah seandainya pilihannya tidak hanya ada dua pilihan , tapi bayak pilihan, kita bisa saja menggunakan perintah "if then else" namun akan sedikit rumit, oleh karena itu untuk mempermudah kita bisa menggunakan perintah "case of". Berikut ini adalah screenshot program yang saya buat menggunakan perintah "case of" :

Coding 1

Coding 2

Run program

Run program

Mungkin sekian yang dapat saya sampaikan, salah khilaf mohon maaf.

Wassalamualikum Wr. Wb.

Alogaritma dan Pemrogaman

    Halo perkenalkan nama saya MIFTAKHUL HUDA, NIM J1F113207, dari prodi ilmu komputer, saya berasal dari kota Batulicin, saya merasa "bejo" bisa masuk Universitas Lambung Mangkurat dan diterima di prodi Ilmu Komputer atau bahasa kerennya Computer Sciense, hehe. Alhamdulillah, akhirnya tugas ini bisa saya selesaikan, ini adalah tugas pertama saya di mata kuliah Alogaritma dan Pemrograman dengan dosen bapak Irwan Budiman S.T K.kom, tugasnya adalah membuat teorema phytagoras di pemrogaman pascal.  

       Nah apa sih itu pascal? mari kita bahas sedikit, Pascal merupakan bahasa pemrograman yang terstruktur , artinya bahasa pemrogramnnya dapat dipecah menjadi fungsi - fungsi kecil yang dapat digunakan berulang - ulang kali. Bahasa pascal adalah bahasa pemrograman tingkat tinggi yang dikembangkan oleh Niklaus Wirth di Zurich pada akhir 1960-an hingga awal 1970-an. Pascal merupakan bahasa pemrograman yang terstruktur, sehingga sering digunakan sebagai sarana awal untuk mempelajari teknik pemrograman komputer.Bahasa pemrograman ini penting untuk dipelajari karena banyak bahasa pemrograman lainnya menggunakan bahasa dasar Pascal , semisal Delphi . Oleh karena itu jika mempelajari bahasa pemrograman pascal akan sangat mudah mempelajari delhi , karena Delphi sendiri merupakan visual dari pascal sama halnya seperti Visual Basic. 

(sumber: http://belajar-pemrograman2.blogspot.com/2010/07/pengertian-pascal.html)

    Itu tadi sedikit pengertian tentang pascal, untuk melakukan pemrogaman pascal kita membutuhkan sebuah software pascal, yang saya ketahui saat ini ada 2 software yaitu Free pascal dan Turbo Pascal, untuk sekarang ini saya menggunakan Turbo Pascal. Oke langsung saja, berikut ini adalah script yang saya gunakan:

program teorema_phytagoras;

uses crt;

var a,t,m:real;

begin

clrscr;

writeln('----Aplikasi Sederhana Teorema Phytagoras By Huda----');

writelln('-----------------Untuk Memulai Tekan Enter-----------------');

readln;

write('Masukan Panjang Sisi  X =');

readln(a);

write('Masukan Panjang Sisi Y =');

readln(t);

m:=sqrt((a*a)+(t*t));

write('Panjang Sisi Z adalah =',m:3:2);

readln;

end.

Berikut adalah screenshotnya:

Ketika mengetik script di Turbo pascal (klik gambar untuk memperjelas).

Ketika menjalankan script (klik gambar untuk memperjelas)

 

Mungkin sampai disini yang bisa saya jelaskan, semoga artikel ini bermanfaat dan terimakasih atas kunjungannya :)

Referensi: 

http://nikmannasir.blogspot.com/2013/09/aplikasi-menghitung-panjang-sisi-miring.html

http://d-algo.blogspot.com/

http://belajar-pemrograman2.blogspot.com/2010/07/pengertian-pascal.html)