Pengenalan Delphi (LAPORAN AKHIR PRAKTIKUM LAB-TI)

LAPORAN AKHIR PRAKTIKUM

Mata Pelajaran           : Praktikum TI Dasar

Kelas                         : 1IA07

Praktikum ke-            : 1

Tanggal                      : 24/03/2012

Materi                        : Pengenalan Delphi

NPM                           : 54411696

Nama                          :Muhamad reggi tresna utami

Ketua Asisten              :

Paraf Asisten               :

Nama Asisten              :

Jumlah Lembar           :

LABORATORIUM INFORMATIKKA

UNIVERSITAS GUNADARMA

2011/2012

Listing Program

unit tugas;

interface

uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, StdCtrls, ExtCtrls, jpeg;

type

  TForm1 = class(TForm)

    Label1: TLabel;

    Label2: TLabel;

    Label3: TLabel;

    Label4: TLabel;

    Label5: TLabel;

    Label6: TLabel;

    Label7: TLabel;

    Edit1: TEdit;

    Edit2: TEdit;

    Edit3: TEdit;

    Edit4: TEdit;

    Edit5: TEdit;

    Edit6: TEdit;

    Edit7: TEdit;

    Edit8: TEdit;

    Edit9: TEdit;

    Edit10: TEdit;

    Button1: TButton;

    Label8: TLabel;

    Button2: TButton;

    procedure Edit8Click(Sender: TObject);

    procedure Edit9Click(Sender: TObject);

    procedure A(Sender: TObject);

    procedure Button1Click(Sender: TObject);

    procedure Label8Click(Sender: TObject);

    procedure Button2Click(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

var

  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Edit8Click(Sender: TObject);

begin

Edit8.Text:=''

end;

procedure TForm1.Edit9Click(Sender: TObject);

begin

Edit9.Text:=''

end;

procedure TForm1.A(Sender: TObject);

begin

Application.Terminate;

end;

procedure TForm1.Button1Click(Sender: TObject);

var P,A,F,N,M,I,J :real;

begin

P:=STRTOFLOAT(Edit1.Text);

A:=STRTOFLOAT(Edit2.Text);

F:=STRTOFLOAT(Edit3.Text);

N:=STRTOFLOAT(Edit4.Text);       

M:=STRTOFLOAT(Edit5.Text);

I:=STRTOFLOAT(Edit6.Text);

J:=A+P+F+N+M+I;

Edit7.Text:=FLOATTOSTR(J);

end;

procedure TForm1.Label8Click(Sender: TObject);

var IP,J:real;

begin

J:=STRTOFLOAT(EDIT7.TEXT);

IP:=(J)/19;

EDIT10.Text:=FLOATTOSTR(IP);

end;

procedure TForm1.Button2Click(Sender: TObject);

begin

Edit1.Clear;

Edit2.Clear;

Edit3.Clear;

Edit4.Clear;

Edit5.Clear;

Edit6.Clear;

Edit7.Clear;

Edit8.Clear;

Edit9.Clear;

Edit10.Clear;

end;

end.

LOGIKA PROGRAM

            Logika program menjelaskan cara kerja program dan fungsi dari setiap tombol ,pengenalan delphi mengenai bagaimana cara input dan output. Listing :

procedure TForm1.Button1Click(Sender: TObject);

var P,A,F,N,M,I,J :real;

begin

P:=STRTOFLOAT(Edit1.Text);

A:=STRTOFLOAT(Edit2.Text);

F:=STRTOFLOAT(Edit3.Text);

N:=STRTOFLOAT(Edit4.Text);

M:=STRTOFLOAT(Edit5.Text);

I:=STRTOFLOAT(Edit6.Text);

J:=A+P+F+N+M+I;

Edit7.Text:=FLOATTOSTR(J);

end;

            Listing di atas berfungsi bagaimana menampilkan output ,dari inputan yang sudah di di input  dan di jumlah dari input 1 samapai degan 6,sehingga menampilkan hasil hasil pada sebuah kolom di sebelah tombol jumlah dan dapat bisa lihat.

procedure TForm1.Edit8Change(Sender: TObject);

begin

end;

end.

procedure TForm1.Label2Click(Sender: TObject);

begin

end;

            dan listing program di atas menampilakan sebuah text yang bertuliskan ”Tuliskan namamu” jika kita mengklik di dalam kolom maka secara otomatis akan hilang.

procedure TForm1.Label8Click(Sender: TObject);

var IP,J:real;

begin

J:=STRTOFLOAT(EDIT7.TEXT);

IP:=(J)/19;

EDIT10.Text:=FLOATTOSTR(IP);

            Selanjutnya Listing dia atas adalah untuk menghitung IP dari hasil jumlah ke enam input berupa angka bertipe float ,dan di bagi dengan jumlah sks di beri nilai 19 selanjutnya akan di tampilkan pada kolom edit 10.

procedure TForm1.Button2Click(Sender: TObject);

begin

Edit1.Clear;

Edit2.Clear;

Edit3.Clear;

Edit4.Clear;

Edit5.Clear;

Edit6.Clear;

Edit7.Clear;

Edit8.Clear;

Edit9.Clear;

Edit10.Clear;

end;

Salah satu Fungsi di atas tidak lain adalah melakukan pengosongan semua kolom jika kita masih penasaran dengan ip kita ,atau adanya kesalahan.

procedure TForm1.Image1Click(Sender: TObject);

begin

Application.Terminate

end;

end.    

            Terakhir adanya fungsi application.terminate adalah untuk menutup program bedanya dia berlapis sebuah gambar bukan tombol.terakhir kita bisa mengcompile program ber extensi .exe dan menikmati program kita.

Output listing 1

Output listing 2