PERCOBAAN 4
MEMBUAT KALKULATOR (ARITMATIKA)
1. Tujuan. Agar Bintara Mahasiswa mampu membuat Algoritma Penghitung.
2. Alat dan Bahan.
a. Laptop;
b. Aplikasi Delphi;
c. Uses Math;
d. Tool Label;
e. Tool Edit; dan
f. Tool Button;
3. Teori.
a. Delphi.
Delphi adalah sebuah bahasa pemrograman yang dikembangkan dari Object Pascal, dan merupakan lingkungan pengembangan terpadu (IDE) yang digunakan untuk membuat berbagai jenis aplikasi, termasuk aplikasi desktop, web, dan mobile. Delphi dikenal karena kemampuannya dalam pengembangan aplikasi berbasis database dan mendukung pemrograman berorientasi objek.
b. Tool Label.
Dalam aplikasi Delphi, label berfungsi sebagai elemen visual untuk menampilkan teks kepada pengguna. Mereka digunakan untuk memberikan penjelasan, instruksi, atau informasi dalam antarmuka/interface pengguna.
d. Tool Button.
Dalam aplikasi Delphi, button berfungsi sebagai elemen antarmuka pengguna yang dapat berinteraksi dengan pengguna untuk memulai tindakan atau fungsi tertentu di dalam aplikasi. Tombol digunakan untuk membuat fitur interaktif dan menyediakan cara bagi pengguna untuk memicu tindakan. Fungsi utama tombol dalam aplikasi Delphi adalah untuk merespons klik atau aktivasi pengguna.
b. Tool Edit.
Tools dan komponen edit dalam konteks flowchart merujuk pada berbagai aplikasi, perangkat lunak, dan fitur yang digunakan untuk membuat, mengedit, dan mengoptimalkan diagram alir.
3. Langkah Percobaan.
a. Flowchart
1) Penjumlahan
2) Pengurangan
3) Perkalian
4) Pembagian
5) Sin & Cos
6) Pangkat
b. Coding
unit Unit2;
interface
uses
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, math;
type
TForm2 = class(TForm)
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Button1: TButton;
Button2: TButton;
Button3: TButton;
Button4: TButton;
Button5: TButton;
Button6: TButton;
Button7: TButton;
Button8: TButton;
Edit1: TEdit;
Edit2: TEdit;
Edit3: TEdit;
Label4: TLabel;
Label5: TLabel;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Button4Click(Sender: TObject);
procedure Button5Click(Sender: TObject);
procedure Button6Click(Sender: TObject);
procedure Button7Click(Sender: TObject);
procedure Button8Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form2: TForm2;
implementation
{$R *.dfm}
procedure TForm2.Button1Click(Sender: TObject);
VAR
A,B,C : real;
begin
A:= strtofloat(Edit1.Text);
B:= strtofloat(Edit2.Text);
C:= A+B;
Edit3.Text:= floattostr(C);
end;
procedure TForm2.Button2Click(Sender: TObject);
VAR
A,B,C : real;
begin
A:= strtofloat(Edit1.Text);
B:= strtofloat(Edit2.Text);
C:= A-B;
Edit3.Text:= floattostr(C);
end;
procedure TForm2.Button3Click(Sender: TObject);
VAR
A,B,C : real;
begin
A:= strtofloat(Edit1.Text);
B:= strtofloat(Edit2.Text);
C:= A/B;
Edit3.Text:= floattostr(C);
end;
procedure TForm2.Button4Click(Sender: TObject);
VAR
A,B,C : real;
begin
A:= strtofloat(Edit1.Text);
B:= strtofloat(Edit2.Text);
C:= A*B;
Edit3.Text:= floattostr(C);
end;
procedure TForm2.Button5Click(Sender: TObject);
VAR
A,B,C : real;
begin
A:= strtofloat(Edit1.Text);
B:= strtofloat(Edit2.Text);
C:= power(A,B);
Edit3.Text:= floattostr(C);
end;
procedure TForm2.Button6Click(Sender: TObject);
VAR
A,B,C : real;
begin
A:= strtofloat(Edit1.Text);
B:= strtofloat(Edit2.Text);
C:= power (A, (1/B));
Edit3.Text:= floattostr(C);
end;
procedure TForm2.Button7Click(Sender: TObject);
VAR
A,B,C : real;
begin
A:= strtofloat(Edit1.Text);
B:= strtofloat(Edit2.Text);
C:= SIN(B*pi/180);
Edit3.Text:= floattostr(C);
end;
procedure TForm2.Button8Click(Sender: TObject);
VAR
A,B,C : real;
begin
A:= strtofloat(Edit1.Text);
B:= strtofloat(Edit2.Text);
C:= COS(B*pi/180);
Edit3.Text:= floattostr(C);
end;
end.
4. Hasil dan Pembahasan.
a. Hasil
1) 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 “YOSSY” dan password yang dibuat adalah 202308036-E. Apabila diinput dengan username dan password yang benar maka ketika diklik button “LOGIN” akan muncul pop up tampilan aplikasi penampil biodata seperti pada Percobaan 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 “HAPUS” yang berguna untuk menghapus username dan password serta menghilangkan pop up label “BETUL BAMASIS KOM 8” atau “BUKAN BAMASIS KOM 8”.
Pada percobaan kali ini, percobaan yang sudah dilakukan dikombinasikan dengan memunculkan aplikasi kalkulator yang mana ketika kita berhasil login dengan menggunakan username dan pssword, maka yang akan muncul adalah pop up window kalkulator. Proses ini menggunakan shellexecute yang sudah dipraktikan pada percobaan 3. Setelah muncul kalkulator, masukan angka 1 dan 2 dan lakukan operasi hitung yang diinginkan.
6. Kesimpulan. Aplikasi penampil animasi ini dapat dibuat dengan aplikasi Delphi untuk membantu pengguna meningkatkan keamanan sebelum memulai/masuk ke dalam suatu aplikasi.