Blog | Beli Rumah | Belajar HTML dan PHP | Kontak | Gmail | Uang Adsense
Audit Sistem Informasi
Sistem Informasi (S1)
Manajemen Informatika
Komputer dan Pendidikan
Pengobatan Ruqyah
Daftar Isi | Skripsi SI | B. Arab | Sertifikat Komputer Internasional | PrivacyPolicy | Inggris Arab

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
"Investasi Emas dan Reksadana, Untung Mana?."
Youtube: Katabah Com: Menuju 1 jt Konten :)