Welcome

Welcome, thanks to look my blog

Wednesday 2 April 2014

Program Delphi Penjumlahan Pengurangan Perkalian dan Pembagian

Program Delphi Penjumlahan Pengurangan Perkalian dan Pembagian

Untuk membuat program Delphi penjumlahan, pengurangan, perkalian dan pembagian tidaklah sulit, asalkan mau mengerjakannya. Oke langsung aja kita mulai pembahasannya. Pertama-tama buatlah form lembaran kerja seperti di bawah ini:

Pada dasarnya nama default dari edit text disamping kanan caption Bilangan 1 adalah edit1, edit text disamping kanan caption Bilangan 2 adalah edit2 dan edit text disamping kanan caption Hasil adalah edit3. Pada kesempatan kali ini kita samakan saja namanya, edit1 kita ganti dengan input1, edit2 kita ganti dengan input2 dan edit3 kita ganti dengan output. Sebenarnya tidak ada salahnya jika kita tetap menggunakan nama defaultnya tanpa harus menggantinya, namun hanya untuk menegaskan bahwa edit1 berfungsi sebagai input1 (masukan 1), dan edit2 berfungsi sebagai input2 (masukan 2) dan edit3 berfungsi untuk menampilkan output (hasil).
Sekarang kita akan memulai untuk mengetikkan sintaknya atau source kodenya atau formulanya. Tersereah mau mulai dari tombol mana di antara 4 tombol yang akan digunakan. Untuk menyeragamkan kita mulai saja dari tombol +(tambah), -(kurang), x(kali) dan :(bagi).

Jangan lupas simpan nama file teman (ntar mati lampu lagi..... hehe...), pada kesempatan kali ini sahabat akan menyimpannya dengan nama addition_and_multiplication, dengan nama lain juga tidak masalah, cuma hanya berpengaruh pada kode atau sintaks program pada nama unit, tapi sepertinya delphi tidak mengizinkan namanya dengan nama yang menggunakan space.

  1. Klik dulu form lembaran kerja kemudian double click (klik dua kali) pada tombol tambah, sehingga akan muncul form code, dan kursor terletak antara begin dan end; dan langsung ketikkan kode di bawah ini:
    a:=strtofloat(input1.text);
    b:=strtofloat(input2.text);
    c:=a+b;
    output.text:=floattostr(c);

    dan rumus untuk tombol tanda tambah sudah selesai
  2. Klik kembali form lembaran kerja kemudian double click (klik dua kali) pada tombol kurang, sehingga akan muncul form code, dan kursor terletak antara begin dan end; dan langsung ketikkan kode di bawah ini:
    a:=strtofloat(input1.text);
    b:=strtofloat(input2.text);
    c:=a-b;
    output.text:=floattostr(c);

  3. Klik kembali form lembaran kerja kemudian double click (klik dua kali) pada tombol kali, sehingga akan muncul form code, dan kursor terletak antara begin dan end; dan langsung ketikkan kode di bawah ini:
    a:=strtofloat(input1.text);
    b:=strtofloat(input2.text);
    c:=a*b;
    output.text:=floattostr(c);

  4. Klik kembali form lembaran kerja kemudian double click (klik dua kali) pada tombol bagi, sehingga akan muncul form code, dan kursor terletak antara begin dan end; dan langsung ketikkan kode di bawah ini:
    a:=strtofloat(input1.text);
    b:=strtofloat(input2.text);
    c:=a/b;
    output.text:=floattostr(c);

  5. Kemudian saatnya pendeklarasian variabel yang digunakan yaitu variabel a,b dan c. Geser kursor ke atas sampai bertemu kode berikut:
    var
    Form1: TForm1;
    Implementation

  6. Kemudian ketikkan kode berikut antara Tform1; dengan Implementation.
    Ini kodenya:
    a,b,c:real;
  7. Sehingga kodenya menjadi seperti berikut:
    var
    Form1: TForm1;
    a,b,c:real;
    implementation

    Sekarang coba klik Run untuk menjalankan program dan silakan dicoba, seperti gambar berikut:


Berhasil sudah kita membuat suatu program sederhana dengan menggunakan Delphi, bagi teman-teman yang kurang mengerti dengan program yang satu ini, silakan langsung tanya ke sahabat, insya Allah jika sahabat bisa akan dibantu.

Jadi secara keseluruhan sintaks dari program ini adalah :

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.

7 comments:

  1. info bagus. apakah membuat kalkulator digital sama prinsipnya dengan program ini?

    ReplyDelete
    Replies
    1. ya sama prinsipnya tinggal kreasi kita aja, coba dilihat artikel yang lainnya

      Delete
  2. kunjungan perdana..
    Nice post.

    ReplyDelete
  3. Makasih gan infonya.
    Share sedikit arkikel kita http://zincoxideindonesia.blogspot.co.id/2018/03/understandingsome-applications-of-zinc.html

    ReplyDelete
  4. Terima kasih , sangat bermanfaat....

    Share sedikit web kita Equityworld Futures Pusat

    ReplyDelete
  5. Masih aktif blok ini..sampe detik ini..???

    ReplyDelete