Prodi Sistem Informasi | Belajar HTML dan PHP | Skripsi SI
Pesantren Katabah
1000 Penghafal Quran
Pengobatan Ruqyah Mandiri
Sistem Informasi (S1)
Manajemen Informatika
Blog | Kontak | Siap Kerja | Sertifikat | PrivacyPolicy | Inggris Arab | Daftar Isi

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
"Boleh Konsultasi Masuk Jurusan Sistem Informasi via IG atau Tiktok."
Tips Skripsi Program Studi Sistem Informasi