Ekspresi | Les Private Arab-Inggris via WA dan FB Gratis | Sunda | Kontak | Gmail | Uang Adsense
Kuliah Sistem Informasi,
Jurnal Ilmiah Sistem Informasi
STMIK JABAR
LP3I Tasikmalaya
Jurnal STAI al Falah
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."
Belajar Bahasa Inggris dan Arab di WA dan FB Gratis!