Diberdayakan oleh Blogger.
RSS

TUGAS LA1 Praktikum Lab.Teknik Informatika

LAPORAN AKHIR
Laboratorium Informatika
 


NAMA PRAKTIKUM                       : AP2A
NAMA                                                : WINDA YULIANI PERMATASARI
NPM                                                   : 57411427
KELAS                                                : 1IA09
TANGGAL PRAKTIKUM                : 15 MARET 2012
PERTEMUAN                                   : 1
MATERI                                             : DELPHI
ASISTEN                                            :
KETUA ASISTEN/PJ                        :









LABORATORIUM INFORMATIKA
UNIVERSITAS GUNADARMA
2012






1.LISTING PROGRAM
unit codinganLA1;

interface

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

type
  TForm1 = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Button1: TButton;
    Button2: TButton;
    Label7: TLabel;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
label1.Caption:='Nama';
label2.Caption:='NPM';
label3.Caption:='Kelas';

button1.Caption:='OK';
button2.Caption:='Hapus';
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
label4.Caption:=(edit1.Text);
label5.Caption:=(edit2.Text);
label6.Caption:=(edit3.Text);
label7.Caption:='Nama Saya '+(edit1.Text)+' NPM Saya '+(edit2.Text)+' Kelas Saya '+(edit3.Text);

end;

procedure TForm1.Button2Click(Sender: TObject);
begin
label4.Caption:='';
label5.Caption:='';
label6.Caption:='';
label7.Caption:='';

edit1.Text:='';
edit2.Text:='';
edit3.Text:='';
end;

end.

                2.LOGIKA PROGRAM
Pada program Delphi ini terdapat sebuah Form atau halaman untuk memasukkan inputan yang kita kehendaki dan juga terdapat sebuah halaman atau Unit untuk menuliskan langkah-langkah/logika untuk menjalankan program pada halaman Form.Pada program yang saya buat ini saya menggunakan beberapa komponen yang ada pada Delphi yaitu komponen Label,Edit dan Button.
a.      Label 1,digunakan untuk membuat sebuah inputan sebuah NAMA,pada halaman Object Inspector saya merubah kolom Caption dengan NAMA.
b.     Label 2,digunakan untuk membuat sebuah inputan berupa NPM,dan pada halaman Object Inspector saya merubah kolom Caption dengan NPM.
c.      Label 3,digunakan untuk membuat inputan berupa Kelas,maka pada halaman Object Inspector saya merubah kolom Caption menjadi Kelas.
d.     Edit 1,di gunakan untuk memasukkan data berupa Nama dan pada halaman Unit kita memberikan petintah Edit1.Text:=’ ’;
e.     Edit 2,digunakan untuk memasukkan data berupa NPM,yang pada lembar Unit kita memberi perintah Edit2.Text:=’ ‘;
f.       Edit 3.digunakan untuk memasukkan data berupa Kelas,dan pada halaman Unit kita memberi perintah Edit3.Text:=’ ‘;
g.      Label 4,digunakan untuk menerima hasil data yang kita input pada Label 1.
h.     Label 5,digunakan untuk menerima hasil data yang kita input dari Label 2.
i.       Label 6,digunakan untuk menerima hasil data yang kita input dari Label 3.
j.        Button 1,digunakan untuk mengatur hasil data yang kita masukkan pada Edit 1,2,dan 3 juga akan tercetak pada Label 4,Label 5,dan Label 6 yang pada program ini saya ubah Caption Button menjadi “OK”.
k.     Button 2,digunakan untuk menghapus hasil data yang sudah tercetak pada Edit 1,2,dan 3 maupun pada Label 4,5,dan 6 yang saya ubah Caption Button 2 menjadi “Clear”.

l.       Label 7,digunakan untuk menampilkan semua hasil inputan yang sudah di masukkan pada kolom Edit 1,2,3 dan Label 4,5,6 menjadi satu Baris hasil data.dengan codingan sebagai berikut:

label7.Caption:='Nama Saya '+(edit1.Text)+' NPM Saya '+(edit2.Text)+' Kelas Saya '+(edit3.Text);
dan hasil pada halaman Form sebagai berikut:

Pada Lembar Form yang saya buat ini,saya merubah Font dengan menggunakan merubah Font pada kolom Object Inspector dengan Alegrian yang terdapat pada pilihan font,lalu merubah warna Font menjadi warna merah lalu klik “OK”.
Setelah Halaman Form dan Unit telah di masukkan codingan atau logika cara selanjut nya dengan menekan tombol F9 pada keyboard atau tekan tombol panah warna hijau pada halaman Delphi yang kita jalan kan
3.OUTPUT PROGRAM
>  Tampilan awal sebelum di masukkan data yang kita inginkan.


Ø Tampilan sesudah di masukkan data yang kita ingin,dan sebelum klik button “OK” pada output di bawah ini.


Ø Tampilan sesudah di masukkan data yang kita inginkan.
 D





 Di bawah ini tampilan saat tidak ada data yang di input pada lembar Form tetapi button “OK” di klik.
Ø
Ø Setelah program di input data yang kita ingin kan,untuk menghapus lembar Form maka yang di lakukan dengan meng’Klik “Hapus” pada lembar Form.


Program Delphi telah Selesai (^_^)

  • Digg
  • Del.icio.us
  • StumbleUpon
  • Reddit
  • RSS

0 komentar:

Posting Komentar