LA AP2A (kalkulator)

Listing Program

unit Unit1;

interface

uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, StdCtrls;

type

  TForm1 = class(TForm)

    txt1: TEdit;

    txt2: TEdit;

    lblHasil: TLabel;

    btnPlus: TButton;

    btnMinus: TButton;

    btnKali: TButton;

    btnBagi: TButton;

    btnHapus: TButton;

    lblKalkulator: TLabel;

    procedure btnPlusClick(Sender: TObject);

    procedure btnMinusClick(Sender: TObject);

    procedure btnKaliClick(Sender: TObject);

    procedure btnBagiClick(Sender: TObject);

    procedure btnHapusClick(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

var

  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.btnPlusClick(Sender: TObject);

Var

e,r,hasil:integer;

begin

e:=StrToInt(txt1.Text);

r:=StrToInt(txt2.Text);

hasil:=e+r;

lblHasil.Caption:=IntToStr(hasil);

end;

procedure TForm1.btnMinusClick(Sender: TObject);

Var

e,r,hasil:integer;

begin

e:=StrToInt(txt1.Text);

r:=StrToInt(txt2.Text);

hasil:=e-r;

lblHasil.Caption:=IntToStr(hasil);

end;

procedure TForm1.btnKaliClick(Sender: TObject);

Var

e,r,hasil:real;

begin

e:=StrToFloat(txt1.Text);

r:=StrToFloat(txt2.Text);

hasil:=e*r;

lblHasil.Caption:=FloatToStr(hasil);

end;

procedure TForm1.btnBagiClick(Sender: TObject);

Var

e,r,hasil:real;

begin

e:=StrToFloat(txt1.Text);

r:=StrToFloat(txt2.Text);

hasil:=e/r;

lblHasil.Caption:=FloatToStr(hasil);

end;

procedure TForm1.btnHapusClick(Sender: TObject);

begin

txt1.Text:='';

txt2.Text:='';

lblHasil.Caption:='';

end;

end.

Logika Program

Pada program kali ini kita akan membuat kalkulator sederhana dengan menggunakan bahasa pemograman delphi. Langsung saja kita masuk ke dalam coding programnya, yaitu :

unit Unit1;

interface

uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, StdCtrls;

Maksud dari koding diatas adalah mendeskripsikan tentang nama form. Pada koding diatas form nya di beri nama ‘Unit1’.

Lalu kita masuk pada koding selanjutnya :

type

                TForm1 = class(TForm)

                txt1: TEdit;

                txt2: TEdit;

                lblHasil: TLabel;

                 btnPlus: TButton;

                btnMinus: TButton;

                btnKali: TButton;

                btnBagi: TButton;

                btnHapus: TButton;

                lblKalkulator: TLabel;

                procedure btnPlusClick(Sender: TObject);

                procedure btnMinusClick(Sender: TObject);

                procedure btnKaliClick(Sender: TObject);

procedure btnBagiClick(Sender: TObject);

                 procedure btnHapusClick(Sender: TObject);

                private

                { Private declarations }

                public

                { Public declarations }

  end;

Maksud dari koding diatas adalah mendeskripsikan tentang type-type yang digunakan pada form yang kita buat. Pada koding diatas ditampilkan macam-macam nama yang  kita gunakan pada form yang telah kita buat. Misalnya saja txt1 dan txt2 yang merupakan edit. Lalu ada btnhsil,btnplus, btnminus, btnkali, btnbagi, dan btnhapus yang merupakan button. Dan ada lblkalkulator yang merupakan label. Pada koding ini juga terdapat pendeklarasian. Pendeklarasiannya yaitu private dan public.

Lalu kita masuk pada koding selanjutnya:

procedure TForm1.btnPlusClick(Sender: TObject);

Var

e,r,hasil:integer;

begin

e:=StrToInt(txt1.Text);

r:=StrToInt(txt2.Text);

hasil:=e+r;

lblHasil.Caption:=IntToStr(hasil);

end;

maksud dari koding diatas adalah menjelaskan bahwa fungsi pada koding ini adalah sebagai perhitungan pertambahan dengan menggunakan variable e,r dan bertipe data integer. Perintah StrToInt maksudnya adalah suatu perintah yang akan mengubah string menjadi integer. Variable e berfungsi untuk mengisi nilai pada txt1. Dan variable r untuk mengisi nilai pada txt2. Perintah e+r itu adalah suatu perintah yang akan menjumlahkan nilai atau bilangan pada txt1 dan txt2 secara otomatis. Pada lblHasil terdapat suatu perintah IntToStr yang berarti integer akan diubah menjadi string agar hasil perhitungan dapat di proses oleh lblhasil. Jika hasil telah dicetak maka program ini akan berhenti.

Lalu kita masuk pada koding selanjutnya:

procedure TForm1.btnMinusClick(Sender: TObject);

Var

e,r,hasil:integer;

begin

e:=StrToInt(txt1.Text);

r:=StrToInt(txt2.Text);

hasil:=e-r;

lblHasil.Caption:=IntToStr(hasil);

end;

maksud dari koding diatas adalah menjelaskan bahwa fungsi pada koding ini adalah sebagai perhitungan pengurangan dengan menggunakan variable e,r dan bertipe data integer. Perintah StrToInt maksudnya adalah suatu perintah yang akan mengubah string menjadi integer. Variable e berfungsi untuk mengisi nilai pada txt1. Dan variable r untuk mengisi nilai pada txt2. Perintah e-r itu adalah suatu perintah yang akan mengurangi  nilai atau bilangan pada txt1 dan txt2 secara otomatis. Pada lblHasil terdapat suatu perintah IntToStr yang berarti integer akan diubah menjadi string agar hasil perhitungan dapat di proses oleh lblhasil. Jika hasil telah dicetak maka program ini akan berhenti.

Lalu kita masuk pada koding selanjutnya:

procedure TForm1.btnKaliClick(Sender: TObject);

Var

e,r,hasil:real;

begin

e:=StrToFloat(txt1.Text);

r:=StrToFloat(txt2.Text);

hasil:=e*r;

lblHasil.Caption:=FloatToStr(hasil);

end;

maksud dari koding diatas adalah menjelaskan bahwa fungsi pada koding ini adalah sebagai perhitungan perkalian dengan menggunakan variable e,r dan bertipe data real. Perintah StrToFloat maksudnya adalah suatu perintah yang akan mengubah string menjadi Float. Variable e berfungsi untuk mengisi nilai pada txt1. Dan variable r untuk mengisi nilai pada txt2. Perintah e*r itu adalah suatu perintah yang akan mengalikan nilai atau bilangan pada txt1 dan txt2 secara otomatis. Pada lblHasil terdapat suatu perintah FloatToStr yang berarti float akan diubah menjadi string agar hasil perhitungan dapat di proses oleh lblhasil. Jika hasil telah dicetak maka program ini akan berhenti.

Lalu kita masuk pada koding selanjutnya:

procedure TForm1.btnBagiClick(Sender: TObject);

Var

e,r,hasil:real;

begin

e:=StrToFloat(txt1.Text);

r:=StrToFloat(txt2.Text);

hasil:=e/r;

lblHasil.Caption:=FloatToStr(hasil);

end;

maksud dari koding diatas adalah menjelaskan bahwa fungsi pada koding ini adalah sebagai perhitungan pembagian  dengan menggunakan variable e,r dan bertipe data real. Perintah StrToFloat maksudnya adalah suatu perintah yang akan mengubah string menjadi Float. Variable e berfungsi untuk mengisi nilai pada txt1. Dan variable r untuk mengisi nilai pada txt2. Perintah e/r itu adalah suatu perintah yang akan membagi  nilai atau bilangan pada txt1 dan txt2 secara otomatis. Pada lblHasil terdapat suatu perintah FloatToStr yang berarti float akan diubah menjadi string agar hasil perhitungan dapat di proses oleh lblhasil. Jika hasil telah dicetak maka program ini akan berhenti.

Lalu kita masuk pada koding selanjutnya:

procedure TForm1.btnHapusClick(Sender: TObject);

begin

txt1.Text:='';

txt2.Text:='';

lblHasil.Caption:='';

end;

end.

Maksud dari koding diatas adalah menjelaskan suatu perintah yang digunakan untuk menghapus nilai atau bilangan pada txt1, txt2, dan lblHasil yang bilangan tersebut telah kita hitung. Jika telah perhitungan pada kalkulator sederhana ini telah terhapus dengan menekan tombol hapus maka secara otomatis program ini akan berhenti.

Sekian penjelasan logika program pada  “Kalkulator Sederhana” dari saya.