Delphi for delphier

prosedur – dec

Tingkatan Pemula
   
Kategori Dasar
   
Sub Kategori Prosedur / Fungsi
   
Judul Pembahasan mengenai prosedur dec ( decrement)
   
Oleh
eko-indriyawan-png.png   Nama Eko Indriyawan
Domisili Surabaya – Darmo Satelit
Delphi Delphi 2007 for Win32
YM eko_elits
Email eko_elits@yahoo.com
Telp 031 – 605 384 36
   
Referensi by Eko Indriyawan
   
Tujuan
Mengajarkan kepada programmer pemula tentang prosedur Dec.
  spasi
Overview
Prosedur decadalah prosedur yang digunakan untuk meng-counter sebuah variabel dengan tipe ordinal dengan penurunan n nilai. Prosedur ini sangatlah efektif jika kita bandingkan dengan proses counter yang manual.

Ada beberapa hal yang harus diketahui bahwa untuk menggunakan prosedur ini hanya boleh jika parameter yang dicounter merupakan sebuah variabel. Jika paramter yang dicounter merupakan sebuah konstanta atau property, maka hal tersebut tidak diperkenankan.

Semoga dengan pembahasan pada artikel ini akan memberikan anda pemahaman yang baik akan prosedur inc.
  spasi
  Struktur prosedur dec:
  spasi
 
procedure dec( var x : Ordinal; [ n : integer ] );
   
  Dari struktur prosedur dec diatas terlihat bahwa x adalah variabel yang akan dicounterdan n adalah nilai counternya.
   
  contoh 1 :
   
 
var
indek : integer;
begin
indek := 10;
{ jika tidak ditentukan nilai counternya, maka secara default akan diberikan dengan nilai counter 1 }
dec(indek);
end;
   
  indek := 10,9,8,7,6,5,4,3,2,1,0,…
   
  contoh 2 :
   
 
var
indek : integer;
begin
indek := 2;
dec(indek,3)
end;
   
  indek := 2,5,8,11,…
   
Petunjuk :
Silahkan anda ikuti langkah – langkah berikut ini dengan pelan – pelan agar bisa berjalan dengan lancar sesuai dengan petunjuk yang sudah diberikan.
  spasi
Langkah 1
   
Langkah 2
Tambahkan beberapa object kedalam Form
   
  Button1: TButton;
Button2: TButton;
Edit1: TEdit;
Edit2: TEdit;
Label1: TLabel;
Label2: TLabel;
Button3: TButton;
Bevel1: TBevel;
  spasi
Langkah 3
Atur desainnya seperti berikut ditampilkan pada gambar form dibawah ini
   
 
prosedur000001.png
   
Langkah 4
Deklarasikan variabel yang akan dicounter. Untuk lebih jelasnya silahkan lihat potongan kode program dibawah ini.
   
 
var
Form1: TForm1;
datadefault : Integer;
data2 : Integer;
implementation
   
Langkah 5
Silahkan anda tuliskan kode program didalam event OnCreate untuk melakukan proses inisalisasi variabel yang akan dicounter. Untuk lebih jelasnya silahkan anda lihat potongan kode program dibawah ini.
   
 
procedure TForm1.FormCreate(Sender: TObject);
begin
datadefault := 10;
data2 := 10;
end;
   
Langkah 6
Silahkan anda klik 2x tombol decrement Default. Setelah itu anda lanjutkan dengan menuliskan kode program didalam event OnClick seperti terlihat pada potongan kode program dibawah ini.
   
 
procedure TForm1.Button1Click(Sender: TObject);
begin
dec(datadefault);
Edit1.Text := IntToStr(datadefault);
end;
   
Langkah 7
Silahkan anda klik 2x tombol decrement 2. Setelah itu anda lanjutkan dengan menuliskan kode program didalam event OnClick seperti terlihat pada potongan kode program dibawah ini.
  spasi
 
procedure TForm1.Button2Click(Sender: TObject);
begin
dec(data2,2);
Edit2.Text := IntToStr(data2);
end;
  spasi
Langkah 8
Silahkan anda compile. Tekan tombol Ctrl + F9.Tunggu beberapa saat… ( Sedang di cek kode programnya ).
   
 
Apabila tidak muncul pesan error, berarti program yang anda buat telah berhasil dan silahkan anda tekan tombol F9 untuk menjalankan program aplikasinya.
  spasi
Langkah 9
Silahkan anda tekan tombol Decrement Default dan decrement 2.
   
 
prosedur000002.png
   
Langkah 10
Program sudah selesai anda buat. Sekarang silahkan anda tekan tombol Keluar.
  spasi
Download

Silahkan anda download link diatas untuk mendapatkan contoh program aplikasi secara lengkap.

Ada beberapa masukan dan keluhan dari teman – teman, bahwa ada beberapa program contoh tidak bisa dijalankan dari delphi 7. Hal ini dikarenakan program contoh dibuat dengan menggunakan Delphi 2007 for win32.

Apabila anda menggunakan D7, sebaiknya anda mengikuti pandauan dari langkah – langkah yang sudah diberikan.

Atas perhatiannya, saya mengucapkan banyak terimakasih.
  spasi
Link terkait  
   
Buku panduan
Dasar First Step To Be A Programmer
Menengah Pemrograman Database dengan Delphi dan MS SQL Server
Menengah Membangun database MLM

Buat situs web atau blog gratis di WordPress.com.

%d blogger menyukai ini: