PERCOBAAN 2

MEMBUAT PASSWORD DAN MENAMPILKAN WAKTU

 

1. Tujuan

     Agar Bamasis Mampu Membuat Password dan Menampilkan Waktu

 

2. Alat dan Bahan :

   a.      Laptop

   b.      Delphi

   c.      Tool Edit

  d.       Tool Time

  e.       Tool Shape

 

3. Teori

    a.    Tool Edit

Dalam konteks aplikasi pengembangan perangkat lunak seperti Delphi, "tool edit" mengacu pada komponen atau elemen grafis yang digunakan untuk memungkinkan pengguna memasukkan, mengedit, dan menampilkan teks atau data lainnya dalam aplikasi. Tool edit ini biasanya dikenal sebagai "Edit Controls" atau "Edit Boxes."   

                  

                             Gambar 1. Tool Edit   

          b.    Tool Time

Dalam konteks aplikasi pengembangan perangkat lunak menggunakan Delphi, "tool time" mengacu pada komponen atau elemen grafis yang digunakan untuk memungkinkan pengguna memasukkan, mengedit, atau menampilkan informasi waktu dan tanggal dalam aplikasi. Ini membantu dalam interaksi yang melibatkan data waktu dan tanggal, seperti jadwal, pengaturan waktu, dan sejenisnya.

               Gambar 2. Logo Tool time

          c.    Tool Shape

Dalam konteks aplikasi pengembangan perangkat lunak menggunakan Delphi, "tool shape" mengacu pada komponen atau elemen grafis yang digunakan untuk membuat, menggambar, dan menampilkan berbagai bentuk atau gambar dalam antarmuka pengguna aplikasi. Ini memungkinkan Anda untuk menciptakan visualisasi yang lebih menarik dan informatif dalam aplikasi Anda.

                             Gambar 3. Logo Tool Shape

4. Langkah – Langkah Percobaan

    a.     Flowchart

                    

                                                                  Gambar 4. Flowchart

 

    b.     Coding

unit Unit1;

interface

uses

  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,

  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.ExtCtrls,

  Vcl.Imaging.jpeg;

type

  TForm1 = class(TForm)

    Button1: TButton;

    Shape1: TShape;

    Edit1: TEdit;

    Label1: TLabel;

    Label2: TLabel;

    Label3: TLabel;

    Image1: TImage;

    Label4: TLabel;

    Label5: TLabel;

    Label6: TLabel;

    Label7: TLabel;

    Label8: TLabel;

    Shape2: TShape;

    Timer1: TTimer;

    Label9: TLabel;

    Label10: TLabel;

    Button2: TButton;

    Button3: TButton;

    procedure Button1Click(Sender: TObject);

    procedure Timer1Timer(Sender: TObject);

    procedure Button2Click(Sender: TObject);

    procedure Button3Click(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

var

  Form1: TForm1;

 

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

begin

  if edit1.Text='rendy123' then

  begin

      shape1.Visible:=True;

      shape2.Visible:=True;

      image1.Visible:=True;

      label2.Visible:=True;

      label3.Visible:=True;

      label4.Visible:=True;

      label5.Visible:=True;

      label6.Visible:=True;

      label7.Visible:=True;

      label8.Visible:=False;

  end

  else

  begin

      label8.Visible:=True;

  end;

end;

procedure TForm1.Button2Click(Sender: TObject);

begin

      shape1.Visible:=False;

      shape2.Visible:=False;

      image1.Visible:=False;

      label2.Visible:=False;

      label3.Visible:=False;

      label4.Visible:=False;

      label5.Visible:=False;

      label6.Visible:=False;

      label7.Visible:=False;

      edit1.Text:='';

      label8.Visible:=False;

end;

procedure TForm1.Button3Click(Sender: TObject);

begin

form1.Close;

end;

procedure TForm1.Timer1Timer(Sender: TObject);

begin

label9.Caption:=Formatdatetime('dd/mm/yyyy',now);

label10.Caption:=Formatdatetime('hh:nn:ss',now);

end;

end.

 

5. Hasil dan Pembahasan

    a.     Hasil

    b.     Pembahasan

            Pada hasil percobaan diatas item item yang digunakan yaitu tool waktu,tool image,tool shape dan item item lain yang mendukung,proses atau cara kerja dari percobaan diatas yaitu pada awal tampilan masuk muncul beberapa tombol antara lain enter clear dan close ,pada tombol enter ,kita memasukan sandi atau password yang telah kita program pada coding ,apabila sandi benar maka akan muncul tampilan data pribadi dan foto pada form ,apabila sandi yang dimasukan salah maka akan muncul tulisan bukan D4KOM7 .

    tombol clear digunakan untuk menghapus sandi dan menampilkan tampilan seperti awal masuk ke percobaan ,tombol close berfungsi untuk keluar dari program dan  kembali ke tampilan form awal ,hal ini karna pada tombol close dan clear sudah dimasukan bahasa pemograman yang memberikan perintah untuk menghapus dan keluar

6. Kesimpulan

            Dalam percobaan praktik menggunakan aplikasi Delphi, fokus utama adalah pada penerapan keamanan dan fungsionalitas waktu. Berhasil diintegrasikan sistem password untuk meningkatkan tingkat keamanan aplikasi, memastikan hanya pengguna yang memiliki akses yang tepat yang dapat menggunakannya. Selain itu, juga berhasil menampilkan waktu secara akurat dalam antarmuka aplikasi, memberikan informasi penting kepada pengguna seputar waktu dan memungkinkan pelacakan aktivitas.