LATIHAN 3 : Input Data

NAMA  : SITI ASMAUL SADEYAH
KELAS : 2B
NIM      : 114224069



Assalamu'alaikum kawan...

Pada coretan kali ini aku akan bagikan tutorial membuat "Program Input Nama dengan Array".
Pada coretanku sebelumnya telah kita bahas mengenai Array. Mungkin bagi yang belum tahu akan kita ulas sedikit apa itu ARRAY?

 Array adalah sekumpulan variabel yang memiliki tipe data yang sama dan dinyatakan dengan nama yang sama. Array merupakan konsep yang penting dalam pemrograman, karna array memungkinkan untuk menyimpan data maupun referensi objek dalam jumlah banyak dan terindeks. Array menggunakan indeks integer untuk menentukan urutan elemen-elemennya, dimana elemen pertamanya dimulai dari indeks 0,elemen kedua memiliki indeks 1, dan seterusnya.

·         Contoh :

-          Angka untuk menyimpan sederetan bilangan

-          Buku untuk menyimpan sekumpulan data buku

-          Mahasiswa untuk menyimpan beberapa data mahasiswa

·         Sebagai contoh jika A merupakan sebuah array dengan tipe integer, maka notasi dari array A adalah: A[n], dengan n merupakan angka index dari array tersebut misal:

A[0]=100
A[1]=200
A[2]=300
A[3]=400

Udah jelas bukan Array itu apa? :D
Coretan kali  membuat sebuah program input data dengan menggunakan Array.

Tampilan programnya seperti berikut ini.....

Oke, langsung saja ikuti step dibawah ini...
Pertama kalian buka dulu aplikasi Delphi kalian. Pilih File>>New>>VLC-Form Application seperti pada gambar berikut.

Buat kotak menggunakan komponen Label dan ubah captionnya dengan nama "Data Nama Peserta". Jika kalian font-nya tidak bagus dan ingin mengganti font-nya, pilih menu font dan kalian bisa menggunakan font sesuai pilihan kalian.

Setelah itu, kalian kalian pilih komponen Listbox dan buat kotak dibawah "Daftar Nama Peserta" menggunakan komponen tersebut. Ganti properti Name-nya dengan "LBData".

Selanjutnya tambahkan tiga komponen button disamping Listbox tadi. Ubah masing-masing caption-nya dengan  "INPUT, CLEAR, dan CLOSE". Sesuai dengan gambar berikut.

Selanjutnya tambahkan komponen edit dibawah "Jumlah Data" tadi. Untuk properti Text-nya kalian kosongkan.

Buatlah satu kotak dengan properti caption "Jumlah Data" menggunakan toolbar Label dibawah input.

Selanjutnya untuk kode program......
1. Klik ganda Button Input, masukkan kode dibawah ini.

procedure TForm1.INPUTClick(Sender: TObject);
Var i: integer;
Nama1, Nama2 : array[1..5] of string;
S: string;
begin
  s:=inputbox('input data','masukkan jumlah data :','0');
  for i := 1 to strtoint(s) do
begin
Nama1[i] :=inputbox ('data ke:'+inttostr(i),'nama awal',' ');
Nama2[i] :=inputbox ('data ke: '+inttostr(i),'nama belakang',' ');
LBData.Items.Add(Nama1[i]+ ' ' +Nama2[i]);
Edit1.Text:=inttostr(LBData.Items.Count);
end;
end;

Setelah selesai, kalian kembali ke form tadi dengan mengklik menu view>>pilih form>>OK.

2. Klik ganda Button Clear.
    Masukkan kode dibawah ini.

    procedure TForm1.CLEARClick(Sender: TObject);
    begin
    LBData.Clear;
    Edit1.Text :=' ';
    end;

Button "Clear" berfungsi untuk menghapus/membersihkan data yang kalian inputkan. Kembalikan lagi ke form dengan langkah serupa dengan langkah diatas yakni View>>Form>>OK


3. Klik ganda Button Close, 
    Masukkan scipt berikut.

   procedure TForm1.CLOSEClick(Sender: TObject);
   begin
   HALT;
   end;

Button Close berfungsi untuk mengakhiri program tersebut. Jika kita mengklik button tersebut, maka otomatis kita akan kembali ke jendela sebelumnya.


Setelah selesai, jalankan progamnya dengan mengklik toolbar play. Maka tampilannya kurang lebih seperti berikut ini.

Tes program tersebut, kalian pilih button/tombol "Input". Kemudian  masukkan "Jumlah Data" , maka akan muncul untuk pengisian data yakni "nama awal & nama akhir" seperti pada gambar dibawah ini.

Aku contohkan dengan memasukkan data-data berikut.

Nah, data yang aku masukkan tadi akan muncul dikolom samping seperti berikut.

Klik button Close untuk megakhiri program tersebut maka akan kembali pada  kode program tadi.

Selesai...


Sekian sedikit ilmu yang aku bagikan, aku juga masih belajar jadi mohon kritik dan sarannya kurang lebihnya mohon maaf .
Wa'alaikumsalam warahmatulahi wabarokatuh...