LAPORAN AKHIR PRAKTIKUM ( KONDISI DELPHI )

LAPORAN AKHIR PRAKTIKUM

( KONDISI DELPHI )

Nama                                   : Wahyu Ajis Saputra

NPM                                    : 2C114121

Kelas                                    : 1KB06

Materi Praktikum              : Kondisi Delphi

Tanggal Praktikum            : 19 November 2014

Asisten Baris                       :

Ketua Asisten                     : Yuniarti

       Paraf Asisten

(..............................................)

UNIVERSITAS GUNADARMA

LABORATORIUM SISTEM INFORMASI

2014/2015

1.      Buka aplikasi Delphi 7 pada PC Anda

2.      Setelah itu keluar tampilan form 1, seperti gambar dibawah ini

3.      Buatlah desain gambar seperti tampak pada gambar dibawah ini 

 

4.      Ketentuan komponen pada program di atas adalah:

Ø  Pada From 1 :

a.       Panel

b.      Label 1 : BIODATA

c.       Label 2 : NILAI

Ø  Pada From 2 :

a.       Label 1 : NAMA

b.      Label 2 : KELAS

c.       Label 3 : TEMPAT TANGGAL LAHIR

d.      Label 4 : JENIS KELAMIN

e.       Label 5 : AGAMA

f.       Label 6 : NPM

Ø  Pada from 2 Mengosongkan setiap text pada Edit1, Edit2, Edit3, Edit4, Edit5 dan Edit6

Ø  Pada From 3 :

a.       Label 1 : MASUKAN NILAI

b.      Label 2 : Label 2

c.       Edit 1 : Kosongkan

d.      Button 1 : GO

e.       Button 2 : CANCEL

Ø  Atur Alignment di setiap label yang digunakan (dalam program ini digunakan center) dan atur font masing-masing

5.      Setelah tampilan selesai, maka Anda bisa memasukkan source code pada setiap Button yang tersedia Disetiap from 1, from 2, from 3. Berikut adalah rinciannya

·         Pada from 1, Button1 : Untuk menampilkan Biodata

procedure TForm1.Button1Click(Sender: TObject);

begin

form2.top := 16;

form2.left := 24;

form2.parent := panel1;

form2.visible := true;

end;

·         Pada from 1, Button2 : Untuk melihat Nilai pada From 3

procedure TForm1.Button2Click(Sender: TObject);

begin

form3.top := 10;

form3.left := 10;

form3.parent := panel1;

form3.visible := true;

end;

end.

·         Pada From 2, Button 1 : Untuk menentukan Sucses atau tidaknya program

procedure TForm2.Button1Click(Sender: TObject);

begin

messagebox(self.handle,'SubmitSuccess','Biodata Information',mb_ok+mb_iconinformation);

close;

end;

·         Pada From2, Button 1 :

procedure TForm2.Button2Click(Sender: TObject);

begin

edit1.Text := ' ';

edit2.Text := ' ';

edit3.Text := ' ';

edit4.Text := ' ';

edit5.Text := ' ';

edit6.Text := ' ';

end;

end.

·         Pada From 3, Button 1 : Untuk menentukan apakah Nilai Anda,

procedure TForm3.Button1Click(Sender: TObject);

var i : integer;

begin

i := strtoint (edit1.Text);

if i >= 101 then

begin

Label2.caption := 'Data Salah';

end

else

if i >= 90 then

begin

Label2.caption := 'Anda Mendapat Nilai A';

end

else

If i >= 80 then

begin

Label2.caption := 'Anda Mendapat Nilai B';

end

else

if i >= 70 then

begin

Label2.caption := 'Anda Mendapat Nilai C';

end

else

if i >= 60 then

begin

label2.caption := 'Anda Mendapat Nilai D';

end

else

if i <= 59 then

begin

label2.caption := 'Anda Mendapat Nilai E';

end

end;

·         Pada From 3, Button 2 :

procedure TForm3.Button2Click(Sender: TObject);

begin

edit1.Text := ' ';

if(application.MessageBox('Apakah Anda Yakin Ingin

Keluar?','Information',mb_yesno+mb_iconinformation)=id_yes) then

begin

close;

end;

end;

6.      Setelah source code selesai dimasukkan, maka running program tersebut untuk mengetahui apakah terjadi error atau tidak. Berikut ini adalah tampilan outputnya

7.      Jika Anda ingin menyimpan project Anda dapat memilih Save/Save Project/Save All pada menu File