Delphi for delphier

Array – Frekuensi Data

Tingkatan Pemula
   
Kategori Dasar
   
Sub Kategori Array
   
Judul Frekuensi Data
   
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 http://diskusiweb.com/forumdisplay.php?fid=72
   
Tujuan
Mengasah kemapuan programmer tingkat pemula untuk lebih mendalami penggunaan array dalam sebuah program aplikasi.
  spasi
Overview
Artikel ini membahas tentang penggunaan array dengan banyak dimensi. Materi ini adalah materi dasar. Sehingga diharapkan anda sebagai pemula dapat memahami dan mempelajari artikel ini dengan baik.
Untuk menambah pemantapan materi array, silahkan anda baca juga untuk artikel yang lainnya yang masih berhubungan dengan penggunaan array. Untuk lebih detailnya, silahkan anda lihat bagian link terkait dibawah halaman ini.
Apabila anda mengalami kesulitan dalam memahami artikel ini, langsung saja tanyakan permasalahan anda tersebut melalui email atau YM yang sudah ditunjukkan diatas.
Kemudian, dari pembahasan dan program contoh yang sudah diberikan, diharapkan anda bisa mengembangkan sendiri untuk kebutuhan program yang akan anda buat.
  spasi
  Struktur Array banyak dimensi :
  spasi
 
<A>…..:…..array…..<B>…..of…..array…..<C>…..of <D>;
A adalah nama array
B,C adalah batas interval indek array
D adalah tipe data dari array
  spasi
 
Apabila batas interval indek array tidak ditentukan, maka hal ini berarti array merupakan array dua dimensi dengan sifat dinamis. Namun apabila anda menentukan batas interval tersebut, maka itu berarti merupakan array dua dimensi dengan sifat statik.
Apabila anda memilih array dengan sifat atau karakteristik yang dinamis, maka setiap kali sebelum menggunakan array tersebut anda harus inisialisasi indek array tersebut dengan prosedur SetLength.
Didalam artikel ini nanti akan dijelaskan dengan menggunakan array yang dinamis.
  spasi
  Contoh penulisan pendeklarasian array:
  spasi
  NamaMantan : arrayof array of string;// Array dinamis
  spasi
  NamaMantan : array[0..11] of array[0..5] of string; // Array Statik
  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
   
  ListBox1: TListBox;
Edit1: TEdit;
Edit2: TEdit;
Button1: TButton;
Button2: TButton;
  spasi
Langkah 3
Atur desainnya seperti berikut ditampilkan pada gambar form dibawah ini
   
 
umum0012.jpg
   
Langkah 4
Silahkan anda deklarasikan array dan fungsi pencarian data didalam private.
  spasi
 
private
{ Private declarations }
Data : array of array ofInteger;
function FindItem( const S: string ; var indek : Word): Boolean;
  spasi
Langkah 5
Sekarang silahkan anda tuliskan kode program didalam fungsi pencarian FindItem. Untuk lebih jelasnya silahkan anda lihat potongan kode program dibawah ini.
  spasi
 
function TForm1.FindItem( const S: string ; var indek : Word): Boolean;
var
Idx: Integer;
begin
Idx := ListBox2.Items.IndexOf( S );
if Idx <> -1 then
ListBox2.ItemIndex := Idx;
Result := Idx <> -1;
indek := idx + 1;
end;
  spasi
Langkah 6
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.Button2Click(Sender: TObject);
var
indek : Word;
index : Word;
begin
// Inisialisasi array
Data := nil;
// Menentukan panjang array
SetLength(Data,ListBox1.Count,2);
ListBox2.Clear;
// Memfilter data
for indek := 0 to ListBox1.Count – 1 do
begin
if FindItem(ListBox1.Items[indek],index) = true then
Data[index,1] := Data[index,1] + 1;
else
begin
Data[StrToInt(ListBox1.Items[indek]),1] := 1;
ListBox2.Items.Add(ListBox1.Items[indek]);
end;
end;
// menampilkan data frekuensi
for indek := 0 to ListBox2.Count – 1 do
ListBox2.Items[indek] := ListBox2.Items[indek] + ‘ , ‘ + IntToStr(data[indek+1,1]);
end;
  spasi
Langkah 7
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 8
Silahkan anda tekan tombol Proses
  spasi
 
umum0014.jpg
  spasi
Langkah 9
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
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

Buat situs web atau blog gratis di WordPress.com.

%d blogger menyukai ini: