Blog | Beli Rumah | Belajar HTML dan PHP | Kontak | Gmail | Uang Adsense
Audit Sistem Informasi
Sistem Informasi (S1)
Manajemen Informatika
Komputer dan Pendidikan
Pengobatan Ruqyah
Daftar Isi | Skripsi SI | B. Arab | Sertifikat Komputer Internasional | PrivacyPolicy | Inggris Arab

Friday, March 11, 2016

Membuat Kali Bagi Tambah Kurang Delphi 7



Hello Katabah!
Minggu-minggu ini, saya sedang kangen dengan buku-buku yang sempat dipelajari pada saat belajar Delphi dulu di kampus. Jadi, posting pun tampaknya didominasi seputar pemrograman Delphi.

Kali ini, kita belajar menerapkan fungsi Kali, Bagi, Tambah, Kurang menggunakan script Delphi.


1. Buka Delphi 7
2. Pada form kosong, letakkan 3 buah komponen Edit dari kategori Standard (Component Pallete)
3. Letakkan pula Button dari kategori Standard juga

Agar desainnya lebih jelas, mari lanjutkan pada langkah 4 berikut ini:
4. Buatlah desainnya seperti ini:

Catatan:
Tulisan “Angka 1, Angka 2 dan Hasil”, saya menggunakan Label dari kategori Standard yang ada dalam Component Pallete.

Sekarang kita buat script untuk Perkalian dulu….
5. Ketik script perkalian ini:
var
  a, b, c: byte;
begin
  a:=StrToInt(Edit1.Text);
  b:=StrToInt(Edit2.Text);
  c:=a*b;
  Edit3.Text:=IntToStr(c);

6. Jalankan program dengan menekan F9 di keyboard
7. Silahkan isikan angka yang diinginkan, misal:
Angka 1: 4
Angka 2: 5
Klik tombol Kali
Hasil: Akan otomatis terisi angka 20

OK, program aplikasi untuk perkalian sudah selesai. Lalu, bagaimana coding untuk Tambah dan Kurang? Mudah saja karena hanya mengubah tanda * (c:=a*b;) seperti di bawah ini:

Tambah:
c:=a+b;

Kurang:
c:=a*b;

eiiits…mana coding untuk Perkaliannya ya…? Ini nih ada sedikit berbeda:
Untuk Bagi:
Ubahlah c:=a*b; menjadi c:=a/b;
Ubahlah  Edit3.Text:=IntToStr(c); menjadi  Edit3.Text:=FloatToStr(c);
Ubahlah a, b, c: byte; menjadi a, b, c: real; (tipe “byte” diganti dengan “real”)

Jadi, script lengkap untuk pembagian seperti ini:
var
  a, b, c: Real;
begin
  a:=StrToInt(Edit1.Text);
  b:=StrToInt(Edit2.Text);
  c:=a/b;
  Edit3.Text:=FloatToStr(c);

Sekarang, aplikasi Pembagian sudah bisa dijalankan. Selamat…!
"Investasi Emas dan Reksadana, Untung Mana?."
Youtube: Katabah Com: Menuju 1 jt Konten :)