Membuat Kalkulator Sederhana Menggunakan Delphi

Program kalkulator saya ini memang sangat sederhana, didalamnya hanya terdapat fungsi-fungsi umum yang biasa terdapat di kalkulator pada umumnya. Namun kamu juga bisa mengembangkan kalkulator yang lebih kompleks. Nah di dalam program kalkulator yang saya buat ini terdapat fungsi seperti:

• Penambahan
• Pengurangan
• Perkalian
• Pembagian
• Sisa Pembagian

Oke langsung aja kita belajar sama-sama bagaimana cara membuat program kalkulator sederhana.
Ikuti Langkah-langkah dibawah ini:

• Buka Borland Delphi (Disini saya menggunakan Borland Delphi 7)
• Klik File->New->Application
• Setelah tampil form baru, tambahkan beberapa komponen form sehingga menjadi seperti 

gambar dibawah ini  Komponen yang ada di dalam program saya adalah:

• Setelah itu double klik pada tombol Hitung (Button1) untuk menuliskan kode program.
• Tulisakan kode program dibawah ini atau copy paste juga boleh. hehehe

var
nilai1,nilai2,hasil:integer;
begin
nilai1:=strtoint(Enilai1.text);
nilai2:=StrToInt(enilai2.Text);
case roprtr.ItemIndex of
0:begin
hasil:=nilai1+nilai2;
ehsl.Text:=IntToStr(hasil);
end;
1:begin
hasil:=nilai1-nilai2;
ehsl.Text:=IntToStr(hasil);
end;
2:begin
hasil:=nilai1*nilai2;
ehsl.Text:=IntToStr(hasil);
end;
3:begin
hasil:=nilai1 div nilai2;
ehsl.Text:=IntToStr(hasil);
end;
4:begin
hasil:=nilai1 mod nilai2;
ehsl.Text:=IntToStr(hasil);
end;
end;
end;
procedure TForm1.bclosClick(Sender: TObject);
begin
Application.Terminate;
end;

• Setelah semua kode program sudah selesai ditulis (*padahal copy paste, haha) tinggal klik run aja.
• Jrenggggg!!!! Program kalkulator buatan Bill Gates telah tampil.

Nah gampang kan gan, sekian dulu dari saya untuk belajar membuat program kalkulator sederhana menggunakan delphi. Mohon maaf jika ada salah kata dari saya, jangan lupa tinggalkan komentar. Salam persahabatan dari Olwin
sumber: Copyright © Olwin Kirab Novaldy. 2013
Copy Paste Silahkan [FREE]