PERCOBAAN 2 MEMBUAT PASSWORD DAN MENAMPILKAN WAKTU

JURUSAN TELEKOMUNIKASI
PRODI TEKNIK TELKOMMIL

 

PERCOBAAN 2

MEMBUAT PASSWORD DAN MENAMPILKAN WAKTU

 

1.       Umum.

           Delphi adalah Suatu bahasa pemrograman yang menggunakan visualisasi sama seperti Bahasa pemrograman Visual Basic ( VB ) . Namun Delphi menggunakan bahasa yang hampir sama dengan pascal (sering disebut objeck pascal ) . Sehingga lebih mudah untuk digunakan Bahasa pemrograman Delphi dikembangkan oleh CodeGear sebagai divisi pengembangan perangkat lunak milik embarcadero . Divisi tersebut awalnya milik borland sehingga Bahasa ini memiliki versi Borland Delphi. Delphi juga menggunakan konsep yang berorientasi objek (OOP), maksudnya pemrograman dengan membantu sebuah aplikasi yang mendekati keadaan dunia yang sesungguhnya . Hal itu bisa dilakukan dengan cara mendesign objek untuk menyelesaikan masalah . OOP in  memiliki beberapa unsur yaitu; Encapsulation ( pemodelan ), Inheritance ( Penurunan ), Polymorphism ( Polimorfisme ) .

Awalnya bahasa pemrograman delphi hanya dapat digunakan di Microsoft Windows, namun saat ini telah dikembangkan sehingga dapat digunakan juga di Linux dan di Microsoft. NET. Dengan menggunakan free pascal yang merupakan proyek OpenSource, Bahasa pemrograman ini dapat membuat program di sistem operasi Mac OS X dan Windows CE  Umumnya delphi hanya digunakan untuk pengembangan aplikasi dekstop, enterprise berbasis database dan program - program kecil . Namun karena pengembangan delphi yang semakin pesat dan bersifat general purpose bahasa pemrograman ini mampu digunakan untuk berbagai jenis pengembangan software . Dan Delphi juga disebut sebagai pelopor perkembangan RadTool (Rapid Apllication Development) tahun 1995 . Sehinnga banyak orang yang mulai mengenal dan menyukai bahasa pemrograman yang bersifat VCL ( Visual Component Library ) ini .

         

2.       Tujuan Praktikum.

-         Agar Bamasis mampu membuat password dan menampilkan waktu menggunakan Aplikasi Delphi.

 

3.       Alat dan Bahan.

a.       Laptop/PC;
b.       Aplikasi Delphi; dan
c.        Coding Tampilan data.

 4.       Landasan Teori.

          a.       Jelaskan tentang penggunaan edit

Edit atau lebih dikenal sebagai Edit dalam lingkungan pemrograman Delphi berfungsi untuk menciptakan sebuah elemen input, namun elemen edit ini juga memiliki kemampuan untuk berperan sebagai elemen output. Komponen TEdit dapat dijumpai di dalam tab standar pada palet komponen Delphi.

Gambar 1. Komponen Edit

 

b.       Jelaskan tentang penggunaan Timer

Umumnya dalam pemrograman Delphi, Timer dimanfaatkan untuk menjalankan serangkaian prosedur atau fungsi dalam interval waktu yang telah ditentukan sebelumnya. Dalam intinya, fungsi Timer adalah untuk mengontrol waktu dengan memberikan pengaturan interval tertentu.  

Gambar 2. Komponen Timer

 

         c.        Jelaskan tentang penggunaan Shape

Shape biasanya merujuk pada komponen yang digunakan dalam pengembangan perangkat lunak menggunakan bahasa pemrograman Delphi, yang umumnya digunakan untuk membuat aplikasi desktop. Shape adalah komponen visual yang biasanya digunakan untuk menggambar bentuk-bentuk sederhana seperti segitiga, persegi, elips, dan lain-lain panel dalam aplikasi Delphi.

Gambar 3. Tampilan Tool Button

  

5. Langkah-langkah Percobaan

    a.    Flowchart

                     

 

 b. Coding

unit Unit1;

interface 

uses

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

  Dialogs, ExtCtrls, jpeg, StdCtrls, ImgList;

type

  TForm1 = class(TForm)

    lbl1: TLabel;

    btn1: TButton;

    btn2: TButton;

    img1: TImage;

    shp1: TShape;

    lbl2: TLabel;

    lbl3: TLabel;

    lbl4: TLabel;

    lbl5: TLabel;

    lbl6: TLabel;

    lbl7: TLabel;

    lbl8: TLabel;

    lbl9: TLabel;

    tmr1: TTimer;

    lbl10: TLabel;

    edt1: TEdit;

    btn3: TButton;

    procedure btn2Click(Sender: TObject);

    procedure btn1Click(Sender: TObject);

    procedure tmr1Timer(Sender: TObject);

    procedure btn3Click(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

var

  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.btn2Click(Sender: TObject);

begin

img1.Visible:=False;

 shp1.Visible:=False;

 lbl2.Visible:=False;

 lbl3.Visible:=False;

 lbl4.Visible:=False;

 lbl5.Visible:=False;

 lbl6.Visible:=False;

 lbl7.Visible:=False;

end;

 

procedure TForm1.btn1Click(Sender: TObject);

begin

 if edt1.text='rifqi94' then

begin

img1.Visible:=True;

shp1.Visible:=True;

lbl2.Visible:=True;

lbl3.Visible:=True;

lbl4.Visible:=True;

lbl5.Visible:=True;

lbl6.Visible:=true;

lbl7.Visible:=True;

lbl10.Visible:=False;

end

else

begin

lbl10.visible:=True;

end;

end;

 

procedure TForm1.tmr1Timer(Sender: TObject);

begin

lbl8.Caption:=FormatDateTime('dd/mm/yyyy',Now);

lbl9.Caption:=FormatDateTime('hh:mm:ss',Now);

end;

 

procedure TForm1.btn3Click(Sender: TObject);

begin

Form1.Close;

end;

 

end.

 

5. Hasil dan Pembahasan

    a.    Hasil Video

 

6. Kesimpulan

                 Berdasarkan percobaan diatas, dapat ditarik kesimpulan bahwa TTimer berperan dalam menampilkan waktu saat ini dengan memasukkan kode program seperti diatas. Di samping itu, fungsi dari TEdit adalah untuk memasukkan kata sandi yang telah kita konfigurasi sebelumnya. Program akan dapat dijalankan hanya jika kata sandi yang dimasukkan benar sesuai dengan yang telah ditetapkan sebelumnya. Namun, jika kata sandi yang dimasukkan salah, program tidak akan berjalan dan akan muncul pesan "ANDA SIAPA YA.!!”.