Delphi for delphier

Array – Buat Index Sendiri

Tingkatan Pemula
   
Kategori Dasar
   
Sub Kategori Array
   
Judul Membuat indek sesuai dengan keinginan kita
   
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
  spasi
Referensi http://www.delphibasics.co.uk/Article.asp?Name=Arrays
  spasi
Tujuan Memperdalam tentang penggunaan indek dalam suatu array
  spasi
Overview
Artikel ini membahas lebih jauh tentang penggunaan indek dalam sebuah array. Didalam artikel ini akan memberikan gambaran kepada anda, bahwa kita bisa membuat indek sendiri.
Biasanya kita kalau menggunakan array, yang digunakan sebagai indek adalah angka. Dari artikel ini memberikan wacana baru kepada anda bahwa selain angka ada cara lain yang bisa digunakan sebagai indek. Contoh dalam artikel ini adalah nama bulan dalam bahasa indonesia.
Kemudian, dari pembahasan dan program contoh yang sudah diberikan, diharapkan anda bisa mengembangkan sendiri untuk kebutuhan program yang akan anda buat.
  spasi
  Ilustrasi indek yang kita buat sendiri:
  spasi
 
// Mendeklarasikan tipe dari indek array
type
TBulan = (Januari, Februari, Maret, April, Mei, Juni, Juli, Agustus, September, Oktober, Nopember, Desember);
// Mendeklarasikan variabel array
var
NamaBulan : array[TBulan] of Integer;
begin
// Inisialisasi data array
NamaBulan[Januari] := 1;
NamaBulan[Februari] := 2;
NamaBulan[Maret] := 3;
NamaBulan[April] := 4;
NamaBulan[Mei] := 5;
NamaBulan[Juni] := 6;
NamaBulan[Juli] := 7;
NamaBulan[Agustus] := 8;
NamaBulan[September] := 9;
NamaBulan[Oktober] := 10;
NamaBulan[Nopember] := 11;
NamaBulan[Desember] := 12;
end;
  spasi
  Ilustrasi salah penggunaan indek:
  spasi
 
// Mendeklarasikan tipe dari indek array
type
TBulan = (Januari, Februari, Maret, April, Mei, Juni, Juli, Agustus, September, Oktober, Nopember, Desember);
// Mendeklarasikan variabel array
var
NamaBulan : array[September..Desember] of Integer;
begin
// Inisialisasi data array
NamaBulan[Januari] := 1;
salah
NamaBulan[Februari] := 2;
salah
NamaBulan[Maret] := 3;
salah
NamaBulan[April] := 4;
salah
NamaBulan[Mei] := 5;
salah
NamaBulan[Juni] := 6;
salah
NamaBulan[Juli] := 7;
salah
NamaBulan[Agustus] := 8;
salah
NamaBulan[September] := 9;
benar
NamaBulan[Oktober] := 10;
benar
NamaBulan[Nopember] := 11;
benar
NamaBulan[Desember] := 12;
benar
end;
  spasi
 
Apabila dicompile, maka akan dimunculkan pesan error “constant expression violates subrange bounds“.
Kalau kita perhatikan sebenarnya indek yang kita deklarasikan juga memiliki sifat urut. Sifat urut ini juga secara tidak langsung merepresentasikan angka juga.
  spasi
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;
Label1: TLabel;
Bevel1: TBevel;
Bevel2: TBevel;
  spasi
Langkah 3
Atur desainnya seperti berikut ditampilkan pada gambar form dibawah ini
   
 
array0001.jpg
   
Langkah 4
Silahkan anda klik 2x tombol Proses. Setelah itu anda lanjutkan dengan menuliskan kode program didalam event OnClick seperti terlihat pada potongan kode program dibawah ini.
  spasi
 
procedure TForm1.Button1Click(Sender: TObject);
// Mendeklarasikan tipe dari indek array
type
TBulan = (Januari, Februari, Maret, April, Mei, Juni, Juli, Agustus, September, Oktober, Nopember, Desember);
// Mendeklarasikan variabel array
var
NamaBulan : array[TBulan] of Integer;
SeparuhNamaBulan : array [Januari..Mei] of integer;
begin
// Proses inisialisasi berikut ini diperbolehkan
NamaBulan[Januari] := 1;
NamaBulan[Februari] := 2;
NamaBulan[Maret] := 3;
NamaBulan[April] := 4;
NamaBulan[Mei] := 5;
NamaBulan[Juni] := 6;
NamaBulan[Juli] := 7;
NamaBulan[Agustus] := 8;
NamaBulan[September] := 9;
NamaBulan[Oktober] := 10;
NamaBulan[Nopember] := 11;
NamaBulan[Desember] := 12;
// Proses inisialisasi berikut ini tidak diperbolehkan
// Karena untuk array SeparuhNamaBulan hanya diberikan untuk
// indek dari Januari sampai mei
SeparuhNamaBulan[Januari] := 1; // benar
SeparuhNamaBulan[Februari] := 2; // benar
SeparuhNamaBulan[Maret] := 3; // benar
SeparuhNamaBulan[April] := 4; // benar
SeparuhNamaBulan[Mei] := 5; // benar
{
SeparuhNamaBulan[Juni] := 6; // salah
SeparuhNamaBulan[Juli] := 7; // salah
SeparuhNamaBulan[Agustus] := 8; // salah
SeparuhNamaBulan[September] := 9; // salah
SeparuhNamaBulan[Oktober] := 10;// salah
SeparuhNamaBulan[Nopember] := 11;// salah
SeparuhNamaBulan[Desember] := 12;// salah
}
end;
  spasi
Langkah 5
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 6
Silahkan anda tekan tombol Proses
   
Langkah 7
Program sudah selesai anda buat. Sekarang silahkan anda tekan tombol Keluar untuk menutup program aplikasi ini.
  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
Judul Tutorial
     
 
   
   
   
   
   
 
     
   
Judul Tutorial
     
 
   
   
   
   
 
     
       
   
Buku panduan
Dasar First Step To Be A Programmer
Menengah Pemrograman Database dengan Delphi dan MS SQL Server
Menengah Membangun database MLM
Iklan

Blog di WordPress.com.

%d blogger menyukai ini: