PERCOBAAN 3 (MEMBUAT SHELLEXECUTE/SHELLAPI "MENAMPILKAN TUGAS PADA BLOG")
PERCOBAAN III
MEMBUAT SHELLEXCUTE/SHELLAPI “MENAMPILKAN TUGAS PADA BLOG”
1. Tujuan.
Agar Bintara Mahasiswa mampu membuat dan menjalankan fungsi Shellexcute/ShellAPI.
2. Alat dan Bahan :
a. Laptop;
b. Aplikasi
Delphi 7;
c. Tool
Edit;
d. Tool
Time; dan
e. Tool
Shape.
3. Dasar Teori
a. Tool Edit.
Komponen yang digunakan untuk menerima satu baris teks yang
merupakan data input pemakai. Komponen ini juga dapat digunakan untuk
menampilkan teks.
b. Tool
Time.
Komponen yang digunakan untuk mengatur
waktu dan tanggal sesuai format yang kita inginkan.
c. Tool
Shape.
Di Delphi, bentuk dapat mengacu pada elemen
grafis yang digunakan untuk menampilkan elemen visual pada formulir atau
komponen antarmuka pengguna lainnya. Delphi menyediakan berbagai komponen yang
dapat digunakan untuk membuat dan memanipulasi bentuk, termasuk komponen TShape
dan TImage.
4. Langkah
Percobaan.
a. Flowchart;
b. Buat Button sebanyak siswa atau sebanyak yang kita inginkan
untuk menampilkan tampilan Blogger siswa tersebut kemudian masukan kode
program atau coding:
Contoh : pada btn7/pada button absen siswa no 04
procedure TForm1.btn7Click(Sender: TObject);
begin
ShellExecute(0,'open','https://d4kom0704.blogspot.com/2023/08/percobaan-1-membuat-tampilan-nama.html','','',
SW_SHOWNORMAL) ;
end;
c. Buat Coding untuk menampilkan data diri sesuai password yang
kita masukan:
Contoh
: apabila kita masukan Password 01 maka yang akan muncul siswa absen no 01, dan
seterusnya
a.
procedure TForm1.btn1Click(Sender: TObject);
b.
begin
c.
if edt1.Text='01' then
d.
begin
e.
shp1.Visible:=True;
f.
shp2.Visible:=True;
g.
img2.Visible:=True;
h.
lbl2.Visible:=True; lbl2.Caption:='NAMA : IMAM BAYHAQI';
i.
lbl3.Visible:=True;
j.
lbl4.Visible:=True; lbl4.Caption:='NIM : 202207022-E';
k.
lbl5.Visible:=True;
l.
lbl6.Visible:=True; lbl6.Caption:='ABSEN : 01';
m.
lbl7.Visible:=True;
n.
lbl8.Visible:=True;
o.
btn6.Visible:=True;
p.
btn7.Visible:=True;
q.
lbl11.Visible:=False;
r.
end
s. end.
d. Klik button 2/btn2 pada Caption tertulis Clear dan
masukan kode program/coding yang berfungsi membersihkan atau menutup data yang
sudah ditampilkan, berikut coding tersebut:
procedure TForm1.btn2Click(Sender: TObject);
begin
lbl2.Visible:=False;
lbl3.Visible:=False;
lbl4.Visible:=False;
lbl5.Visible:=False;
lbl6.Visible:=False;
lbl7.Visible:=False;
lbl8.Visible:=False;
shp1.Visible:=False;
shp2.Visible:=False;
img1.Visible:=False;
img26.Visible:=False;
btn4.Visible:=False;
btn5.Visible:=False;
btn6.Visible:=False;
btn7.Visible:=False;
btn52.Visible:=False;
btn53.Visible:=False;
btn54.Visible:=False;
btn55.Visible:=False;
end;.
5. Hasil dan Pembahasan
a. Hasil Vidio
b. Pembahasan
Cara untuk menggunakan ShellExecute
dari ShellAPI unit di Delphi:
1)
Sertakan Unit ShellAPI: Dalam kode Delphi Anda, pastikan Anda
menyertakan ShellAPIunit dengan menambahkan uses ShellAPI;klausa
penggunaan unit Anda.
2)
Panggil ShellExecute: Gunakan ShellExecutefungsi untuk melakukan
tindakan. Sintaks dasarnya adalah:
operation: Tindakan yang ingin
Anda lakukan (misalnya, 'buka', 'edit', 'cetak').
file: File atau program yang
ingin Anda gunakan untuk berinteraksi.
parameters: Parameter tambahan
(misalnya, argumen baris perintah untuk yang dapat dieksekusi).
directory: Direktori kerja untuk
operasi.
showCmd: Bagaimana jendela
harus ditampilkan (misalnya, SW_SHOWNORMAL).
6. Kesimpulan
ShellExecute atau ShellAPI berfungsi untuk berinteraksi dengan shell
Windows. Ini memungkinkan mereka membuka file dengan program default,
meluncurkan aplikasi eksternal, membuka URL, dan menjalankan perintah shell.
Pendekatan ini memberikan pengalaman ramah pengguna dengan menghormati
preferensi pengguna untuk menangani file dan aplikasi.
7. Daftar Pustaka
a. https://eprints.utdi.ac.id/7065/3/3_95037_BAB_II.pdf
b. https://akademik.fastikom-unsiq.ac.id/materi/Delphi%207.0-Access%20dasar.pdf