Pemrogragraman Berorientasi Obyek – Contoh Array Satu Dimensi


Landasan Teori

Array satu dimensi hanya memiliki tipe indeks tunggal, misalnya seperti contoh berikut:

Nama : Array[1..10] of string;

Pada contoh diatas, variabel Nama merupakan suatu larik dengan jumlah elemen sebanyak 10. Nilai-nilai elemen larik ini harus berupa data dengan tipe String.

Cara memmanggil elemen array misalnya sebagai berikut:

Y :=Nama[5];

Maksudnya variabel Y diisi data yang diambilkan dari elemen ke-5 variabel array Nama. Nama[5] menyatakan string nomor 5 dalam variabel Nama.

Jika anda membuat array statis tetapi tidak menentukan nilai untuk tiap-tiap elemen, elemen-elemen yang belum dipakai masih tetap dialokasikan dan berisi data acak, seperti variabel yang belum diinisialisasi.

Contoh KasusArray Satu Dimensi

Membuat aplikasi untuk menyimpan data hasil pengambilan suhu udara yang berupa urutan Hari, Suhu Indoor, Suhu Outdoor sejumlah 30datum.
Ikuti langkah-langkah berikut untuk membuat aplikasinya:

Bukalah projek baru dengan sebuah form, 4 buah Label, 3 buah Edit, sebuah StringGrid, dan 2 buah Button. Selanjutnya atur tata letak komponen-komponen tersebut.

Ubah beberapa properti form dan komponen menurut tabel berikut:

Komponen

Properti

Setting

Form1

Caption

Penelitian Tinggi Tanaman
Name frmPenelitian
Label1 Caption Hari ke-
Label2 Caption Tinggi Indoor
Label3 Caption Tinggi Outdoor
Label4 Caption Hasil Perhitungan
Edit1 Name edHari
Text (kosongkan)
Edit2 Name edTIndoor
Text (kosongkan)
Edit3 Name edTOutdoor
Text (kosongkan)
StringGrid1 Name sgHasilHitung
Button1 Caption &Input
Name btInput
Button2 Caption &Proses
Name btProses

Deklarasikan variabel global dengan nama TgIndoor dan TgOutdoor bertipe array 30 bilangan real, serta N bertipe integer:

<br />
var<br />
  frmPenelitian: TfrmPenelitian;<br />
TgIndoor : array[1..30] of Real;<br />
TgOutdoor : array[1..30] of Real;<br />
N : Integer;&lt;/pre&gt;<br />
Lengkapi kode progam untuk event OnShow milik form sehingga menjadi sebagai berikut:<br />
&lt;pre&gt;procedure TfrmPenelitian.FormShow(Sender: TObject);<br />
begin<br />
   N:=1;<br />
   edHari.Text:=IntToStr(N);<br />
   with sgHasilHitung do<br />
   begin<br />
     Cells[0,0]:='Hari';<br />
     Cells[1,0]:='Tg Indoor';<br />
     Cells[2,0]:='Tg Outdoor';<br />
     Cells[3,0]:='Selisih';<br />
   end;<br />
end;<br />

Prosedur ini berfungsi untuk mengatur default teks pada kotak teks Hari ke- serta menampilkan judul-judul kolom StringGrid.

Lengkapi kode program untuk event OnClick tombol btInput sehingga menjadi senagai berikut:

<br />
procedure TfrmPenelitian.btInputClick(Sender: TObject);<br />
begin<br />
   If N<31 then<br />
      begin<br />
         TgIndoor[N]:=StrToFloat(edTIndoor.Text);<br />
         TgOutdoor[N]:=StrToFloat(edTOutdoor.Text);<br />
         N:=N+1;<br />
         edHari.Text:=IntToStr(N);<br />
         edTIndoor.Text:='';<br />
         edTOutdoor.Text:='';<br />
      end<br />
  else<br />
     btInput.Enabled:=False;<br />
end;<br />

Kegunaan utama prosedur ini adalah untuk memasukkan nilai variabel array TgIndoor dan TgOutdoor. Kegunaan tambahannya adalah untuk menghapus teks-teks yang baru saja diisikan dan telah diinput.

Lengkapi kode program untuk event OnClick tombol btProses sehingga menjadi sebagai berikut:

<br />
procedureTfrmPenelitian.btProsesClick(Sender: TObject);<br />
var<br />
  i :Integer;<br />
  TgSelisih:Real;<br />
begin<br />
  For i:=1 to 30 do<br />
    begin<br />
      Tgselisih:=TgIndoor[i]-TgOutdoor[i];<br />
      with sgHasilHitung do<br />
      begin<br />
         Cells[0,i]:=IntToStr(i);<br />
         Cells[1,i]:=FloatToStr(TgIndoor[i]);<br />
         Cells[2,i]:=FloatToStr(TgOutdoor[i]);<br />
         Cells[3,i]:=FloatToStr(TgSelisih);<br />
      end;<br />
    end;<br />
end;<br />

Prosedur ini berisi perintah untuk menghitung selisih tinggi data tanaman setiap hari dan menampilkan data angka hari, tinggi tanaman indoor, tinggi tanaman outdoor, dan selisih tinggi tanaman tersebut.

Cobalah menjalankan aplikasi yang anda buat. Betulkan jika masih terjadi kesalahan.

Simpan projek dengan nama ProPenelitian.dpr dan unitnya dengan nama Upenelitian.pas.

One thought on “Pemrogragraman Berorientasi Obyek – Contoh Array Satu Dimensi

Tinggalkan Balasan

Isikan data di bawah atau klik salah satu ikon untuk log in:

Logo WordPress.com

You are commenting using your WordPress.com account. Logout / Ubah )

Gambar Twitter

You are commenting using your Twitter account. Logout / Ubah )

Foto Facebook

You are commenting using your Facebook account. Logout / Ubah )

Foto Google+

You are commenting using your Google+ account. Logout / Ubah )

Connecting to %s