Selasa, 24 Maret 2015

Aplikasi input nama Array


Pengertian Array & Contoh Program 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
 
Berikut ratih bakal kasih contoh input program aplikasi input nama menggunakan variabel array....
1. Buatlah form pada worksheet delphi kalian seperti gambar dibawah ini :
 
2. Kemudian klik pada button input  sehingga muncul worksheet berikut :
kemudian ketikkan :
unit latihan2;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Edit1: TEdit;
    LBData: TListBox;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(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;

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

procedure TForm1.Button3Click(Sender: TObject);
begin
CLOSE;
end;

end.
berikut tampilannya...

3. Setelah berhasil kemudian coba run untuk menjalankan program tersebut 
4. Dan,,,,,.... ini lah hasil contoh program yang barusan kalian buat.
5. Selamat mencoba guys,..... :)