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

Wednesday, March 16, 2016

Menggunakan StringGrid Delphi 7 Dalam Perkalian



Hello Katabah!
Pada tutorial lain, saya menggunakan komponen StringGrid untuk penjumlahan. Pada tutorial ini, saya membahas StringGrid untuk perkalian.


1. Buka Delphi 7
2. Klik Additional pada Component Pallete
3. Klik komponen StringGrid pada kategori Additional
4. Klik di form kosong
5. Klik StringGrid1 yang telah kita letakkan pada form
6. Ubah setting ini pada Properties (Object Inspector):
a. ColCount: 4
b. RowCount: 3

7. Klik SpeedButton pada kategori Additional
8. Klik di bawah StringGrid1 pada form
9. Klik area kosong form
10. Klik Events pada Object Inspector
11. Klik dua kali OnShow
12. Ketik script ini:
var
  x,y:integer;
begin
//Untuk menampilkan angka-angka pada baris pertama (kiri ke kanan)
  For x:=1 to 3 do
    StringGrid1.Cells[x,0]:=IntToStr(x);

//Untuk menampilkan angka-angka pada kolom pertama (atas ke bawah)
  For y:=1 to 3 do
    StringGrid1.Cells[0,y]:=IntToStr(y);

**
Kalau program dijalankan dengan menekan tombol F9 pada keyboard, maka akan tampil seperti ini:

1
2
3
1



2






13. Kembali ke desain form. Klik dua kali SpeedButton1 pada form
14. Ketik script ini:
var
  x,y:integer;
begin
  For x:=1 to 3 do
    For y:=1 to 3 do
      StringGrid1.Cells[x,y]:=IntToStr(x*y);

15. Jalankan program dengan menekan tombol F9 pada keyboard
16. Klik tombol SpeedButton1 pada form yang sedang dijalankan (running)
17. Hasilnya akan seperti ini:

1
2
3
1
2
3
4
2
3
4
5
SpeedButton1

Pada tutorial ini, saya sengaja menggunakan tombol SpeedButton agar menambah pengalaman bahwa fasilitas untuk membuat tombol pada Delphi itu tidak hanya dengan BitBtn atau Button, tapi komponen lain juga masih bisa digunakan. Bahkan komponen Label pun bisa digunakan untuk menerapkan fungsi tombol seperti yang dilakukan pada Button.

Satu lagi….!
Pada kotak pertama sebelum angka 1, kita tambahkan tanda kali yuk….Seperti ini desainnya:
Di sini kita pasang tanda kali
1
2
3
1
2
3
4
2
3
4
5
SpeedButton1

Cara menambahkan tanda kali, ini caranya:
a. Klik dua kali SpeedButton1
b. Tambahkan script ini:
//Perintah untuk menampilkan tanda kali
  StringGrid1.Cells[0,0]:='x';

c. Jalankan lagi program dengan F9
d. Klik SpeedButton1 pada form
e. Sekarang tanda kali (x) sudah ada pada kotak pertama (cell A1) seperti ini:
X
1
1
2


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