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