Rabu, April 27, 2011

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.


Bagi rekan-rekan yang ingin melihat contoh program aplikasi yang telah dihasilkan oleh sintaks di atas dapat mendownloadnya di sini dan yang ingin mendownload file microsoft word (.doc) dari postingan ini silakan klik di sini

ingin dapat update tentang program Delphi lainnya? silakan Join Group facebook sahabat-informasi.com dan Like Fanpage sahabat informasi dengan dengan account facebook kamu,

All of truth come from God and faults are from me

8 komentar:

Help Me Mas....
Jika menggunakan database sql...
mohon petunjuknya

r374l@yahoo.com

Maaf Mas, saya tidak pernah dapat pengajaran tentang database SQL,

maaf sekali,

terima kasih telah berkunjung,

admin sahabat-informasi.com

bsa gagh buat himpunan kardinalitas dngn menggunakan delphii 7, mhon bantuannya iia..

Maaf, saya belum paham betul tentang Delphi dan himpunan Kardinalitas,

output.text:=strtofloat(c);

gimana gan...?

waduh... saya sudah lama sekali nih gak pegang Delphi, ntar dulu ya saya lihat-lihat lagi Delphinya,

tapi sudah yakin kode yang diketikkan sudah betul ya Mas...?

bagus massss, pejwan pejwan, tai

jangan gt dongg, kita harus apresiasi menn, pertamax gann, kampret