Ekspresi | Les Private Arab-Inggris via WA dan BBM Gratis | Sunda | Kontak | Google | Gmail | Uang Adsense
Toko Baju Online Abah + Bonus
LP3I Tasikmalaya
Bahasa Arab (Kelas 1 SD sampai Universitas)
Bisnis Bitcoin | Daftar Isi | Tools Penting | PrivacyPolicy | Jago Bahasa Inggris dan Arab | Kamus | Kamus Google

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…!

"Bitcoin and Forex are high risk business. We must join them smartly."
loading...