JURUSAN TELEKOMUNIKASI PRODI TEKNIK TELKOMMIL
PERCOBAAN VI
MEMBUAT ALGORITMA
PERHITUNGAN (ARITMATIKA)
1.
Tujuan : Agar Bintara Mahasiswa mampu membuat Aplikasi suara
piano dengan menggunakan aplikasi Delphi.
2.
Alat dan Bahan :
a.
Laptop
b.
Aplikasi Delphi 7
c.
Uses Math
d.
Str to Int
e.
Str to float
f.
Int to Str
g.
Float to str
3.
Dasar Teori
a.
Str to int
StrToInt adalah fungsi yang digunakan untuk mengkonversi
string menjadi jenis data integer (integer adalah angka tanpa seperator desimal
seperti koma atau titik). Fungsi StrToInt akan mengambil string sebagai input
dan menghasilkan nilai integer sesuai dengan angka yang terdapat pada string
tersebut.
Misalnya, jika kita memiliki string "123" dan
kita ingin mengubahnya menjadi jenis data integer, maka kita dapat menggunakan
StrToInt ("123"), yang akan menghasilkan nilai 123.
Namun, perlu diingat bahwa jika string tidak mengandung
angka, maka akan terjadi error saat menggunakan StrToInt. Oleh karena itu,
sebelum menggunakan StrToInt, pastikan bahwa string hanya mengandung angka.
Anda juga dapat menggunakan fungsi StrToIntDef yang memiliki fitur tambahan
untuk menangani situasi jika string tidak valid atau kosong.
Gambar 1. Contoh strToInt
b.
Str to Float
StrToFloat adalah sebuah fungsi yang
tersedia di bahasa pemrograman Delphi untuk mengonversi sebuah nilai string
menjadi tipe data float. Tipe data float sendiri merupakan tipe data numerik
yang digunakan untuk menyimpan bilangan real (desimal) dengan presisi tertentu.
Pada saat aplikasi dibuat atau pada
saat pengolahan data, seringkali diperlukan pengkonversian nilai string menjadi
nilai numerik dalam format float. Fungsi StrToFloat pada Delphi dapat digunakan
untuk melakukan tugas tersebut dengan mudah dan efektif. Fungsi ini akan
mengambil masukan string dan mengubah nilai string tersebut menjadi nilai tipe
data float yang sesuai.
amun perlu diperhatikan bahwa saat melakukan konversi, nilai string harus dipastikan valid dan formatnya harus sesuai dengan format tipe data float yang digunakan pada Delphi. Jika nilai string tidak valid atau format tidak sesuai, konversi tersebut akan gagal dan tidak memberikan hasil yang diharapkan. Oleh karena itu, sebelum melakukan konversi, pastikan nilai string yang akan diubah ke dalam tipe data float sudah benar dan valid sesuai dengan format tipe data tersebut.
Gambar
2. Contoh Str To Float
c.
In To Str
IntToStr adalah sebuah fungsi pada bahasa pemrograman
Delphi yang digunakan untuk mengubah nilai integer (bilangan bulat) menjadi
string. Dalam pemrograman, pengubahan nilai bilangan bulat menjadi string
seringkali dibutuhkan ketika kita ingin menampilkan nilai tersebut ke dalam
dialog box atau tampilan aplikasi yang lain.
Fungsi IntToStr pada Delphi memungkinkan kita untuk
mengkonversi nilai integer ke dalam format string dengan mudah dan akurat.
Caranya, kita hanya perlu menyertakan nilai integer sebagai parameter dalam
fungsi IntToStr, kemudian hasil konversi akan diterima dalam bentuk string.
Gambar 3. Contoh In To Str
d. Float
To Str
FloatToStr
adalah fungsi di bahasa pemrograman Delphi yang digunakan untuk mengkonversi
bilangan desimal (float) menjadi string. Dalam pemrograman, seringkali kita
membutuhkan nilai float untuk ditampilkan dalam bentuk string di antara teks
atau dialog box pada aplikasi yang kita buat. Fungsi FloatToStr dapat digunakan
untuk mengubah nilai float tersebut menjadi string sehingga dapat ditampilkan
sebagai bagian dari teks atau pesan pada aplikasi.
4.
Langkah – Langkah Percobaan
a. Buat tampilan program seperti di bawah ini :
b. Flowchart/Diagram Alir
c. Kode program/Coding :
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants,
Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, jpeg, ExtCtrls;
type
TForm1 = class(TForm)
lbl1: TLabel;
lbl2: TLabel;
lbl3: TLabel;
edt1: TEdit;
edt2: TEdit;
edt3: TEdit;
lbl4: TLabel;
btn1: TButton;
btn2: TButton;
btn3: TButton;
btn4: TButton;
btn5: TButton;
btn6: TButton;
btn7: TButton;
img1: TImage;
btn8: TButton;
btn9: TButton;
procedure btn1Click(Sender: TObject);
procedure btn2Click(Sender: TObject);
procedure btn3Click(Sender: TObject);
procedure btn4Click(Sender: TObject);
procedure btn5Click(Sender: TObject);
procedure btn6Click(Sender: TObject);
procedure btn7Click(Sender: TObject);
procedure btn8Click(Sender: TObject);
procedure btn9Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
A, B, hasil: Real;
implementation
{$R *.dfm}
uses math;
procedure
TForm1.btn1Click(Sender: TObject);
begin
A:=
StrToFloat(edt1.Text);
B:=
StrToFloat(edt2.Text);
hasil:= A+B;
edt3.text:=
FloatToStr(hasil);
end;
procedure TForm1.btn2Click(Sender:
TObject);
begin
A:=
StrToFloat(edt1.Text);
B:=
StrToFloat(edt2.Text);
hasil:= A-B;
edt3.text:=
FloatToStr(hasil);
end;
procedure
TForm1.btn3Click(Sender: TObject);
begin
A:=
StrToFloat(edt1.Text);
B:= StrToFloat(edt2.Text);
hasil:= A*B;
edt3.text:=
FloatToStr(hasil);
end;
procedure
TForm1.btn4Click(Sender: TObject);
begin
A:=
StrToFloat(edt1.Text);
B:=
StrToFloat(edt2.Text);
hasil:= A/B;
edt3.text:=
FloatToStr(hasil);
end;
procedure
TForm1.btn5Click(Sender: TObject);
begin
A:=
StrToFloat(edt1.Text);
B:=
StrToFloat(edt2.Text);
hasil:=Power(A,B);
edt3.text:=
FloatToStr(hasil);
end;
procedure
TForm1.btn6Click(Sender: TObject);
begin
A:= StrToFloat(edt1.Text);
edt3.text:=
FloatToStr(Sin(pi*A/180));
end;
procedure
TForm1.btn7Click(Sender: TObject);
begin
A:= StrToFloat(edt1.Text);
edt3.text:=
FloatToStr(cos(pi*A/180)*100/100);
end;
procedure
TForm1.btn8Click(Sender: TObject);
begin
Form1.Close;
end;
procedure
TForm1.btn9Click(Sender: TObject);
begin
edt1.Clear;
edt2.Clear;
edt3.Clear;
end;
end.
5.
Hasil dan Pembahasan
a. Hasil video :
b.
Pembahasan
:
Program aritmatika
kalkulator pada aplikasi Delphi adalah program yang dibuat menggunakan bahasa
pemrograman Delphi untuk melakukan perhitungan matematika, seperti penjumlahan,
pengurangan, perkalian, dan pembagian. Program ini biasanya dilengkapi dengan
antarmuka pengguna (user interface) yang memudahkan pengguna dalam memasukkan
nilai atau bilangan dan melihat hasil perhitungan.
Berikut adalah contoh dari program kalkulator sederhana
pada Delphi:
1.Buat sebuah project baru pada Delphi.
2. Tambahkan beberapa komponen pada form seperti TLabel,
TEdit, TButton, TGroupBox.
3. Setiap komponen sudah ada pada form, ubah caption pada
masing-masing object sesuai dengan keperluan, contoh pada object TLabel,
diganti menjadi Kalkulator Delphi, pada object TEdit, diganti menjadi Edit1.
4. Double click pada object button
"1" dan ketikkan source code berikut untuk menambahkan angka
"1" di dalam TEdit:
```
Edit1.Text := Edit1.Text + '1';
```
5. Lakukan hal yang sama untuk object button
"2", "3,... sampai dengan "9" dan juga object button
untuk tanda operasi matematika seperti + - * dan /.
6. Setelah semuanya selesai untuk membuat program
Kalkulator Delphi, lakukan pengecekan dan testing program agar tidak ada
kesalahan saat program dijalankan.
7. Testing program dengan mencoba memasukkan angka
kedalam TEdit untuk melakukan operasi matematika, lalu eksekusi untuk melihat
hasil operasi matematika dengan menggunakan Button "=".
Program kalkulator
pada aplikasi Delphi dapat dikembangkan dengan menambahkan beberapa fitur atau
operasi matematika lainnya, seperti operasi pangkat, akar, atau trigonometri.
Selain itu, program ini juga dapat dikembangkan dengan menambahkan animasi
visual atau efek suara untuk meningkatkan pengalaman pengguna. Program
kalkulator ini juga bisa dikombinasikan dengan program database dan digunakan
dalam lingkup bisnis untuk mempermudah dan mempercepat penghitungan data.
6.
Kesimpulan.
Dari pembahasan di atas, dapat disimpulkan bahwa program aritmatika kalkulator pada aplikasi Delphi adalah sebuah program yang dibuat menggunakan bahasa pemrograman Delphi untuk melakukan perhitungan matematika, seperti penjumlahan, pengurangan, perkalian, dan pembagian. Program ini biasanya dilengkapi dengan antarmuka pengguna (user interface) yang memudahkan pengguna dalam memasukkan nilai atau bilangan dan melihat hasil perhitungan.
Program kalkulator pada aplikasi Delphi dapat dikembangkan dengan menambahkan beberapa fitur atau operasi matematika lainnya, seperti operasi pangkat, akar, atau trigonometri. Selain itu, program ini juga dapat dikembangkan dengan menambahkan animasi visual atau efek suara untuk meningkatkan pengalaman pengguna. Program kalkulator ini juga bisa dikombinasikan dengan program database dan digunakan dalam lingkup bisnis untuk mempermudah dan mempercepat penghitungan data.
Tidak ada komentar:
Posting Komentar