Langsung ke konten utama
MEMBUAT KALKULATOR MINI DENGAN BORLAND DELPHI 7

Untuk membuat sebuah aplikasi kalkulator di delphi kita memerlukan sebuah software yang bernama Borland Delphi dan software ini mempuyai banyak versinya mulai dari versi 1, 2, 3 ,4, 5, 6, bahkan 7, dan disini saya menggunakan Borland Delphi 7 untuk membuat aplikasi kalkulator. baiklah adapun tahap-tahap / cara-cara pembuatannya adalah :

1.      Pertama-tama kita buat label dengan cara mengklik icon table yang bertujuan untuk membuat judul sebuah program atau membuat keterangan program tersebut.
2.      Kemudian kita ubah propertiesnya di menu captions, disana terdapat tulisan form1 lalu kita ganti sesuai dengan program yang kita buat, disini saya memberi nama kakulator mini
3.      Lalu kita buat lagi label untuk keterangan pemasukan nilai pertama, ganti kata label1 yang terdapat di captions sesuai dengan nama yang ingin anda berikan dan kemudian membuat label2 untuk keterangan memasukkan nilai kedua
4.      Kemudian klik pada menu edit untuk tempat penulisan angka yang nanti akan anda tuliskan di dalamnya, kosongkan tulisan text yang ada di dalamnya. Dan jangan lupa kotak edit untuk hasil yang akan dikeluarkan di dalamnya.
5.      Lalu untuk operatornya kita menggunakan tombol agar mempermudahkan user dalam menggunakan program anda, disini untuk tombol tersebut kita gunakan menu tbutton. Disini saya menggunakan tujuh operator di dalam kalkulator mini ini maka saya menggunakan tujuh tombol dan setiap tombol memilki 1 operator, adapun operator-oprtatornya adalah :
1.    Penjumlahan (+)
2.    Pengurangan (-)
3.    Perkalian (*)
4.    Pembagian (/)
5.    Sisa Bagi (mod)
6.    Pemangkatan (^)
7.    Pembagian bulangan bulat (div)
6.      Setelah selesai membuat ketujuh operator tersebut, maka kita klik 2x di tombol tersebut sehingga akan muncul tab/halaman yang berisikan codingan kosong. Isilah codingan tersebut dengan codingan yang telah kita buat, jangan lupa deklarasikan variabel dan type yang akan gunakan karena setiap operator berbeda typenya. Isikan seluruh operator yang telah kita buat dengan codingan yang sesuai dengan operator masing-masing. Bila terdapat kesalahan maka periksa kembali codingan tersebut karena kita memakai banyak operator, dan periksa apakah codingan telah sesuai dengan operator.
 berikut codingan kalkulator mini yang akan saya pakai :

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    Button5: TButton;
    Button6: TButton;
    Button7: TButton;
    Edit3: TEdit;
    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 FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}
PERJUMLAHAN (+)

procedure TForm1.Button1Click(Sender: TObject);
var a,b,i:real;
begin
a:=strtoint(Edit1.Text);
b:=strtoint(Edit2.Text);
i:=a+b;
Edit3.Text:=floattostr(i);
end;
PENGURANGAN (-)

procedure TForm1.Button2Click(Sender: TObject);
var a,b,i:real;
begin
a:=strtoint(Edit1.Text);
b:=strtoint(Edit2.Text);
i:=a-b;
Edit3.Text:=floattostr(i);
end;
PERKALIAN (*)

procedure TForm1.Button3Click(Sender: TObject);
var a,b,i:real;
begin
a:=strtoint(Edit1.Text);
b:=strtoint(Edit2.Text);
i:=a*b;
Edit3.Text:=floattostr(i);
end;
PEMBAGIAN (/)

procedure TForm1.Button4Click(Sender: TObject);
var a,b,i:real;
begin
a:=strtoint(Edit1.Text);
b:=strtoint(Edit2.Text);
i:=a/b;
Edit3.Text:=floattostr(i);
end;

SISA BAGI (MOD)

procedure TForm1.Button5Click(Sender: TObject);
var a,b,i :integer;
begin
a:=strtoint(Edit1.Text);
b:=strtoint(Edit2.Text);
i:=a mod b;
Edit3.Text:=floattostr(i);
end;
PEMANGKATAN (^)

procedure TForm1.Button6Click(Sender: TObject);
var a,b,i:real;
begin
a:=strtoint(Edit1.Text);
b:=strtoint(Edit2.Text);
i:=exp(b*ln(a));
Edit3.Text:=floattostr(i);
end;
PEMBAGIAN BILANGAN BULAT (DIV)

procedure TForm1.Button7Click(Sender: TObject);
var a,b,i:integer;
begin
a:=strtoint(Edit1.Text);
b:=strtoint(Edit2.Text);
i:=a div b;
Edit3.Text:=floattostr(i);
end;
end.


7.      Untuk merubah jenis huruf maka kita dapat mengantinya di properties di bagian font, jika ingin menganti warna backgroundnya di properties di bagian color.
8.      Setelah semuanya selesai, maka kita save dulu, save dengan nama yang anda inginkan, disini saya save program saya dengan nama “kalkulator.pas” . disini kita menggunakan .pas karena codingan yang kita pakai di borland delphi mengunakan bahasa pascal. kemudian kita jalankan program kalkulator tersebut dengan cara klik di menu run atau dengan tombol F9 jika berhasil maka program akan jalan seperti gambar dibawah ini


  Selamat mencoba : D

Komentar

Postingan populer dari blog ini

TUTORIAL MACRO EXCEL DAN CONDITIONAL FORMATTING PADA MICROSOFT EXCEL 2013

Macro adalah sederetan fungsi dan perintah program yang disimpan dalam menu Visual Basic dan juga Macro excel disebut sebagai sebuah tool yang kita gunakan untuk membuat suatu masalah menjadi lebih gampang dikerjakan dan biasanya digunakan untuk analisa permasalahan di dalam database-database besar.
SCREENSHOT PROGRAM

JSON VS XML

JSON VS XML
1.Pengertian JSON
JSON (JavaScript Object Notation) adalah format pertukaran data yang ringan, mudah dibaca dan ditulis oleh manusia, serta mudah diterjemahkan dan dibuat (generate) oleh komputer. Format ini dibuat berdasarkan bagian dari Bahasa Pemprograman JavaScript, Standar ECMA-262 Edisi ke-3 - Desember 1999 (http://www.json.org).
JSON adalah salah satu bahasa markup yang dapat melakukan pertukaran data dimana JSON ini dibuat berdasarkan javascript dan pastinya sintaknya lebih ke javascript. Dengan membuat sebuah JSON sama halnya dengan kita membuat sebuah object pada javascript itu sendiri. Di dalam membuat JSON pasti kita bakal berkenalan dengan yang namanya array pada javascript sehingga memudahkan bagi para deveploper/programmer.
1.1.Mengapa kita menggunakan JSON ?
JSON sama halnya dengan XML yaitu yang berfungsi sebagai pembawa data atau sebagai pertukaran data antar client server. JSON dapat digunakan di berbagai bahasa pemograman, dapat digunakan dalam bahasa pemo…

TUTORIAL BACKTRACK 5 R3

Backtrack, OS Linux yang installernya biasanya dibagikan secara gratis kalo kita ikut seminar yang berbau hacking. Backtrack menyediakan tools attacking/hacking didalamnya yang sangat lengkap menurut saya. Untuk yang belum punya bisa didownload disini :http://www.backtrack-linux.org/. Dipost ini saya akan menjelaskan cara install Backtrack, saya menggunakan Backtrack 5 R3 Gnome. Selain menggunakan kata - kata, saya juga menambahkan gambar saat proses installasinya. Click gambar agar terlihat jelas. Berikut adalah cara install Backtrack 5 R3  :
Insert media installasi (DVD/FlashDisk) ke PC anda, tunggu sampai tampilan seperti ini :
tekan  enter,
Ketik Startx (Fungsi Startx adalah untuk memulai / memunculkan GUI Backtrack 5 R3 Gnome)Pilih BackTract Text, click enter.
Click Install BackTrack,
Pilih English, setelah itu click Forward, tunggu sampai setting up the clock selesai,
Sesuaikan Religion dan Time Zone sesuai keinginan anda lalu click Forward :
Pilih Keyboard layout yang anda inginkan. Lal…