Nama : Rio Brada Nim : 171010850049 Kelas : WTF 012

1. Gambar Aplikasi

2. Cara Kerja Aplikasi a. Ketika Username diisi dengan “Riobrada” dan Password disi dengan “riobrada” Ketika tekan login akan masuk ke form2. b. Ketika tombol “tampilkan password” ditekan/diceklis maka, passwor akan terlihat dan terbaca c. Dan ketika usernam dan paswor sudah kita isi dan kemudian kita tekan tombol batal, otomatis username dan passwor akan hilang

3. Kode perintah unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls; type TForm1 = class(TForm) Shape1: TShape; Shape2: TShape; Shape3: TShape; Label1: TLabel; Label2: TLabel;

Edit1: TEdit; Label3: TLabel; Edit2: TEdit; Button1: TButton; Button2: TButton; CheckBox1: TCheckBox; Label4: TLabel; Timer1: TTimer; procedure Button1Click(Sender: TObject); procedure CheckBox1Click(Sender: TObject); procedure Timer1Timer(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation uses Unit2; {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); begin if (Edit1.text='Riobrada')and(edit2.text='Riobrada') Then Begin form2.show; end else end; procedure TForm1.CheckBox1Click(Sender: TObject); begin if checkbox1.Checked then begin edit2.PasswordChar:=#0; end else begin end; end; procedure TForm1.Timer1Timer(Sender: TObject); begin //untuk menampilkan waktu di Delphi 7 (Hari,Tanggal,Jam) Label4.Caption:=Formatdatetime('DDDD,DD/MM/YYY HH:MM:SS',(Now)); end;

End.

1. Gambar Aplikasi

2. Cara Kerja Aplikasi a. Di Form2 jika kita pilih buah “Mangga” maka form3 akan terbuka Seperti gambar dibawah

b. Kode Perintah IF (edit1.text=’MANGGA’) Then Begin Form3.show; End; End; End.

a. Di form2 Jika Kita pilih buah “DURIAN” Maka Form4 akan terbuka Seperti gambar dibawah

b. Kode Perintah IF (edit2.text=’DURIAN’) Then Begin Form4.show; End; End; End. a. Di form2 Jika Kita pilih buah “ALPUKAT” Maka Form5 akan terbuka. Seperti gambar dibawah

b. Kode Perintah IF (edi3.text=’DURIAN’) Then Begin Form5.show; End; End; End.

a. Di form2 Jika Kita pilih Sayur “BAYAM” Maka Form6 akan terbuka. Seperti gambar dibawah

b. Kode Perintah IF (edi4.text=’BAYAM’) Then Begin Form6.show; End; End; End.

a. Di form2 Jika Kita pilih Sayur “KANGKUNG” Maka Form6 akan terbuka. Seperti gambar dibawan

b. Kode Perintah IF (edi5.text=’KANGKUNG’) Then Begin Form7.show; End; End; End.

a. Di form2 Jika Kita pilih Sayur “KUBIS” Maka Form8 akan terbuka. Seperti gambar dibawah

b. Kode Perintah IF (edi6.text=’KUBIS’) Then Begin Form8.show; End; End; End.