Cara membuat Kalkulator sederhana menggunakan Delphi,..
mmmm.. kelihatannya menarik dari pada kita membeli kalkulator lebih baik kita
membuatnya sendiri… he biarpun masih Sangat Sederhana, ya tapi kan cukup membantu….N menambah pengetahuan kita
Juga…
Langsung aja dah…
Pertma… Siapkan Label, & buton2 aritmatika untuk
pengoprasian nya, & tambahkan Edit.text
Lihat
Gambar Berikut
function TForm1.tambah(x,y:real):real;
Begin
result := x + y;
end;
function
TForm1.kurang(x,y:real):real;
Begin
result := x - y;
end;
procedure TForm1.kali(x,y:real);
Begin
edit3.text :=
floattostr(x*y);
end;
procedure TForm1.bagi;
begin
edit3.text :=
floattostr(strtofloat(edit1.Text)/strtofloat(edit2.Text));
end;
1. Pada Button
+ tuliskan coding Berikut
procedure
TForm1.Button1Click(Sender: TObject);
begin
edit3.Text:=
floattostr(tambah(strtofloat(edit1.Text),strtofloat(edit2.Text)));
end;
2. Pada Button
- tuliskan coding Berikut
procedure TForm1.Button2Click(Sender:
TObject);
begin
edit3.Text:=
floattostr(kurang(strtofloat(edit1.Text),strtofloat(edit2.Text)));
end;
3. Pada Button
* tuliskan coding Berikut
procedure
TForm1.Button3Click(Sender: TObject);
begin
kali(strtofloat(edit1.Text),strtofloat(edit2.Text));
end;
4. Pada Button
* tuliskan coding Berikut
procedure
TForm1.Button3Click(Sender: TObject);
begin
kali(strtofloat(edit1.Text),strtofloat(edit2.Text));
end;
5. Pada Button
/ tuliskan coding Berikut
procedure
TForm1.Button4Click(Sender: TObject);
begin
bagi();
end;
6. Pada Button
Hapus tuliskan coding Berikut
procedure
TForm1.Button5Click(Sender: TObject);
begin
hapus;
end;
7. Pada Button
Keluar tuliskan coding Berikut
procedure
TForm1.Button6Click(Sender: TObject);
begin
close;
end;
Beres dah Semoga Materi Ini bias Membantu / Menambah
Referensi Kita, … Good Luck…