PROGRAM INPUT DATA DENGAN ARRAY

Program Input Data Dengan Array

                  Pada kesempatan kali ini saya akan membuat program sederhana input data peserta didik baru SMK AL HIDAYAH WONOREJO dengan Array menggunakan DELPHI 7

Tampilan Program yang akan saya buat : 
 

Gambar 1.1

 

   Cara membuat program sederhana diatas diatas sebagai berikut :

1.    Buka program Delphi 7

2.    Buatlah Interface program yang akan di buat seperti gambar dibawah ini

 

Gambar 1.2

1.    Ubah properti dari object inspector

·         “Form1” Captionnya diubah “Ali_2b”

·         “Label1” Captionnya diubah “Data Nama Peserta Didik baru SMK AL Hidayah Wonorejo”

·         “Label2” Captionnya diubah “Jumlah Data”

·         “Button1” Captionnya diubah “Input”

·         “Button2” Captionnya diubah “Clear”

·         “Button 3” Captionnya diubah “Close”

·         “Edit1” Textnya “dikosongkan”

·         “Listbox1” Namenya diubah “lbdata”

2.    Buatlah Kode Programnya

a.    Double Klik Button Input

Lalu ketik listing program seperti dibawah ini :

   

Gambar 1.3

procedure TAli_2b.Button1Click(Sender: TObject);

var i,a: 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;

a.    Double Klik Button Clear

Ketik Listing programnya

Gambar 1.4

procedure TAli_2b.Button2Click(Sender: TObject);

begin

lbdata.Clear;

edit1.Text:='';

end;

b.    Double Klik Button Close

Lalu ketik programnnya

Gambar 1.5

procedure TAli_2b.button3Click(Sender: TObject);

begin

CLOSE;

end;

 

1.    Menjalankan program tekan F9

a.    Klik Button Input

 

     b.    Lalu masukkan Jumlah Data yang akan dimasukkan, Semisal 3 Enter  

 

     c.    Masukkan Nama Awal dan nama Akhir peserta, Enter 

Lanjutkan pada data ke:2 dan ke:3, maka akan tampil seperti berikut :

   

    d.    Klik Clear untuk membersihkan data dan klik Close untuk menutup program