PERCOBAAN 6

MEMBUAAT ALGORITMA PENGGHITUNG (ARITMATIKA)

 

1. Tujuan : agar bamasis mamppu membuat algoritma penghitung

 

2. Alat Dan Bahan :

   a.      Laptop

   b.      Delphi

   c.      uses math

   d.      str to lnt

   e.      str to float

   f.       int to str

   g.      float to str

 

3. Teori

a. strtoint

StrToInt adalah sebuah fungsi di lingkungan pemrograman Delphi yang digunakan untuk mengonversi sebuah string yang berisi representasi angka menjadi tipe data integer (bilangan bulat). Fungsi ini sangat berguna ketika Anda perlu mengambil input dari pengguna dalam bentuk string dan mengubahnya menjadi angka yang dapat diolah oleh program.

 

Berikut adalah contoh penggunaan fungsi StrToInt dalam aplikasi Delphi:

                 Gambar 1. Contoh strtoint

b. inttostr

IntToStr adalah salah satu fungsi yang tersedia dalam lingkungan pemrograman Delphi. Fungsi ini digunakan untuk mengonversi nilai tipe data integer (bilangan bulat) menjadi representasi string. Dengan kata lain, Anda dapat menggunakan IntToStr untuk mengubah angka dalam format integer menjadi string sehingga dapat ditampilkan atau diproses dalam berbagai cara yang melibatkan manipulasi string.

 

Berikut ini adalah contoh penggunaan fungsi IntToStr dalam aplikasi Delphi:

                      

Gambar 2. Contoh inttostr

 

c. strtofloat

Fungsi StrToFloat adalah sebuah fungsi di lingkungan pemrograman Delphi yang digunakan untuk mengonversi string yang berisi representasi angka desimal (floating-point) menjadi tipe data float. Fungsi ini berguna ketika Anda perlu mengambil input dari pengguna dalam bentuk string dan mengubahnya menjadi angka desimal yang dapat diolah oleh program.

Berikut adalah contoh penggunaan fungsi StrToFloat dalam aplikasi Delphi:

Gambar 3. Contoh strtofloat

 

d. inttofloat

IntToFloat, yang digunakan untuk mengonversi tipe data integer menjadi tipe data float. Fungsi ini mengambil parameter integer dan mengembalikan hasilnya dalam bentuk float.

 

Berikut adalah contoh penggunaan fungsi IntToFloat dalam aplikasi Delphi:

Gambar 4. Contoh inttofloat

 

4. Langkah Dan 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, Vcl.ExtCtrls,

  Vcl.Imaging.pngimage, Vcl.Imaging.GIFImg, Vcl.Imaging.jpeg;

type

  TForm2 = class(TForm)

    Label1: TLabel;

    Label2: TLabel;

    Label3: TLabel;

    Label4: TLabel;

    Edit3: TEdit;

    Button1: TButton;

    Button2: TButton;

    Button3: TButton;

    Button4: TButton;

    Button5: TButton;

    Button6: TButton;

    Button7: TButton;

    Button8: TButton;

    edit1: TEdit;

    edit2: TEdit;

    Button9: TButton;

    Label5: TLabel;

    Label6: TLabel;

    Timer1: TTimer;

    Image1: TImage;

    Image2: TImage;

    procedure Button1Click(Sender: TObject);

    procedure Button2Click(Sender: TObject);

    procedure Button3Click(Sender: TObject);

    procedure Button4Click(Sender: TObject);

    procedure Button6Click(Sender: TObject);

    procedure Button5Click(Sender: TObject);

    procedure Button7Click(Sender: TObject);

    procedure Button8Click(Sender: TObject);

    procedure Button9Click(Sender: TObject);

    procedure Timer1Timer(Sender: TObject);

    procedure Edit3Change(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

var

  Form2: TForm2;

  A,B,hasil : real ;

implementation

{$R *.dfm}

procedure TForm2.Button1Click(Sender: TObject);

begin

A:= strtofloat(edit1.Text);

B:= strtofloat(edit2.Text);

hasil:= A+B;

edit3.text:= floattostr( hasil);

end;

procedure TForm2.Button2Click(Sender: TObject);

begin

A:= strtofloat (edit1.Text);

B:= strtofloat (edit2.Text);

hasil:= A-B;

edit3.text:= floattostr( hasil);

end;

procedure TForm2.Button3Click(Sender: TObject);

begin

A:= strtofloat (edit1.Text);

B:= strtofloat (edit2.Text);

hasil:= A*B;

edit3.text:= floattostr( hasil);

end;

procedure TForm2.Button4Click(Sender: TObject);

begin

A:= strtofloat (edit1.Text);

B:= strtofloat (edit2.Text);

hasil:= A/B;

edit3.text:= floattostr( hasil);

end;

procedure TForm2.Button5Click(Sender: TObject);

begin

A:= strtofloat (edit1.Text);

B:= strtofloat (edit2.Text);

hasil:= power (A,B);

edit3.text:= floattostr(hasil);

end;

procedure TForm2.Button6Click(Sender: TObject);

begin

A:= strtofloat (edit1.Text);

edit3.Text:= floattostr (sin (pi*A/180));

end;

procedure TForm2.Button7Click(Sender: TObject);

begin

A:= strtofloat (edit1.Text);

edit3.Text:= floattostr (round(cos(pi*A/180)*100)/100);

end;

procedure TForm2.Button8Click(Sender: TObject);

begin

form2.Close;

end;

procedure TForm2.Button9Click(Sender: TObject);

begin

edit1.Text:='';

edit2.Text:='';

edit3.Text:='';

end;

procedure TForm2.Edit3Change(Sender: TObject);

begin

end;

procedure TForm2.Timer1Timer(Sender: TObject);

begin

label5.Caption:=FormatDateTime('dd/mm/yyyy',Now);

label6.Caption:=FormatDateTime('hh:mm:ss',Now);

end;

end.

 

5. Hasil Dan Pembahasan

    a. hasil

    b. pembahasan

Dari program cara kerja dari program aritmatika kalkulator pada aplikasi delphi yaitu pada kolom edit 1 dan edit 2 digunakan untuk input data berupa angka yang akan dihitung, untuk memasukan program digunakan fungsi inttofloat,strtoint,strtofloat,dan inttostr, dan pada uses di masukan program math,tombol clear digunakan untuk menghapus data yang sudah di input pada kolom A dan B , tombol exit digunakan untuk keluar dari aplikasi aritmatika kalkulator pada program delphi .

Contoh program kalkulator dalam Delphi adalah aplikasi sederhana yang menggunakan komponen visual seperti TEdit, TButton, dan TLabel. Program ini memungkinkan pengguna memasukkan dua angka melalui TEdit, lalu menghitung hasil dari operasi penjumlahan, pengurangan, perkalian, dan pembagian menggunakan tombol yang sesuai. Setiap tombol memiliki event-handler yang memanfaatkan fungsi matematika dari unit Math untuk melakukan perhitungan dan menampilkan hasilnya pada TLabel. Ada juga tombol "Clear" untuk menghapus input dan hasil, serta tombol "Exit" untuk keluar dari aplikasi. Dalam pengembangan lebih lanjut, perlu diperhatikan validasi input yang baik dan tambahan fitur untuk membuat aplikasi lebih fungsional dan menarik.

6. Kesimpulan

Fungsi-fungsi yang ada dalam lingkungan pemrograman Delphi, seperti StrToInt, IntToStr, StrToFloat, dan IntToFloat, adalah suatu fungsi yang memberikan kemampuan untuk mengonversi data antara berbagai tipe data yang umum digunakan. Fungsi StrToInt dan IntToStr berperan dalam mengubah data antara tipe data string dan integer, memungkinkan penggunaan input dan output dalam bentuk yang sesuai dengan kebutuhan antarmuka pengguna. Di sisi lain, fungsi StrToFloat dan IntToFloat melayani konversi antara tipe data string dan float, memungkinkan pengolahan data angka desimal dalam operasi matematika.

 Pemahaman yang baik tentang cara menggunakan fungsi-fungsi ini memainkan peran penting dalam mengelola input yang diterima dari pengguna dan menampilkan output dalam format yang sesuai, sambil mempertahankan keakuratan dan integritas data. Selain itu, pemahaman tentang penanganan kesalahan dan validasi saat melakukan konversi juga krusial untuk menghindari masalah yang mungkin timbul akibat data yang tidak valid atau tidak terduga.