Hello Katabah!
Bagi saya ketika membaca
kata “array” biasanya langsung teringat mata kuliah Algoritma dulu. Materi
“array” terasa sulit jika tanpa penerapan langsung dalam pemrograman.
Saya inginnya, array
dibahas dengan teori algoritma, kemudian segera praktekkan dalam pemrograman
seperti Pascal atau Delphi saat itu juga. Kalau ditunda, apalagi dosen
Algoritma dan Pascal berbeda terasa sulit memahaminya. Ini pengalaman saya
pribadi, mungkin Anda berbeda.
Nah, saat ini saya
belajar array sebagai tipe data yang diterapkan dalam operasi penjumlahan
menggunakan Delphi (bahasa Pascal).
1. Buka Delphi 7
2. Klik komponen ListBox1
dari kategori Standard (Component Pallete)
3. Klik di area kosong
form
4. Klik dua kali tombol
… pada Items (Object Inspector – Properties)
5. Ketik angka-angka
berikut ini:
10
20
31
6. Klik tombol OK
7. Sekarang ListBox1
sudah terisi angka 10, 20, 31
8. Klik komponen Edit
pada kategori Standard (Component Pallete)
9. Klik di bawah
ListBox1 pada form
10. Klik Additional pada
Component Pallete
11. Klik komponen BitBtn
12. Klik di bawah Edit1
pada form
13. Klik dua kali tombol
BitBtn1 pada form
14. Ketik script ini:
var
A: array[0..100] of integer;
i: integer;
j: integer;
begin
for i:= 0 to ListBox1.Items.Count-1 do
A[i]:= StrToInt(ListBox1.Items[i]);
j:=0;
for i:= 0 to ListBox1.Items.Count-1 do
j:= j+A[i];
Edit1.Text:=IntToStr(j);
15. Jalankan program
dengan menekan tombol F9 pada keyboard
16. Sekarang tekan
tombol BitBtn1 pada form yang sudah dijalankan
17. Perhatikan…! Kotak
Edit1 pada form sudah terisi angka 61
Ini tampilan desainnya:
|
10
20
31
|
|
Edit 1
|
|
BitBtn1
|
Di bawah ini tampilan
program ketika dijalankan dan diklik tombol BitBtn1:
|
10
20
31
|
|
61
|
|
BitBtn1
|
Apabila belum paham, coba ganti angka pada ListBox1, misal menjadi 5
baris. Kemudian ganti angka 100 pada array[0..100] menjadi 2. Biasanya
akan terjadi error.
|
"Boleh Konsultasi Masuk Jurusan Sistem Informasi via IG atau Tiktok."
|
|
Tips Skripsi Program Studi Sistem Informasi |
|
|
