PERCOBAAN 3
MEMBUAT SHELL EXECUTE
(Mengunakan Delphi XE8)
1. Tujuan : Agar Bamasis mampu mengaplikasikan shell execute.
2. Alat dan bahan.
a. Laptop/PC.
b. Aplikasi Delphi.
c. Tool Edit.
d. Button.
e. Label.
f. Shape.
3. Landasan teori.
a. Flowchart Decision atau Flowchart Keputusan adalah simbol yang digunakan dalam flowchart untuk menunjukkan titik keputusan dalam alur kerja atau proses. Simbol ini biasanya berbentuk belah ketupat dan digunakan untuk menggambarkan perbandingan atau penyeleksian data yang memberikan pilihan untuk langkah selanjutnya dalam proses.
Fungsi Simbol Decision
· Menunjukkan Kodisi: Simbol Decision digunakan untuk menunjukkan kondisi tertentu yang akan menghasilkan dua kemungkinan jawaban, yaitu "ya" dan "tidak" atau "benar" dan "salah" dalam konteks tertentu.
· Menggambarkan Pilihan: Simbol ini menggambarkan pilihan yang harus diambil berdasarkan hasil evaluasi atau perbandingan. Pilihan ini kemudian akan mempengaruhi arah aliran proses selanjutnya.
· Menghubungkan Langkah: Simbol Decision digunakan untuk menghubungkan antara langkah-langkah yang berbeda dalam flowchart, sehingga memudahkan dalam memahami bagaimana proses akan berlanjut berdasarkan hasil keputusan
b. Pada Delphi, Edit adalah komponen yang digunakan untuk memasukkan dan menampilkan teks. Fungsi komponen edit:
· Memasukkan Data: Komponen Edit digunakan untuk memasukkan data teks yang akan diproses oleh aplikasi. Data ini dapat berupa nama, alamat, tanggal lahir, dan lain-lain, tergantung pada kebutuhan aplikasi.
· Mengatur Properti: Properti Edit dapat diatur untuk menentukan ukuran, jenis font, warna font, dan gaya font. Misalnya, Anda dapat mengatur ukuran font menjadi 14, jenis font menjadi Calibri, dan warna font menjadi clWindowText.
· Menghubungkan dengan Event: Komponen Edit dapat dihubungkan dengan event tertentu, seperti ketika tombol Enter ditekan atau ketika fokus keluar dari komponen tersebut. Contoh penggunaan event OnExit untuk menangkap penekanan tombol Enter dan melakukan aksi tertentu.
c. ShellExecute pada Delphi adalah sebuah fungsi Windows API yang digunakan untuk melakukan berbagai operasi terkait manipulasi file atau interaksi sistem dengan meluncurkan atau menjalankan file atau operasi yang terkait dengan aksi default untuk file atau aplikasi yang ditentukan. Fungsi ShellExecute ini memungkinkan pengguna untuk membuka file, folder, dan URL, serta melakukan berbagai aksi yang terkait dengan file, seperti membuka, mengedit, mencetak, dan menjelajahi (membuka folder untuk melihat isiannya), di antara lainnya
4. Langkah-langkah percobaan.
a. Buat flowchart Program.
b. Coding yang digunakan pada percobaan kali ini.
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.Imaging.jpeg,
Vcl.ExtCtrls, shellapi;
type
TForm1 = class(TForm)
Label1: TLabel;
Label2: TLabel;
Edit1: TEdit;
Edit2: TEdit;
Button1: TButton;
Label4: TLabel;
Button2: TButton;
Image1: TImage;
Shape2: TShape;
Image2: TImage;
Shape1: TShape;
Label3: TLabel;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
if (Edit1.Text='rezki') AND (Edit2.Text='01') then
begin
ShellExecute(Handle, 'Open', 'D:\P.B.P KOM 8\KOM801.exe', nil, nil, SW_SHOWNORMAL);
Image1.Visible:=true;
label3.Visible:=true;
Shape1.Visible:=true;
Shape2.Visible:=true;
end;
if (Edit1.Text='tino') AND (Edit2.Text='02') then
begin
ShellExecute(Handle, 'Open', 'D:\P.B.P KOM 8\KOM802.exe', nil, nil, SW_SHOWNORMAL);
Image1.Visible:=true;
label3.Visible:=true;
Shape1.Visible:=true;
Shape2.Visible:=true;
end;
if (Edit1.Text='bowo') AND (Edit2.Text='03') then
begin
ShellExecute(Handle, 'Open', 'D:\P.B.P KOM 8\KOM803.exe', nil, nil, SW_SHOWNORMAL);
Image1.Visible:=true;
label3.Visible:=true;
Shape1.Visible:=true;
Shape2.Visible:=true;
end;
if (Edit1.Text='arjun') AND (Edit2.Text='04') then
begin
ShellExecute(Handle, 'Open', 'D:\P.B.P KOM 8\KOM804.exe', nil, nil, SW_SHOWNORMAL);
Image1.Visible:=true;
label3.Visible:=true;
Shape1.Visible:=true;
Shape2.Visible:=true;
end;
if (Edit1.Text='egi') AND (Edit2.Text='05') then
begin
ShellExecute(Handle, 'Open', 'D:\P.B.P KOM 8\KOM805.exe', nil, nil, SW_SHOWNORMAL);
Image1.Visible:=true;
label3.Visible:=true;
Shape1.Visible:=true;
Shape2.Visible:=true;
end;
if (Edit1.Text='bambang') AND (Edit2.Text='06') then
begin
ShellExecute(Handle, 'Open', 'D:\P.B.P KOM 8\KOM806.exe', nil, nil, SW_SHOWNORMAL);
Image1.Visible:=true;
label3.Visible:=true;
Shape1.Visible:=true;
Shape2.Visible:=true;
end;
if (Edit1.Text='choi') AND (Edit2.Text='07') then
begin
ShellExecute(Handle, 'Open', 'D:\P.B.P KOM 8\KOM807.exe', nil, nil, SW_SHOWNORMAL);
Image1.Visible:=true;
label3.Visible:=true;
Shape1.Visible:=true;
Shape2.Visible:=true;
end;
if (Edit1.Text='adit') AND (Edit2.Text='08') then
begin
ShellExecute(Handle, 'Open', 'D:\P.B.P KOM 8\KOM808.exe', nil, nil, SW_SHOWNORMAL);
Image1.Visible:=true;
label3.Visible:=true;
Shape1.Visible:=true;
Shape2.Visible:=true;
end;
if (Edit1.Text='purnomo') AND (Edit2.Text='09') then
begin
ShellExecute(Handle, 'Open', 'D:\P.B.P KOM 8\KOM809.exe', nil, nil, SW_SHOWNORMAL);
Image1.Visible:=true;
label3.Visible:=true;
Shape1.Visible:=true;
Shape2.Visible:=true;
end;
if (Edit1.Text='ardi') AND (Edit2.Text='10') then
begin
ShellExecute(Handle, 'Open', 'D:\P.B.P KOM 8\KOM810.exe', nil, nil, SW_SHOWNORMAL);
Image1.Visible:=true;
label3.Visible:=true;
Shape1.Visible:=true;
Shape2.Visible:=true;
end;
if (Edit1.Text='septian') AND (Edit2.Text='11') then
begin
ShellExecute(Handle, 'Open', 'D:\P.B.P KOM 8\KOM811.exe', nil, nil, SW_SHOWNORMAL);
Image1.Visible:=true;
label3.Visible:=true;
Shape1.Visible:=true;
Shape2.Visible:=true;
end;
if (Edit1.Text='dicky') AND (Edit2.Text='12') then
begin
ShellExecute(Handle, 'Open', 'D:\P.B.P KOM 8\KOM812.exe', nil, nil, SW_SHOWNORMAL);
Image1.Visible:=true;
label3.Visible:=true;
Shape1.Visible:=true;
Shape2.Visible:=true;
end;
if (Edit1.Text='aliffian') AND (Edit2.Text='13') then
begin
ShellExecute(Handle, 'Open', 'D:\P.B.P KOM 8\KOM813.exe', nil, nil, SW_SHOWNORMAL);
Image1.Visible:=true;
label3.Visible:=true;
Shape1.Visible:=true;
Shape2.Visible:=true;
end;
if (Edit1.Text='aldo') AND (Edit2.Text='14') then
begin
ShellExecute(Handle, 'Open', 'D:\P.B.P KOM 8\KOM814.exe', nil, nil, SW_SHOWNORMAL);
Image1.Visible:=true;
label3.Visible:=true;
Shape1.Visible:=true;
Shape2.Visible:=true;
end;
if (Edit1.Text='toni') AND (Edit2.Text='15') then
begin
ShellExecute(Handle, 'Open', 'D:\P.B.P KOM 8\KOM815.exe', nil, nil, SW_SHOWNORMAL);
Image1.Visible:=true;
label3.Visible:=true;
Shape1.Visible:=true;
Shape2.Visible:=true;
end;
if (Edit1.Text='yossy') AND (Edit2.Text='16') then
begin
ShellExecute(Handle, 'Open', 'D:\P.B.P KOM 8\KOM816.exe', nil, nil, SW_SHOWNORMAL);
Image1.Visible:=true;
label3.Visible:=true;
Shape1.Visible:=true;
Shape2.Visible:=true;
end;
if (Edit1.Text='laheri') AND (Edit2.Text='17') then
begin
ShellExecute(Handle, 'Open', 'D:\P.B.P KOM 8\KOM817.exe', nil, nil, SW_SHOWNORMAL);
Image1.Visible:=true;
label3.Visible:=true;
Shape1.Visible:=true;
Shape2.Visible:=true;
end;
if (Edit1.Text='alif') AND (Edit2.Text='18') then
begin
ShellExecute(Handle, 'Open', 'D:\P.B.P KOM 8\KOM818.exe', nil, nil, SW_SHOWNORMAL);
Image1.Visible:=true;
label3.Visible:=true;
Shape1.Visible:=true;
Shape2.Visible:=true;
end;if (Edit1.Text='wahyu') AND (Edit2.Text='19') then
begin
ShellExecute(Handle, 'Open', 'D:\P.B.P KOM 8\KOM811.exe', nil, nil, SW_SHOWNORMAL);
Image1.Visible:=true;
label3.Visible:=true;
Shape1.Visible:=true;
Shape2.Visible:=true;
end;
if (Edit1.Text='fauzan') AND (Edit2.Text='20') then
begin
ShellExecute(Handle, 'Open', 'D:\P.B.P KOM 8\KOM820.exe', nil, nil, SW_SHOWNORMAL);
Image1.Visible:=true;
label3.Visible:=true;
Shape1.Visible:=true;
Shape2.Visible:=true;
end;
if (Edit1.Text='egi') AND (Edit2.Text='05') then
begin
Image1.Visible:=false;
label4.Visible:=true;
Shape2.Visible:=true;
end;
if (Edit1.Text='egi') AND (Edit2.Text='05') then
begin
Image1.Visible:=false;
label4.Visible:=true;
Shape2.Visible:=true;
end;
if (Edit1.Text='egi') AND (Edit2.Text='05') then
begin
Image1.Visible:=false;
label4.Visible:=true;
Shape2.Visible:=true;
end;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
Image1.Visible:=false;
Label4.Visible:=false;
Shape2.Visible:=false;
Edit1.Text:='';
Edit2.Text:='';
end;
end.
5. Hasil dan pembahasan.
a. Program yang sudah dibuat/Run
b. Aplikasi penampil username dan password merupakan aplikasi yang dibuat untuk menampilkan tampilan untuk memasukkan username dan password untuk memulai suatu aplikasi. Aplikasi ini dibuat dengan menggunakan aplikasi Delphi. Aplikasi penampil ini terdiri dari beberapa komponen, yaitu label, tool edit, shape, dan button.
Setelah komponen-komponen tersebut disusun dan ditata, masukkan coding yang telah dibuat. Pada percobaan kali ini, username yang dibuat adalah “Egi” dan password yang dibuat adalah "05". Apabila diinput dengan username dan password yang benar maka ketika diklik button “LOGIN” akan muncul pop up tampilan aplikasi penampil biodata seperti pada Percbaan 1, namun apabila username dan password diisi selain username dan password yang ditetapkan, maka akan muncul pop up “BUKAN BAMASIS KOM 8”. Untuk mengganti karakter password dengan karakter lain dapat mengganti properties pada PasswordChar. Pada Properti PasswordChar ganti karakter dengan menggunakan (*) sehingga ketika password diinput tidak akan terlihat dan akan muncul ikon (●) .
Setelah berhasil terdapat button “CLEAR” yang berguna untuk menghapus username dan password serta menghilangkan pop up label “BETUL BAMASIS KOM 8” atau “BUKAN BAMASIS KOM 8”.
6. Kesimpulan.
Aplikasi penampil animasi ini dapat dibuat dengan aplikasi Delphi untuk membantu pengguna meningkatkan keamanan sebelum memulai/masuk ke dalam suatu aplikasi.
7. Daftar Pustaka.
https://delphiprogrammingdiary.blogspot.com/2014/07/shellexecute-in-delphi.html