Aplikasi Data Pendaftar dengan Borland Delphi 7

Borland Delphi 7

Aplikasi Data Pendaftar dengan Borland Delphi 7

Jiu Bunta 3:14 PM Komentar

Basic Delphi

Bahasa pemrograman Delphi dapat digunakan untuk berbagai keperluan baik untuk perhitungan matematis, aplikasi perkantoran, aplikasi multimedia, pembuatan aplikasi pengolah, aplikasi kontrol industri sampai kepada aplikasi database. Pada materi kali ini akan dijelaskan bagaimana cara pembuatan aplikasi data pendaftaran sederhana dengan borland delphi 7.

Cara Kerja

Berikut langkah - langkahnya :

1. Buka / Jalankan program delphinya

2. Buat aplikasi baru dengan mengklik menu File | New | Application

3. Masukan komponen - komponen yang dibutuhkan ke dalam form seperti :

• Label1 = Untuk pengaturanya, klik komponen Label1 dan pada jendela properties dibagian Caption rubah menjadi Entry Data Pendaftar.
• Label2 = Untuk pengaturanya, klik komponen Label2 dan pada jendela properties dibagian Caption rubah menjadi Nama Pendaftar.
• Label3 = Untuk pengaturanya, klik komponen Label3 dan pada jendela properties dibagian Caption rubah menjadi Alamat.
• Label4 = Untuk pengaturanya, klik komponen Label4 dan pada jendela properties dibagian Caption rubah menjadi Pekerjaan.
• Label5 = Untuk pengaturanya, klik komponen Label5 dan pada jendela properties dibagian Caption rubah menjadi No Telp.
• Label6 = Untuk pengaturanya, klik komponen Label6 dan pada jendela properties dibagian Caption rubah menjadi Kode Pelatihan.
• Label7 = Untuk pengaturanya, klik komponen Label7 dan pada jendela properties dibagian Caption rubah menjadi Nama Pelatihan.
• Label8 = Untuk pengaturanya, klik komponen Label8 dan pada jendela properties dibagian Caption rubah menjadi Lama Pelatihan.
• Label9 = Untuk pengaturanya, klik komponen Label9 dan pada jendela properties dibagian Caption rubah menjadi Biaya Pendaftaran.
• Label10 = Untuk pengaturanya, klik komponen Label10 dan pada jendela properties dibagian Caption rubah menjadi Biaya Pelatihan.
• Label11 = Untuk pengaturanya, klik komponen Label11 dan pada jendela properties dibagian Caption rubah menjadi Total Pembayaran.
• Edit1 - Edit10 = Untuk pengaturanya, klik komponen Edit1 dan pada jendela properties kosongkan bagian  Textnya. Lakukan hal yang sama pada komponen Edit2 sampai komponen Edit10.
• Button1 = Untuk pengaturanya, klik komponen Button1 dan pada jendela properties dibagian Captionya rubah menjadi Proses.

Berikut screen shot gambar formnya :

4. Setelah semuanya dilakukan dengan benar, langkah berikutnya klik Button Proses / Tombol Proses, dan kemudian entrikan script program yang berwarna orange dibawah :

procedure TForm1.Button1Click(Sender: TObject);

var

  npendaftar, npelatihan, alamat,pekerjaan, notlp, kpelatihan: string;

  lpelatihan, bpendaftaran, bpelatihan, tpembayaran, subsidi: real;

begin

  npendaftar:=edit1.Text;

  alamat:=edit2.Text;

  pekerjaan:=edit3.Text;

  notlp:=edit4.Text;

  kpelatihan:=edit5.Text;

       

    if(kpelatihan = 'k001') then

    begin

    npelatihan:='kkpi';

    lpelatihan:=3;

    bpendaftaran:=200000;

    bpelatihan:=2500000;

    subsidi:=100000;

    tpembayaran:=(bpendaftaran+bpelatihan)- subsidi;

    end

    else if (kpelatihan = 'k002') then

    begin

    npelatihan:='mcse';

    lpelatihan:=7;

    bpendaftaran:=300000;

    bpelatihan:=5000000;

    subsidi:=200000;

    tpembayaran:=(bpendaftaran+bpelatihan)- subsidi;

    end

    else if (kpelatihan = 'k003') then

    begin

    npelatihan:='ccna1';

    lpelatihan:=7;

    bpendaftaran:=400000;

    bpelatihan:=6500000;

    subsidi:=350000;

    tpembayaran:=(bpendaftaran+bpelatihan)- subsidi;

    end

    else if (kpelatihan = 'k004') then

    begin

    npelatihan:='ccna2';

    lpelatihan:=14;

    bpendaftaran:=400000;

    bpelatihan:=7000000;

    subsidi:=350000;

    tpembayaran:=(bpendaftaran+bpelatihan)- subsidi;

    end;

edit6.Text:=npelatihan;

edit7.Text:=floattostr(lpelatihan);

edit8.Text:=floattostr(bpendaftaran);

edit9.Text:=floattostr(bpelatihan);

edit10.Text:=floattostr(tpembayaran);

end;

end.

Ket Script program diatas :

- Bagian var merupakan proses pendeklarasian variable beserta tipe datanya seperti dibawah ini  :

• npendaftar = Nama Pendaftar
• npelatihan = Nama Pelatihan
• alamat = Alamat 
• pekerjaan = Pekerjaan
• notlp = No Telp
• kpelatihan = Kode Pelatihan

- Semua tipe data diatas diset string, sedangkan semua data - data dibawah ini bertipe real : 

• lpelatihan = Lama Pelatihan 
• bpendaftaran = Biaya Pendaftaran
• bpelatihan = Biaya Pelatihan
• tpembayaran = Total Pembayaran
• subsidi = subsidi

- Bagian Begin proses pengolahan input yang nantinya akan menghasilkan output. Berikut penjelasan dari script programnya :

• npendaftar:=edit1.Text; = setiap data yang diinput dari edit1 merupakan data dari npendaftar.
• alamat:=edit2.Text; = setiap data yang diinput dari edit2 merupakan data dari alamat.
• pekerjaan:=edit3.Text; = setiap data yang diinput dari edit3 merupakan data dari alamat.
• notlp:=edit4.Text;  = setiap data yang diinput dari edit4 merupakan data dari notlp.
• kpelatihan:=edit5.Text;  = setiap data yang diinput dari edit merupakan data dari kpelatihan.

- Script program Percabangan :

if(kpelatihan = 'k001') then

    begin

    npelatihan:='kkpi';

    lpelatihan:=3;

    bpendaftaran:=200000;

    bpelatihan:=2500000;

    subsidi:=100000;

    tpembayaran:=(bpendaftaran+bpelatihan)- subsidi;

    end

else if (kpelatihan = 'k002') then

    begin

    npelatihan:='mcse';

    lpelatihan:=7;

    bpendaftaran:=300000;

    bpelatihan:=5000000;

    subsidi:=200000;

    tpembayaran:=(bpendaftaran+bpelatihan)- subsidi;

    end

    else if (kpelatihan = 'k003') then

    begin

    npelatihan:='ccna1';

    lpelatihan:=7;

    bpendaftaran:=400000;

    bpelatihan:=6500000;

    subsidi:=350000;

    tpembayaran:=(bpendaftaran+bpelatihan)- subsidi;

    end

    else if (kpelatihan = 'k004') then

    begin

    npelatihan:='ccna2';

    lpelatihan:=14;

    bpendaftaran:=400000;

    bpelatihan:=7000000;

    subsidi:=350000;

    tpembayaran:=(bpendaftaran+bpelatihan)- subsidi;

    end;

Maksud dari script diatas adalah :

Jika Kode Pelatihan = k001 maka

Nama Pelatihan = kkpi

Lama Pelatihan = 3 hari

Biaya Pendaftaran = 200.000

Biaya Pelatihan = 2.500.000

Subsidi = 100.000

Total Pembayaran = (Biaya Pendaftaran + Biaya Pelatihan) - subsidi

Jika tidak Kode Pelatihan = k002 maka

Nama Pelatihan = mcse

Lama Pelatihan = 7 hari

Biaya Pendaftaran = 300.000

Biaya Pelatihan = 5.000.000

Subsidi = 200.000

Total Pembayaran = (Biaya Pendaftaran + Biaya Pelatihan) - subsidi

Jika tidak Kode Pelatihan = k003 maka

Nama Pelatihan = ccna1

Lama Pelatihan = 7 hari

Biaya Pendaftaran = 400.000

Biaya Pelatihan = 6.500.000

Subsidi = 350.000

Total Pembayaran = (Biaya Pendaftaran + Biaya Pelatihan) - subsidi

Jika tidak Kode Pelatihan = k001 maka

Nama Pelatihan = ccna2

Lama Pelatihan = 14 hari

Biaya Pendaftaran = 400.000

Biaya Pelatihan = 7.000.000

Subsidi = 350.000

Total Pembayaran = (Biaya Pendaftaran + Biaya Pelatihan) - subsidi

- Script output dari Program :

edit6.Text:=npelatihan;

edit7.Text:=floattostr(lpelatihan);

edit8.Text:=floattostr(bpendaftaran);

edit9.Text:=floattostr(bpelatihan);

edit10.Text:=floattostr(tpembayaran);

end;

maksud dari script program diatas adalah :

- Pada edit6 akan ditampilkan data Nama Pelatihan

- Pada edit7 akan ditampilkan data Lama Pelatihan yang sebelumnya akan dikonversikan terlebih dahulu dari float ke string, karena setiap data yang akan diinputkan/ditampilkan pada edit box harus bertipe string. 

- Pada edit8 akan ditampilkan data Biaya Pendaftaran yang sebelumnya akan dikonversikan terlebih dahulu dari float ke string, karena setiap data yang akan diinputkan/ditampilkan pada edit box harus bertipe string. 

- Pada edit9 akan ditampilkan data Biaya Pelatihan yang sebelumnya akan dikonversikan terlebih dahulu dari float ke string, karena setiap data yang akan diinputkan/ditampilkan pada edit box harus bertipe string. 

- Pada edit10 akan ditampilkan data Total Pembayaran yang sebelumnya akan dikonversikan terlebih dahulu dari float ke string, karena setiap data yang akan diinputkan/ditampilkan pada edit box harus bertipe string. 

5. Setelah semua langkah sudah dilakukan dengan benar tekan tombol Run atau tekan F9 untuk mengkompilasi program.

6. Jika tidak ada pesan kesalahan, atau ada beberapa pesan namun tidak mempengaruhi kerja dari program, maka langsung saja di uji coba programnya.

Selamat mencoba............GOOD LUCK!!!!!!!!!!!!!

Baca selengkapnya

Aplikasi Entry Data Barang dengan Borland Delphi 7

Borland Delphi 7 PHP

Aplikasi Entry Data Barang dengan Borland Delphi 7

Jiu Bunta 4:28 PM Komentar

Halo teman - teman semuanya kali ini admin zonaotentics mau share sebuah aplikasi sederhana yang dibuat dengan menggunakan bahasa pemrograman Borland Delphi 7. Pada aplikasi ini ada sedikit penambahan dari aplikasi sebelumnya yaitu diskon dari jumlah bayar. Cara kerjanya yaitu apabila tombol proses ditekan , maka jumlah barang akan dikalikan dengan harga satuan dan jika jumlah barang yang dibeli memenuhi kriteria diskon seperti yang diterangkan dibawah, maka akan diberikan potongan harga (diskon). Untuk hasil akhirnya akan ditampilkan jumlah bayar (hasil kali jumlah barang dengan harga satuan) dan total bayar (hasil pengurangan jumlah bayar dengan diskon) Berikut keterangan diskonya : 

• Jika jumlah barang (JBARANG) > 20 atau harga satuan (HS) > 200.000 maka diskon 10% (0,1) dari jumlah bayar (JBAYAR).
• Jika jumlah barang (JBARANG) >= 50 atau harga satuan (HS) > 100.000 maka diskon 20% (0,2) dari jumlah bayar (JBAYAR).
• Jika jumlah barang (JBARANG) >= 100 atau harga satuan (HS) > 200.000 maka diskon 25% (0,25) dari jumlah bayar (JBAYAR).

Cara Kerja

Langkah - langkah pembuatan :

1. Jalankan program delphinya

2. Buat aplikasi baru dengan mengklik menu File | New | Application

3. Pada tampilan form yang muncul, silahkan design tampilan form sesuai dengan yang anda inginkan dan klik kemudian drag komponen - komponen yang dibutuhkan ke dalam form.

Komponen yang dibutuhkan :

• 7 komponen Label yang diperuntukan untuk penamaan : Nama Aplikasi (Entry Data Barang), Kode Barang, Nama Barang, Jumlah Barang, Harga Satuan, Jumlah Bayar, dan Total Bayar.
• 6 komponen Edit yang diperuntukan untuk tempat entri data dari :  Kode Barang, Nama Barang, Jumlah Barang, Harga Satuan, Jumlah Bayar, dan Total Bayar.
• 1 komponen Button yang diperuntukan sebagai tombol Proses.

Berikut screen shoot gambar formnya :

Ket Gambar :

Entry Data Barang = Label1

Kode Barang = Label2

Nama Barang = Label3

Jumlah Barang = Label4

Harga Satuan = Label5

Jumlah Bayar = Label6

Total Bayar = Label7

Proses = Button1

Komponen Entri data : 

Edit1 (posisi disebelah Kode Barang)

Edit2 (posisi disebelah Nama Satuan) 

Edit3 (posisi disebelah Jumlah Barang)

Edit4 (posisi disebelah Harga Satuan)

Edit5 (posisi disebelah Jumlah Bayar)

Edit6 (posisi disebelah Total Bayar)

4. Langkah selanjutnya klik komponen Label1 dan pada jendela propertiesnya rubah Captionya menjadi Entry Barang,  lakukan langkah yang sama pada label berikutnya dan rubah Captionya sesuai dengan gambar diatas.

5. Klik komponen Edit1 dan pada jendela propertisnya pada bagian Text dikosongkan, lakukan hal sama terhadap komponen Edit lainya.

6. Klik komponen Button dan pada jendela propertiesnya rubah Captionya menjadi Proses, sedangkan untuk properties Namenya biarkan default.

7. Double klik pada button Proses, maka akan muncul jendela Unit1.pas dan entrikan script berwarna orange dibawah :

________________________________________________________________________

procedure TForm1.Button1Click(Sender: TObject);

var

  KB, NB: string;

  JBARANG, HS, DISKON, JBAYAR, TBAYAR: real;

begin

  KB:=edit1.Text;

  NB:=edit2.Text;

  JBARANG:=strtofloat(edit3.Text);

  HS:=strtofloat(edit4.Text);

  JBAYAR:=(JBARANG*HS);

    if(JBARANG > 20) or (HS > 200000) then

    DISKON:=0.1*JBAYAR

    else if ((JBARANG >= 50) and (HS > 100000)) then

    DISKON:=0.2*JBAYAR

    else if ((JBARANG >= 100) and (HS > 200000)) then

    DISKON:=0.25*JBAYAR

    else

    DISKON:=0;

    TBAYAR:=JBAYAR - DISKON;

    edit5.Text:=floattostr (JBAYAR);

    edit6.Text:=floattostr (TBAYAR);

end;

end.

_________________________________________________________________________________

Ket Program :

• KB = Kode Barang (boleh dirubah sesuai keinginan)
• NB = Nama Barang (boleh dirubah sesuai keinginan)
• JBARANG = Jumlah Barang (boleh dirubah sesuai keinginan)
• HS = Harga Satuan (boleh dirubah sesuai keinginan)
• DISKON = potongan harga 
• JBAYAR = Jumlah Bayar
• TBAYAR = Total Bayar
• KB:=edit1.Text; = menyatakan bahwa data/nilai yang dientrikan pada edit1 merupakan data/nilai dari Kode Barang 
• NB:=edit2.Text; = menyatakan bahwa data/nilai yang dientrikan pada edit2 merupakan data/ nilai dari Nama Barang 
• JBARANG:=strtofloat(edit3.Text); = data/nilai dari Jumlah Barang merupakan data/nilai yang ada pada edit3 dan agar data tersebut bisa digunakan dalam proses perhitungan, maka data tersebut harus dikonversikan dulu dari string ke float karena setiap data yang dientrikan pada edit box dideklarasikan dengan tipe data string, sehingga ketika menggunakan data tersebut untuk proses perhitungan haruslah dikonversikan dahulu dari  string ke float.
• HS:=strtofloat(edit4.Text); =data/nilai dari Jumlah Barang merupakan data/nilai yang ada pada edit4 dan agar data tersebut bisa digunakan dalam proses perhitungan, maka data tersebut harus dikonversikan dulu dari string ke float, karena setiap data yang dientrikan pada edit box dideklarasikan dengan tipe data string, sehingga ketika menggunakan data tersebut untuk proses perhitungan haruslah dikonversikan dahulu dari  string ke float.
• JBAYAR:=(JBARANG*HS); = proses pencarian Jumlah Bayar dengan mengalikan Jumlah Barang dengan Harga Satuan.
• if(JBARANG > 20) or (HS > 200000) then DISKON:=0.1*JBAYAR = menggambarkan kondisi barang yang mana jika Jumlah Barang >20 atau Harga Satuan >200.000 maka diskon = 10% (0,1) dari Jumlah Bayar.
• else if ((JBARANG >= 50) and (HS > 100000)) then DISKON:=0.2*JBAYAR = menggambarkan kondisi barang yang mana jika Jumlah Barang >=50 atau Harga Satuan >100.000 maka diskon = 20% (0,2) dari Jumlah Bayar.
• else if ((JBARANG >= 100) and (HS > 200000)) then DISKON:=0.25*JBAYAR = menggambarkan kondisi barang yang mana jika Jumlah Barang >=100 atau Harga Satuan >200.000 maka diskon = 25% (0,25) dari Jumlah Bayar.
• else DISKON:=0; = Jika kondisinya diluar dari 3 kondisi diatas maka diskonya = 0.
• TBAYAR:=JBAYAR - DISKON; = Proses perhitungan Total Bayar dimana Jumlah Bayar - Diskon.
• edit5.Text:=floattostr (JBAYAR); = data/nilai dari Jumlah Bayar merupakan data/nilai yang ada pada edit5 dan data tersebut dikonversikan dari float ke string sebelum ditampilkan di edit box, karena setiap data yang akan dientrikan/ditampilkan pada edit box haruslah bertipe string.
• edit6.Text:=floattostr (TBAYAR); = data/nilai dari Jumlah Bayar merupakan data/nilai yang ada pada edit6 dan data tersebut dikonversikan dari float ke string sebelum ditampilkan di edit box, karena setiap data yang akan dientrikan/ditampilkan pada edit box haruslah bertipe string.

_________________________________________________________________________________

8. Jika semua langkah diatas sudah diterapkan dengan benar, silahkan klik menu Run | Run atau tekan F9

9. Jika tidak ada pesan kesalahan, maka program siap untuk di uji coba

Selamat mencoba............GOOD LUCK!!!!!

Baca selengkapnya

Aplikasi Pembelian Barang dengan Borland Delphi 7

Borland Delphi 7

Aplikasi Pembelian Barang dengan Borland Delphi 7

Jiu Bunta 12:39 AM Komentar

Berikut ini adalah aplikasi pembelian barang sederhana. Cara kerjanya yaitu apabila tombol button Hitung ditekan, maka harga satuan barang akan dikalikan dengan jumlah barang dan hasil perkalian tersebut akan ditampilkan di bagian total bayar. Namun, sebelum kita memulai membuat aplikasi pada Delphi, kita harus menginstala program Delphinya terlebih dahulu. Kita bisa menggunakan Delphi 5, 6, 7, atau yang terbaru. Sebenarnya Delphi versi berapapun tidak masalah, karena produk Borland ini selalu menjaga kompatibilitas antar versinya. Baiklah berikut langkah - langkah dalam membuat aplikasi pembelian barang.

Cara Kerja

1. Jalankan program delphi nya
2. Lalu pilih menu File | New | Application

3. Maka akan tampil sebuah form baru dan sebuah file dengan nama Unit1.pas
4. Klik dan drag komponen yang akan digunakan kedalam form, seperti :

• 5 komponen label yang digunakan untuk penamaan seperti Pembelian Barang (judul program), Nama barang, Harga Satuan, Jumlah Barang, dan Total Bayar untuk deskripsi barang.
• 4 komponen edit yaitu sebagai tempat entri data, seperti yang ditunjukan gambar dibawah
• 1 komponen button berguna sebagai tombol proses atau perhitungan data

Berikut screen shotnya :

_________________________________________________________________________________

Ket Gambar :

Pembelian Barang = Label1

Nama Barang = Label2

Harga Satuan = Label3

Jumlah Barang = Label4

Total Bayar = Label5

Hitung = Button1

Komponen Entri data : 

Edit1 (posisi disebelah Nama Barang)

Edit2 (posisi disebelah Harga Satuan) 

Edit3 (posisi disebelah Jumlah Barang)

Edit4 (posisi disebelah Total Bayar)

Untuk pewarnaan dan style lainnya pada form, silahkan sesuaikan dengan selera masing - masing.

_________________________________________________________________________________

5. Klik komponen Label1 dan pada jendela propertiesnya rubah Captionya menjadi Pembelian Barang,  lakukan langkah yang sama pada label berikutnya dan rubah Captionya sesuai dengan gambar diatas.

6. Klik komponen Edit1 dan pada jendela propertisnya pada bagian Text dikosongkan, lakukan hal sama terhadap komponen Edit lainya.

7. Klik komponen Button dan pada jendela propertiesnya rubah Captionya menjadi Hitung, lalu tarik scroll kebawah sehingga terlihat bagian Namenya rubah menjadi BtnHitung.

8. Double klik pada button Hitung, maka akan muncul jendela Unit1.pas dan entrikan script yang berwarna biru dibawah :

_________________________________________________________________________________

procedure TForm1.BtnHitungClick(Sender: TObject);

var

  nb : string;

  HS, JB, TB :integer;

begin

  nb:= edit1.Text;

  HS:= strtoint (edit2.Text);

  JB:= strtoint (edit3.Text);

  TB:= HS * JB;

  edit4.Text:= inttostr(TB);

end;

end.

_________________________________________________________________________________

Ket Program :

• nb = Nama Barang (boleh dirubah sesuai keinginan)
• HS = Harga Satuan (boleh dirubah sesuai keinginan)
• JB = Jumlah Barang (boleh dirubah sesuai keinginan)
• TB = Total Bayar (boleh dirubah sesuai keinginan)
• nb:= edit1.Text; = menyatakan bahwa nilai nb akan ditampilkan pada komponen Edit1.
• HS:= strtoint (edit2.Text); = menyatakan bahwa setiap nilai HS yang dientrikan pada edit box memiliki tipe data string(defaultnya), jadi agar data yang dientrikan pada edit box tersebut dapat digunakan dalam proses perhitungan maka data tersebut perlu dikonversikan terlebih dahulu dari string ke integer.
• JB:= strtoint (edit3.Text); = menyatakan bahwa setiap nilai JB yang dientrikan pada edit box memiliki tipe data string(defaultnya), jadi agar data yang dientrikan pada edit box tersebut dapat digunakan dalam proses perhitungan maka data tersebut perlu dikonversikan terlebih dahulu dari string ke integer.
• TB:= HS * JB; = Proses perhitungan data
• edit4.Text:= inttostr(TB); = menyatakan bahwa pada komponen Edit4 akan ditampilkan nilai TB yang datanya akan dikonversikan terlebih dahulu dari integer ke string. karena setiap data/nilai yang akan ditampilkan pada edit box haruslah bertipe data string.

_________________________________________________________________________________

9. Jika semua langkah diatas sudah dilakukan dengan benar, silahkan klik menu Run | Run atau tekan F9

10. Jika tidak ada pesan kesalahan, maka program siap untuk di uji coba

Selamat bereksperimen............GOOD LUCK!!!!!

Baca selengkapnya

Pengenalan Borland Delphi 7

Borland Delphi 7

Pengenalan Borland Delphi 7

Jiu Bunta 6:21 PM Komentar

Borland Delphi atau biasa disebut dengan Delphi, adalah bahasa pemrograman berbasis visual atau biasa disebut dengan pemrograman berorientasi objek (Object Oriented Programming). Dengan konsep ini, maka pembuatan aplikasi menggunakan Delphi dapat dilakukan dengan cepat dan menghasilkan aplikasi yang lebih baik dan tangguh. Dasar bahasa pemrograman yang digunakan adalah pascal. Delphi pertama kali diluncurkan pada tahun 1995 yang menjadi generasi penerus dari Turbo Pascal yang beroperasi di bawah system operasi Windows.

Delphi merupakan Lingkungan Pemrograman Terintegrasi (Integrate Development Environment / IDE). Delphi bukan bahasa pemrograman, tetapi perangkat lunak yang menyediakan seperangkat alat (tools) untuk membantu pemrogram dalam menulis program komputer. Lalu, bahasa apa yang digunakan oleh Delphi? Delphi menggunakan Object Pascal sebagai bahasa pemrogramannya. Object Pascal merupakan bahasa Pascal yang diberi tambahan kemampuan untuk menerapkan konsep-konsep OOP (Object Oriented Programming). Seluruh sintak Object Pascal menggunakan aturan yang ada di dalam Pascal, termasuk perintah-perintah dasar seperti control structures, variabels, array, dan sebagainya.

Peralatan yang disediakan oleh Delphi memberikan kemudahan bagi pemrogram untuk membuat program secara visual (visual programming), visual programming adalah metoda dimana sebagian atau keseluruhan program dibuat dengan cara ‘menggambar’-kan tampilan / hasil akhir dan kemudian meminta beberapa perangkat untuk membuat kode-kode program berdasarkan gambaran hasil akhir tersebut.

Karena program yang dibuat di dalam Delphi berjalan di dalam sistem operasi Windows maka kegiatan program dilakukan berdasarkan metoda event-driven programms. Event-driven programming adalah metoda mengeksekusi kode program berdasarkan pesan (messages / events) yang diberikan oleh pemakai ataupun oleh sistem operasi atau program lainnya. Sebagai contoh : apabila pemakai menekan tombol kiri mouse dan kemudian melepaskannya dengan cepat (kita mengenal itu sebagai ‘klik’) maka tindakan tersebut akan membuat aplikasi menerima pesan ‘MOUSE DOWN’ yang disertai dengan informasi tombol mana yang ditekan dan lokasi kursor saat ‘klik’ dilakukan, tetapi apabila pemakai menekan tombol kiri mouse dan kemudian menggeser mouse tanpa melepaskan tombol kiri maka aplikasi akan menerima pesan ‘MOUSE MOVE’.

Lingkungan dan Cara Kerja Delphi.

Beberapa peralatan yang disediakan oleh Delphi dan cukup diketahui antara lain:

• Code Editor
• Form
• Object Inspector
• Component Pallete
• Project Manager
• Watch List
• Compiler dan Linker
• Debugger
• dan sebagainya

Berikut screen shotnya :

1. Menu Bar / Menu IDE, berisi menu standar yang terdapat dalam setiap program yang akan disimbolkan dalam ToolBar. Contoh yang terdapat dalam Borland Delphi adalah file, edit, search, view, project, run dll.

2. Object Tree View, digunakan untuk melihat dengan jelas bagaimana hirarkhi komponen-komponen yang ada dalam form aplikasi.

3. Object Inspector adalah peralatan yang digunakan untuk mengatur properti dari komponen yang ada di form termasuk properti form. Object Inspector, digunakan untuk menentukan dan mengubah property (atribut) dan event objek serta bias memilih komponen melalui objek ini. Object Inspector memberi dua macam peralatan, yaitu :

• Properties
• Events

Peralatan Properties adalah peralatan yang digunakan untuk mengubah atau mengatur nilai-nilai dari properti komponen sedangkan Peralatan Events digunakan untuk membuat event-handler. Event handler adalah prosedur yang digunakan khusus untuk menanggapi satu event / message tertentu.

4. Component Pallete, berisi komponen-komponen visual dan non visual yang dapat digunakan untuk merancang antar muka bagi pemakai aplikasi. Component Pallete ini terdiri atas beberapa page yang dipakai sebagai pengelompok jenis komponen.

5. Form Designer, adalah window kosong tempat merancang antar muka pemakai (user friendly) aplikasi. Pada area inilah ditempatkan komponen-komponen sehingga aplikasi dapat berinteraksi dengan pemakainya.

6. Code Editor, berfungsi untuk menulis dan menyunting kode program. Lokasi code editor ada dibelakang form. Untuk melihatnya bias menggeser form yang menghalanginya atau menggunakan tombol F12. Code editor juga akan tampil saat mengklik dua kali salah satu komponen yang terdapat dalam form.

7. Watch Listi merupakan peralatan yang digunakan untuk memeriksa isi satu variabel atau properti tertentu saat program sedang dieksekusi. Watch List biasanya digunakan bersamaan dengan Break Points dan Step-by-Step execution.

Tombol-tombol ShortCut

Untuk berpindah dari satu peralatan ke peralatan lain anda dapat melakukannya dengan mengklik jendela dari peralatan tersebut, tetapi ada cara yang lebih cepat untuk berpindah dari satu peralatan ke peralatan lain yaitu dengan menggunakan shorcut :

F12 = PIndah dari Form ke Code Editor dan sebaliknya

F11 = Pindah ke Object Inspector

F10 = Pindah ke menu utama

Shift-F5 = Menampilkan Watch List

Contoh Cara Membuat Proyek Aplikasi Baru

1. Jalankan Delphi

2. Pilih menu File | New | Application

3. Maka akan muncul sebuah form kosong dan sebuah file dengan nama Unit1.pas

Contoh Cara Menyimpan Proyek Aplikasi

Delphi menyimpan proyek aplikasi ke dalam beberapa file seperti keterangan dibawah :

.dpr = File berisi keterangan tentang proyek aplikasi

.pas = File berisi kode-kode program yang digunakan dalam aplikasi

.dfm = File berisi informasi tentang form dan komponen-komponen di dalam form tersebut

.res = File berisi data-data resource seperti icon, bitmap dan sebagainya

1. Klik menu File | Save All.

2. Berikutnya delphi akan menanyakan nama file .pas untuk menyimpan kode-kode program. Isi dengan MyFirstUnit.pas (boleh terserah anda) dan kemudian klik tombol Save.

3. Kemudian delphi akan menanyakan nama file .dpr yang digunakan untuk menyimpan informasi tentang proyek aplikasi, isi dengan MyFirstProject.dpr (boleh terserah anda) dan kemudian klik tombol Save. 

Sekian gambaran tentang borland delphi 7 nya. Selamat bereksperimen.

Baca selengkapnya