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 Penjumlahan



Hello Katabah!
Berdasarkan pengalaman, saya lebih mengenal DBGrid daripada StringGrid. Komponen DBGrid biasa digunakan untuk menampilkan data dari database di Delphi 7. Lalu, komponen StringGrid untuk apa?


1. Buka Delphi 7
2. Klik Additional pada Component Pallete
3. Klik komponen StringGrid
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: 4

7. Klik BitBtn 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



3






13. Kembali ke desain form. Klik dua kali BitBtn1 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 BitBtn1 pada form yang sedang dijalankan (running)
17. Hasilnya akan seperti ini:

1
2
3
1
2
3
4
2
3
4
5
3
4
5
6

Bagi yang belum paham dari mana angka-angka tersebut muncul (saya sesaat pernah nyari-nyari juga asalnya…hiks..hiks..)

Ambil saja angka yang muncul pada baris kedua:

1
2
3
1
2
3
4

Itu berarti:
2= 1+1
3= 1+2
4= 1+3

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