Tutorial Membuat Aplikasi Calculator dengan Delphi
Cara Mudah Membuat Aplikasi Calculator dengan Delhpi – Berikut ini kami akan memberikan Tutorial untuk pembuatan aplikasi kalkulator dengan delphi. Pada dasarnya pembuatan aplikasi itu tidak lah terlalu rumit namun kita harus lebih teliti terutama pada bagian kode.
Berikut adalah beberapa tahapan dalam pembuatan aplikasi kalkulator:
A. Buatlah rancangan tampilan seperti di bawah ini dengan menggunakan Label1, Label2, Lebel3, Label4, dan Label5. Lalu untuk input dan output nya dengan menggunakan Edit1, Edit2, dan Edit3. Dan untuk tombolnya gunakan Button1, Button2, Button3, dan Button4.
Atur tata letak seperti gambar dibawah ini:
B. Ditahapan ini saya juga akan memberikan sedikit gambaran agar kalian lebih mudah merancang dan merubah teks Label, Edit, dan Button.
Perhatikan dibawah ini:
- Label1 – Aplikasi Calculator dengan Delphi
- Label2 – Bilangan 1
- Label3 – Bilangan 2
- Label4 – Operasi
- Label5 – Hasil
- Edit1 – Input bilangan 1
- Edit2 – Input bilangan 2
- Edit3 – Output atau hasil dari penjumlahan
- Button1 – Tambah
- Button2 – Kurang
- Button3 – Kali
- Button4 – Bagi
C. Setelah tahapan diatas sudah kita buat, selanjutnya adalah bagian kode dimana pada bagian ini lah yang paling harus kita teliti.
Ikuti langkah-langkah berikut untuk penempatan dan penulisan kode.
- Double click (klik dua kali) pada Button (tombol) Tambah. lalu akan muncul form code yang terletak di antara begin dan end; lalu langsung ketikkan code dibawah ini:
a:=strtofloat(input1.text);
b:=strtofloat(input2.text);
c:=a+b;
output.text:=floattostr(c);
code untuk tombol Tambah sudah selesai, selanjutnya kita akan memasukkan code untuk tombol kurang.
- Selanjutnya kita kembali lagi ke form utama atau form lembar kerja. Lalu double click (klik dua kali) pada tombol kurang. Lalu ketikkan code dibawah ini:
a:=strtofloat(input1.text);
b:=strtofloat(input2.text);
c:=a-b;
output.text:=floattostr(c);
code untuk tombol Kurang sudah selesai, selanjutnya untuk code tombol Kali.
- Sama seperti instruksi diatas duble click (kelik dua kali) pada tombol kali, lalu masukkan code dibawah ini:
a:=strtofloat(input1.text);
b:=strtofloat(input2.text);
c:=a*b;
output.text:=floattostr(c);
code tombol kali sudah selesai, selanjutnya tombol Bagi.
- Klik dua kali pada tombol bagi, lalu masukkan code berikut:
a:=strtofloat(input1.text);
b:=strtofloat(input2.text);
c:=a/b;
output.text:=floattostr(c);
setelah selesai kita kembali lagi ke form utama.
- Selanjutnya pendeklarasian variabel, disini variabel yang digunakan adalah variabel a, b, dan c.
Selanjutnya kembali lagi ke form code lalu cari code berikut ini:
var
Form1: TForm1;
Implementation
Setelah code diatas sudah ditemukan, lalu ketikkan code berikut ini:
a,b,c:real;
ketikkan code di atas di antara code Form1: TForm1; dan Implementation.
Sehingga code akan menjadi seperti berikut:
var
Form1: TForm1;
a,b,c:real;
implementation
D. Setelah semua code sudah selesai maka selanjutnya coba tes aplikasi yang kita buat dengan cara klik run, apakah hasilnya berhasil seperti gambar di bawah ini:
E. Jadi secara keseluluhan sintaks dari aplikasi calculator ini seperti berikut:
unit addition_and_multiplication;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
input1: TEdit;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
input2: TEdit;
Label4: TLabel;
output: TEdit;
Label5: TLabel;
Button1: TButton;
Button2: TButton;
Button3: TButton;
Button4: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Button4Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
a,b,c:real;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
a:=strtofloat(input1.text);
b:=strtofloat(input2.text);
c:=a+b;
output.text:=floattostr(c);
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
a:=strtofloat(input1.Text);
b:=strtofloat(input2.text);
c:=a-b;
output.Text:=floattostr(c);
end;
procedure TForm1.Button3Click(Sender: TObject);
begin
a:=strtofloat(input1.Text);
b:=strtofloat(input2.Text);
c:=a*b;
output.Text:=floattostr(c);
end;
procedure TForm1.Button4Click(Sender: TObject);
begin
a:=strtofloat(input1.text);
b:=strtofloat(input2.text);
c:=a/b;
output.text:=floattostr(c);
end;
end.
F. Selesai, semoga Tutorial Membuat Aplikasi Calculator dengan Delphi ini membantu dan bermanfaat untuk anda. Terima Kasih
