Blog | Beli Rumah | Belajar HTML dan PHP | Kontak | Gmail | Uang Adsense
Audit Sistem Informasi
Sistem Informasi (S1)
Manajemen Informatika
Komputer dan Pendidikan
Pengobatan Ruqyah
Daftar Isi | Skripsi SI | B. Arab | Sertifikat Komputer Internasional | PrivacyPolicy | Inggris Arab

Monday, March 14, 2016

Menggunakan Array Penjumlahan Delphi 7



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.
"Investasi Emas dan Reksadana, Untung Mana?."
Youtube: Katabah Com: Menuju 1 jt Konten :)