Kali ini saya akan menunjukkan bagaimana untuk membuat sebuah kalkulator sederhana dalam bahasa pemrograman delphi. Dalam kalkulator ini saya hanya akan membuat operator aritmatika dasar saja, mungkin anda bisa menambahkannya ^_^.
Langkah pertama buka bahasa pemrograman delphi 7. Jika anda belum mempunyai programnya bisa download disini.
Setelah itu langsung saja buat Edit yang tersedia dalam component pallette, disini kita buat 2 buah Edit dimana Edit yang pertama untuk bilangan pertama dan Edit yang kedua untuk bilangan kedua.
Kita bisa mengedit tampilan dari Edit ini dalam Object Inspector. Pertama kita hapus Edit1 dalam text agar dalam form tidak tampil tulisan Edit1 dan lakukan juga untuk Edit2.
Setelah itu kita buat button yang tersedia dalam component pallette untuk menjalankan operasi aritmatika yang kita ingin lakukan, disini saya hanya menuliskan operasi bagi, kali, tambah, kurang, dan pangkat saja. Jika ingin menambahkan operasi lain bisa saja terserah anda.
Sama seperti Edit, untuk mengedit tampilan atau settingannya dapat dilakukan dalam Object Inspector. Dalam button Caption berarti text yang akan dimunculkan dalam button tersebut, sedangkan name untuk nama variabel dalam program ini. Kemudian kita buat satu buah label untuk menampilkan hasilnya.
Setelah itu baru kita masuk ke dalam text editor Delphi untuk menuliskan kode-kode program. Cukup double-click di button yang ingin dimasukkan kode tersebut. Kemudian ketikkan kode dibawah ini :
procedure TForm1.tambahClick(Sender: TObject);
var a,b,c:real;
begin
a:=strtofloat(Edit1.Text);
b:=strtofloat(Edit2.Text);
c:=a+b;
hasil.Caption:=floattostr(c);
end;
kode tersebut untuk operasi tambah.
procedure TForm1.kurangClick(Sender: TObject);
var a,b,c:real;
begin
a:=strtofloat(Edit1.Text);
b:=strtofloat(Edit2.Text);
c:=a-b;
hasil.Caption:=floattostr(c);
end;
kode tersebut untuk operasi kurang.
procedure TForm1.kaliClick(Sender: TObject);
var a,b,c:real;
begin
a:=strtofloat(Edit1.Text);
b:=strtofloat(Edit2.Text);
c:=a*b;
hasil.Caption:=floattostr(c);
end;
kode tersebut untuk operasi kali.
procedure TForm1.bagiClick(Sender: TObject);
var a,b,c:real;
begin
a:=strtofloat(Edit1.Text);
b:=strtofloat(Edit2.Text);
c:=a/b;
hasil.Caption:=floattostr(c);
end;
kode tersebut untuk operasi bagi.
procedure TForm1.pangkatClick(Sender: TObject);
var a,b,c:real;
begin
a:=strtofloat(Edit1.Text);
b:=strtofloat(Edit2.Text);
c:=exp(b*ln(a));
hasil.Caption:=floattostr(c);
end;
kode tersebut untuk operasi pangkat.
berikut adalah screenshot hasilnya :
Mungkin hanya ini yang bisa saya share, silahkan mencoba dan selamat berkreasi ! ^_^
