Membuat Kalkulator Dengan Delphi

-


Disini kita akan belajar  membuat sebuah aplikasi kalkulator sederhana menggunakan operasi aritmatika pada Delphi, yang pada operasi itu dapat digunakan Pascal. Operator aritmatika yang digunakan adalah +, -, /, * dan MOD. Langkah langkah membuat aplikasi kalkulator adalah sebagai berikut.
1.  Buka dan jalankan Borland Delphi 
2. Klik menu File –New –Application.
3. Setelah muncul form area kerja yang menjadi objek atau komponen akan ditempatkan, simpan sebagai sebuah project dengan klik File – Save As Project. Selanjutnya, muncul kotak dialog penyimpanan form, simpan dengan nama frmkalkulator.pas.


Dalam folder tempat menyimpan file aplikasi tersebut, terdapat file frmkalkulator.dfm yang berisi daftar konfigurasi setiap objek dan ditempatkan dalam area form. Selain file tersebut, terdapat pula file dengan nama frmkalkulator.pas yang berisi source code dari form yang didesain tersebut.
4. Simpan project tersebut dengan nama kalkulator_project.dpr.

Setelah menyimpan project tersebut dalam sebuah direktori kerja, akan terbentuk empat buah file project berekstensi cfg, dof, dpr, dan res. File filetersebut memiliki fungsi untuk mendefinisikan setiap data yang dibuat, membangun dan mendesain form, serta untuk mengatur dan eksekusi aplikasi program.
5. Untuk membuka source code project, klik menu View – Units, kemudian pilih nama file kalkulator_project. Berikut sumber kode dalam project tersebut.
program kalkulator_project;

uses
  Forms,
  frmkalkulator in 'frmkalkulator.pas' {Form1};

{$R *.res}

begin
  Application.Initialize;
  Application.CreateForm(TForm1, Form1);
  Application.Run;
end.

6. Selanjutnya, lakukan desain form seperti berikut.

 7. Atur properties dari setiap komponen dalam form sebagai berikut.
No.
Nama Objek
Properties
1.
Form
Name: Kalkulator
2.
Edit1
Name: txtbil1
3.
Edit2
Name: txtbil2
4.
Button1
Name: cmdtambah
Caption: Tambah (+)
5.
Button2
Name: cmdkurang
Caption: Kurang (-)
6.
Button3
Name: cmdkali
Caption: Kali (*)
7.
Button4
Name: cmdbagi
Caption: Bagi (/)        
8.
Button5
Name: cmdmod
Caption: Sisa Hasil Bagi (Mod)
9.
Label1
Caption: Program Kalkulator Sederhana
Font: MS Sans Serif, Bold, 18
10.
Label2
Caption: Bilangan Ke 1
Font: MS Sans Serif, Bold, 12
11.
Label3
Caption: Bilangan Ke 2
Font: MS Sans Serif, Bold, 12
12.
Label4
Caption: Hasilnya :
Font: MS Sans Serif, Bold, 12
13.
Label5
Caption:
Name: lblhasil
Font: MS Sans Serif, Bold, 12


8. Double klik tombol Tambah (+) atau cmdtambah, kemudian sesuaikan dengan isi kode berikut.

procedure TForm1.cmdtambahClick(Sender: TObject);
var
  bil1,bil2,hasil:single;
begin
  bil1 := strtofloat (txtbil1.Text);
  bil2 := strtofloat (txtbil2.Text);
  hasil := bil1 + bil2 ;
  lblhasil.Caption := floattostr(hasil);
end;

9. Double klik tombol Kurang (-) atau cmdkurang, kemudian sesuaikan dengan isi kode berikut.

procedure TForm1.cmdkurangClick(Sender: TObject);
var
  bil1,bil2,hasil : single;
begin
  bil1 := strtofloat (txtbil1.Text);
  bil2 := strtofloat (txtbil2.Text);
  hasil := bil1 - bil2;
  lblhasil.Caption := floattostr(hasil);
end;
 10. Double klik tombol Kali (*) atau cmdkali, kemudian sesuaikan dengan isi kode berikut.
procedure TForm1.cmdkaliClick(Sender: TObject);
var
  bil1,bil2,hasil : single;
begin
  bil1 := strtofloat (txtbil1.Text);
  bil2 := strtofloat (txtbil2.Text);
  hasil := bil1*bil2 ;
  lblhasil.Caption := floattostr(hasil);
end;
 11. Double klik tombol Bagi (/) atau cmdbagi, kemudian sesuaikan dengan isi kode berikut.
procedure TForm1.cmdbagiClick(Sender: TObject);
var
  bil1,bil2,hasil : single;
begin
  bil1 := strtofloat (txtbil1.Text);
  bil2 := strtofloat (txtbil2.Text);
  hasil := bil1/bil2;
  lblhasil.Caption := floattostr (hasil);
end;
 12. Double klik tombol sisa hasil bagi (Mod) atau cmdmod, kemudian sesuaikan dengan isi kode berikut.
procedure TForm1.cmdmodClick(Sender: TObject);
var
  bil1,bil2,hasil : integer;
begin
  bil1 := strtoint (txtbil1.Text);
  bil2 := strtoint (txtbil2.Text);
  hasil := bil1 mod bil2;
  lblhasil.Caption := inttostr(hasil);
end;
 13. Setelah itu klik menu Run – Run atau tekan tombol F9 pada keyboard.
14. Hasilnya akan tampil seperti gambar berikut.





My name is Siti Fatimah. Introvert person and hard thinker. let's follow my account

Comments

Post a Comment

Popular posts from this blog

Membuat Form Gaji dengan Delphi

-
Image
Sebelum membuat sebuah aplikasi dengan bahasa pemrograman tertentu, langkah awal yang harus dilakukan adalah menganalisa keperluan sistem, dilanjutkan dengan merancang sistem menggunakan DAD (Data Alir Diagram), kemudian merancang database (ERD), dan yang terakhir adalah proses coding. Pada kasus kali ini adalah nerancang sebuah form aplikasi yang dapat menampilkan informasi gaji pegawai dalam sebuah perusahaan tertentu. Gaji tiap bulan dalam perusahaan tersebut memiliki ketentuan sebagai berikut. Untuk membangun form penghitungan gaji karyawan dengan Delphi, ikuti langkah langkah berikut. 1. Buka dan jalankan aplikasi Borland Delphi 7 pada Windows 2. Buatlah sebuah projrct baru, dan simpan dengan nama gaji.dpr 3. Buatlah sebuah form dan simpan dengan nama unit1.dfm 4. Desain area kerja seperti berikut 5. Atur properti setiap objek dalam form seperti ketentuan berikut. No. Nama Object Properties 1. Form Name: Form1 Caption: Perhitungan Gaji Karya...
Read more

Kisi-Kisi Administrasi Infrastruktur Jaringan Kelas XI TKJ

-
LEMBAR SOAL Mata Pelajaran : Administrasi Infrastruktur Jaringan Kelas/Prog. Keahlian         :   X I TKJ Jawablahpertanyaan di bawahinidengantepat ! 1.       VLAN memudahkan manajemen jaringan karena pengguna yang membutuhkan sumber daya yang dibutuhkan berbagi dalam segmen yang sama a.        Security b.       Higher performance c.        Improved IT staff efficiency d.       Broadcast strom mitigation e.        Cost reduction 2.       VLAN yang dikonfigurasi hanya untuk membawa data data yang digunakan oleh user adalah a.        VLAN data b.       VLAN default c.        Native VLAN d.       VLAN manajemen e. ...
Read more